الدرس الثاني من دورة الفيجوال الباسيك

اليوم الثاني:

التطبيق الأول:

نريد في هذا البرنامج أن ندخل علامة اختبار عبارة عن رقم فإذا كانت فوق 10 تظهر لك رسالة تهنئة أما إذا كانت تحت العشرة فتظهر رسالة تأسف.
ضع command وtext وlabel ثم غير خصائصهم كما في الجدول التالي:

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

شرح الكود:

1. If و هي بداية الجملة الشرطية وتعني "إذا" بالعربية والجملة if هي جملة إذا تحقق الشرط الذي بعدها نفذ الأوامر التالية التي هي بعد then.
2. val(text1.text) ويعني القيمة العددية لبtext1.text.
3. =>10ونعني بها أن القيمة التي قبلها تساوي أو اكبر من عشرة.
4. then وهو تابع للجملة الشرطية if فمthen فاصل بين الشروط والأوامر فالشروط تأتي قبلها و الأوامر تأتي بعدها.
5. Label1.caption="congratulation!!"وهذا هو الأمر المحدد أي انك تأمر البرنامج انه إذا تحقق شرط val(text1.text)=>10نفذ هذه الأوامر والتي هي تبديل عنوان label1 إلى العنوان المكتوب بين الشلطتين.
6. end ifويعني نهاية الأوامر.
7. If val(text1.text)=<10 thenمثل الكود السابق غير أن هذا الكود يأمر البرنامج بإظهار كتابة الأسف إذا كان العدد اقل من 10.

حل المشكل:

لحل المشكل يجب علينا وضع شرط آخر قبل الشرطين الآخرين نأمر به البرنامج ان يتحقق قبل
تنفيذ الشرطين بان القيمة العددية اقل من 20 ولهذا استبدل الكود السابق بهذا المطور:

If Val(Text1.Text) <= 20 Then
If Val(Text1.Text) >= 9 Then
Label1.Caption = "congratulation!!!"
End If
If Val(Text1.Text) < 10 Then
Label1.Caption = "your point is less then10"
End If
End If

شرح الكود:

If Val(Text1.Text) <= 20 Then وتعني انه يجب تحقق الشرط الذي هو أن القيمة العددية لب text1.text يجب أن يكون اقل من 20 لتنفذ الأوامر التي بعدها.

ملاحظة:

عندما يكون هناك جملتين شرطيتين واحدة فوق الأخرى لا تفصلهما end if يجب تحقق الشرطين
معا لكي تنفذ الأوامر التي هي أسفلهما أما إن كانت توجد الأوامر بينهما فيكفي تحقق الشرط الأول لكي تنفذ الأوامر.

ولكن عندما تطبق البرنامج وتضع رقم اقل من 0 مثلا -5 ستجد أن البرنامج يعتبره علامة اقل من 10 ولهذا فهو سيرسل رسالة اعتذار "your point is less then10" ولهذا يجب عليك أن تستبدل السطر الأول من الكود بهذا السطر:

If Val(Text1.Text) <= 20 and Val(Text1.Text) >=0 Then

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

شرح الكود:
أظن أن النصف الأول من السطر الأول شرحناها لذا لداعي لشرحها مجددا.
1. and Val(Text1.Text) >=0 Then كلمةand تعني بالعربية "و" وتعني في لغة الفيجوال باسيك إذا جاءت بين if و then انه يجب تحقق الشرط الذي قبلها والشرط الذي بعدها لتنفذ الأوامر التي بعد then .

حل المشكل:

الآن نعود لحل المشكل المطروح سابقا ويجب علينا لحل المشكل أن نأمر البرنامج انه إذا وجد رقم اكبر من 20 أو أقل من 0 أن يظهر رسالة خطأ في نافذة جديدة وما يجب علينا إلا زيادة هذا الكود في السطر ما قبل الأخير(فوق end ifالأخيرة) من الكود السابق:
Else
MsgBox "خطأ,المعطيات المدخلة غير صحية ادخل علامتك على عشرون /20"
Label1.caption=""
Text1.text=""

شرح الكود:

1. Elseتعني بالعربية "وإلا" وتأتي في الجملة الشرطيةif بعد الأوامر التي هي بعد then ويقصد بها انه إذا لم تتحقق الشروط التي بعد if وبالطبع لن تنفذ الأوامر التي بعد then نفذ الأوامر التي تلي else ويجب أن تكون قبل end if .
2. "خطأ,المعطيات المدخلة غير صحية ادخل علامتك على عشرون /20" MsgBoxو بها نأمر البرنامج أن يظهر رسالة خطأ للمستعمل وستظهر على شكل نافذة جديدة و بها الرسالة المكتوبة بين الشلطتين و بها زر" موافق".
3. Label1.caption=""و بها تأمر البرنامج أن يجعل label1 فارغة فعندما تضع""= نعني بها أن تكون فارغة وهذا ما نحتاجه في برنامجنا إذ أننا نريدها فارغة بعد إظهار رسالة الخطأ.
4. Text1.text=""وتعني أيضا أن تأمر البرنامج أن يجعل text1 فارغة حيث إن خصائص الكتابة عند text هي .text وخصائص الكتابة عند label هي.caption لأن label يكتب فيها عنوان مؤلف من بضع كلمات فقط أما text فقد تكتب فيه فقرات ونصوص عبر تبديل خاصيةMultiLine التي في نافذة الخصائص إلى true.

