Оператор SUB...END SUB

⇐ Предыдущая 16 17 18 19 202122 23 24 25 Следующая ⇒

Удобнее создавать процедуру в виде отдельного модуля. В этом случае надо:

1 Взять из меню EDIT команду New Sub...

2 Напечатать имя процедуры (без пробелов и других особых символов, используя только английские буквы и цифры)

3 Между SUB и END SUB пишем операторы процедуры.

4 Для возврата в основную программу выбираем из меню View команду Subs... и выбираем имя своей программы.

Общий вид процедуры:

SUB имя [(параметры)] [STATIC] [операторы] END SUB

То есть такой же, как и у функции пользователя.

Приведём пример процедуры BANG, которая очищает экран и печатает зелёным цветом в центр экрана слово "BANG" и ждёт нажатия клавиши:

SUB bang CLS LOCATE 12, 40 'помещаем курсор в центр экрана COLOR 2 'выбираем зелёный цвет PRINT "BANG" 'пишем слово bang COLOR 7 'выбираем снова серый цвет 'ждём нажатия клавиши... DO LOOP UNTIL INKEY$ <> "" 'очищаем экран... CLS END SUB

Эту программу можно использовать следующим образом:

PRINT " Hello World!" SLEEP 2 'спим 2 секунды 'вызываем подпрограмму оператором CALL CALL bang PRINT "Tere Maailm!" SLEEP 2 'спим ещё 2 сек CALL bang

Изменим предыдущую процедуру, сделав её зависимой от параметра:

SUB bang(tekst$) CLS 'очищаем экран LOCATE 12, 40 COLOR 2 PRINT tekst$ 'печатаем значение переменной tekst$ COLOR 7 DO LOOP UNTIL INKEY$ <> "" CLS END SUB

Основная программа, использующая эту процедуру может выглядеть следующим образом:

CALL bang("TÖÖ") CALL bang("TEGI") CALL bang("AHVIST") CALL bang("INIMESE")

⇐ Предыдущая 16 17 18 19 202122 23 24 25 Следующая ⇒

Дата добавления: 2015-09-07; просмотров: 331. Нарушение авторских прав; Мы поможем в написании вашей работы!

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

Краткая психологическая характеристика возрастных периодов.Первый критический период развития ребенка — период новорожденности Психоаналитики говорят, что это первая травма, которую переживает ребенок, и она настолько сильна, что вся последующая жизнь проходит под знаком этой травмы...

РЕВМАТИЧЕСКИЕ БОЛЕЗНИ Ревматические болезни(или диффузные болезни соединительно ткани(ДБСТ))— это группа заболеваний, характеризующихся первичным системным поражением соединительной ткани в связи с нарушением иммунного гомеостаза...

Решение Постоянные издержки (FC) не зависят от изменения объёма производства, существуют постоянно...

Разработка товарной и ценовой стратегии фирмы на российском рынке хлебопродуктов В начале 1994 г. английская фирма МОНО совместно с бельгийской ПЮРАТОС приняла решение о начале совместного проекта на российском рынке. Эти фирмы ведут деятельность в сопредельных сферах производства хлебопродуктов. МОНО – крупнейший в Великобритании...

ОПРЕДЕЛЕНИЕ ЦЕНТРА ТЯЖЕСТИ ПЛОСКОЙ ФИГУРЫ Сила, с которой тело притягивается к Земле, называется силой тяжести...

СПИД: морально-этические проблемы Среди тысяч заболеваний совершенно особое, даже исключительное, место занимает ВИЧ-инфекция...

Studopedia.info - Студопедия - 2014-2024 год . (0.008 сек.) русская версия | украинская версия