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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

161
CASE 72 ' стрелка вверх
......
CASE 73 ' PgUP
......
CASE 117 ' ^End
......
CASE 119 ' ^Home
......
END SELECT
Примечание: scan-коды клавиш можно найти в соответствующей лите-
ратуре.
viewwind(str1!, col1!, str2!, col2!, fistcol!, clpl!, clr, cltxt!, oth$(), rez) (*)
– (окно просмотра) – позволяет выводить массив символьных переменных в
указанную область экрана, с дополнительными функциями просмотра и вы-
вода их в файл или на принтер.
Параметры:
str1!, col1! – координаты верхнего левого угла;
str2!, col2! – координаты правого нижнего угла
;
fistcol! – колонка начала вывода символьных переменных в строке (от-
счет ведется от начала строки экрана);
clpl!, clr, cltxt! – номера цветов фона окна, рамки, выводимого текста со-
ответственно;
oth$() – одномерный массив символьных переменных;
rez – scen-код клавиши для выхода из процедуры.
ПРИМЕР 20
......
sx = 1
SELECT CASE rub
CASE 1
oth$(sx) = "Аппарат снабжен гладкой цилиндрической рубашкой":
GOSUB shet
oth$(sx) = "Высота цилиндрической части рубашки, мм..........." +
STR$(Ht * 1000): GOSUB shet
oth$(sx) = SPACE$(61): GOSUB shet
CASE 2
oth$(sx) = "Аппарат снабжен рубашкой из полутруб": GOSUB shet
oth$(sx) = "Высота навивки рубашки, мм........................" + STR$(Ht *
1000): GOSUB shet
oth$(sx) = "Высота сегмента трубы рубашки, мм................." + STR$(Htr *
1000): GOSUB shet

Страницы