األساسية األوامر بعضستديو بيسك فيجوال للفة

ص ــ56الكتاب

و البيانات أدخال أوامر # أوًالالمعلومات إخراج

األمر 1. بواسطة البيانات إدخالInputBox

األمر 2. بواسطة المعلومات إخراجMsgBox

بواسطة البيانات إدخالInputBoxاألمر

األمر • بكتابة النافذة هذه تظهرVar1 = InputBox(massage)

Var1 :يخزن سوف الذي المتغير اسمالمستخدم أدخلها التي البيانات فيه

رقمية أو حرفية تكون وقدInputBox :النافذة هذه إنشاء أمرmassage :يظهر الذي الثابت النص

أقواس بين ويوضع النافذة فيهكذا “ “ اقتباس

على تحتوي صغيرة نافذة األمر هذا ُي�ظهرأمر وزر نص مربع

المعلومات إخراجاألمر MsgBoxبواسطة

األمر • بكتابة النافذة هذه تظهرMsgBox(massage)

MsgBox :النافذة هذه إنشاء أمرmassage :نص أو المتغير اسم

النافذة في يظهر الذي ثابتهكذا اقتباس أقواس بين ويوضع

“ “

تحتوي صغيرة نافذة األمر هذا ُي�ظهرقراءتها للمستخدم نرُيد التي المعلومات

اإلسناد أمر # ثانيا

هذه تعرُيفه • تكون وقد متغير داخل معينة قيمة تخزينحرفية سلسلة أو حسابية عملية أو عدد القيمة

Var1 = Valueصيغته •

Var1 :المتغير اسمValue :المتغير في تخزينها نريد التي القيمة

”NAME = “LAMA مثال• NUM = 10

X = V + 20 * I

الشرطية الجملة # IFثالثاIF-THENصيغة

IF condition Then statementصيغته•الشرط • تحقق إذا أنه # conditionمعناها صحيحا كان أي

True األمر تنفيذ فلن statementفسيتم # صحيحا يكن لم وإذاأمر أي تنفيذ يتم

مثال•IF Grade >= 60 Then Result = “ناجح”

IF-THEN-END صيغة IF

IF condition THEN صيغته•……statements......

End If

احتجنا • لذلك # صحيحا الشرط كان إذا أمر من أكثر تنفيذ سيتم أنه معناها

كلمة وضع المطلوب END IFإلى األوامر مجموعة نهاية لتوضيح

تنفيذهاIF grade >= 50 THEN مثال•

Result = “ناجح” Text1 = “مبروك”

END IF

IF-THEN-ELSE صيغة

IF condition THEN صيغته•……Statements1......

ELSE……Statements2......

END IF

إلى • احتجنا لذلك # صحيحا الشرط كان إذا أمر من أكثر تنفيذ سيتم أنه معناها

كلمة تنفيذها END IFوضع المطلوب األوامر مجموعة نهاية لتوضيحIF grade >= 50 THEN مثال•

Result = “ناجح” Text1 = “مبروك”

END IF

IF-THEN-ELSE صيغة IF

IF condition1 THEN صيغته•……Statements1......

ELSEIF condition2 THEN……Statements2......

ELSE……Statements3......

END IF

منه • التحقق يجب شرط من أكثر يوجد

صيغة -IF-THEN تابعELSE IF

مثال•

IF grade >= 90 THEN

Result = “ممتاز”ELSEIF grade >= 80 THEN

Result = “ 4 جدا ”جيدELSEIF grade >= 70 THEN

Result = “جيد”ELSEIF grade >= 60THEN

Result = “مقبول”ELSE

Result = “ مجتاز ”غيرEND IF

الشرطية SelectالجملةCase

صيغته•SELECT CASE expression

CASE prob1

….

statement1

….

CASE prob2

….

statement2

….

[CASE ELSE

….

statement3

….]

END SELECT

أن تعني األقواسإذا اختيار الجزء هذا

إليه بحاجة كنانضعه

البيانات نوعexpression هو

البيانات نوع نفسفي الموجودة

اًالحتماًالت

الشرطية الجملة مثالSelect Case

مثال•SELECT CASE grade

CASE 90 To 100

Result = “ممتاز”CASE 80 To 89

Result = “ 4 جدا ”جيدCASE 70 To 79

Result = “جيد”CASE 60 To 69

Result = “مقبول”CASE ELSE

Result = “ مجتاز ”غيرEND SELECT

هذه تستخدمكان إذا الجملة

عدة هناكللشرط احتماًالت

جملة من v IFبدًالوطويلة معقدة