المجموعة الثانية فيجوال بيزيك

Admin 2/4/2007, 6:43 pm

كتل if
أولاً كتلة if المبسطة:
الشكل النظري:
IF condition(1) then
Statement(1)
Else IF condition(2) then
Statement(2)
Else IF condition(3) then
Statement(3)
--------
--------
Else
Statement(n)
End IF
من الشكل النظري نلخص الملاحظات التالية:
1- في نهاية السطر if أو else if يوجد العبارة then أما في الشرط الأخير الحاوي فقط على else لا يمكن كتابة العبارة then.
2- يمكن أن يكون الشرط الأخير else if بدلاً من else ولكن في هذه الحالة لا بد من كتابة الشرط ووضع العبارة then.
3- يجب كتابة العبارة else if دون فراغ ثم يقوم البرنامج بتشكيل الفراغ بعد الضغط على مفتاح Enter.
4- يمكن استعمال الكلمات and, or عندما تكون الشروط مركبة (متعددة) كما سنرى من خلال الأمثلة القادمة.
5- إن السطر Statement() قد يكون مجموعة من الإجراءات والعمليات والأسطر وذلك حسب الحاجة.
مثال4:
ليكن لدينا مستقيم في المستوي معادلته من الشكل (y=ax + b) ولتكن لدينا نقطة a إحداثياتها a(Xa,Ya) .
والمطلوب وضع برنامج بلغة V.B لمعرفة وضع هذه النقطة بالنسبة للمستقيم.

Private Sub Command1_Click()
Dim xa, ya, a, b
xa = Val(Text1.Text)
ya = Val(Text2.Text)
a = Val(Text3.Text)
b = Val(Text4.Text)
y = a * xa + b
If ya > y Then
m = "النقطة تقع أعلى المستقيم"
Else If ya = y Then
m = "النقطة تقع على المستقيم"
Else
m = "النقطة تقع أسفل المستقيم"
End If
Label3.Caption = m
End Sub
نلاحظ من هذا المثال ما يلي:
1- إن فكرة المسألة تعويض فاصلة النقطة بمعادلة المستقيم ومن ثم مقارنة تراتيب النقطة وتراتيب مسقط النقطة على المستقيم كما هو موضح بالشكل أعلاه.
2- نلاحظ أن الناتج عبارة عن سلسلة حرفية، ويمكن أن يكون عبارة عن رسم تخطيطي كما سنتعلم في بحث الرسم في V.B.
3- لا بد من استخدام أقواس الاقتباس" " في حالة السلاسل الحرفية.
مثال5:
يطلب وضع برنامج لحساب إما مساحة أو محيط دائرة نصف قطرها R.
إن الهدف من هذا البرنامج هو التعرف على أداة جديدة وهي زر اختيار أو (option button).
وهذه الأداة تحدد ما هو المطلوب هل المطلوب حساب المساحة أم حساب المحيط.

Private Sub Command1_Click()
R = Val(Text1.Text)
b = 3.14
If Option1.Value = True Then
Text2.Text = b * R ^ 2
Else
Text2.Text = 2 * b * R
End If
End Sub
نلاحظ من هذا المثال ما يلي:
1- أن خاصية الزر option هي Value ولها قيمتان إما true (أي مفعّلة) أو False (أي غير مفعّلة)
2- إن الثابت هو غير معرف في الــ V.B ولذلك يجب تعريفه.
3- لا يمكن اختيار أكثر من خيار من أزرار option في نفس الوقت (أي أن المطلوب حسابه إما المساحة أو المحيط ولا يمكن حساب المساحة المحيط في نفس الوقت و بنفس المكان).

ثانياً كتلة if الموسعة:
الشكل النظري:
IF condition(1) then
IF condition(1) then
Statement(1)
Else IF condition(2) then
Statement(2)
Else IF condition(3) then
Statement(3)
--------
--------
Else
Statement(n)
End IF
Else If condition(2) then
IF condition(1) then
Statement(1)
Else IF condition(2) then
Statement(2)
Else IF condition(3) then
Statement(3)
--------
--------
Else
Statement(n)
End IF

مثال6:
يطلب حساب قيمة y حيث أن العلاقة تتغير كما في الجدول التالي:

