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

[الـبيــــــان]

بنات سيدرا الله يسعدكم ,,

الكويز يوم الأربعاء راح يكون بأي شابتر ؟.؟

[نوره الغامدي]

بيان هيا كاتبه حـ يكون على شابتر 3 ..

و أنا بصراحة مدري راسي من رجولي عن هذا الشابتر :/

[الـبيــــــان]

هلا بنورة والله ,,

ياشيخة خليها على ربك ,, الحال من بعضة ,,

قاعدة أجمع فيه من يومين مو راضي يدخل شئ في راسي ,,

[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

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


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


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

[ALEMBRA6OR]

مشكور يالغالي وماقصرت .

بالنسبة للتكميلية اذا قصدك بوتون اللي يكون مكانه الانتر و بوتون close ..الخ .

اي تم الارسال .

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

المشاركة الأصلية كتبت بواسطة alembra6or مشكور يالغالي وماقصرت . بالنسبة للتكميلية اذا قصدك بوتون اللي يكون مكانه الانتر و بوتون close ..الخ . اي تم الارسال .

وبرضه اهم شي انه بعد ماينكتب الرقم الاول ونضغط على العمليه ينمسح التكست بوكس ..... مثلآ نحط في بوتون ال+

a = val(textbox1.text) label1.text = "+" txtnumber.text = "" textbox1.focus()

^ الاخيره هذي عشان تقله رجع لي المؤشُر على التكست بوكس على طول بعد مايضغط اليوزر +

واللي بالاحمر عشان بعد ماتضغط على + يمسح لك التكست عشان تكتب الرقم الثاني

[DeeeL]

بنات شابتر 3 اي ملف بالضبط

[ALEMBRA6OR]

ماقصرت يامبراطور الشبكة ومشكووور لبى قلبك .

[يارب اجيب معدل]

>> تفكر كيف ينحل واجب بدور