تستخدم
الجمل الشرطية للتحقق من شرط معين أو قيمة معينة وإظهار النتيجة بناء على تحقق
الشرط أو عدم تحققه عندما يتحقق الشرط تظهر رسالة أما في حالة عدم تحقق الشرط لن
يظهر أي شي وإذا أردنا إظهار رسالة أو تنفيذ تعليمات في حال
عدم تحقق الشرط نقوم باستخدام Else
مع الشرط If بالطريقة التالية:
If (x=5)
Then
MessageBox.Show
(“Five”)
Else
MessageBox.Show
(“Not Five”)
End If
وتعني بأنه إذا تحقق الشرط وكانت
القيمة X
تساوي 5 سيتم إظهار الرسالة الأولى وفي حالة عدم تحقق الشرط ستظهر الرسالة
الثانية.
مثال 1: اكتب برنامج
يقوم بإدخال عدد في مربع نص ثم إظهار هل هو عدد زوجي أم فردي داخل أداة Label
الخطوات المتبعة لتصميم البرنامج:
1- نفتح مشروع جديد ونضع عليه أداتي Label وأداة TextBox وزر
ونجعل الخصائص للأدوات كما يلي:
|
اسم الأداة
|
اسم الخاصية
|
القيمة
|
|
Form1
|
Text
|
الأعداد
الزوجية والفردية
|
|
Label1
|
Text
|
أدخل العدد
|
|
TextBox1
|
TextAlign
|
Center
|
|
Button
|
Text
|
إظهار النتيجة
|
|
TextBox2
|
BorderStyle
|
Fixed3D
|
2- بعد تصميم الفورم نضغط
مرتين على زر إظهار النتيجة لكتابة الكود الخاص به كما يلي:
Private Sub Button1_Click (ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
TextBox1.Text Mod 2 = 0 Then
"العدد زوجي"= TextBox2.Text
Else
"العدد فردي"= TextBox2.Text
End If
End Sub
لمعرفة
إذا كان العدد زوجي أم فردي نأخذ باقي قسمته على 2 فإذا كان باقي
القسمة يساوي الصفر فهو عدد زوجي وغير ذلك فهو عدد فردي ولحساب باقي القسمة في
فيجوال بيسك نستخدم الدالة Mod.
مثال2: اكتب برنامج
يقوم بإدخال عددين ومعرفة العدد الأكبر والأصغر بينهما وإظهار العدد الكبير باللون
الأزرق والعدد الصغير باللون الأخضر.
خطوات تصميم البرنامج:
1- نفتح مشروع جديد ونضع عليه 6
أدوات Labelوأداتي TextBox وزر ونجعل الخصائص للأدوات كما يلي:
|
اسم الأداة
|
اسم الخاصية
|
القيمة
|
|
Form1
|
Text
|
العدد الأكبر والأصغر
|
|
Lable1
|
Text
|
العدد الأول
|
|
Label2
|
Text
|
العدد الثاني
|
|
Label3
|
Text
|
العدد الأكبر
|
|
Label4
|
Text
|
العدد الأصغر
|
|
TextBox1
|
TextAlign
|
Center
|
|
TextBox2
|
TextAlign
|
Center
|
|
TextBox3
|
BorderStyle
|
Fixed3D
|
|
TextBox4
|
BorderStyle
|
Fixed3D
|
|
Button1
|
Text
|
إظهار النتيجة
|
2- بعد تصميم الفورم نضغط مرتين على
زر إظهار النتيجة لكتابة الكود الخاص به كما يلي:
Private Sub Button1_Click (ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
TextBox3.ForeColor = Color.Blue
TextBox4.ForeColor = Color.Green
If
Val(TextBox1.Text) > Val(TextBox2.Text) Then
TextBox3.Text = TextBox1.Text
TextBox4.Text = TextBox2.Text
Else
TextBox3.Text = TextBox2.Text
TextBox4.Text = TextBox1.Text
End If
End Sub
ملاحظة: تم إظهار نتيجة العدد الأكبر
داخل TextBox3
وإظهار نتيجة العدد الأصغر داخل TextBox4.
ليست هناك تعليقات:
إرسال تعليق