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

[Alaa Al ghamdi]

^^
مااتوقع اخذنا برمجة اله حاسبة
مدري والله

بنات اساتذه بدور
بس للتذكير بكرة مافي كلاس,,

[RoOoDy]

+
قالت بتدينـآآآ كويز يوم الاحد ~ وحيعتبر لنـآآآ اللآآب وركـ حق الثلاثـآآآء

مساكم الله بالخير الدكتور طبق معنا وسوينا الة حاسبة لكن كان فيها 2 textbox وفيه تكليف لنا اننا نسوي الة حاسبة لكن بواحد تكست بوكس يعني واحد تكست بوكس اليوزر يدخل منه الرقم الاول ثم يضغط انتر او علامة من علامات الحساب ويدخل الرقم الثاني بنفس البوكس وطبعاً النتيجة في ال ليبل . احد عنده علم لاني دورت منا ومنا مالقيت وبرمجتها فيها لعب .

للاسف ما تطورنا ووصلنـآآ لمرحلة انو نسوووي برامج نهـآئية
يا دوووب الاكواد + نلعب بالرن كل شويه ^^

[My World]

لو في كتاااب افضل ..~ وش رايكم .؟

عطونا اسم الكتااب والطبعه ؟

[DeeeL]

الاختبار تحدد يوم 21 مارس

والكتاب مس سيدرا تقول متوفر في خوارزم العلوم والهندسه

اشتري ولا ما اشتري هنا السؤال =/

اليوم سألتها كم شابتر معانا في الاختبار

قالت 3

مررررررررررره كثير لازم نكلمهم يخففونها علينا

الشابتر الواحد شي وخميس سلايد


الله يعين

[ALEMBRA6OR]

ماقصرتوا مشكورين حنا حقنا طاير تطبيقات بس انها اهون من النظري

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

المشاركة الأصلية كتبت بواسطة ALEMBRA6OR ماقصرتوا مشكورين حنا حقنا طاير تطبيقات بس انها اهون من النظري

بسيطه ., في الـ Public class تحجز متغيرات في الميموري ... مثلآ

Dim Number1 As Double
Dim Number2 As Double
Dim Result As Double

وتجي في البوتن تبع مثلآ الجمع وتحط قيمة للمتغير حق الرقم الأول , تحط

Number1 = val(textbox1.text) Label1.Text = "+"

^ طبُق هالسالفه على كل العمليات مع تغيير اشارة ال +


~~


اخر شي اللي هو زر اليساوي هوا فيه الشغل ,, ( انا طريقتي في اكواد ال " = " لسى ماشرحها الدكتور , بس انا لأني اعرفها من اول استخدمتها بس وهوا بكيفه يمشيها اولا .

يمكن انك انت حليت فماله جاعي اكمل الشرح .

اذا لسى ماحليته شووف اذا ماعرفت تكمل قلي وانا اكمل لك.

[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

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


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


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

[My World]

Dear Students,

Exam will be on Tuesday 20 March 2012. Thankyou for informing me about the day and date confusion. I really appreaciate this.

Chapter No 1 , 2 and 3 are included for Mid Exam.

[Alaa Al ghamdi]

^^
يعني اعتقد يوافق 28 بالهجري يوم ربوع

هو نفس ربوع اعداد التقارير ولايتهيالي