المقصود من مثال البرنامج الصغير الآتي ليس الإحاطة بكل شيء دفعة واحدة ، بل القصد هو وضعك على الطريق أول الأمر ، لأن عامل الإبداع البرمجي لايمكن إغفاله ، فيمكن لهذا المثال البسيط أن يلهم أي مبرمج مبتدئ أفكارا أخرى لم أذكرها هنا ..
فكرة البرنامج هو ( جمع عددين ) وإظهار الناتج ،
أي ( العدد الأول ) + ( العدد الثاني ) = الناتج .
لتحقيق هذه الفكرة برمجيا نبحث عما لدينا من أدوات تناسب الفكرة . الأدوات المناسبة لتحقيق هذه الفكرة هي : - صندوق إدخال نصي ( عدد 2 ) - زر الأمر لحساب العددين - لافتة أو ليبل تظهر النتيجة النهائية
صورة 3-1
نضع هذه الأدوات على الفورم ( كما شرحت سابقا عن كيفية وضع الأدوات على الفورم ) ، ثم ننسقها بشكل مناسب . يمكن لنا لتغيير الإسم الإفتراضي المكتوب على الزر أن نضع المؤشر على كائن الزر Button ، بعد فعل ذلك نلتفت إلى يمين نحو ( نافذة خصائص الأداة Properties ) ..
صورة 3-2
ننقر مربع الخاصية Text لنغير الكلمة الإفتراضية إلى كلمة يحددها المبرمج تناسب وظيفة الأداة .
صورة 3-3 ثم نأتي للمهم ، وهي الخطوة المحورية ( البرمجة ) : - نضع المؤشر على الكائن Button الموجود على الفورم - ننقر نقرتين متتاليتين ( نقر مزدوج ) على الكائن/الأداة ستظهر لنا نافذة الحدث Click للزر Button1 هكذا :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
السطر الأول البادئ بالعبارة Private نسميه : جملة بداية الحدث ، وكما ذكرنا سابقا أنها تكتب بشكل تلقائي من VB.NET
السطر الثاني وهو العبارة End Sub نسميه : جملة نهاية الحدث ، وهي أيضا تكتب أوتوماتيكيا من VB.NET جملتي الحدث ( الإبتدائية ، والنهائية ) لكل كائن أو أداة هي جمل تلقائية ضرورية لمفسر الفيجوال بيسك ، وما يفعله المبرمج هو فقط كتابة أوامره بينهما ولا دخل له بهما - إلا في حالات خاصة محدودة بخصوص السطر الأول فقط - نكتب بينهما هذه العبارة البرمجية :
Label1.Text = Val (TextBox1.Text) + Val (TextBox2.Text) صورة 3-4
شرح أرقام الصورة 3-4 :
(1) الحدث ( نقرة واحدة Click ) للأداة Button1
أي عندما ننقر نقرة واحدة للزر المسمى Button1 نفذ العبارة البرمجية بعد سطر الحدث.
(2) الأداة اللافتة Label1 وفي خاصيتها النصية Text ، تأخذ ( = ) الناتج الحاصل بعد علامة المساواة ( الإسناد ) .
(3) الأمر Val يعني جعل مابين القوسين قيمة رقمية فقط ، وما بين القوسين هنا هو TextBox1.Text ، أي النص الموجود المُدخل في صندوق النص المسمى TextBox1
(4) الأمر Val مرة أخرى يعني جعل مابين القوسين قيمة رقمية فقط كما ذكر، وما بين القوسين هنا هو TextBox2.Text ، أي النص الموجود المُدخل في صندوق النص المسمى TextBox2
=======================
بعد كتابة الجملة البرمجية المذكورة لم يتبقى لنا سوى إختبار البرنامج ، أي تنفيذه بعد التصميم الحاصل له . وذلك كما ذكرت سابقا بالنقر على الزر المثلثي الأخضر كما في الصورة أدناه :
سنرى البرنامج بعد تشغيله ، ونكتب في المربعين أي رقمين نريد حاصل جمعهما ، ونضغط على زر ( جمع العددين ) هكذا :
صورة 3-5
وهكذا فإننا صممنا بهذه الخطوات البسيطة برنامجا يجمع لنا عددين ..
(( يُتبع ))