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

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

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

[امبراطور الشبكه]

المشاركة الأصلية كتبت بواسطة 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

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

[ALEMBRA6OR]

المشاركة الأصلية كتبت بواسطة امبراطور الشبكه اهااا صح .. طيب اوك بس ضيف ليبل ثاني , وعدل الكود .. كل الليبل 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 وبالعكس ياغالي مافي تعب ,, بالعكس كذا احسن عشان نتعلم تمام اسألني اذا احتجت شي وانا بسألك اذا احتجت منك شي ..

بيض الله وجهك ومشكور والطريقة ممتازة .

جزاك الله خير يالسمي .