5. Программное обеспечение виртуального измерительного комплекса

program huitbits;
uses crt;
var n, f, e : byte;
    b, g : integer;
    d : real;
procedure init;
begin
 b:=$3F8; n:=8;
 port[b+4]:=1;
 delay(100);
 port[b+3]:=64;
 delay(500);
end;
procedure acquisition;
begin
 port[b+4]:=0; d:=0;
 for f:=0 to n-1 do
  begin
   port[b+4]:=2;
   e:=port[b+6] and 16;
   port[b+4]:=0;
   if e=16 then d:=d+exp((n-l-f)*ln{2));
  end;
 d:=(5*d)/(exp((n)*ln(2))-l);
 port[b+4]:=1;
end;
procedure affiche;
begin
 acquisition;
 d:=(int(100*d)1/100;
 writeln(d);
 delay(500);
end;
begin
 clrscr;
 init;
 for g:=1 to 20 do
  begin
   affiche;
  end;
end.
(* COPYRIGHT 1997 Patrick GUEULLE *)

5.2.2 Драйверы для 10-разрядных АЦП

Так как 10-разрядной версии ADC 10 не существует, приводимые здесь драйверы относятся только к трем устройствам для самостоятельной сборки:

• версия АЦП на базе TLC 1549 (рис. 4.1, 4.3);
• версия АЦП на базе МАХ 1243 (рис. 4.6);
• версия АЦП на базе TLC 1549 (рис. 4.13, 4.14).

Версия на языке BASIC для обоих устройств на базе TLC 1549 называется 10BITS.BAS. Она написана для работы с последовательным портом СОМ1 (3F8h).

10 REM----10BITS----
20 KEY OFF:CLS
30 B=&H3F8:REM COM1:
40 N=10: REM число разрядов
50 OUT B+4,1
60 FOR T=0 TO 100:NEXT T
70 OUT B+3,64
80 FOR T=0 TO 500:NEXT T
90 GOTO 200
100 OUT B+4,0:D=0:REM ACQUISITION
110 FOR F=0 TO N-l
120 OUT B+4,2
130 E=INP(B+6) AND 16
140 OUT B+4,0
150 IF E=16 THEN D=D+2^(N-1-F)
160 NEXT F
170 D=5*D/(2^N-1)
180 RETURN
190 REM (c)1997 Patrick GUEULLE

Версия того же драйвера на языке TurboPASCAL с выводом на экран результатов двадцати измерений называется 10BITS.PAS.

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32