Hesap Makinası

 

Dim geçici As Integer
Dim geçici1 As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = TextBox1.Text & "1"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = TextBox1.Text & "2"

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

TextBox1.Text = TextBox1.Text & "3"

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.Text = TextBox1.Text & "4"

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

TextBox1.Text = TextBox1.Text & "5"

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

TextBox1.Text = TextBox1.Text & "6"

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

TextBox1.Text = TextBox1.Text & "7"

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

TextBox1.Text = TextBox1.Text & "8"


End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

TextBox1.Text = TextBox1.Text & "9"

End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

TextBox1.Text = TextBox1.Text & "0"

End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

TextBox1.Text = TextBox1.Text & "00"

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

geçici = TextBox1.Text
geçici1 = "topla"
TextBox1.Text = ""

End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If geçici1 = "topla" Then
TextBox1.Text = geçici + TextBox1.Text
ElseIf geçici1 = "çarp" Then
TextBox1.Text = geçici * TextBox1.Text
ElseIf geçici1 = "çıkart" Then
TextBox1.Text = geçici - TextBox1.Text
ElseIf geçici1 = "böl" Then
TextBox1.Text = geçici / TextBox1.Text
ElseIf geçici1 = "yüzde" Then
TextBox1.Text = geçici * TextBox1.Text / 100
ElseIf TextBox1.Text = "" Then
MsgBox("lütfen rakam giriniz")
End If

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
geçici = TextBox1.Text
geçici1 = "çarp"
TextBox1.Text = ""
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
geçici = TextBox1.Text
geçici1 = "çıkart"
TextBox1.Text = ""
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
geçici = TextBox1.Text
geçici1 = "böl"
TextBox1.Text = ""
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
geçici = TextBox1.Text
geçici1 = "yüzde"
TextBox1.Text = ""
End Sub

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
TextBox1.Text = ""
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "HESAP MAKİNASI"
End Sub

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

hesap makinası