IBM Lotus Symphony
|
يتم استدعاء 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