Основы автоматизированного проектирования химических производств. Миронов В.М - 155 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

155
ПРИМЕР 7
LOCATE 5, 1
PRINT "Введите значение модуля упругости, МПа "
E = inmark(5, 60)
Примечание: использование функции возможно и в цикловых структу-
рах.
menu(z$, c$(), r, x, y) – формирует на экране меню вертикального выбо-
ра, состоящее из заголовка и пунктов выбора.
При активизации данной функции программа переходит в режим ожи-
дания нажатия клавиш <Enter>, <стр.вниз> или <стр.вверх>. При нажатии
клавиши <Enter>
происходит выход из меню и возвращается порядковый но-
мер выбранного пункта.
Имеет следующие параметры:
z$ – заголовок меню;
c$() – массив символьных переменных, являющихся пунктами выбора;
r – число элементов массива c$();
x и y – координаты левого верхнего угла окна меню,
x – номер строки, y - номер колонки.
ПРИМЕР 8
с$ = " Тип аппарата "
B$(1) = " C цилиндрической рубашкой "
B$(2) = " Со змеевиком "
B$(3) = " Другой тип "
с = menu (с$, b$(), 3, 5, 10)
В результате на экране появится окно меню с "подвижным" маркером ,
который можно стрелками установить, например, на пункт " Cо змеевиком "
и нажать <Enter>. При этом переменной С присвоится значение 2 , по кото-
рому в программе осуществляется передача управления в таких операторах
,
как IF, ON или SELECT CASE, а программа продолжится.
ogid – создает паузу в программе и переводит машину в режим ожида-
ния нажатия клавиши. После нажатия возвращает ACCII – или SCEN – код
нажатой клавиши.
ПРИМЕР 9
PRINT "Для продолжения нажмите любую клавишу"
cod = ogid().
При нажатии клавиш переменной cod присвоится значение клавиши
<пробел>, cod = 32;
клавиши <Enter> , cod = 13;

Страницы