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

[ALEMBRA6OR]

المشاركة الأصلية كتبت بواسطة امبراطور الشبكه بسيطه ., في الـ Public class تحجز متغيرات في الميموري ... مثلآ Dim Number1 As Double Dim Number2 As Double Dim Result As Double وتجي في البوتن تبع مثلآ الجمع وتحط قيمة للمتغير حق الرقم الأول , تحط ^ طبُق هالسالفه على كل العمليات مع تغيير اشارة ال + ~~ اخر شي اللي هو زر اليساوي هوا فيه الشغل ,, ( انا طريقتي في اكواد ال " = " لسى ماشرحها الدكتور , بس انا لأني اعرفها من اول استخدمتها بس وهوا بكيفه يمشيها اولا . يمكن انك انت حليت فماله جاعي اكمل الشرح . اذا لسى ماحليته شووف اذا ماعرفت تكمل قلي وانا اكمل لك.

يامبراطور حاولت اجربها من باب الفائدة لكن مازبطت وكتبت الكود كالتالي لل "+" ,

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 = "+"

وياليت تكمل طريقة ال "=" لان الظاهر الخلل لعدم وجودها .


جرب هالكود مانت بحاجة الا ل 1 تست بوكس وواحد بوتون ثم اضغط ع البوتون وحط هالكود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
x = InStr(TextBox1.Text, "+", CompareMethod.Text)
If x > 0 Then MyOperation("+")
x = InStr(TextBox1.Text, "-", CompareMethod.Text)
If x > 0 Then MyOperation("-")
x = InStr(TextBox1.Text, "*", CompareMethod.Text)
If x > 0 Then MyOperation("*")
x = InStr(TextBox1.Text, "/", CompareMethod.Text)
If x > 0 Then MyOperation("/")
End Sub

Private Sub MyOperation(ByVal MyAssign As String)
Dim stt() As String
stt = Split(TextBox1.Text, MyAssign)
Dim a, b As Double
a = stt(0) 'CDbl()
b = stt(1) 'CDbl()
If MyAssign = "+" Then TextBox1.Text = a + b 'CStr()
If MyAssign = "-" Then TextBox1.Text = a - b 'CStr()
If MyAssign = "*" Then TextBox1.Text = a * b 'CStr()
If MyAssign = "/" Then TextBox1.Text = a / b 'CStr()
End Sub

الكود عمله بيكون انك تحط اي عملية بالتست بوكس (1+1) وتضغط البوتون يطلع الناتج .