ملاحظة:

لا يمكنك بالكود السابق التحكم بعنوان بنMsgBox لكن بالتعديل القادم يمكنك التحكم بعنوانه و مظهره والآن استبدل سطر MsgBox بهذا الكود:
"خطأ,المعطيات المدخلة غير صحية ادخل علامتك على عشرون /20" Msg =
Style= vbOKOnly + vbCritical
"خطأ في إدخال المعطيات"Titre =
Msg =msgbox (msg ,style, titre)
وستظهر الرسالة مثل هذه:

شرح الكود:

1. MsgBox = أي محتوى الرسالة وهو المكتوب بين علامتي التنصيص بعدها .
2. Style= وهو مظهر الرسالة أي رسالة استفهامية أو رسالة خطأ الخ...
3. vbOKOnlyويمكنك هذا من إظهار زر "موافق " فقط كما أن هنالك عدة أنواع كإظهار زر الإلغاء وزر التجاهل الخ... سيتم ذكرها جميعا إن شاء الله.
4. + vbCriticalوهي طريقة عرض الرسالة أي عرضها على أساس أنها خطأ أو استفهام أو أساس أنها تحتوي معلومة مهمة الخ... و هذه الكلمة بالتحديد يعرضها البرنامج على أساس أنها رسالة خطأ مثل الرسالة المبينة أعلاه.
5. Titre =وهي خاصة بعنوان الرسالة في الشريط الأزرق العنوان هو المكتوب بعدها بين علامتي التنصيص.
6. Msg =وهو اسم الرسالة ويمكنك اختيار أي اسم لها ولكن احرص أن لا يكون الاسم من الكلمات المحجوزة*.
7. msgbox (msg ,style, titre)وهو أمر البرنامج بإظهار هذه الرسالة ويجب ذكر عناصرها التي هي بين قوسين بنفس الترتيب فمحتوى الرسالة هو دائما الأول (msg) ثم المظهر(Style) وأخيرا العنوان(Titer).
*الكلمات المحجوزة هي الكلمات التي تأمر بها البرنامج معين أو أسماء الأدوات مثل label
أوform أو مثلا if أو then الخ...

هذا شرح لأهم الكلمات التي تستطيع استبدالها بالكلمات في الكود السابق:
1.تستطيع استبدال vbOKOnly بالاكواد التالية التي هي من خصائص المظهر(style):
و بها تضيف إلى الرسالة زر" موافق" وزر "إلغاء" vbOKCancel
و بها تضيف إلى الرسالة زر" تجاهل" و"إعادة" و"إحباط" vbAbortRetryIgnore
وتكون الرسالة ذات زر" نعم" و زر "لا" و زر" إلغاء" vbYesNoCancel
وتكون الرسالة ذات زر"لا" و"نعم" فقط vbYesNo
وتنشأ رسالة تتضمن زر "إعادة" و زر" إلغاء" vbRetryCancel
2. الاكواد التالية استبدلها بر vbCritical:
و عندها تتغير لك الرسالة إلى رسالة استفهامية vbQuestion
و ستصبح رسالة استفهامية vbExclamation
وستتحول إلى رسالة لإظهار معلومة vbInformation

ملاحظة:
ان الجزء "تذكر!!" يؤخذ من شرح الأكواد لكي ترسخ في ذهن.

تذكر!!

1. If و هي بداية الجملة الشرطية وتعني "إذا" بالعربية والجملة if هي جملة إذا تحقق الشرط الذي بعدها نفذ الأوامر التالية التي هي بعد then.
2. then وهو تابع للجملة الشرطية if فمthen فاصل بين الشروط والأوامر فالشروط تأتي قبلها و الأوامر تأتي بعدها.
3. end ifويعني نهاية الأوامر.
4. Elseتعني بالعربية "وإلا" وتأتي في الجملة الشرطيةif بعد الأوامر التي هي بعد then ويقصد بها انه إذا لم تتحقق الشروط التي بعد if وبالطبع لن تنفذ الأوامر التي بعد then نفذ الأوامر التي تلي else ويجب أن تكون قبل end if .
5. "خطأ,... على عشرون /20" MsgBoxو بها نأمر البرنامج أن يظهر رسالة خطأ للمستعمل وستظهر على شكل نافذة جديدة و بها الرسالة المكتوبة بين علامتي التنصيص و بها زر " موافق".
6. Text1.text=""وتعني أيضا أن تأمر البرنامج أن يجعل text1 فارغة حيث إن خصائص الكتابة عند text هي .text وخصائص الكتابة عند label هي.caption لأن label يكتب فيها عنوان مؤلف من بضع كلمات فقط أما text فقد تكتب فيه فقرات ونصوص عبر تبديل خاصيةMultiLine التي في نافذة الخصائص إلى true.

» الدرس الأول من دورة الفيجوال باسيك
» مكتبة الفيجوال بيسك 2008
» دروس دورة (ورتل القرآن ترتيلا
» الجزء الثاني
» علم العرو و نشأته الجزء الثاني