VB.NET Hesap Makınası Kodları

Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
Text1.Text = (a + b)
End Sub

Private Sub Command2_Click()
Text1.Text = (a - b)
End Sub

Private Sub Command3_Click()
Text1.Text = (a * b)
End Sub

Private Sub Command4_Click()
Text1.Text = (a / b)
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
a = InputBox("1. Sayıyı Gir")
b = InputBox("2. Sayıyı Gir")

End Sub

Private Sub Form_Load()
Command1.Caption = "Topla"
Command2.Caption = "Çıkar"
Command3.Caption = "Çarpma"
Command4.Caption = "Bölme"
Command5.Caption = "İşlem Tamamlandı"
Command6.Caption = "Sayıları Gir"
Text1.Text = ""
Form1.Caption = "Formun İsmini Yaz (Değiştir)"
Form1.BackColor = vbRed

End Sub