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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

159
prsc(str1, str2, col1, col2, name$) (*) – выводит на экран ранее сохранен-
ную с помощью функции svsc область экрана.
Параметры:
str1!, col1! – координаты верхнего левого угла;
str2!, col2! – координаты правого нижнего угла;
name$ – имя файла для чтения информации с диска.
ПРИМЕР 17
......
svsc(2, 2, 20, 60, "obl1")
wind(2, 2, 20, 60, 0, 7)
SLEEP 10
prsc(2, 2, 20, 60, "obl1")
......
Результат: процедура svsc () сохраняет область экрана с координатами
(2, 2, 20, 60,), в эту же область процедура wind () выводит окно, происходит
задержка на 10 секунд; процедура prsc () восстанавливает закрытое окном
место.
saveprn(oth$(), rez) (*) – позволяет выводить массив символьных пере-
менных в файл или на принтер, обеспечивая необходимый сервис.
Параметры:
oth$() – одномерный массив символьных переменных;
rez – scen-код клавиши для выхода
из процедуры, кроме кодов 60 и 67.
ПРИМЕР 18
......
sx = 1
oth$(sx) = "Количество мат. потоков, поступающих в реактор...." +
STR$(kag): GOSUB shet
FOR I = 1 TO kag
oth$(sx) = " " + STR$(I) + " - й поток": GOSUB shet
oth$(sx) = "Массовый расход, кг/с............." + nog$(Gag(I), 3): GOSUB shet
oth$(sx) = "Теплоемкость, Дж/кг/К............." + nog$(Cag(I), 3): GOSUB
shet
oth$(sx) = "Температура на входе в реактор, °С..." + nog$(Tag(I), 3):
GOSUB shet
oth$(sx) = SPACE$(61): GOSUB shet
NEXT
oth$(sx) = "Требуемая температура в аппарате, °С.............." + nog$(t, 3):
GOSUB shet

Страницы