15-10-12, 08:20 AM
كاتب الموضوع : أحمد جمال
بسم الله الرحمن الرحيم
.
السلام عليكم ورحمة الله وبركاته
.
آلة حاسبة
.
سنتعلم سوية خلال هذا الدرس عمل آلة حاسبة بسيطة ، وسنحاول جاهدين تلافي كتابة أسطر كثيرة معتمدين في ذلك على خاصية Index للأزرار .
ولمن لا يعرف خاصية Index فهي الخاصية التي تتيح تسمية أكثر من أداة بنفس الاسم مع تغيير قيمة هذه الخاصية فقط ، أو بمعنى آخر إنها تقوم بعمل مصفوفة Array من الأدوات .
وتتيح هذه الخاصية أيضاً وضع كود مشترك لجميع هذه الأدوات .
من أجل ذلك سنبدأ في تصميم فورم صغير ، ونضبط خاصية MDIChild بحيث تصبح True ، وذلك لمكن استخدام هذا الفورم أثناء عمل البرنامج .
يحتوي هذا الفورم على ما يلي :
Command1وبـ Index من 0 إلى 10 تحتوي في خاصية Caption على الأرقام بالترتيب من 0 وحتى 9 اضافة إلى الفاصلة .
Command2
ويحتوي في خاصية Caption على +/- وهي مختصة بتغيير الاشارة .
Command3
وبـ Index من 0 إلى 3 تحتوي على العمليات التالية : + ، - ، * ، / .
Command4
ويحتوي على = .
Command5
ويحتوي على Index من 0 وحتى 2 تحتوي على الرموز التالية CE لمسح العملية الحالية ، C لافراغ الخانات من جديد ، و Off لاغلاق الآلة .
Command6
ويحتوي على Index من 0 وحتى 2 ويحتوي على MS لتخزين رقم ، MR لاسترجاع التخزين ، MC لافراغ التخزين .
Text1
وهو خانة العمليات .
Text2
وهي الخانة التي توضح الاشارة الحالية ، حاول وضعه على المربع الأول بحيث يبدو أنه بداخله .
واضبط خاصيتي
Locked لهذين المربعين بحيث تصبح True لمنع التلاعب فيهما .
والآن أضف ثلاثة متغيرات ، متغير Memory من النوع double ليحل محل الذاكرة ، ومتغير First من نفس النوع والذي سيحتوي على الرقم الأول ، There وهو متغير من النوع Boolean وهو يبين لنا إذا ما كنا لتونا قد ضغطنا على أحد العمليات أو = بحيث تمسح الخانه مع أول ضغطة لرقم .
كود :
[align=right]Dim First As Double
Dim There As Boolean
Dim Memory As Double[/align]
الأمر الثاني هو التعامل مع الأرقام ، وكما ترى فكل ما نحتاج إليه في الأرقام والفاصلة هو أن نزيد مربع النص Text1 بمحتويات الزر المضغوط عليه .
إذن سنجل مربع النص = مربع النص اضافة إلى Caption للزر المضغوط عليه .
ولكن قبل ذلك نتأكد من أن There تحتوي على False ، وإلا فإننا نفرغ الخانة أولاً :
كود :
[align=right]If There = True Then
There = False
Text1.Text = ""
End If
Text1.Text = Text1.Text & Command1(Index).Caption[/align]
والآن إلى جزء العمليات الحسابية ، سنستدعي أولاً دالة نسميها Calc_Me ، ومن ثم نضبط There على True ، ونضع في First الرقم الحالية ، واضافة لذلك ، نضع العلامة الحالية في Text2 .
كود :
[align=right]Call Calc_Me
There = True
First = Val(Text1.Text)
Text2.Text = Command3(Index).Caption[/align]
ولنر كيف سيكون شكل الاجراء Calc_Me ، والذي سنختبر قيمة Text2 وعلى أساسها سوف نقوم بعمل العملية الحسابية بين First و Text1 ونضعها في Text1 :
كود :
[align=right]Select Case Text2.Text
Case "+"
Text1.Text = First + Val(Text1.Text)
Case "-"
Text1.Text = First - Val(Text1.Text)
Case "*"
Text1.Text = First * Val(Text1.Text)
Case "/"
Text1.Text = First / Val(Text1.Text)
End Select[/align]
لكن ولأنه قد تحدث أخطاء ناتجة عن قسمة على الصفر مثلاً ، أو OverFlow ، ولكي لا يتوقف البرنامج فإننا نضع العبارة التالية في بداية الاجراء :
كود :
[align=right]On Error Resume Next [/align]
وفي آخر الكود نضع ماذا يحدث لو تم اكتشاف خطأ ، حيث نظهر رسالة بهذا الخطأ ، وتخزن كل معلومات الخطأ في الكائن Err :
كود :
[align=right]If Err Then
MsgBox Err.Description, vbCritical, "[/align]
كود :
[align=right]خطأ[FONT=Times New Roman] " & Err
Err.Clear
End If[/FONT][/align]
[FONT=Times New Roman]
[/FONT]
لنعد مرة أخرى إلى أمر = ، ولو لاحظنا أننا سنستدعي الاجراء Calc_Me ، ومن ثم نفرغ خانة العملية Text2 ونضع There=True .
كود :
[align=right]Call Calc_Me
There = True
Text2.Text = ""[/align]
والآن أوامر Command5 والتي تحتوي على C و CE و Off .
كود :
[align=right]Select Case Index
Case 0
Text1.Text = ""
Text2.Text = ""
Case 1
Text1.Text = ""
Case 2
Unload Me
End Select[/align]
وأخيراً أوامر MS و MR و MC :
كود :
[align=right]Select Case Index
Case 0
Memory = Val(Text1.Text)
Case 1
Text1.Text = Memory
There = False
Case 2
Memory = 0
End Select[/align]
ويمكنك جلياً أن تلاحظ كم من الأكواد وفرت علينا بفضل الله خاصية Index واستدعاء الاجراء Calc_Me بدلاً من كتابته مع كل حدث .
والآن ، نرى كود اظهار هذا الفورم ، وسنظهره في الطرف الأعلى والأيسر للفورم .
كود :
[align=right]Case 7
Frm_Calc.Width = 3105
Frm_Calc.Height = 2640
Frm_Calc.Top = 0 ' MDIForm1.Height - Frm_Calc.Height
Frm_Calc.Left = 0
Frm_Calc.Show[/align]
يتبع
...