[CoNQueRoR_61]

Visual Basic Programlama Dili

Visual Basic Programlama Dili

Visual Basic, Microsoft tarafından, Basic programlama dili üzerinde geliştirilmiş, olay yönlendirmeli, üst seviye, nesne tabanlı ve görsel bir programlama dilidir.

ÖzellikleriAO, RDO ve ADO yöntemleri ile SQL, MySQL, Microsoft Access, Paradox ve Oracle gibi çeşitli veri tabanlarına bağlanabilir.
Active-X denetimleri ve nesneleri yaratalabilir.
Ascii ve İkili dosya biçemleriyle çalışabilir.
Nesne tabanlı bir dildir.
Windows API çağrısı ve benzeri harici işlev çağrıları yapabilir.

Visual Basic Programlama Diline Örnek :
Private Sub Form_Load() 'formumuz yüklenirken ->
'yani form ilk açıldığındaoluşturmak istediklerimiz
'Mesela formun başlığı, butonların içnde yazacaklar. vs
Form1.Caption = "ilk hesap makinesi" 'formun başlığı
Text1.Text = "" 'form açıldığında text1'in içi boş olsun
Text2.Text = "" 'form açıldığında text2nin içi boş olsun
Label1.Caption = "" 'form açıldığında label1in içi boş olsun
Label2.Caption = "" 'form açıldığında label2nin içi boş olsun
Command1.Caption = "Topla" 'bunları yazmama gerek yok
Command2.Caption = "Çıkart"
Command3.Caption = "Çarp"
Command4.Caption = "Böl"
Command5.Caption = "Temizle"
End Sub

Command1 butonumuz toplama işlemini yapıyor, bunu koda dökmek çok kolay devam edelim

Private Sub command1_click() 'toplama işlemi
Label1.Caption = "+" 'buttona bastığımız zaman iki ->
'textbox arasında "+" işareti olacak
Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
'text1'in içinde yazan değeri tex2 ninkiyle topla
End Sub

Gördüğünüz gibi text1in değeri ile tex2nin değerini topla diyoruz.
Diğer işlemler için hemen hemen aynı şeyler geçerli... Çıkarma işlemine geçelim.

Private Sub command2_click() 'çıkarma işlemi
Label1.Caption = "-" 'butona bastığın zaman
'iki textbox arasında işlemin çıkarma olduğunu gösteren "-" işareti olur
Label2.Caption = Val(Text1.Text) - Val(Text2.Text)
'text1den text2'yi çıkart sıra önemli
End Sub

text1den text2yi çıkardık. Yani text1de "10" , text2de de "8" yazıyosa 10'dan 8'i çıkart, label2'ye sonucu yaz

Private Sub command3_click() 'çarpma işlemi
Label1.Caption = "x" 'artık ne yaptığımızı anladınız
Label2.Caption = Val(Text1.Text) * Val(Text2.Text)
'ikisini de çarptık
End Sub

Private Sub command4_click() 'bölme işlemi biraz zor
Label1.Caption = "÷" 'bu bölü işaretini kendin bul
'şimdi zor olan kısıma geldik
'program eğer text1 yada text2 sıfırsa ya da bir şey yamıyorsa hata verecektir
'aşağıda bunu önleyeceğiz
If Text1.Text = "" Or Text1.Text = "0" Or Text2.Text = "" Or Text2.Text = "0" Then
MsgBox ("Mantık hatası&quot, vbOKOnly, ("Hata&quot
Exit Sub
End If
'eğer text1 boşsa yada sıfırsa text2 sıfırsa yada boşsa
'mesajbox'a atla
'"exit sub" yazdık, bunu yazmazsanız program gene hata verecektir.
'yani sub'ı bitirme sadece subdan çık
Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub command5_click() 'yazıları temizler
Text1.Text = "" 'text1'in içine bişey yazma
Text2.Text = "" 'text2 için
Label1.Caption = "" 'label1 için
Label2.Caption = "" 'label2 için
End Sub

'hesap makinesinde harflerin ne işi var?Şimdi yazacağım kodlarla text1 ve text2'nin içeriğine harf yazamayacağız sadece sayı yazacağız.

Private Sub Text1_KeyPress(KeyAscii As Integer)
'text1in içine harf yazmamızı engeller
If KeyAscii > Asc("0&quot And Asc("9&quot < KeyAscii Then
KeyAscii = 0 'harf ise iptal et
Else
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'text2nin içine harf yazmamızı engeller
If KeyAscii > Asc("0&quot And Asc("9&quot < KeyAscii Then
KeyAscii = 0 'harf ise iptal et
Else
End If
End Sub

***Bu program ile basit bir hesap makinesi hazırlanır***