Bugün öğlenden sonraki dersler boştu. Çok mutlu oldum. 3 saat görsel programlama vardı. Öğretmen ödev vermişti. Ben az-çok yaptım. Ama yarım kaldı.

Visual Basic ile isim,soyisim işlemlerini yapıyoruz. Bunlar bana çerez geliyor ama olsun tekrardan bir şey olmaz. Hoca’nın bizden istediği şey şuydu;

Bir button ekleyeceğiz. Butona basılınca inputbox ile ad ve soyadı gireceğiz ve arada bir boşluk olacak. Ardından bu boşluğu buldurup soy adını yazdıracağız. Fakat ekstradan örnek veriyorum isim Ali Karaçizik ise soyadını kar diye gösterecek. Yani addaki  karakter sayısı kadar. Buraya kadar yapacaktım ama yeter bu kadarı. Şimdi kodlarına geçelim.

Dim isim,goster as string 'İsimi girdirmek ve göstermek için iki string tipi değişken atıyoruz.

Dim uzunluk,bosluk as integer 'Kaç karakter olduğunu buldurmak ve boşluk yerini belli etmek için sayısal tip değişken atıyoruz.

isim=inputbox("adı ve soyadı boşluklu şekilde giriniz.")

uzunluk=(Len(isim)) ' İsim'in kaç karakter olduğunu buluyoruz.

bosluk=instr(1,isim," ")

goster=Mid(isim,ara,uzunluk)

MsgBox(Goster)

Bu şekilde kodları kullanırsak ad ve soyadı girdiğimizde bize sadece soyadını gösteriyor. Bunu isterseniz textbox’dada uygulayabilirsiniz.