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

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

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

يب لازم يكون نكمل باقي الاكواد في بوتون " = " .,~
وبتكون مثل كذا ..

b = val(textbox1.text) textbox1.text = "" if label1.text = "+" then result = a + b end if if label1.text = "-" then result = a - b end if if label1.text = "*" then result = a * b end if if label1.text = "/" then result = a / b end if if label1.text = "^" then result = a ^ b end if lblresult.text = result.tostring

والكوود حقك جربته ,مرره مزبووط , بس لما تكون العمليات جاهزه ومجرد ان اليوزر يضغط عليها افضل من انه يجلس يكتب العمليه


* ترا الاكواد هذي هي الريئسيه عشان يشتغل البرنامج وينفذ العمليه , بس ضروري انه نكمل معاها شوية اكواد حقت الي تمسح التكست بوكس بعد كتابة الرقم الاول , واشياء ثانيه تكميليه .


+
* ارسلتله الواجب انت ولا باقي ؟