الثلاثاء، 13 نوفمبر 2012
دورة [VBScript] الدرس الخامس: الجمل الشرطية VBScript ج5
الدرس الخامس: الجمل الشرطية VBScript ج5
لا شك أن جميع المبرمجين يدركون أهمية الجمل الشرطية في بناء شيفرة البرنامج أوالنص البرمجي، وعلى الأخص الجملة ذات البادئة IF … وكثيرا ما نصادف الألغاز التي تتمحور فكرتها حول تنفيذ مهمة معينة دون الاعتماد على الجمل الشرطية، وهذا ما يقودنا إلى أهمية هذه الجمل في تكوين الشيفرات …
المعاملات Operators :
المعاملات هي رموز تستخدم للربط بين تعبيرين أو أجزاء عمليه حسابيه بينهما، وتم
التطرق لها هنا نظرا لارتباطها الوثيق بموضوع الجمل الشرطية،ونستطيع تقسيم
المعاملات في لغة VBScript إلى ثلاث أقسام.
المعاملات الحسابية:
وهي رموز العمليات الرياضية وهي كالتالي:
وتستخدم مع العمليات الرياضية وهي كالتالي: (ملاحظة الأمثلة ستجدها مدمجة مع أمثلة
المعاملات المنطقية والتي سنتطرق لها بعد قليل)
تستخدم المعاملات المنطقية لإيجاد نتيجة تعبير ... هل هي صحيحة أم خاطئة.. وفيما
يلي المعاملات المنطقية التي تحويها لغة VBScript مع أمثلة لكل معامل...
ملاحظة:في جميع الأمثلة التالية افترض اننا قمنا باسناد القيم إلى المتغيرين A وB
على الشكل التالي.
A = 5
B = 4
الجملة الشرطية
If …. Then
تستخدم الجمل الشرطية لتنفيذ أمر معين عند تحقق شرط ما والصيغة العامة للجملة IF
السابقة هي كالتالي:
شفرة برمجية :
If (شرط)
Then (الأمر الذي سيتحقق في حال كون الشرط السابق صحيحا)
وهذا مثال على استعمال التركيب السابق للجملة If
شفرة برمجية :
Num = InputBox("ادخل رقما")
If Num > 100 Then
msgbox "هذا الرقم اكبر من 100"
إذا تغاضينا عن تفاهة المثال لأننا هنا في موطن التعلم ولكن سنتطرق لأمثلة أكثر تقدما في المستقبل … سنجد أن المثال السابق يحتوي على الشرط Num > 100 فإذا تحقق الشرط فإن البرنامج سيظهر مربع رسالة تفيد بان الرقم المدخل أكبر من 100.
الجملة If …. Then…. Else
لاحظت في المثال السابق أنه سيتم إظهار رسالة إذا كان الرقم أكبر من 100 ولكنه لن
يحصل شيئا إذا كان عدا ذلك، في الجملة If …. Then…. Else سوف تستطيع إظهار رسالة
أخرى إذا كان الرقم أصغر من أو يساوي 100 وذلك من خلال الجزء الذي أضفناه والمسمى
Else وهذه هي الصيغة العامة للجملة السابقة:
شفرة برمجية :
If (شرط)
Then
(الأمر الذي سيتحقق في حال كون الشرط السابق صحيحا)
Else
(الأمر الذي سيتحقق في حال كون الشرط السابق خاطئا)
End If
والآن لاحظ التعديل على المثال السابق شفرة برمجية :
Num = InputBox("ادخل رقما")
If Num > 100 Then
Msgbox "هذا الرقم اكبر من 100"
Else
Msgbox "هذا الرقم اصغر من أو يساوي 100"
End If
الجملة If …. Then…. ElseIf
لا شك انك الآن توقعت معنى الإضافة ElseIf والتي تستخدم إذا كان هناك اكثر من شرط..
وهذه هي الصيغة العامة للجملة السابقة…
شفرة برمجية :
If (1 شرط)
Then
(الأمر الذي سيتحقق في حال كون الشرط 1 صحيحا)
ElseIf (2 شرط) Then
(الأمر الذي سيتحقق في حال كون الشرط 2 صحيحا)
Else
(الأمر الذي سيتحقق إذا لم يتحقق أيا من الشروط السابقة)
End If
واليك هذا المثال… الذي سيختبر هل القيمة المدخلة موجبة أم سالبه أم مساوية
للصفر.
شفرة برمجية :
Num = InputBox("ادخل رقما")
If Num > 0 Then
msgbox "القيمة المدخلة موجبة"
ElseIf Num < 0 Then
msgbox "القيمة المدخلة سالبة"
Else
msgbox "القيمة المدخلة تساوي الصفر"
End If
الجملة Select Case
تتشابه الجملة Select Case مع الجملة If …. Then…. ElseIf ولكن الجملة Select Case
تعتبر افضل استخداما عندما يكون التفرع لأكثر من شرطين لأنها تظهر بنية الشيفرة
بشكل أوضح وستلاحظ ذلك لاحقا، أيضا البنية السابقة تستخدم عندما يكون الاختيار بناء
على متغير واحد، وهذه هي الصيغة العامة للجملة Select Case
شفرة برمجية :
Select Case (متغير)
Case (القيمة 1)
الأمر الذي سيتحقق إذا كانت قيمة المتغير مساوية للقيمة 1
Case (القيمة 2)
الأمر الذي سيتحقق إذا كانت قيمة المتغير مساوية للقيمة 2
Case Else
الأمر الذي سيتحقق إذا لم تكن قيمة المتغير مساوية لأي من القيم
السابقة
End Select
ويمكن الاستغناء عن Case Else عند عدم الحاجة إليها.
وهذا مثال على استخدام الجملة السابقة
شفرة برمجية :
strChos = "ادخل أحد الألوان التالية ليتم تحويل لون الخلفية"
strChos = strChos + "إليه .. احمر، اخضر، ازرق، اسود"
BkGd = InputBox(strChos,"تحديد لون الخلفية")
Select Case BkGd
Case "احمر"
document.bgColor = "FF0000"
Case "اخضر"
document.bgColor = vbGreen
Case "ازرق"
document.bgColor = "0000FF"
Case "اسود"
document.bgColor = vbBlack
Case Else
msgbox "فضلا تأكد من صحة تهجئة الكلمة"
End Select
ولأي إستفسار الرجاء ترك تعليقاتكم لأقوم
بالإجابة عليها في القريب العاجل
لا تقرأ وترحل شارك معنا بتعليق فنحن نسعى لنقدم لك الافضل والاجمل
بقلم : Abda3Design
لخدمات التصميم والبرمجة
إدارة تتبنى عمل المواقع الخدمية المتنوعة للأفراد والهيئات والمؤسسات الكبرى. كما يمكنها عمل مواقع للتجارة الإلكترونية كما تتميز مؤسسة "ابداع ديزاين" . بأقوى فريق عمل متواصل مع العملاء 24 ساعة على مدار الأسبوع وتمتاز أيضا بكفاءة الدقة والسرعة
ضع تعليقك
0 التعليقات:
إرسال تعليق