دروس تعليم الفيجوال بيسك (الدرس الثالث والرابع)

الدرس الثالث
الأدوات

1

. PictureBox : يستخدم لإضافة صورة.
الاستخدام : بعد سحب الأداة إلى الفورم، قم باختيار الصورة التي تريدها من قائمة الخصائص، الخاصية Picture
2. Pointer : لاستخدام مؤشر الفأرة.
3. TextBox : لوضع صندوق يسمح للمستخدم إدخال نص فيه.
4. Label : تستخدم لكتابة نص أو جمل لا يستطيع المستخدم تغييرها.
5. CommandButton : يستخدم كزر لينفذ أمر ما، يكون مدخل من خلال المبرمج، و يتم تنفيذ الأمر عند الضغط عليه.
6. Frame : يستخدم كصندوق يحتوي على أي شيء تريده مثل Label أو TextBox.
7. OptionButton : من المؤكد أنك تعرف أهمية هذا الأمر، الذي يستخدم لإعطاء المستخدم خيارات، و يقوم باختيار خيار واحد فقط.
8. CheckBox : نفس الأمر السابق، و لكنه يسمح للمستخدم باختيار أكثر من خيار واحد.
9. ListBox : لإعطاء خيارات للمستخدم تظهر كلها في نفس الوقت.
10. ComboBox : صندوق مسندل، يقوم المستخدم باختيار خيار واحد فقط.
الاستخدام : قم بوضع الخيارات التي تريدها في الخاصية List، و بعد كل سطر قم بضغط المفتاحين Enter و Ctrl
11. H+VScrollBar : تستخدم لوضع الأداة الخاصة لسحب البرنامج إما بشكل عمودي أو بشكل أفقي.
12. Timer : من الأدوات الهامة في البرنامج، و هو يقوم بتنفيذ أمر معين عند كل وحدة زمنية حسب إدخالك للزمن في الخاصية Interval.
13. Line : يستخدم لإضافة خط للبرنامج ليكون فاصل بين حديين معينين مثلا.
14. Shape : يستخدم لإضافة شكل إلى البرنامج، مربع دائرة ...إلخ. قم بتغيير الشكل عن طريق تغيير الخاصية Shape.
15. Image : لا يوجد فرق تقريبا بين Image و Picture.

مقدمة إلى البرمجة
في نهاية هذا الدرس سوف أقوم بإعطائك فكرة سريعة عن البرمجة. هنالك نقطتين رئيسيتين للبرمجة، أول شيئ هو طريقة كتابة الكود، و ذلك عن طريق النقر على الأداة نقرتين بالفأرة، فتظهر لنا الجمل التالية:


Private Sub الحدث_اسم الأداة

End Sub

مثال: قم بوضع الأداة CommandButton على الفورم، و اضغط عليها مرتين متتاليتين، تفتح لك شاشة الكود بالشكل التالي:

Private Sub Command1_Click()

End Sub

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

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

Label1.Caption = "أهلا بك في فادي نت"

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

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

_____________________________________________________

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

جملة If الشرطية
الصيغة العامة :

If ... Then
....
Else
....
End if


تستخدم هذه الجملة عادة إذا أردت التأكد من حدوث شيء ما، فمثلا تعمل برنامج للجمع، بحيث يظهر للمستخدم عددين، و يطلب من المستخدم القيام بعملية جمع، لنفرض بأن العددين هما 5 و 3، فتطلب من المستخدم إدخال الجواب في TextBox و عند الضغط على الزر تقوم بإخبار الحاسوب بالتأكد من الجواب، فكأنك تخبره: إذا كان الجواب الموجود في TextBox يساوي 8 إذا قم بكذا و كذا. غير ذلك أي إذا كان الجواب لا يساوي 8 قم بعمل كذا و كذا، و مثل كل لغات البرمجة، يجب إنهاء الأمر في نهايته فتقول End If.
و بالطبع سوف أقوم بتقديم أمثلة على هذه الجملة في الدروس القادمة.

جملة For Loop
الصيغة العامة:

For i = البداية to النهاية step عدد القفزات
....
Next i


تستخدم هذه الجملة إذا أردت من الحاسوب القيام بتكرار أمر معين. مثال: إذا رغبت في إخباره بأن يقوم بجمع العدد 1 إلى الأعداد من 1 إلى 10، إذا لم تستخدم هذه الجملة فإنك ستضطر لجمع 1 مع 1 ثم 1 مع 2...إلخ و بالطبع فإن هذا الشيء متعب و طويل، لذلك تمت الإستعانة بجملة For Loop للتكرار. فتقوم بكتابتها بالشكل التالي:

