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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

162
oth$(sx) = "Диаметр труб рубашки, мм.........................." + STR$(Rt *
2000): GOSUB shet
oth$(sx) = "Шаг навивки рубашки, мм..........................." + STR$(Zt *
2000): GOSUB shet
oth$(sx) = SPACE$(61): GOSUB shet END SELECT
IF tplnos = 1 THEN
oth$(sx) = "Температура воды на входе в рубашку,°C............" +
STR$(T1): GOSUB shet
oth$(sx) = "Температура воды на выходе из рубашки,°C.........." +
STR$(T2): GOSUB shet
Gt = (FIX(Gt * 100)) / 100
oth$(sx) = "Расход воды в рубашке, кг/с......................" + STR$(Gt):
GOSUB shet
oth$(sx) = SPACE$(61): GOSUB shet END IF
oth$(sx) = "Коэффициент теплоотдачи от среды к рубашке,
Вт/(м^2*К)....." + STR$(INT(alf)): GOSUB shet
oth$(sx) = "Коэффициент теплоотдачи от теплоносителя в рубашке
,
Вт/(м^2*К)..." + STR$(INT(alft)): GOSUB shet
oth$(sx) = "Коэффициент теплопередачи в рубашке, Вт/(м^2*К)............"
+ STR$(INT(Ktepl)): GOSUB shet
oth$(sx) = SPACE$(61): GOSUB shet
.......
viewwind(2, 2, 8, 80, 5, 0, 7, 7, oth$(), 1)
.......
shet:
sx = sx + 1: RETURN
.......
Результат: При входе в процедуру на экране появляется окно с коорди-
натами (2, 2, 10, 80) с первыми поместившимися в нем символьными пере-
менными. Далее машина переходит в режим ожидания нажатия клавиши и, в
зависимости от нажатой клавиши, отрабатывает следующие
команды:
<стрелка вверх> – на строку вверх;
<PgUP> – на страницу вверх;
<стрелка вниз> – на строку вниз;
<PgDN> – на страницу вниз;
<^Home> – в начало текста;
<F2> – запись в файл;
<^End> – в конец текста;
<F9> – вывод на принтер;
<Esc> – выход из процедуры (в данном примере).
Примечание: вывод на экран функций управляющих клавиш произво-
дится при
необходимости как подсказка составителем программы.

Страницы