عرض مشاركة واحدة
  #13  
قديم 03-27-2017, 01:49 PM
 

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





فكرة البرنامج هو ( جمع عددين ) وإظهار الناتج ،
أي ( العدد الأول ) + ( العدد الثاني ) = الناتج .

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

الأدوات المناسبة لتحقيق هذه الفكرة هي :

- صندوق إدخال نصي ( عدد 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


وهكذا فإننا صممنا بهذه الخطوات البسيطة برنامجا يجمع لنا عددين ..

(( يُتبع ))