Петросьянц В.В. Измерительно-вычислительные комплексы (канал общего пользования)
Подождите немного. Документ загружается.
140
Рис. 53. Блок-схема структуры программы
Первые два пункта меню процедуры I_Аll предназначены для ознакомле-
ния пользователя с лабораторной установкой и целью выполнения лаборатор-
ной работы. Это осуществляется с помощью текстового файла P_Work и моду-
ля PR_DESC. Модуль PR_DESK включает в себя внешний вид лабораторной
установки и текстовый файл DESK, в котором содержится информация о том,
как нужно проводить лабораторную работу. Например, в нем содержится ин-
формация об адресах приборов, которые нужно установить перед началом ра-
боты. Третий пункт меню вызывает модуль IOUtil, который организует процесс
обмена данными в ИВК. Модуль IOUtil в процессе своей работы использует
модули SUNCH и R GRAPH. Модуль SUNCH содержит процедуры, позволяю-
щие синхронизировать процесс обмена данными между устройствами, входя-
щими в учебный ИВК. Модуль R_GRAPH содержит средства построения гра-
фиков температурных зависимостей сопротивления терморезисторов по изме-
ренным и рассчитанным по формуле (15) значениям.
Организация процесса обмена данными выполняется модулем IOUtil.
Входными (заданными) данными для этого модуля являются три величины: пе-
141
ременная Temp, содержащая массив заданных значений температуры; перемен-
ная Str_Vol, представляющая собой строку данных программирования вольт-
метра, и Str_Gen, представляющая собой строку данных программирования ге-
нератора. Выходными данными для этого модуля являются массив полученных
в результате измерения цифровым вольтметром значений сопротивлений Copr
и соответствующих ему значений температуры Temp. Последовательность про-
цесса обмена данными (модуль IOUtil) представлена на рисунке 54.
Рис. 54. Схема обмена данными в модуле IOUtil
К сервисным процедурам относятся следующие процедуры: Grad, Arrow,
St_Line, Draw, Volt, Gen. Процедуры Grad, St_Line, Draw и Arrow определяют с
использованием графического режима экрана его внешний вид, на котором по-
казаны значения температуры для выбора, а также информация об управлении
курсором. Процедуры Volt и Gen отображают на экране контрольную инфор-
мацию о строках данных программирования вольтметра и генератора, что дает
142
возможность пользователю иметь представление о том, на какие режимы рабо-
ты запрограммированы приборы.
Программирование приборов осуществляется с помощью VoltInit и Sout.
Процедуры в тексте программы вызываются друг за другом, что позволяет объ-
единить их алгоритмы работы в один (рис. 55).
Рис. 55. Блок-схема алгоритма программирования приборов
Первый вызов процедуры Sout - Sout (1) посылает в КОП две команды:
СБУ и МАП. Команда МАП передается с адресом вольтметра. В результате ее
выполнения вольтметр переходит в состояние адресован на прием ( СПАД).
Второй вызов процедуры Sout -Sout (2) позволяет передавать в КОП команды
программирования вольтметра, учитывая что УП=1 и вольтметр находится в
состояние СПАК, эти команды настраивают прибор на выполнение опре-
деленных действий. Третий вызов процедуры Sout - Sout (3) посылает в КОП
команду МАИ с адресом вольтметра. Вольтметр переходит в состояние СИАД.
Четвертый вызов процедуры Sout - Sout (4) посылает в КОП команду МАП с
адресом генератора. В результате чего генератор переходит в состояние СПАД.
На этом процесс программирования вольтметра на передачу измерительных
143
данных в КОП, а генератора на прием данных заканчивается.
Вывод на индикатор генератора значения температуры, при которой
производится измерение, осуществляется процедурой Sin. Эти процедуры
изменяют сигнал УП на линии интерфейса КОП из значения 1 в 0 и, наоборот,
осуществляют поочередно перевод интерфейсных функций - для генератора
"приемник", а для вольтметра "источник"- из состояния СПАД (СИАД) в со-
стояние СПАК (СИАК). Результатом процедуры Sin является переменная S ти-
па String, в которой содержится информация о величине сопротивления, полу-
ченной в результате измерения. Функция R1 преобразует переменную S, выде-
ляя из нее информацию о величине сопротивления, в переменную RR типа
REAL. Значение этой переменной заносится в массив Corp. Когда закончены
все измерения, формируется массив Corp, содержащий информацию о величине
сопротивления терморезистора, соответственно заданным значениям
температуры. Используя данные этих массивов, процедура Grafik, содержащая-
ся в модуле R_Graph, производит построение графиков температурных зависи-
мостей терморезисторов по измеренным значениям и по формуле (14).
4.4.3. Листинг программы управления учебным ИВК
{Основное меню программы}
Unit M_Menu;
Interface
Uses Crt,Routine,PR_Desc,IOUtil;
Procedure I_All;
Implementation Procedure I_A11;
Const
Max_Item=4;
Len_Item=40;
menu:array[l..Max_Item] of string[40]=(
" - Цель работы ",
" - Описание лабораторной установки ",
" - Выполнение работы ",
" - Выход ";
Var i, Item:Byte;
х1,уl :Integer;
Procedure prNew;
144
begin
Wrt_atr(xl-2,yl-l+Item*2,Attrb,Menu[Item];
end;
Procedure pr_;
begin
W(xl-l,yl+Item*2-l,xl+Len_Item-2,yl+Item*2-l, Black,32);
W(xl-l,yl+Item*2-l,xl+Len_Item-2,yl+Item*2+l,Black,32);
TextColor(7);
GotoXY(xl,yl+Item*2);write(Menu[Item]);
end;
Procedure DrawMenu;
var i:Integer;
begin
ClrScr;
TextColor(7);
for i:=l to Max_Item do
begin
GotoXY(xl,yl+i*2);
write(Menu[i];
end;
bar_(xl-2,yl,xl+Len_Item,yl+Max_Item*2+2,2);
end;
begin
xl:=20; yl+4;
Item:=1;
c:=0; Sim:=0;
Done:=False; Draw_Menu;
prNew;
Repeat
if c=l then begin
Case Sim of
80: begin
if Item<Max_Item Then
begin
pr_;Inc(Item);prNew;
end;
end;
72: begin
if Item>l Then
begin
pr_;Dec(Item);prNew;
end;
end;
8l: begin
145
pr_;item:=Max_Item;prNew;
end;
73: begin
pr_;item:=l;prNew;
end;
end;
end;
if (sim=13)or(sim=27) then
begin
if (sim=27)or((sim=l3)and(Item=Max_Item))
then Done:=True
else begin
ClrScr;
Case Item of
l:Print<"P^work.txr,5,1.78,22,LightGray);
2: Out.text;
3: I_Work;
end;
ClrScr;
Draw_Menu;
prNew; Key(c,sim);
end
end
else Key(C,Sim);
Until Done;
ClrScr;
TextColor(LightGray);
Done:=False;
end;
end.
{Модуль организации процесса обмена данными в ИВК}
Unit IOUtil;
Interface
Uses Crt,Graph,Routine,R_Graph,Sunch;
Procedure I_Work;
Implementation
Procedure I_Work;
Const
X=720;
N=14;
{массив заданных значений температуры}
temp:array[l..N] of integer=
(25,30,35,40,45,50,55,60,65,70,75,80,85,90);
146
{строка программирования вольтметра}
Str_Vol:string=#$14#$21#$00#$46#$32#$42#$36#$44#$30#$45#$00#$41#$00;
{строка программирования генератора}
Str_Gen:string=#$14#$22#$00#$47#$46#$20#$20#$44#$00;
{адреса портов}
Port_A=$300;
Port_B=$301;
Port_C=$302;
Port_M=$303;
{системные константы}
CRY1=$80;
CRY2=$40;
CRY3=$00;
Type
Tp_l=Array[1..13] of String[30];
Tp_2=Array[1..9] of String[30];
CL =Array[1..14] of Integer;
Var
Corp:C; {массив измеренных значений сопротивления}
Gd,gm,i,Item,col,Yl :Integer;
RR:real;
Done: Boolean;
Tmpl:T;
c,sim:Byte;
m:Char;
S,Sl,S_old:String;
state:Tp_l;
St:Tp_2;
Tmpr:T; {массив определенных значений температуры}
Function Rl(S:String;var R:Real):Boolean;
{преобразование формата данных}
var
C:Word;
begin
S:=Copy(S,3,Length(S)-3);
Val(S,RR,C);
R1:=C=0;
end;
Procedure SOut(S:String;var Ch:Byte);
{организация управления выводом}
var
I,M:Byte;
begin
Source_l;
147
While (Byte(S[Ch])<>$00) and (I<=Length(S))
do
begin
M:=Byte(S[Ch]);
Source_2(M);
Inc(Ch);
end;
end;
Procedure Sin(var S:String);
{организация управления вводом}
var
M:Byte;
begin
S:="";
M:=0;
{переключение режима работы порта}
asm
{запоминание ОИ=1}
mov al,0Ch
mov dx,Port_B
out dx,al
mov al,04h
out dx,al
{режим порта 91-ввод}
mov al,91h
mov dx,Port_M
out dx,al
{УП=1}
mov al,0Eh
mov dx,Port_B
out dx,al
mov al,06h
out dx,al
end;
Resiver_l;
While M<>$10 do begin
Resiver_2(M);
if M<>$10 Then S:=S+Char(M);
end;
{запоминание значения ОИ=1}
asm
mov al,0Ch
mov dx,Port_B
out dx,al
148
mov al,04h
out dx,al
end;
end;
Procedure Volt(S:String; var State:Tp_l);
{отображение контрольной информации вольтметра}
var i:Byte;
begin I:=l;
for I:=l to Length(S) do
begin
Case s[i] of
#$32:begin
if S[i-1]=#$46 then state[i]:=" Измерение R";
if S[i-1]=#$42 then state[i]:=" 200 кОм";
end;
#$30:begin
if S[i-1]=#$44 then state[i]:=" Внутренний";
if S[i-1]=#$42 then state[i]:=" 20 Мом";
end;
#$31:begin
if S[i-1]=#$44 then state[i]:="Bешний";
if S[i-1]=#$42 then state[i]:=" 2000 кОм";
end;
#$46:state[i]:="Режим";
#$45:state[i]:=" Конец программы";
#$44:state[i]:="Bид запуска";
#$42:state[i]:="Предел";
#$36:state[i]:="ABП";
#$35:state[i]:="200 Ом";
#$34:state[i]:="2 кОм";
#$33:state[i]:="20 кОм";
#$14:state[i]:="CBУ";
#$21:state[i]:="MAП";
#$41:state[i]:="MAИ";
#$00:state[i]:="Bыход";
end;
end;
end;
Procedure Gen(S:String; var State:Tp_2);
{отображение контрольной информации генератора}
var i:Integer;
begin
for i:=l to Length(S) do
begin
149
Case s[i] of
#S00: state[i]:= "Выход";
#$14: state[i]:= "СБУ";
#$22: state[i]:= "МАП";
#$30: state[i]:= "0";
#$31: state[i]:= "1";
#$32: state[i]:= "2";
#$33: state[i]:= "3";
#$34: stateli]:= "4";
#$35: state[i]:= "5";
#$36: state[i]:= "6";
#$37: state[i]:= "7";
#$38: state[i]:= "8";
#$39: state[i]:- "9";
#$46: state[i]:= "Установка f"
#$45: state[i]:= "Установка U;
#$44: state[i]:= "Hz";
#$48: state[i]:= "kHz";
#$42: state[i]:= "MHz";
#S43: state[i]:= "mV";
#S47: state[i]:= "Очистить табло";
#$2E: state[i]:= "Набор точки";
end;
end;
end;
Procedure VoltInit(S:string);
{программирование вольтметра}
var
I:Byte;
begin I:=l;
while I<Length(S) do begin
asm
{режим порта 88-вывод}
mov al,88h
mov dx,Port_M
out dx,al
{ ОИ=0}
mov al,08h
mov dx,Porl_B
out dx,al
mov al,00h
out dx,al
{ОИ=1, УП=0}
mov al,0Ch