البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

[shamal]

3- الانتقال (GOTO):
في هذه القاعدة يتم الانتقال من جزء إلى جزء آخر في البرنامج أثناء تنفيذه. وهناك نوعان من الانتقال:
أ- الانتقال غير المشروط : ويعني " الانتقال لسطر محدد دون التقيد بأي شرط " ، ويكون حسب الصيغة التالية:
GOTO line
حيث line يعني رقم السطر المراد الانتقال إليه ، ومثال ذلك :
Dim N As String , D as Single
N="احمد"
GoTo AA
….
….
AA:
D= 48.5
ملاحظة: ينتهي رقم السطر المنتقل إليه بـ( : )
شرح البرنامج :
السطر الأول: تعريف المتغير (N) من نوع نص (String) ، والمتغير (D ) من نوع عدد عشري (Single).
السطر الثاني: إسناد قيمة "محمد عمر" إلى المتغير (N ).
السطر الثالث: يتم الانتقال بواسطة (GoTo) إلى السطر (AA).
السطر الرابع والخامس: عدة أوامر بعد قاعدة (GoTo).
السطر السادس: السطر الذي سينتقل إليه البرنامج بعد تنفيذ الأمر (GoTo AA).
السطر السابع: الأمر الذي سينفذه البرنامج بعد الانتقال إلى السطر (AA) حيث سيخزن القيمة (48.5) في المتغير (D).
ب- الانتقال المشروط : ويعني " الانتقال لسطر محدد عندما يتحقق شرط معين " ، ويكون مصاحباً لإحدى عمليات الشرط والمقارنة ، كما في الصيغة التالية :
IF condition THEN GOTO line
حيث condition يعبر عن الشرط ، و line يعني رقم السطر المراد الانتقال إليه.
والمثال التالي يوضح الانتقال المشروط:
IF D >= 90 THEN GOTO A
IF D < 90 THEN GOTO B
A:
Text1 = "ممتاز"
GoTo C
B:
Text1 = "جيد جداً"
C:
Print Text1
شرح البرنامج :
السطر الأول: شرط للتحقق من قيمة المتغير (D) ، فإذا كانت قيمته أكبر من أو تساوي 90 فإن البرنامج سينتقل إلى السطر (A).
السطر الثاني: شرط للتحقق من قيمة المتغير (D) ، فإذا كانت قيمته أقل من 90 فإن البرنامج سينتقل إلى السطر (B).
السطر الثالث: السطر الذي سينتقل إليه البرنامج بعد تنفيذ الأمر (GOTO A).
السطر الرابع والخامس: تخزين قيمة "ممتاز" في المتغير (Text1) ، ثم الانتقال إلى السطر (C).
السطر السادس: السطر الذي سينتقل إليه البرنامج بعد تنفيذ الأمر (GOTO B).
السطر السابع: تخزين قيمة "جيد جداً" في المتغير (Text1).
السطر الثامن: السطر الذي سينتقل إليه البرنامج بعد تنفيذ الأمر (GOTO C).
السطر التاسع: طباعة قيمة المتغير (Text1) بواسطة الأمر (Print).
ولا يفضل استخدام طريقة الانتقال في البرنامج، لأنها تجعل من الصعب متابعة خطوات البرنامج ، خاصة عندما تكون تلك الخطوات كثيرة، والبرنامج الجيد تتتابع خطواته بصورة سلسلة ومنطقية، ولا يحدث انتقال إلا في حالات قليلة.
ملاحظة /
عند انتقال تنفيذ البرنامج بواسطة الأمر (GOTO) فإن البرنامج سيستمر بتنفيذ الأوامر التي بعد السطر الذي انتقل إليه ولن يعود لتنفيذ الأوامر التي بعد (GOTO).