الفيجوال بيسك

Web Hosting by Netfirms | Free Domain Names by Netfirms

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

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

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

بعد ان تختار الاداة اذهب للنموذج و ضع الاداة عليه ، ثم ضع بجانب كل اداة مربع عنوان 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

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

دعنا الان نلقى نظرة على نافذة الشفرة بعدما كتبنا عليها جميع الجمل :

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

هنيئا لك نجحت بتوفيق الله تقدم للامام لتحقق المزيد إن شاء الله