Курсовая работа - Простой АЦП - Приставка к ПК

АЦП – приставка к ПК

DA1 – TL 062 (или аналогичный ОУ).

R1, R2 = 3K

R=1,5K

2R=3K (резисторы матрицы R, 2R необходимо подбирать с минимальным разбросом).

Между Rвх и Gnd – необходимо установить резистор ~2 МОм.

Листинг программы:

Program acp;

uses crt,dos;

var i,s,k: byte;

begin

clrscr;

Port[$378]:=0; {устанавливаем уровни лог. 0 на всех линиях 8-ми битного порта вывода}

Port[$37A]:=$64; {устанавливаем уровни лог. 1 на всех линиях 4-х битного порта вывода для питания схемы АЦП}

repeat

k:=port[$379]; {запоминаем состояние 5-и битного порта ввода}

s:=0;

for i:=0 to $FF do

begin

Port[$378]:=i; {в цикле тепреь перебираем значения от 0 до 255}

if Port[$379]<>k then {проверяем состояние 5-и битного порта ввода, вообще-то такой метод несколько некорректен}

s:=port[$378]; {и если изменилось, записываем значение порта 378 hex в переменную S}

end;

writeln(s/(255/5):5:3,' V'); {вывод результатов на экран; делим значение s на 255/5}

until keypressed; {по нажатию клавиши программа завершается}

end.