Петросьянц В.В. Измерительно-вычислительные комплексы (канал общего пользования)
Подождите немного. Документ загружается.
150
out dx,al
mov ai,04h
out dx,al
end;
{вывод программных данных}
SOut(S,I);
asm
{УП=1}
mov al,0Eh
mov dx,Port_B
out dx,al
mov al,06h
out dx,al
end;
{вывод программных данных}
SOut(S,I);
asm
{УП=0}
mov al,0Ch
mov dx,Port_B
out dx,al
mov al,04h
out dx,al
end;
{Вывод команды МАИ}
SOut(S,I);
end;
end;
Procedure GenInit(S:string);
{вывод на индикатор генератора}
var
I:Byte;
begin
I:=4;
while I<Length(S) do begin
asm
{ УП=1}
mov al,0Eh
mov dx,Port_B
out dx,al
mov al,06h
out dx,al
end;
{вывод данных}
151
SOut(S,I);
asm
{УП=0}
mov al,0Ch
mov dx,Port_B
out dx,al
mov al,04h
out dx,al
end;
end;
end;
{Процедуры Grad, Arrow, St Line, Draw}
{определяют внешний вид экрана}
Procedure Grad;
var i: Integer;
begin
Ellipse(X-115,40,0,180,40,20);
Line(X-155,41,X-155,220);
Line(X-75,X-75,220);
Arc(X-140,220,180,260,15);
Arc(X-90,220,280,360,15);
Arc(X-145,242,0,80,15);
Arc(X-85,242,100,180,15);
Line(X-130,242,X-130,290);
Line(X-100,242,X-100,290);
Arc(X-115,290,180,360,15);{{}
Line(X-119,40,X-119,290);
Line(X-l11,40,X-111,290);
Line(X-119,40,X-lll,40);
Sector(X-l15,290,0,360,8,5);
Y1:=219;
for i:=l to N do begin
Line(X-140,Yl,X-125,Yl);
Line(X-106,Yl,X-9l,Yl);
Y1:=Y1-13;
end;
SetTextStyle(2,0,4);
Yl:=207;
i:=l;
while i<N do begin
Str(Temp[i],S);
Str(Temp[i+l],Sl);
OutTextXY(X-102,Yl,S);
OutTextXY(X-140,Yl-13,Sl);
152
Yl:=Yl-26;
i:=i+2;
end;
SetLineStyle(0,0,3);
Line(X-115,290,X-l15,240);
SetLineStyle(0,0,l);
end;
Procedure Arrow(y:Integer;Color:Byte);
begin
SetColor(Color);
Line(X-290,y,X-265,y);
end;
Procedure St__Line(s:String);
begin
SetLineStyle(0,0,l);
Line(GetMaxX,l,GetMaxX,GetMaxY);
Line(l,l,l,GetMaxY);
Line(l,l,GetMaxX,l);
Line(l ,GetMaxY,l ,GetMaxX,GetMaxY);
OutTextXY(GetMaxX-600,GetMaxY-19,S);
Line(2,320,GetMaxX-2,320);
end;
Procedure draw;
var i:Integer;
begin
SetColor(White);
SetTextStyle(7,1,4);
OutTextXY(X-80,30,"Thermometr");
Line(X-260,20,X-200,20);
Line(X-260,20,X-260,300);
Line(X-260,300,X-200,300);
Line(X-200,20,X-200,300);
SetTextStyle(7,0,l);
OutTextXY(X-240,0,"t° C");
Yl:=280;
for i:=l to N do begin
Str(Temp[i],S);
Line(X-260,Yl,X-200,Yl);
OutTextXY(X-240,Yl-2,S);
Yl:=Yl-20;
end;
end;
begin
gd:=detect;
153
InitGraph(gd,gm,"");
for i:=l to 14 do Tmpl[i]:=0
OutTextXY(X-6lO,10,"KOДИPOBAHИE");
OutTextXY(X-610,20,"BOЛЬTMETPA");
OutTextXY(X-455,10,"KOДИPOBAHИE");
OutTextXY(X-455,20,'ГEHEPATOPA");
Line(X-630,5,X-330,5);
Line(X-630,5,X-630,230);
Line(X-330,5,X-330,230);
Line(X-630,230,X-330,230);
Line(X-630,30,X-330,30);
Line(X-485,5,X-485,230);
for I:=l to 13 do State[i]:="";
Volt(Str_vol,State);
for I:=l to 13 do OutTextXY(X-620,30+i*14,State[i]);
for I:=l to 9 do st[i]:="";
Gen(Str_gen,St);
for I:=1 to 9 do OutTextXY(X-460,30+i*14,St[i]);
St_line("Esc- выход Enter- ввод значения t° С");
SetColor(l5);
Draw;
Grad;
Arrow(290, White);
Done:=False;
Item:=0;
S_01d:=""; s:="";
s:=Str_vol; { интерфейсная функция вольтметра}
VoitInit(S); {" источник" в состоянии СИАД}
S:=Str_Gen; { интерфейсная функция генератора}
I:=2; {" приемник" в состоянии СПАД}
Sout(S,I);
{цикл выбора значений температуры}
Repeat
Key(c,sim);
if (с=1) and (sim=80) and (Item>=l) then
begin
Arrow(290-(Item)*20,Blak);
Dec(Item);
Arrow(290-(Item)*20,white);
end;
if (c=l) and (sim=72) and (Item<13) then
begin
Arrow(290-(Item)*20,Blak);
Inc(Item);
154
Arrow(290-(Item)*20,white);
end;
if (c=0) and (sim=13) and (Item<14) then
begin
if Tmpl[Item+1]<>0 then write(#7)
else
begin
Bar(X-258,282-Item*20,X-202,298-Item*20);
Tmpl[Item+l]:=Item+l;
Str(temp[item+l],S);
SetTextStyle(0,0,l);
SetColor(Black);
OutTextXY(X-460,114,S_01d[l]);
OutTextXY(X-460,128,S_01d[2]);
SetColor(15);
OutTextXY(X-460,114,Stl]);
OutTextXY(X-460,128,S[2]);
SetColor(0);
SetTextStyle(7,0,l);
OutTextXY(X-240,278-Item*20,s);
OutTextXY(X-239,278-Item*20,s);
SetColor(15);
SetLineStyle(0,0,3);
Line(X-115,290,X-115,2l9-Item*13);
SetLineStyle(0,0,l); S_old:=S;
Insert(S,Str_Gen,6); { перевод интерфейсных}
S:=Str_Gen; { функций: генератора}
GenInit(S); {" приемник" в СПАК}
SIn(S); { и вольтметра "источник"}
RL(S,RR); { в СИАК}
Copr[Item+l]:=RR;
if item=13 then
begin
SetTextStyle(0,0,0);
OutTextXY(X-590,250,"Измерения закончены");
QutTextXY(X-590,270,"Вывести график ? д/н");
m:=Readkey;
if (m<>"н") and (m<>"H")
then
begin
CloseGraph;
InitCraph(Gd,Gm,"");
{построение графиков}
Grafik(Tmpr,Tmpl);
155
readln;
c:=0;sim:=27;
end
else Done:=True;
Cur_off;
end
else
begin
Arrow(290-(Item)*20,Black);
Inc(Item);
Arrow(290-(Item)*20,White);
end;
end;
end;
if (c=0) and (sim=27) then Done:=True;
Until Done;
CloseGraph;
Done:=False;
end.
156
ЛИТЕРАТУРА
1. Капиев Р.Э. Измерительно-вычислительные комплексы.- Л.: Энерго-
атомиздат, 1988.- 176 с: ил.
2. Древс Ю.Г., Зорин А.Л. Применение ПЭВМ в системах измерения и
обработки данных. Ч.2 Технические средства сбора и обработка информации в
измерительно-вычислительных комплексах: Учеб. пособие.- М.: МИФИ, 2001.
3. Цапенко М.П. Измерительные информационные системы: Структуры и
алгоритмы, системотехническое проектирование.: Учеб. пособие для вузов.- 2-е
изд., перераб. и доп.- М.: Энергоатомиздат, 1995.- 439 с: ил.
4. Выбор микроЭВМ для информационных систем: Учеб. пособие для вту-
зов/Соломатин Н.М., Шервитис Р.П., Макшанцев М.М.-М.: Высш. шк., 1987.- 120 с.
5. ГОСТ 26.003-80. Система интерфейса для измерительных устройств с
байт-последовательным, бит-параллельным обменом информацией. - М.: Изд-
во стандартов, 1980.
6. Мячев А.А., Иванов В.В. Интерфейсы вычислительных систем на базе
мини- и микро-ЭВМ.- М.: Радио и связь, 1986.- 248 с.
7. Сопряжение датчиков и устройств ввода данных с компьютерами IBM
PC: Пер. с англ./Под ред. У. Томпкинса, Дж. Уэбстера.-М.: Мир, 1992.- 592 с, ил.
8. Генератор сигналов низкочастотный прецизионный ГЗ-122.: Техниче-
ское описание и инструкция по эксплуатации./ 3.268.049 ТО, ч.1. - М.: Изд-во
стандартов, 1989. - 151 с.
9. Вольтметр универсальный цифровой В7-40/1.: Техническое описание и ин-
струкция по эксплуатации./Тг2.710.016 ТО, ч.1. -М.: Изд-во стандартов, 1988. - 130 с.
10. Микропроцессорный комплект К1810: Структура, программирование,
применение.- М.: Выс. шк., 1990.- 269 с.
11. Микропроцессоры 8086/8088/. Справочник. - М.: Мир, 1992. - 280 с.
12. Зуев Е.А. Язык программирования Turbo Pascal 6.0.- М.: Унитех, 1992.- 298 с.
13. Джодейн Р. Справочник программиста персональных компьютеров
типа IBM PC, XT и AT. - М.: Финансы и статистика, 1992.- 544 с.
14. Сташин В.В. Проектирование цифровых устройств на одно-
кристальных микроконтроллерах.- М.: Энергоатомиздат, 1990.- 224 с.
15. Атовмян И.О. Архитектура вычислительных систем: Учеб. Пособие.-
М.: МИФИ, 2002.
157
ОГЛАВЛЕНИЕ
ВВЕДЕНИЕ ..............................................................................................................3
1. ОБЩИЕ ВОПРОСЫ ПОСТРОЕНИЯ И ПРИМЕНЕНИЯ ИЗМЕРИТЕЛЬНО-
ВЫЧИСЛИТЕЛЬНЫХ КОМПЛЕКСОВ.................................................................5
1.1. Государственная система приборов и агрегатные комплексы ....................8
1.2. Программное обеспечение ИВК..................................................................11
1.3. Показатели качества ИВК............................................................................16
1.4. Принципы проектирования ИВК.................................................................20
2. ПРИБОРНЫЙ ИНТЕРФЕЙС IEC 625-1...........................................................27
2.1. Функции интерфейса....................................................................................33
2.1.1. Классы функций и их характеристика......................................................33
2.1.2. Функция интерфейса "синхронизация источника" (СИ).......................37
2.1.3. Функция интерфейса "синхронизация приема" (СП)...............................41
2.1.4. Функция интерфейса "источник" (И)......................................................44
2.1.5. Функция интерфейса "приемник" (П).......................................................50
2.1.6. Функция интерфейса "запрос на обслуживание" (3)...............................54
2.1.7. Функция интерфейса "дистанционный местный" (ДМ)........................56
2.1.8. Функция интерфейса "параллельный опрос" (ОН)..................................59
2.1.9. Функция интерфейса "очистить устройство" (СБ)..............................63
2.1.10. Функция интерфейса "запуск устройства" (ЗП)..................................65
2.1.11. Функция интерфейса "контроллер" (К)................................................66
2.2. Временная последовательность и алгоритм процесса синхронизации..........75
2.3. Временная последовательность процесса идентификации при запросе
на обслуживание .................................................................................................78
2.4. Коды и форматы сообщений устройств ......................................................78
2.4.1. Структура форматов сообщений ..............................................................79
2.4.2. Данные измерения .....................................................................................88
2.4.3. Программные данные................................................................................90
2.4.4. Данные о состоянии ..................................................................................92
158
2.4.5. Данные индикации ....................................................................................94
2.4.6. Общие правила кодирования ....................................................................95
2.4.7. Представление недесятичных данных.....................................................96
2.4.8. Примеры предпочтительных форматов сообщений ...............................96
3. СИСТЕМНЫЙ ИНТЕРФЕЙС КОМПЬЮТЕРА IBM PC.................................98
3.1. Системная шина компьютера IBM PC........................................................99
3.2. Карта распределения и временные диаграммы ввода-вывода IBM PC............102
3.3. Буферизация и декодирование содержимого шины.................................106
3.4. Сопряжение компьютера IBM PC с микросхемой порта ВВ типа Intel
8255....................................................................................................................108
4. УЧЕБНЫЙ ИВК С КАНАЛОМ ОБЩЕГО ПОЛЬЗОВАНИЯ .......................113
4.1. Структурная схема и алгоритм функционирования .................................113
4.2. Сопряжение КОП с IBM PC.......................................................................114
4.2.1. Контроллер-адаптер ................................................................................114
4.2.2. Программа-драйвер .................................................................................117
4.3. Условия функционирования приборов стандарта КОП...........................122
4.3.1. Генератор сигналов ГЗ-122.................................................................122
4.3.2. Вольтметр универсальный цифровой В7-40/1.......................................129
4.3.3. Персональный компьютер IBM PC........................................................136
4.4. Программное обеспечение автоматизированной системы поверки
терморезисторов................................................................................................137
4.4.1. Постановка задачи программирования ..................................................137
4.4.2. Структура программы .............................................................................139
4.4.3. Листинг программы управления учебным ИВК....................................143
Литература............................................................................................................156
159
Напечатано с оригинал-макета, подготовленного автором
Учебное пособие
Виктор Владимирович Петросьянц
ИЗМЕРИТЕЛЬНО-ВЫЧИСЛИТЕЛЬНЫЕ КОМПЛЕКСЫ
(канал общего пользования)
Редактор Е.П. Горовенко
Лицензия №020466 от 04.03.92 г.
Подписано в печать 5.06.96 г. Формат 60x84/16.
Печать офсетная. Усл. печ. л. 8,8. Уч.-изд. л. 8,6.
Тираж 100 экз. Зак. №152. Цена «С».
Отпечатано в типографии издательства ДВГТУ,
Владивосток, Пушкинская, 10