For i = 1 to 10 step 1
Label1.Caption = 1 + i
Next i

دعنا نتتبع البرنامج، في البداية سوف يبدأ من الرقم 1 إلى الرقم 10 و سيقوم بالقفز بعد كل مرة بمقدار 1، أي أن الآن قيمة i تكون 1 أما في المرة القادمة فتكون 2 و المرة التي تليها تكون 3 ...إلخ حتى تصل إلى العدد 10 تقف عملية الزيادة، ثم يقوم بإضافة آخر قيمة لi إلى العدد 1 و يطبع النتيجة في Label1 التي يجب عليك وضعها قبل البدء في البرمجة.
بالطبع كان هذا مثال بسيط، و لكن لها استخدامات أوسع و أكبر من هذا الإستخدام.

جملة Select Case
دعنا نعود إلى المثال الأول الموجود على جملة If الشرطية، فكما ذكرت بأنني طلبت من الحاسوب بالتحقق من الجواب فإذا كان 8 يقوم بعمل شيء معين، أما إذا كان غير ذلك فيقوم بعمل شيء آخر. لكن ماذا إذا أردت أن يقوم الحاسوب بالتحقق من الحل فإن كان 8 يقوم بتنفيذ أمر معين، أما إذا كان 7 يقوم بتنفيذ أمر آخر و إذا كان 9 يقوم بتنفيذ أمر آخر... و هكذا، فكر كم جملة If سوف يحتاج هذا البرنامج! لذلك تم إيجاد جملة أسهل و هي Select Case. الصيغة العامة:

Select Case متغير
Case الحالة الأولى
...
Case الحالة الثانية
...
Case الحالة الثالثة
...
End Select


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

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

Private Sub Command1_Click()
Load Form2
Form2.Show
End Sub

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

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

ولكن تم إيجاد طريقة أخرى أسهل من عمل فورم ثاني، و التغلب ببرمجته. و هي الMessageBox، لنرى كيفية كتابتها.
لنفرض أننا وضعنا زر Command1 في الفورم و عند الضغط عليه يقوم بإظهار مربع حوار ليسأل المستخدم إذا كان يريد الخروج فعلا أو يريد التراجع.

Private Sub Command1_Click()
d = MsgBox("هل ترغب بالخروج من البرنامج؟",vbYesNo + vbInformation,"تنبيه")
Select Case d
Case vbYes
End
End Select
End Sub

سوف أقوم بشرح الكود الماضي، و هو كالتالي:
في البداية قمت بإعطاء المتغير d قيمة معينة، و هي قيمة الMsgBox التي سوف يظهر بها جملة تسأل المستخدم إذا كان يرغب بالخروج أو لا، و بعد الفاصلة، تختار الأزرار التي تريدها، و قمت باختيار زرين هما Yes و No و بعد علامة الجمع قمت بإضافة صورة توضيحية، موجودة أصلا في البرنامج، أما كلمة تنبيه، فهي تدل على عنوان الصندوق الذي يظهر.
ثم قمت باسخدام جملة Select Case التي شرحتها قبل قليل، أي أنه سوف يبحث في قيمة المتغير d فإذا كانت قيمتها Yes سوف يقوم بإنهاء البرنامج، ثم قمت بإغلاق الجمل المستخدمة.


Input Box مربع الإدخال
تعمل هذه الجملة على الطلب من المستخدم بإدخال نص معين.
فمثلا إذا أردت الطلب من المستخدم إدخال اسمه ثم وضع رسالة ترحيب للمستخدم في Label1 نقوم بكتابة الكود التالي:

Private Sub Form1_Load
d = InputBox("ادخل اسمك","تنبيه","")
Label1.Caption = "أهلا بك يا" + d
End Sub

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

مشكووووووور
يا عبدالله علي الدروس
وبارك الله فيك .

مشكور عبد الله عبيد على الموضوع الجيد والمميز والرائع
مع تحيات الفهد الاسود

مشكور كتير عبد الله على الموضوع الرائع

شكر كتير كتير الكـ يا عبدالله عبيد

يعطيكـ الف عافية

ان شاء الله الكل بيستفيد من الموضوع