hesap makinesi
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer, b As Integer
a = TextBox1.Text
b = TextBox2.Text
MsgBox("İki sayının toplamı" & " " & a + b)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As Integer, b As Integer
a = TextBox1.Text
b = TextBox2.Text
MsgBox("İki sayının farkı" & " " & a - b)
End Sub
Private Sub Button3_Click(ByVal sender A System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a As Integer, b As Integer
a = TextBox1.Text
b = TextBox2.Text
MsgBox("İki sayının çarpımı" & " " & a * b)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a As Integer, b As Integer
a = TextBox1.Text
b = TextBox2.Text
MsgBox("İki sayının bölümü" & " " & a / b)
End Sub
end class