Оператор 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; просмотров: 324. Нарушение авторских прав; Мы поможем в написании вашей работы!

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при которых тело находится под действием заданной системы сил...

Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

Шрифт зодчего Шрифт зодчего состоит из прописных (заглавных), строчных букв и цифр...

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

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

Приложение Г: Особенности заполнение справки формы ву-45 После выполнения полного опробования тормозов, а так же после сокращенного, если предварительно на станции было произведено полное опробование тормозов состава от стационарной установки с автоматической регистрацией параметров или без...

Измерение следующих дефектов: ползун, выщербина, неравномерный прокат, равномерный прокат, кольцевая выработка, откол обода колеса, тонкий гребень, протёртость средней части оси Величину проката определяют с помощью вертикального движка 2 сухаря 3 шаблона 1 по кругу катания...

Неисправности автосцепки, с которыми запрещается постановка вагонов в поезд. Причины саморасцепов ЗАПРЕЩАЕТСЯ: постановка в поезда и следование в них вагонов, у которых автосцепное устройство имеет хотя бы одну из следующих неисправностей: - трещину в корпусе автосцепки, излом деталей механизма...

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