هنا : تجمع طالبات وطلاب نظم المعلومات الإداريه (دفعة 2010 ) حياكم الله,,

[ALEMBRA6OR]

هلا اخوي

لا المشكلة ان علامة ال"+" لاضغطها ظهرت بال lable

بس كل شيء كان تمام .

سلمك الله الكود مشيت على تعاليمك بالتمام

Public Class Form1
Dim a, b, c As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = Val(TextBox1.Text)

Label1.Text = "+"


TextBox1.Text = ""
TextBox1.Focus()
End Sub





Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
a = Val(TextBox1.Text)

Label1.Text = "-"


TextBox1.Text = ""
TextBox1.Focus()
End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
a = Val(TextBox1.Text)

Label1.Text = "*"


TextBox1.Text = ""
TextBox1.Focus()
End Sub



Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
a = Val(TextBox1.Text)

Label1.Text = "/"


TextBox1.Text = ""
TextBox1.Focus()
End Sub



Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
b = Val(TextBox1.Text)
TextBox1.Text = ""
If Label1.Text = "+" Then
c = a + b
End If
If Label1.Text = "-" Then
c = a - b
End If
If Label1.Text = "*" Then
c = a * b
End If
If Label1.Text = "/" Then
c = a / b
End If
If Label1.Text = "^" Then
c = a ^ b
End If
Label1.Text = c.ToString

End Sub
End Class

^ هذي بوتون "="

تعبناك معنا يابعدي والله اعذرنا .