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

10 REM ---MAXIM12---
20 KEY OFF:CLS
30 B=&H3F8:REM COM1:
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(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
program maxim12;
uses crt;
var n, f, e : byte;
    b, g : integer;
    d : real;
procedure init;
begin
 b:=$3F8; n:=12;
 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-t-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))-1);
 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 *)

5.2.4 Прикладные программы

В этом разделе показано, как добавление нескольких строк программы к вышеописанным драйверам приносит полезные практические результаты. Читатели должны будут самостоятельно вносить требуемые изменения (часто минимальные), которые определяются конкретными задачами.

В любом случае объединение соответствующего драйвера и прикладной программы выполняется по команде MERGE (в языке BASIC).

Страницы: 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