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

Версия на языке TurboPASCAL называется MAXIMS.PAS и также включает небольшую прикладную часть, выводящую на экран результаты двадцати измерений.

program maxim8;
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;
 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-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))/100;
 writeln(d);
 delay(500);
end;
begin
 clrscr;
 init;
 for g:=l to 20 do
  begin
   affiche;
  end;
end.
(* COPYRIGHT 1997 Patrick GUEULLE *)

Драйвер для устройств на базе TLC 549 (рис. 4.1 и 4.13), написанный на языке BASIC, называется 8BITS.BAS. Он также предназначен для работы с последовательным портом COM1 (3F8h).

10 REM----8BITS ----
20 KEY OFF:CLS
30 B=&H3F8:REM COM1:
40 N=8: REM число разрядов
50 OUT B+4,1
60 FOR T=0 TO 100:NEXT Т
70 OUT B+3,64
80 FOR T=0 TO 500:NEXT Т
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 OUT B+4,1:RETURN
190 REM (c)1997 Patrick GUEULLE

Его версия на языке TurboPASCAL называется 8BITS.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