|
port[b+4]:=2;port[b+4]:=2;
port[b+4]:=2;port[b+4]:=0;
port[b+4]:=2;port[b+4]:=2;
port[b+4]:=2;port(b+4]:=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-1-f)*ln(2));
end;
dr=(5*d)/{exp((n)*ln(2))-l);
port[b+4]:=1;
end;
procedure affiche;
begin
acquisition;
d:=(int(1000*d))/1000;
writeln(d);
delay(500);
end;
begin
clrscr;
init;
for g:=1 to 20 do
begin
affiche;
end; end, (* COPYRIGHT 1997 Patrick GUEULLE *)
С АЦП MAX 1241 (рис. 4.6) будут работать программы MAXIM12.BAS на языке BASIC и MAXIM12.PAS на языке TurboPASCAL
10 REM----MAXIM12----
20 KEY OFF:CLS
30 B=&H3F8:REMCOM1:
40 N=12: 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
105 OUT B+4,2 :OUT B+4,0
110 FOR F=0 TO N-1
120 OUT B+4,2
130 E=INP(В+6) AND 16
140 OUT B+4,0
|
|||||
| |||||