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

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

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

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


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


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