[c]

الآن الحمد لله أنتهينا من إنشاء عناصر التحكم في البرنامج الآن سوف نعمل على تغيير وضبط خصائص الأدوات حتى تتوافق مع الإطار الخارجي للبرنامج وأيضاً تنفيذ التطبيق .

إذهب الى أداة العنوان Label1 ثم حدد الأداة وذلك بالنقر عليها مره واحد فقط

إنتبه:-

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

ثم إذهب الى خاصية محاذة النص Alignment وإجعل الخاصية تكون محاذة الوسط Center
عند النقر على الخاصية سوف تجد أن الخاصية تحتوي على أكثر من قيمة تستطيع تحديدها بالنقر عليها أو الضغط على الرقم الخاص بها هنا في خاصية المحاذة :-
0 - Left Justify محاذة اليسار
1- Right Justify محاذة اليمين
2- Center محاذة الوسط


أنظر الى الشكل 10-1


الشكل 10-1

الآن بعد ضبط خاصية المحاذة الى الوسط إذهب الى خاصية التسميه Caption وأكتب التسمية الجديدة ( العدد الأول ) بدلاً من (Label1) أنظر الى الشكل 11 -1


الشكل 11-1

عليك أيضاً تكرار ذلك مع كل أدوات العنوان بحيث تكون كما يلي :-

(Label1) العدد الأول
(Label2) العدد الثاني
(Label3) الناتج


بعد الإنتهاء من إعادة تسمية أدوات العنوان وتحديد محاذة النص ننتقل الى ضبط خاصية مربع النص Text Box وهي مسح النص الذي يوجد داخل المربع وذلك عن طريق الخاصية Text من صندوق الخصائص لمربع النص ، حدد النص الموجود ثم أنقر على مفتاح BackSpace أو مفتاح Delete أنظر الى الشكل 12-1


الشكل 12-1

عليك تكرار ذلك مع مربعات النص الأخرى Text1 ; Text2

لاتنسى تغيير تسمية زر الأمر Command1 و Command2 من الخاصية Caption حتى تكون
Command1 خروج
Command2 أحسب


الحمدلله أنتهينا من ضبط جميع خصائص الأدوات حتى أصبحت كما في الشكل 13-1 سوف ننتقل الى نافذة البرمجة


الشكل 13-1

أنقر على زر أمر (أحسب) مرتين حتى يفتح لك فيجوال بيسيك نافذة البرمجة الخاصة سوف ترى أمامك ذلك الكود الذي تعرفنا عليه أنفا أكتب الكود التالي في مكان كتابة النصوص البرمجية

code:

اقتباس: [l] ()Private Sub Command2_Click .TexT3 End Sub [/l]

[c]
مجرد كتابتك النقطة سوف تجد أن فيجوال بيسيك يظهر لك نافذة
الخصائص المساعدة للأداة أنظر الشكل 14-1


الشكل 14-1

أكتب هذا الكود

Code
[/c]

اقتباس: [L]()Private Sub Command2_Click (TexT3.TexT= Val ( TexT1.TexT ) + Val ( TexT2 .TexT End Sub[/L]

[C]
أنظر الى الشكل 15-1 سوف نشرح برمجة تعليمة الإسناد

ControlName.Property = Expression

حيث أن ControlName هو أسم عنصر التحكم و Property هي الخاصية المسندة الى عنصر التحكم Expression هو التعبير ونسب القيمة الى الخاصية ولتوضيح أكثر أنظر الى الشكل 15-1


الشكل 15-1

( 1 ) أسم عنصر التحكم المسند اليه
( 2 ) الخاصية التي نسند اليها
( 3 ) تعليمة الإسناد
( 4 ) دالة تعيد القيمة الرقمية للنص
( 5 ) عملية حسابية


بعد كتابة الكود إذهب الى قائمة Object وأختر زر الأمر Command1 والذي هو بالطبع الأمر (خروج)

أكتب هذا الكود

Code
[/c]

اقتباس: [l]()Private Sub Command1_Click End End Sub[/l]

[c]
يفيد هذا الأمر بالخروج النهائي من البرنامج وإغلاق كافة التطبيقات والنماذج أنظر الى الشكل 16-1


الشكل 16-1

بعد الإنتهاء من كتابة كود إنهاء البرنامج في زر الأمر Command1 إذهب الى شريط فيجوال بيسيك القياسي وأنقر على زر Start أو يمكنك عمل ذلك عن طريق مفتاح F5

الشكل 17-1 هو صورة البرنامج بعد إنهاء كل العمليات البرمجية وهو جاهز لتنفيذ أكتب عدد في مربع العدد الأول ثم عدد آخر في مربع العدد الثاني وأنقر على أمر أحسب حتى تحصل على الناتج

[gl]
الف مبروك لقد قطعت مسافة ليست باليسيرة في عالم فيجوال بيسيك ولعلمك هذا لم يأتي إلا بفضل الله عزوجل وقل ربي زدني علما ، تابع معنا الدروس القادمة لمزيد من البرمجة في عالم فيجوال بيسيك الرائع[/gl]

المخلص محبكم إبن الإسلام


الشكل 17-1
[/C]