[RaggiTech]

كاتب الموضوع : أحمد جمال

بسم الله الرحمن الرحيم

.

السلام عليكم ورحمة الله وبركاته

.

آلة حاسبة

.

سنتعلم سوية خلال هذا الدرس عمل آلة حاسبة بسيطة ، وسنحاول جاهدين تلافي كتابة أسطر كثيرة معتمدين في ذلك على خاصية 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]

يتبع

...