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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

160
oth$(sx) = "Теплоемкость среды в аппарате, Дж/кг/К............" + nog$(c, 3):
GOSUB shet
oth$(sx) = "Динамический коэф-т вязкости среды, мПа*с........." +
nog$((mu * 1000), 3): GOSUB shet
oth$(sx) = SPACE$(61): GOSUB shet
IF qsq <> 0 THEN
oth$(sx) = "Тип реакции " + kind$(qsq): GOSUB shet
oth$(sx) = "Теплота за счет химической реакции, Вт............" + nog$(Qr,
3): GOSUB shet
oth$(sx) = SPACE$(61): GOSUB shet
END IF
SELECT CASE meh
CASE 1
oth$(sx) = "Тип мешалки:................. " + meh$(tipm): GOSUB shet CASE 2
oth$(sx) = "Тип мешалки:................. " + meht$(tipm): GOSUB shet END
SELECT
.......
saveprn (oth$(), 1)
.......
shet:
sx = sx + 1: RETURN
Результат: при входе в процедуру машина переходит в режим ожидания
нажатия клавиш:
<F2> – запись
в файл (scen-код 60);
<F9> – вывод на принтер (scen-код 67);
<Esc> – в данном примере (scen-код 1).
В зависимости от нажатия той или иной клавиши выводятся необходи-
мые окна с соответствующими запросами
Примечание: указание на экране функций клавиш <F2>, <F9>, <Esc>
производится в составляемой программе.
scencod() – прерывает работу программы, переводит машину в режим
ожидания нажатия клавиши или их
комбинации, возвращает scen-код клави-
ши.
Параметры: без параметров.
ПРИМЕР 19
cod = scencod
SELECT CASE cod
CASE 80 ' стрелка вниз
......
CASE 81 ' PgDn
......

Страницы