فيجول بيسك \ جمل التحكم

3-1 جملة التحكم Control في Visual Basic:

قد يتطلب الأمر أن تنفذ جملة أو مجموعة عمليات أكثر من مرة , ا وان تنفذ جزأ معينا من البرنامج ومن ثم يتفرع التنفيذ إلى جزء بعيد عن الجزء الأول , ا وان يعيد تنفيذ هذا الجزء طالما لم يتحقق شرط معين , في هذه الحالة لابد من وضع جمل خاصة في البرنامج للتحكم في سير خطوات تنفيذ جمل البرنامج حسب ما تتطلبه طبيعة المسألة.
وتدعم لغة الفيجول بيسك هذه الخاصية عن طريق استخدام جمل ودوال خاصة بالتحكم وهي :

3-2 عبارة الانتقال ----Then IF الشرطية:

تملك عبارة IF الشرطية في Visual Basic أربعة أشكال هي:
الشكل الأول:
IF condition THEN statement
أي في حال تحقق الشرط نفذ التعليمة.
الشكل الثاني:
IF condition THEN
statement(s)
END IF
أي في حال تحقق الشرط نفذ مجموعة التعليمات.
الشكل الثالث:
IF condition THEN
statement(s)1
ELSE
statement(s)2
END IF
أي في حال تحقق الشرط نفذ مجموعة التعليمات1 وإلا نفذ مجموعة التعليمات2
الشكل الرابع:
IF condition1 THEN
statement(s)
ELSEIF condition2 THEN
statement(s)
ELSEIF condition3 THEN
statement(s)
…
END IF
ويسمى هذا الشكل بعبارة If متعددة المداخل، لأنه كلما تحقق شرط يتم تنفيذ مجموعة محددة من التعليمات.


مثال: اكتب برنامج بلغة الفيجول بيسك لقراءة عدد معين . إذا كان العدد المسمى n
If n<6 print n less than 6
If n> 6 print n larger than 6

3-3 عبارة الخيارات المتعددة SELECT CASE:

وتستخدم بدلاً من عبارة If متعددة المداخل:

SELECT CASE expression

CASE value1:
statement(s)
CASE value2:
statement(s)
CASE value3:
statement(s)
….
END SELECT
أي اختبر قيمة التعبير expression واعتماداً على قيمته حدد مجموعة التعليمات التي يجب تنفيذها.
مثال:
اكتب برنامج لإدخال قيمة معينة ل N .
إذا كانت قيمة N محصورة بين الصفر والرقم خمسة أطبع (The No. is between 0 and 5)
إذا كانت قيمة N تحمل الرقم 6 , 7 or 8 أطبع ( The No. is between 6 and 8 )
إذا كانت قيمة N اكبر من الرقم 8 أطبع ( The No. is greater than 8 )
إذا كان الرقم الدخل غير من المدخل أعلاه أطبع ( The No. is negative value )


افتح form جديد وضع عليه عنصر الـ command ثم اكتب البرمجة التالية:
Private sub command1_click()
Dim N as integer
N= ادخل رقم معين
Select case N
Case 0 to 5
Me.print” the No. is between 0 and 5”
Case 6,7,8
Me.print” the No. is between 6 and 8”
Case is> 8
Me.print ”the No. is greater than 8”
Case else
Me.print “ the No. is negative value”
End select
Endsub

3-4 الحلقات التكرارية Loop

الحلقة التكرارية FOR:
FOR variable=start TO end
statement(s)
NEXT variable


تُعَدُّ الطريقة For.Next وسيلة أخرى لصنع الحلقات في لغة فيجول بيسك. مثلاً، تَعُّدُ الحلقة التالية من 1 و حتى 100:
Dim I
For I = 1 to 100 Step 1
txtMyTextArea.Text = Str(I) أطبع الأعداد في خانة مربع النص
Next
أما للتعداد من 1وحتى 100 وبخطوة (زيادة في كل مرة) قدرها 2، فتستطيع استخدام الحلقة For.Next التالية:
Dim I
For I = 1 to 100 Step 2
txtMyTextArea.Text = Str(I) أطبع الأعداد الفردية في خانة مربع النص
Next

مثال: اكتب برنامج بلغة الفيجول بيسك لإيجاد حاصل جمع الأعداد من 1 الـ 10 على أن يظهر الناتج في حقل الـ text1

العبارة Exit Forxe "العبارة Exit For"

تستطيع الخروج من الحلقة For.Next باستخدام عبارة Exit For كما يلي:
البرنامج أدناه يعمل على جمع الأعداد من 1 ال 10 على أن يتوقف البرنامج عندما يصل العداد الرقم 5

الحلقات التكرارية الأخرى:

الشكل الأول: DO --- Loop Until ويكتب بالصيغة التالية
DO
statement(s)
LOOP UNTIL condition
الشكل الثاني: DO ---Loop While ويكتب بالصيغة التالية
DO
statement(s)
LOOP WHILE condition
ولتوضيح ذلك لاحظ المثال التالي الذي يطبع حاصل احتساب عد الأعداد من 1 ال 100xe "طريقة Do.Loop While"
ينفذ البرنامج العبارات الواقعة بين السطر Do والسطر Loop While. حيث يحدد البرنامج فيما إذا كان الشرط محققاً (أي Counter أصغر من 100)، يعيد البرنامج تكرار تنفيذ الحلقة إلى أن يتحقق الشرط، وبالتالي يعيد تنفيذ العبارات الواقعة ما بعد السطر Loop While.
افتح برنامج الفيجول بيسك وضع على النموذج ( form) أداة الـ Command ثم أداة ال Text
Private sub command1_click()
Dim Counter
Counter=1
Do
Counter = Counter + 1
Loop While Counter < 100
Text1.text=counter
Endsub


الشكل الثالث: DO Until ------- Loop ويكتب بالصيغة التالية
DO UNTIL condition
statement(s)
LOOP

الشكل الرابع: DO While ---- Loop ويكتب بالصيغة التالية

DO WHILE condition
statement(s)
LOOP
ولتوضيح طريقة Do While. Loopxe "طريقة Do While.Loop" لاحظ المثال التالي الذي يطبع حاصل احتساب عد الأعداد من 1--100
تُستخدم العبارة Do. Loop لتنفيذ العبارات ضمنها، مادام الشرط المحدد محققاً. مثال، حلقة Do. Loop تقوم باحتساب عد الأعداد التالية من 1 وحتى 100:
Private sub command1_click()
Dim Counter
Counter=1
Do While Counter < 100

Counter = Counter + 1

Loop
Text1.text=counter
Endsub


مثال : اكتب برنامج بلغة الفيجول بيسك لإيجاد حاصل جمع الأعداد من 1 إلى 10 باستخدام Do—Loop while
افتح برنامج الفيجول بيسك وضع على النموذج ( form) أداة ال Command ثم أداة ال Text








لقد انتهينا من دراسة أساسيات Visual Basic الأساسية، وسنعرض في الفصول القادمة كيفية بناء تطبيقات متنوعة باستخدام أدوات وأوامر Visual Basic، وسيتم شرح كيفية استخدام معظم أدوات وأوامر Visual Basic في المحاضرات التالية.