Visual Basic Hesap Makinesi

Visual Basic ile hesap makinesi için 4 buton 2 textbox 2 tane label oluşturuyoruz.Textbox’a sayılar girilcek aradaki label basılan butonun işlemini yazıcak(+.- gibi).

Kısaca textbox + label + textbox + label => son label’da ise işlemin sonucu yazıcak

Butonların kod yapısı

Private Sub bolme_Click(Index As Integer)
Label1 = "+"
Label2 = Val(txt1) + Val(txt2)
End Sub

Butona basıldığıda Label’i yani textbox’ların arasındakini + yaptık 2. satırda ise label2 yi yani textboxların sonundakini txt1 ve txt2 ye girilen sayıların toplamına eşitledik.

Bu buton gibi 4 buton yapıp onlarında işlemini  –  * / yaptığınız zaman txt1 ve txt2 ye girilen sayılar bastığınız butona göre işlemlendirip labellara yazdırılacak.Kodları alırken koddaki label isimleri ve textbox isimlerinin aynı olduğuna dikkat edin.

Programın Son hali aşağıdaki gibidir

Private Sub Command1_Click(Index As Integer)

End Sub

Private Sub bolme_Click(Index As Integer)
Label1 = "/"
Label2 = Val(txt1) / Val(txt2)
End Sub

Private Sub carpma_Click(Index As Integer)
Label1 = "*"
Label2 = Val(txt1) * Val(txt2)
End Sub

Private Sub cikar_Click(Index As Integer)
Label1 = "-"
Label2 = Val(txt1) - Val(txt2)
End Sub

Private Sub Form_Load()

End Sub

Private Sub topla_Click(Index As Integer)
Label1 = "+"
Label2 = Val(txt1) + Val(txt2)
End Sub