|
b:=&3F8; n:=10;
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-1-f)*ln(2));
end;
d:=(5*d)/(exp((n)*ln(2))-1);
end;
procedure affiche;
begin
acquisition;
d:=(int(100*d))/100;
writeln(d);
delay(500);
end;
begin
clrscr;
init;
for g: = l to 20 do
begin
affiche;
end; end. (* COPYRIGHT 1997 Patrick GUEULLE *)
Устройство на базе MAX 1243 требует особого драйвера MAXIM I0.BAS и также предназначено для работы с последовательным портом СОМ 1 (3F8h).
10 REM----МАХIM10----
20 KEY OFF:CLS
30 B=&H3F8:REM COM1:
40 N=10:REM число раз радов
50 OUT B+4, 1
60 FOR T=0 TO 100:NEXTT
70 OUTB+3, 64
80 FOR T=0 TO 500:NEXT T
90 GOTO 200
100 OUT B+4, 0 :D=0: REM ACQUISITION
|
|||||
| |||||