Лабораторная работа №1
скачать (5.6 kb.)
Доступные файлы (1):
| Лаба ТСА.doc | 35kb. | 09.04.2006 16:14 |  скачать |
содержание
- Смотрите также:
- 01. Лабораторная работа 02. Лабораторная работа 03. Лабораторная работа 04 [ документ ]
- 01. Лабораторная работа 02. Лабораторная работа 03. Лабораторная работа 04 [ документ ]
- Проектирование режущего инструмента [ документ ]
- Лабораторные работы по метрологии, стандартизации сертификации [ документ ]
- №3 [ документ ]
- Лабораторная работа по исследованию аппаратуры [ лабораторная работа ]
- №3 [ документ ]
- №7 [ лабораторная работа ]
- 11 Сортировка [ документ ]
- №6 [ лабораторная работа ]
- №2 [ лабораторная работа ]
- Лабораторная работа [ документ ]
Лаба ТСА.doc
Уфимский Государственный Авиационный технический УниверситетКафедра АТС
Лабораторная работа по дисциплине:
«Технические средства автоматизации»
На тему:
«Сопряжение ПЭВМ 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 с ИИУ систем управления и сбора данных и приобретения практических навыков по программированию, было запрограммировано устройство АЦП.
Скачать файл (5.6 kb.)