3- If …… Then ……. Elseif…….Else
يستخدم هذا الشكل في حال وجود عدة كتل من التعليمات كتلة واحدة من بينها ستنفذ فقط .
والشكل العام لهذه التعليمه هو :
If condition1 then
Statements1 yes1
elseIf condition2 then
Statements2 yes2
elseIf condition3 then
Statements3 yes3
elseIf condition n then
Statements n yes n
Else
Statements no yes1
End if
يقوم فيجوال بيسك باختبار أول شرط condition1 فإذا وجده غير محقق فأنه ينتقل لأختبار الشرط الثاني condition2 .... وهكذا حتى يجد شرطا محققا , عندها سينفذ كتلة التعليمات الموافقة لهذا الشرط ثم ينتقل للتعليمات التي تلي end if ( أي انه لا يفحص أي شرط من الشروط التالية للشرط المحقق وبالتالي فأن كتلة تعليمات واحدة على الأكثر فقط ستنفذ )
يمكن ان تحوي التعليمة الشرطية على else عندها وفي حال عدم تحقق أي شرط من الشروط الموضوعة , سيقوم فيجوال بيسك بتنفيذ كتلة التعليمات الموافقة لـ else .
مثال ( 1 ) اكتب برنامج لأدخال قيم كل من السرعة V واللزوجة الحركية NU لسائل يجري داخل انبوب قطره D لحساب عدد رينولد RE لهذا السائل ومن ثم بين نوع الجريان (TYPE) حسب التصنيف التالي :
عندما يكون : RE ? 2100 يسمى الجريان طباقي ( LAMINAR )
عندما يكون : RE < 4000 < 2100 يسمى الجريان انتقالي TRANSITION
عندما يكون : RE ? 4000 يسمى الجريان المضطرب TURBULENT
علما ان RE=V*D/NU
الحل :-
PRIVATE SUB CMDRE_CLICK( )
V=VAL(TXTV.TEXT)
D=VAL(TXTD.TEXT)
NU=VAL(TXTNU.TEXT)
RE= V*D/NU
TXTRE.TEXT=RE
IF RE <= 2100 THEN
TXTTYPE.TEXT="LAMINAR"
ELSE IF ( RE<4000) AND (RE>2100) THEN
TXTTYPE.TEXT="TRANSITION"
ELSE IF RE >= 4000 THEN
TXTTYPE.TEXT= "TURBULENT "
ELSE
TXTTYPE.TEXT="UNDEFINED"
END IF
END SUB
مثال (2) : اكتب برنامج لحساب قيم W من المعادلات الآتية , اذا علمت ان هذه المعادلات تمثل قيم مختلفة عن بعضها .
W=10 SIN (XYZ) IF X=10
W=( X3 – Y ) ( Z3 + Y ) IF 10>X>3
W=3XY+eZY +4 IF X=4
W= TAN-1 (X+Y) IF X>=15
الحل :
PRIVATE SUB CMDW_CLICK( )
X=VAL(TXTX.TEXT)
Y=VAL(TXTY.TEXT)
Z=VAL(TXTZ.TEXT)
IF X=10 THEN
W=10 * SIN (X*Y*Z)
ELSEIF ( X>3) AND (X<10) THEN
W=( X^3 – Y ) * ( Z ^3 + Y )
ELSEIF X=4 THEN
W=3*X*Y+EXP( Z*Y )+4
ELSEIF X>= 15 THEN
W= ATN (X+Y)
END IF
TXTW.TEXT=W
END SUB
المادة المعروضة اعلاه هي مدخل الى المحاضرة المرفوعة بواسطة استاذ(ة) المادة . وقد تبدو لك غير متكاملة . حيث يضع استاذ المادة في بعض الاحيان فقط الجزء الاول من المحاضرة من اجل الاطلاع على ما ستقوم بتحميله لاحقا . في نظام التعليم الالكتروني نوفر هذه الخدمة لكي نبقيك على اطلاع حول محتوى الملف الذي ستقوم بتحميله .