Bugün serisini başlattığım program arşivi ile karşınızdayım. Program VB.Net ile hazırlanmıştır.

İlk programımız dövizi Türk Lirasına kdvli şekilde çeviren bir program. Yazım mantığı gayet basit.

Dim doviz, kur, kdv As Integer
Dim fiyat As Single

If ComboBox1.Text = "Dolar" Then
TextBox5.Text = "$"
End If
If ComboBox1.Text = "Euro" Then
TextBox5.Text = "€"
End If
doviz = CInt(TextBox1.Text)
kur = CInt(TextBox4.Text)
kdv = CInt(TextBox3.Text)
fiyat = (doviz * (kdv / 100) + doviz) * kur
TextBox2.Text = fiyat

Bunu oluşturduğumuz butona yazıyoruz. Gerekli textbox işlemlerini yapıyoruz. Bu kadar…

Bu programı hazır halde indirmek için TIKLAYINIZ…

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.