VB.NET Hesap Makınası Kodları

Kod:

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"...
Lütfen, veya içerikteki bağlantıyı görüntülemek için!