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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

157
В данном случае при печати 60-ти строк текста будет выведено окно, с
соответствующим сообщением и указанием к дальнейшим действиям.
uprfl(al$) – возвращает байт регистра AL в двоичном формате в качестве
символьной строки, предназначена для получения флагов клавиатуры на на-
жатие управляющих клавиш. В зависимости от состояния определенного би-
та (1 – нажата) можно судить
о нажатии той или иной клавиши.
Биты байта:
0 – Правый Shift,
1 – Левый Shift,
2 – Ctrl (любая),
3 – Alt (любая).
ПРИМЕР 12
'$INCLUDE: 'INT.BI'
...
CLS
A:
CALL uprfl(al$)
LOCATE 1, 1: PRINT al$ 'показывает состояние слова флагов
GOTO A
...
wind(x1, y1, x2, y2, cw, cr) – выводит на текстовый экран окно со сле-
дующими параметрами:
x1, y1 – координаты верхнего левого угла;
x2, y2 – координаты правого нижнего угла;
cw – цвет фона окна;
cr – цвет рамки.
yn(x, y) – предназначена для получения ответа "Да" или "Нет" на тот или
иной вопрос вашей программы. Выводит окно с
экранными кнопками. Реаги-
рует на нажатие двух клавиш:
Левый Shift – соответствует ответу "Нет", при этом возвращается 0;
Правый Shift – соответствует ответу "Да", возвращается 1.
Параметры x и y определяют координаты (строка, колонка) верхнего ле-
вого угла окна вывода.
ПРИМЕР 13
...
CLS
LOCATE 3, 10: PRINT "Вы уверены, что хотите покинуть программу"
с = yn(5, 25)
IF c = 0 THEN END

Страницы