VB.NET’de hesap makinası yapmak

vb .NET'te yazılmış bir hesap makinası

Public Class Form1
Dim degisiklik As Boolean
Dim sayac, sayi, islem, toplam As Double
Form1_Load
sayac = 1
TextBox1.Text = ""
End Sub
Button15_Click
If degisiklik = True Then
TextBox1.Text = TextBox1.Text + "0"
End If
End Sub
Button16_Click
If degisiklik = True Then
TextBox1.Text = TextBox1.Text + "00"
End If
End Sub
Button6_Click
TextBox1.Text = TextBox1.Text + "1"
degisiklik = True
End Sub
Button7_Click
TextBox1.Text = TextBox1.Text + "2"
degisiklik = True
End Sub
Button8_Click
TextBox1.Text = TextBox1.Text + "3"
degisiklik = True
End Sub
Button9_Click
TextBox1.Text = TextBox1.Text + "4"
degisiklik = True

End Sub
Button10_Click
TextBox1.Text = TextBox1.Text + "5"
degisiklik = True

End Sub
Button11_Click
TextBox1.Text = TextBox1.Text + "6"
degisiklik = True

End Sub
Button12_Click
TextBox1.Text = TextBox1.Text + "7"
degisiklik = True

End Sub
Button13_Click
TextBox1.Text = TextBox1.Text + "8"
degisiklik = True

End Sub
Button14_Click
TextBox1.Text = TextBox1.Text + "9"
degisiklik = True

End Sub

Button17_Click
TextBox1.Clear()
degisiklik = False
sayac = 1
End Sub
Button1_Click
islem = 1
sayi = TextBox1.Text
TextBox1.Clear()
TextBox1.Text = ""
degisiklik = False
End Sub

Button3_Click
islem = 4
sayi = TextBox1.Text
TextBox1.Clear()
TextBox1.Text = ""
degisiklik = False

End Sub

Button2_Click
islem = 3
sayi = TextBox1.Text
TextBox1.Clear()
TextBox1.Text = ""
degisiklik = False

End Sub
Button4_Click
islem = 2
sayi = TextBox1.Text
TextBox1.Clear()
TextBox1.Text = ""
degisiklik = False

End Sub
Button5_Click
degisiklik = False
Select Case (islem)
Case 1
toplam = CDbl(sayi) + CDbl(TextBox1.Text)
Case 2
toplam = CDbl(sayi) * CDbl(TextBox1.Text)
Case 3
toplam = CDbl(sayi) / CDbl(TextBox1.Text)
Case 4
toplam = CDbl(sayi) - CDbl(TextBox1.Text)
End Select
TextBox1.Text = toplam
End Sub
TextBox1_KeyPress
If Not IsNumeric(TextBox1.Text) Then
MsgBox("Sayısal değer giriniz.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Hata")
TextBox1.Clear()
End If
End Sub
End Class

TD Software