IBM Lotus Symphony


‏‎GoSub...Return Statement [Runtime]‎‏

يتم استدعاء subroutine يتم الاشارة اليه بواسطة علامة مميزة من Subroutine أو Function. يتم تنفيذ العبارات التي تلي العلامة المميزة حتى عبارة Return التالية. بعد ذلك، سيستمر البرنامج بالعبارة التي تلي عبارة GoSub.

الصيغة:

أنظر المعاملات

المعاملات:

Sub/Function

كتلة العبارة

علامة

كتلة العبارة

GoSub Label

Exit Sub/Function

التسمية:

كتلة العبارة

ارجاع

End Sub/Function

تقوم عبارة GoSub باستدعاء البرنامج المحلي الذي يتم توضيحه من خلال تسمية من أحد البرامج الفرعية أو الوظائف. يجب أن ينتهي أسم العلامة المميزة بنقطتين (":").

شارة التحذير اذا اكتشف البرنامج عبارة الارجاع غير مسبوقة بواسطة GoSub، سيقوم Lotus® Symphony™ Basic بارجاع رسالة خطأ. استخدم Exit Sub أو Exit Function للتأكد من أن البرنامج يترك Sub أو Function قبل الوصول لعبارة Return التالية.

يوضح المثال التالي استخدام GoSub و Return. من خلال تنفيذ جزء من البرنامج مرتين، يقوم البرناج بحساب الجذر التربيعي لرقمين تم ادخالهما بواسطة المستخدم.

مثال:

Sub ExampleGoSub

dim iInputa as Single

dim iInputb as Single

dim iInputc as Single

iInputa = Int(InputBox$ "Enter the first number: ","NumberInput"))

iInputb = Int(InputBox$ "Enter the second number: ","NumberInput"))

iInputc=iInputa

GoSub SquareRoot

Print "The square root of";iInputa;" is";iInputc

iInputc=iInputb

GoSub SquareRoot

Print "The square root of";iInputb;" is";iInputc

Exit Sub

SquareRoot:

iInputc=sqr(iInputc)

ارجاع

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية