هنا : تجمع طالبات وطلاب نظم المعلومات الإداريه (دفعة 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 ^ هذي بوتون "=" تعبناك معنا يابعدي والله اعذرنا .

اهااا صح .. طيب اوك بس ضيف ليبل ثاني , وعدل الكود .. كل الليبل 1 عدلها الى الليبل 2 في كامل الكود بأستثناء اخر وحده الي تساوي c لأن بنخلي تظهر فيها النتيجه هذي ..

كذا الكوود بيصير ../

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)

Label2.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)

Label2.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)

Label2.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)

Label2.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 Label2.Text = "+" Then
c = a + b
End If
If Label2.Text = "-" Then
c = a - b
End If
If Label2.Text = "*" Then
c = a * b
End If
If Label2.Text = "/" Then
c = a / b
End If
If Label2.Text = "^" Then
c = a ^ b
End If
Label1.Text = c.ToString

End Sub

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

End Sub
End Class

وبالعكس ياغالي مافي تعب ,, بالعكس كذا احسن عشان نتعلم تمام اسألني اذا احتجت شي وانا بسألك اذا احتجت منك شي ..