Free Web Hosting Provider - Web Hosting - E-commerce - High Speed Internet - Free Web Page
Search the Web

عمل برنامج تطبيقي على ما شرحناه ...

اولا افتح مشروع جديد (قياسي)

ثم غير عنوان النموذج إلى ( آلة حاسبة )

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

في الشكل التالي

بعد ان تضيف مربعي النص إلى النموذج ، أضف عدد 3 أداة مربع عنوان Label المعلمة بالأزرق في الشكل السابق , ثم

أضف عدد 3 أداة زر الأمر Command Button فيصبح شكل الفورم (النموذج) كما هو موضح أدناه

الان سوف نقوم بضبط خصائص الادوات التي وضعناها على النوذج من نافذة الخصائص كالتالي .

** تغيير خصائص أداة مربع العنوان Label

     * من خاصية Caption غير عنوان الاداة Label1 إلى ( الرقم الأول ) .
    * من خاصية Caption غير عنوان الاداة Label2 إلى ( الرقم الثاني ) .
    * من خاصية Caption غير عنوان الاداة Label3 إلى ( النتيجة ) .

** تغيير خصائص أداة زر الأمر Command Button

     * من خاصية Caption غير عنوان الاداة command1 إلى ( اجمع ) .
    * من خاصية Caption غير عنوان الاداة command2 إلى ( اضرب ) .
    * من خاصية Caption غير عنوان الاداة command3 إلى (إغلاق) .

** تغيير خصائص أداة مربع النص Text Box

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

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

و الان نتكب الجمل البرمجية لهذا البرنامج كي يعمل لأنه لو استعملته هكذا لما نتج لك شيئ .

الان انقر على اي جزء خالي من النموذج نقرا مزدوجا فتفتح نافذة الشفرة ، اكتب بين الجملتين التاليتين :

Private Sub Form_Load()1

End Sub

الجملة التالية :-

Text1.text=""1
Text2.text=""1

ثم اغلق النافذة .

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

Private Sub Command1_Click()

End Sub

الجملة التالية

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

الان سوف نكتب الجمل البرمجية الخاصة بعملية الضرب .اذهب الى الزر الثاني (اضرب) و انقره اثنين تظهر الجملتين البرمجيتين فاكتب بينهما

الجمل البرمجية التالية :-

MuValue = Val(Text1.Text) * Val(Text2.Text)
Label3.Caption = "نتيجة الضرب هي " + Str(MuValue)

الان هيا بنا نكتب الجمل الخاصة بزر إغلاق البرنامج . تنقر على الزر (إغلاق) تظهر لك نافذة الشفرة من جديد فيها الجملتين البرمجيتين فاكتب بينهما

الجملة التالية :-

End

ملاحظة إذا كنت داخل نافذة الشفرة و انهيت كتابة الجمل البرمجية الخاصة بكائن ما او اداة ما يمكنك الانتقال الى كتابة

الجمل البرمجية الخاصة بكائن اخر من غير اغلاق النافذة و النقر على العنصر المطلوب مرتين بل في نافذة الشفرة في

القائمة المنسدلة على اليسار يمكنك الانتقال فهي تحتوي على جميع العناصر الموجودة على نموذجك

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

والآن بعد أن انتهينا من كتابة الأكواد فهيا بنا نقوم بتنفيذه بالضغط على F5 أو الضغط على زر Run من شريط الأدوات

والآن جرب البرنامج هل يعمل أم لا هيا جربه!!! ألف مبروك فالبرنامج يعمل بنجاح كما نرى

**************** والآن قد أتممنا هذا الجزء بنجاح بإذن الله وحمده ******************

********** فلننتقل إلى الفصل الثاني من شرح فيجوال بيسيك ************