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