عمل آله حاسبة بسيطة

اولا افتح مشروع جديد (قياسي)
ثم غير عنوان النموذج إلى ( آلة حاسبة ) .
 

لان نريد ان نعمل مربعي نصوص لعمل ذلك اذهب الى لوحة الادوات و اختر الاداة المعلمة بالأحمر في الشكل التالي

بعد ان تختار الاداة اذهب للنموذج و ضع الاداة عليه ، ثم ضع بجانب كل اداة مربع عنوان Label كما هو موضح أدناه .

الان لنغير الادوات التي وضعناها على النوذج كالتالي .
غير عنوان الاداة Label1 إلى ( الرقم الأول ) .
غير عنوان الاداة Label2 إلى ( الرقم الثاني ) .
غير عنوان الاداة Label3 إلى ( النتيجة ) .

الان اعمل ثلاث أزرار على النموذج و اعطهم التسمية التالية :
غير عنوان الاداة command1 إلى ( اجمع ) .
غي عنوان الاداة command2 إلى ( اضرب ) .
غير عنوان الاداة command3 إلى (إغلاق) .

الان غير عنوان اداة النص لتصبح فارغة ( بدون نص ) لنعمل ذلك لا بد و انك فكرت في تغييرها من خاصية caption الموجودة في نافذة الخصائص اذا كنت فكرت كذلك فتفكيرك لم يكن صائبا هذه المرة .
إذا لنغير عنوان النص الخاص بالأداة Text علينا ان نذهب إلى خاصية Text و الموجودة في نافذة الخصائص طبعا و من ثم يمكنك تغيير النص الخاص بها هنا نحن نتركها فارغة و لعمل ذلك امسح النص الافتراضي الموجود فيها و الذي هو Text1 و Text2 انظر الشكل التالي .
 

كيفية تغيير عنوان الاداة Text
بعد ان نغيير عناوين جميع الادوات ينتج لنا الشكل التالي :
 

و الان نتكب الجمل البرمجية لهذا البرنامج كي يعمل و إلا فلن يصبح ببرنامج لاننا لم نمله و لو استعملته هكذا لما نتج لك شيئ .
الان انقر على اي جزء خالي من النموذج نقرا مزدوجا فتفتح نافذة الشفرة ، اكتب بين الجملتين التاليتين :
Private Sub Form_Load()

End Sub

الجمل البرمجية التالية :
Text1.Text = ""
Text2.Text = ""

ثم اغلق النافذة .
ولنكتب الان الجمل البرمجية الخاصة بعملية الجمع .
اذهب الى الزر الاول command1 و انقره مرتين تظهر النافذة فاكتب بين الجملتين التاليتين :
Private Sub Command1_Click()

End Sub
الجمل التالية :
SumValue = Val(Text1.Text) + Val(Text2.Text)
Label3.Caption = "الجمع يساوي" + Str$(SumValue)

فينتج لنا شكل الكود :
Private Sub Command1_Click()
SumValue = Val(Text1.Text) + Val(Text2.Text)
Label3.Caption = "الجمع يساوي" + Str$(SumValue)
End Sub

الان سوف نكتب الجمل البرمجية الخاصة بعملية الضرب .
اذهب الى الزر الثاني command2 و انقره اثنين تظهر الجملتين البرمجيتين فاكتب بينهما الجمل البرمجية التالية :
MuValue = Val(Text1.Text) * Val(Text2.Text)
Label3.Caption = "نتيجة الضرب هي " + Str(MuValue)

فينتج لك الجمل البرمجية بالشكل التالي :
Private Sub Command2_Click()
MuValue = Val(Text1.Text) * Val(Text2.Text)
Label3.Caption = "نتيجة الضرب هي " + Str(MuValue)
End Sub

الان هيا بنا نكتب الجمل الخاصةبزر إغلاق البرنامج :
عندما تنقر على الزر command3 تظهر لك نافذة الشفرة من جديد فيها الجملتين البرمجيتين فاكتب بينهما الجمل التالية :
End
ملاحظة إذا كنت داخل نافذة الشفرة و انهيت كتابة الجمل البرمجية الخاصة بكائن ما او اداة ما يمكنك الانتقال الى كتابة الجمل البرمجية الخاصة بكائن اخر من غير اغلاق النافذة و النقر على العنصر المطلوب مرتين بل في نافذة الشفرة في القائمة المنسدلة على اليسار يمكنك الانتقال فهي تحتوي على جميع العناصر الموجودة على نموذجك
دعنا نلقى نظرة على نافذة الشفرة بعدما كتبنا عليها جميع الجمل :
 

جرب برنامجك مبروك لقد نجحت مرة أخرى ...