Private Sub Command1_Click()
Z = Val(txtz.Text)
X = Val(txtx.Text)
If Z >= 0 Then
If X > 0 Then
y = 2 * X + Z
m = " y = 2 * X + Z"
Else If X = 0 Then
y = 2 * Z
m = " y = 2 * Z"
Else
y = X + Z
m = " y = X + Z"
End If
Else
If X > 0 Then
y = -X - Z
m = " y = -X - Z"
ElseIf X = 0 Then
y = Z / 2
m = " y = z / 2"
Else
y = X + 4 * Z - 2
m = "y = X + 4 * Z - 2"
End If
End If

txty.Text = y
Label1.Caption = m
End Sub
مثال7:
ليكن لدينا حفرية حجمها V يراد حفرها بنوعين من الحفارات (تركسات أو بلدوزرات أو....)
أو بإحدى الحفارتين.
المطلوب وضع برنامج لحساب الزمن اللازم لعملية الحفر مقدرة بالساعة.
وفي الجدول التالي إنتاجية كل حفارة بالــ
حفارة نوع A حفارة نوع B
تربة طرية
3.5
تربة قاسية 2.8 2

إن الهدف من هذا البرنامج هو التعرف على أداة جديدة وهي صندوق اختيار أو (check box).
ملاحظات:
1- إن التربة لا يمكن أن تكون طرية وقاسية بنفس الوقت. (لذلك نختار زر option لنوع التربة)
2- يمكن استخدام الحفارتين أو حفارة واحدة بنفس الوقت لنفس النوع من التربة.(لذلك نختار صندوق check لنوع الحفارة).
3- الإنتاجية تعني أن الحفارة من النوع A يمكن أن تحفر من التربة الطرية خلال ساعة واحدة. ومنه يحسب الزمن من حاصل قسمة حجم الحفرة على إنتاجية الحفارة.

Private Sub Comclc_Click()
V = Val(txtV.Text)
If CheckA.Value = 1 And CheckB.Value = 1 Then
If Optsoft.Value = True Then
T = V / (5 + 3.5)
Else
T = V / (2.8 + 2)
End If
Else If CheckA.Value = 1 Then
If Optsoft.Value = True Then
T = V / 5
Else
T = V / 2.8
End If
Else If CheckB.Value = 1 Then
If Optsoft.Value = True Then
T = V / 3.5
Else
T = V / 2
End If
Else
Label5.Caption = "يجب اختيار نوع الحفارة"
T = 0
End If
Txttime.Text = Format(T, "#.##")
End Sub

نلاحظ من المثال ما يلي:
1- قيمة الزر option هي إما true أو false.
2- قيمة الصندوق check هي إما (1 في حال كان الصندوق فعّال) أو (0 في حال كان غير فعّال).
3- في حال لم يختار المستخدم أي حفارة لا بد من توجيه رسالة تنبيه وهذا توضحه العبارة الموجودة في label5.
4- العبارة الموجودة في السطر الأخير هي من أجل تقريب الناتج لمرتبتين عشريتين، ومن أجل التوضيح أكثر إذا أردنا التقريب لثلاث مراتب نكتب السطر التالي:
Txttime.Text = Format(T, "#.###")
5- أخيراً لقد استخدمنا أداة جديدة لم تدخل في البرمجة وهي الأداة frame (إطار) كما هو موضح في الفورم أعلاه، وهذه الأداة تفيد بما يلي:
- تكون الأدوات الموجودة ضمن الإطار الواحد مستقلة عن الأدوات الموجودة خارج هذا الإطار (بعبارة أخرى يمكن أن نفعل زرين أو أكثر من أزرار option إذا كان كل زر موجود ضمن إطار مستقل عن الآخر، أما ضمن الإطار فلا يمكن اختيار أكثر من زر واحد).
- تشكل مظهر من مظاهر ترتيب وتنظيم النوافذ بحيث يتم الجمع بين الأدوات ذات الصفات أو المواضيع المشتركة (ففي مثالنا جمعنا أنواع الأتربة في إطار وجمعنا أنواع الحفارات في إطار آخر).
ثالثاً كتلة IF ذات السطر الواحد:
وهذا النوع كثير الاستخدام ويأخذ الشكل النظري التالية:
IF Condition then Ststements
ونلاحظ أن هذه الكتلة لاتحتاج لــ End If

زائر 4/4/2007, 7:31 pm

نشكركم على هذه الدروس القيمة ونتمنى المزيد

المجموعة الثانية فيجوال بيزيك

المجموعة الثانية فيجوال بيزيك

رد: المجموعة الثانية فيجوال بيزيك