تستخدم هذه الجمل في حال كان لدينا
شرطين أو أكثر ولتوضيح هذه الجمل نأخذ الأمثلة التالية:
مثال1: لنفترض أنه
لدينا برنامج لإدخال درجات الطالب ثم إظهار التقدير في رسالة.
خطوات تصميم البرنامج:
1-
نفتح مشروع جديد ونضع عليه أداة TextBox و
أداة Label وزرين
واحد لإظهار النتيجة والآخر للخروج من البرنامج ونجعل الخصائص للأدوات كما يلي:
اسم الأداة
|
الخاصية
|
القيمة
|
Form1
|
Text
|
درجات الطلاب
|
Label1
|
Text
|
أدخل الدرجة هنا
|
TextBox1
|
TextAlign
|
Center
|
Button1
|
Text
|
إظهار النتيجة
|
Button2
|
Text
|
خروج
|
2- بعد
تصميم الفورم نضغط مرتين على زر إظهار النتيجة لكتابة الكود الخاص به كما يلي:
Private Sub Button1_Click (ByVal
sender As System.Object,
ByVal e As System.EventArgs) Handles
Button1.Click
If Val
(TextBox1.Text) < 50 Then
("ضعيف")MessageBox.Show
Else If
Val (TextBox1.Text) <= 70 Then
("مقبول")MessageBox.Show
ElseIf
Val (TextBox1.Text) <= 80 Then
("جيد")MessageBox.Show
ElseIf
Val (TextBox1.Text) <= 90 Then
("جيد جدا") MessageBox.Show
ElseIf
Val (TextBox1.Text) < 100 Then
("ممتاز")MessageBox.Show
Else
("خطأ في أدخال العلامة")MessageBox.Show
End If
End Sub
أدخال درجة
الطالب س
تكون داخل أداة TextBox1 وبالتالي فإن الشرط هو التحقق من قيمة هذه الأداة ونستخدم الدالة Val لتحويل القيمة النصية الموجودة داخل الأداة
إلى قيمة رقمية لمنع حدوث أي خطأ أثناء التنفيذ.
نلاحظ هنا
وجود أكثر من شرط حيث تم أستخدام If مع ElseIf و Else فإذا كانت القيمة الموجودة
داخل الأداة أصغر تماما من 50 سيتم إظهار رسالة التقدير ضعيف وإذا كانت القيمة أصغر
أو تساوي 70 سيتم إظهار رسالة تقدير مقبول وهكذا.
عند تنفيذ
البرنامج والضغط على زر إظهار النتيجة سيقوم البرنامج بتأكد من القيمة داخل أداة TextBox عن طريق التحقق من الشرط If وفي حال عدم تحقق الشرط سينتقل إلى الشرط الذي
يليه وهكذا حتى تنتهي كل الشروط أما في حالة عدم تحقق أي شرط من هذه الشروط سيتم
تنفيذ التعليمات الموجودة داخل Else أي أن التعليمات الموجودة داخل Else لا يتم تنفيذها إلا في حال عدم تحقق الشرط
داخل If و ElseIf.
3- نضغط
مرتين على زر الخروج لكتابة الكود الخاص به كما تعلمنا سابقا:
Private Sub Button2_Click (ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button2.Click
End
End Sub
ملاحظة
هامة: الترتيب في جملة If الشرطية هام جدا لأن البرنامج عند تحقق أول
شرط سيتم تنفيذ التعليمات الموجودة بداخله وسيتوقف بعدها أي لن يتم التحقق من بقية
الشروط الأخرى وعليه فلا بد أن يكون الترتيب بشكل تصاعدي للجمل الشرطية, ففي
الميثال السابق لو بدأنا بالشرط If Val (TextBox1.Text)<=100 سيعتمد البرنامج هذا الشرط ولن
يتم التحقق من بقية الشروط الأخرى وبالتالي إذا كانت الدرجة التي تم إدخالها أصغر
من 50 ستظهر النتيجة دائما التقدير ممتاز لأنها تحقق الشرط أصغر أو تساوي 100 لذلك
يجب مراعاة الترتيب في الشروط من الأصغر إلى الأكبر.
مثال 2: اكتب برنامج يقوم بترجمة الكلمات من اللغة الأنجليزية إلى اللغة العربية
وإظهار الترجمة باللون الأزرق وفي حال لم تكن الترجمة موجودة تظهر كلمة Error باللون الأحمر.
خطوات تصميم
البرنامج:
1- نفتح مشروع جديد و ونضع عليه أداتي Label وأداة TextBox وزر ونجعل الخصائص للأدوات كما يلي:
اسم الأداة
|
اسم الخاصية
|
القيمة
|
Form1
|
Text
|
الترجمة
|
Label1
|
Text
|
أدخل الكلمة المراد
ترجمتها هنا
|
TextBox1
|
TextAlign
|
Center
|
Button
|
Text
|
إظهار الترجمة
|
TextBox2
|
Text
|
|
TextBox2
|
Font
|
Size=16
|
TextBox2
|
BorderStyle
|
Fixed3D
|
2- بعد تصميم الفورم نضغط مرتين
على زر إظهار الترجمة لكتابة الكود الخاص به كما يلي:
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
TextBox2.ForeColor = Color.Blue
If
TextBox1.Text.ToLower = "Water" Then
"ماء"= TextBox2.Text
ElseIf
TextBox1.Text.ToLower = "School" Then
"مدرسة"= TextBox2.Text
ElseIf
TextBox1.Text.ToLower = "Car" Then
"سيارة"= TextBox2.Text
Else
" TextBox2.Text = "Error
TextBox2.ForeColor = Color.Red
End If
End Sub
ليست هناك تعليقات:
إرسال تعليق