Лабораторная работа №1

Уфимский Государственный Авиационный технический Университет

Кафедра АТС

Лабораторная работа по дисциплине:

«Технические средства автоматизации»

На тему:

«Сопряжение ПЭВМ IBM PC с информационно-измерительными устройствами систем управления»

Выполнил:

Проверил: Никитин Ю.А.

Уфа-2006

Цель работы:

Лабораторная работа выполняется с целью изучения схемотехники аппаратных средств сопряжения ПЭВМ IBM PC XT/AT с ИИУ систем управления и сбора данных и приобретения практических навыков по программированию изучаемого устройства сопряжения.

Задание: запрограммировать АЦП.

Диапазон напряжения: 2 В [-2В...2В].

Погрешность: 0,5 %.

Необходимо использовать 3 и 7 каналы.

Алгоритм:

Установка канала 0 таймера в режим одновибратора

Запуск

АЦП

Управление аттенюатором

Работа

АЦП

Текст программы:

PROGRAM lab;

USES crt;

VAR x,k,u,p:integer;

s:string;

LABEL 1;

FUNCTION bin(d:integer):string;

var i,l:integer;

st,stp:string;

begin

stp:='';

for i:= 1 to 8 do

begin

l:=d mod 2;

str(l,st);

insert(st,stp,0);

d:=d div 2;

end;

bin:=stp;

end;

BEGIN

port[$303]:=$38;

1: for u:=-2 to 2 do

begin

p:=port[$318];

if (|u|>0) and (|u|<0.16) then port[$300]:=$04;

if (|u|>0.16) and (|u|<0.32) then port[$300]:=$08;

if (|u|>0.32) and (|u|<0.64) then port[$300]:=$10;

if (|u|>0.64) and (|u|<1.28) then port[$300]:=$20;

if (|u|>1.28) and (|u|<2.56) then port[$300]:=$40;

if (|u|>2.56) and (|u|<5.12) then port[$300]:=$80;

x:=port[$309];

s:=bin(x); s:=s[5];

if s:=’0’ then goto 1;

end;

END.

Вывод:

В ходе лабораторной работы с целью изучения схемотехники аппаратных средств сопряжения ПЭВМ IBM PC XT/AT с ИИУ систем управления и сбора данных и приобретения практических навыков по программированию, было запрограммировано устройство АЦП.