WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!


Pages:     | 1 |   ...   | 12 | 13 ||

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;

InitGraph(gd,gm,"");

for i:=l to 14 do Tmpl[i]:=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);

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);

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.

ЛИТЕРАТУРА 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.: Техническоеописаниеи инструкция по эксплуатации, 1988. - 130с.

./Тг2.710.016ТО, ч.1. -М.: Изд-во стандартов 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.

ОГЛАВЛЕНИЕ ВВЕДЕНИЕ..............................................................................................................1. ОБЩИЕ ВОПРОСЫ ПОСТРОЕНИЯ И ПРИМЕНЕНИЯ ИЗМЕРИТЕЛЬНОВЫЧИСЛИТЕЛЬНЫХ КОМПЛЕКСОВ.................................................................1.1. Государственная система приборов и агрегатные комплексы....................1.2. Программное обеспечение ИВК..................................................................1.3. Показатели качества ИВК............................................................................1.4. Принципы проектирования ИВК.................................................................2. ПРИБОРНЫЙ ИНТЕРФЕЙС IEC 625-1...........................................................2.1. Функции интерфейса....................................................................................2.1.1. Классы функций и их характеристика......................................................2.1.2. Функция интерфейса "синхронизация источника" (СИ).......................2.1.3. Функция интерфейса "синхронизация приема" (СП)...............................2.1.4. Функция интерфейса "источник" (И)......................................................2.1.5. Функция интерфейса "приемник" (П).......................................................2.1.6. Функция интерфейса "запрос на обслуживание" (3)...............................2.1.7. Функция интерфейса "дистанционный местный" (ДМ)........................2.1.8. Функция интерфейса "параллельный опрос" (ОН)..................................2.1.9. Функция интерфейса "очистить устройство" (СБ)..............................2.1.10. Функция интерфейса "запуск устройства" (ЗП)..................................2.1.11. Функция интерфейса "контроллер" (К)................................................2.2. Временная последовательностьи алгоритм процесса синхронизации..........2.3. Временная последовательность процесса идентификации при запросе на обслуживание.................................................................................................2.4. Коды и форматы сообщений устройств......................................................2.4.1. Структура форматов сообщений..............................................................2.4.2. Данные измерения.....................................................................................2.4.3. Программные данные................................................................................2.4.4. Данные о состоянии.................................................................................. 2.4.5. Данные индикации....................................................................................2.4.6. Общие правила кодирования....................................................................2.4.7. Представление недесятичных данных.....................................................2.4.8. Примеры предпочтительных форматов сообщений...............................3. СИСТЕМНЫЙ ИНТЕРФЕЙС КОМПЬЮТЕРА IBM PC.................................3.1. Системная шина компьютера IBM PC........................................................3.2. Карта распределенияи временныедиаграммыввода-вывода IBM PC............3.3. Буферизация и декодирование содержимого шины.................................3.4. Сопряжение компьютера IBM PC с микросхемой порта ВВ типа Intel 8255....................................................................................................................4. УЧЕБНЫЙ ИВК С КАНАЛОМ ОБЩЕГО ПОЛЬЗОВАНИЯ.......................4.1. Структурная схема и алгоритм функционирования.................................4.2. Сопряжение КОП с IBM PC.......................................................................4.2.1. Контроллер-адаптер................................................................................4.2.2. Программа-драйвер.................................................................................4.3. Условия функционирования приборов стандарта КОП...........................4.3.1. Генератор сигналов ГЗ-122.................................................................4.3.2. Вольтметр универсальный цифровой В7-40/1.......................................4.3.3. Персональный компьютер IBM PC........................................................4.4. Программное обеспечение автоматизированной системы поверки терморезисторов................................................................................................4.4.1. Постановка задачи программирования..................................................4.4.2. Структура программы.............................................................................4.4.3. Листинг программы управления учебным ИВК....................................Литература............................................................................................................ Напечатано с оригинал-макета, подготовленного автором Учебное пособие Виктор Владимирович Петросьянц ИЗМЕРИТЕЛЬНО-ВЫЧИСЛИТЕЛЬНЫЕ КОМПЛЕКСЫ (канал общего пользования) Редактор Е.П. Горовенко Лицензия №020466 от 04.03.92 г.

Подписано в печать 5.06.96 г. Формат 60x84/16.

Печать офсетная. Усл. печ. л. 8,8. Уч.-изд. л. 8,6.

Тираж 100 экз. Зак. №152. Цена «С».

Отпечатано в типографии издательства ДВГТУ, Владивосток, Пушкинская,

Pages:     | 1 |   ...   | 12 | 13 ||






















© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.