حل باقي التدريب

شاشة البرمجة وطريقة التعامل معها

للدخول الى شاشة البرمجة لابد ان نكون قد حددنا النموذج المراد كتابة اورامره . وطريقة الدخول تكون :

1 – القيام بالنقر المزدوج  على الاداة التي تقوم بتنفيذ الاوامر وهي غالبا زر الامر ، لذلك  قم بالنقر المزدوج على زر الامر command1  والمسماة بحساب في برنامجنا هذا . وهنالك طريقة اخرى للدخول الى شاشة البرمجة وذلك عن طريق تحديد اداة زر الامر ثم الضغط على مفتاح F7 .

مربع سرد الادوات المرتبطة بالنموذج :

من هذا المربع يمكننا تحديد الاداة التي نرغب في كتابه  الاوامر فيها والمرتبطة بالاجراء الذي حددناه .

شاشة البرمجة : ويتم فيها كتابة اوامر فيجوال بيسك .

3 – بعد الدخول الى شاشة البرمجة  نلاحظ ان فيجوال بيسك قد عرض لنا اجراء خالي . وهو اول ما  يقوم به فيجوال بيسك  عند فتح نموذج لم يتم كتابة أي امر من الاوامر . وهنا وقفة قصيرة  على هذا الاجراء والمحتويات والتي يحتويها  ،يلاحظ ان هذا الجراء  مكون من ستة اجزاء :

*Private Sub وهذا يعني ان هذا الاجراء اجراء فري داخل البرنامج  وهو ثابت في جميع الاجراءات .

* اسم الاداة او النموذج :وهي هنا command1 ولكنه يتغير حسب الاداة او النموذج .

*حرف الشرطة السفلية ( _ )  : وهو يربط بين اسم الاداة او النموذج وبين الاجراء .

* الاجراء : وفي تطبيقنا هذا هو Click    وقد يتغير حسب الاجراء المراد القيام به .

* الفراغ بين السطر الاول والسطر الثاني : وهو مهيأ لكتابة اوامر البرمجة من قبل المبرمج

End Sub  وهذا يعني نهاية البرنامج الفرعي .

كتابة الاوامر وتنفيذها :

قبل كتابة الاوامر لاي برنامج يجب تحليل المسالة ومعرفة معطياتها ومعرفة المطلوب ففي مثالنا هذا معطياتنا عديين يقوم المستخدم بادخالهما في مربعات النصوص ،   والمطلوب الحصول على مخرجات في مربعات النصوص .

وناتي لكتابة البرنامج :

Private Sub Command1_Click ()

Dim A,B As Single

A=text1.Text

B=text2.Text

A+B&"حاصل الجمع ="If Check1=1Then Text3.Text=

A-B&"حاصل الطرح ="If Check1=1Then Text4.Text=

A*B&"حاصل الضرب ="If Check1=1Then Text5.Text=

A/B&"حاصل القسمة ="If Check1=1Then Text6.Text=

End Sub

ونكون قد قمنا بكتابة اوامر برنامجنا  ومعنى هذه الاسطر :

السطر الاول : عندما يتم النقر على زر الاوامر نقرة واحدة نفذ الاسطر التالية .

السطر الثاني : تعريف المتغيرات المستخدمة في البرامج وهي A العدد الاول و B  العدد الثاني وهو اختاري .

السطر الثالث : الحصول على البيانات المدخلة في مربع النص text1  وتخزينها في المتغير A

السطر الرابع : الحصول على البيانات المدخلة في مربع النص text2  وتخزينها في المتغير B

السطر الخامس : شرط يوضح ان كان الممستخدم قد قام باختيار مربع الاختيار الخاص بالجمع والمسمى Check1 فعندئذ سوف يقوم البرنامج  بطباعة حاصل جمع العدديين  في اداة مربع النص المسمى Text3

السطر السادس : شرط يوضح ان كان المستخدم قد قام باختيار مربع الاختيار الخاص بالطرح والمسمى Check2 فعندئذ سوف يقوم البرنامج  بطباعة حاصل جمع العدديين  في اداة مربع النص المسمى Text4

السطر السابع : شرط يوضح ان كان المستخدم قد قام باختيار مربع الاختيار الخاص بالضرب والمسمى Check3 فعندئذ سوف يقوم البرنامج  بطباعة حاصل جمع العدديين  في اداة مربع النص المسمى Text5

السطر الثامن : شرط يوضح ان كان المستخدم قد قام باختيار مربع الاختيار الخاص بالقسمة والمسمى Check4 فعندئذ سوف يقوم البرنامج  بطباعة حاصل جمع العدديين  في اداة مربع النص المسمى Text6

السطر التاسع : نهاية الاجراء .

ولتنفيذ البرنامج قم بالضغط على مفتاح التنفيذ من شريط الادوات او اختيار الامر start من القائمة Run او الضغط على مفتاح F 5 .

مقدمة

البرمجة الشيئية

انواع البيانات

سبحان الله بحمده