عملت الة حاسبة بسيطة
لكن كود زرار النتيجة مش عايز يشتغل
لسة مبتدئة لو تقولولي الغلط فين
Public Class Form1
Dim addition1 As Integer
Dim subtraction1 As Integer
Dim division1 As Double
Dim multiplication1 As Integer
Dim result As Integer
Dim choice As String
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs)
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Select Case choice
Case "plus"
result = addition1 + Val(TextBox1.Text)
TextBox1.Text = 0
Case "minus"
result = subtraction1 - Val(TextBox1.Text)
TextBox1.Text = Str(result)
Case "division"
result = division1 / Val(TextBox1.Text)
TextBox1.Text = Str(result)
Case "multiplication"
result = multiplication1 * Val(TextBox1.Text)
TextBox1.Text = Str(result)
End Select
End Sub
Private Sub Button11_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Clear()
End Sub
Private Sub ZERO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZERO.Click
TextBox1.Text = TextBox1.Text & ZERO.Text
End Sub
Private Sub one_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles one.Click
TextBox1.Text = TextBox1.Text & one.Text
End Sub
Private Sub two_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles two.Click
TextBox1.Text = TextBox1.Text & two.Text
End Sub
Private Sub three_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles three.Click
TextBox1.Text = TextBox1.Text & three.Text
End Sub
Private Sub four_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles four.Click
TextBox1.Text = TextBox1.Text & four.Text
End Sub
Private Sub five_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles five.Click
TextBox1.Text = TextBox1.Text & five.Text
End Sub
Private Sub six_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles six.Click
TextBox1.Text = TextBox1.Text & six.Text
End Sub
Private Sub seven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seven.Click
TextBox1.Text = TextBox1.Text & seven.Text
End Sub
Private Sub eight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eight.Click
TextBox1.Text = TextBox1.Text & eight.Text
End Sub
Private Sub nine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nine.Click
TextBox1.Text = TextBox1.Text & nine.Text
End Sub
Private Sub plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plus.Click
addition1 = Val(TextBox1.Text)
TextBox1.Clear()
choice = "plus"
End Sub
Private Sub minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minus.Click
subtraction1 = 0
subtraction1 = Val(TextBox1.Text)
TextBox1.Clear()
choice = "minus"
End Sub
Private Sub divide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles divide.Click
division1 = Val(TextBox1.Text)
TextBox1.Clear()
choice = "division"
End Sub
Private Sub multiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multiply.Click
multiplication1 = Val(TextBox1.Text)
TextBox1.Clear()
choice = "multiplication"
End Sub
End Class
