Chauvin Arnoux C.A 43 FILEDMETER Mode D'emploi page 123

cls
p=0 : dim X1(200) "Tabelle der zu übernehmenden Messungen
gosub ROUTINE01
gosub ROUTINE02
print:print «Eingabe von 100 Messungen...(siehe Beschreibung der Funktion "COM")»
beep
for N=1 to 100
delay 0.08
gosub ROUTINE03
X1 (N) = K
next N
beep
print : print «Anzeige der 100 eingegebenen Messungen :» : print
for N=1 to 100
print «gemessener Wert:»;X1 (N)
delay 0.1
next N
print :print «**** Programm - Ende ****» : close #1
end
"==================== UNTERPROGRAMME =======================
ROUTINE01 "tabelle für Sonde 231 als Beispiel...
B(1)=00000:F(1)=000033:CF(1)=4.666e-2:Q(1)=00.000
B(2)=00033:F(2)=000250:CF(2)=9.953e-3:Q(2)=01.211
B(3)=00250:F(3)=000820:CF(3)=5.438e-3:Q(3)=02.340
B(4)=00820:F(4)=002640:CF(4)=3.022e-3:Q(4)=04.322
B(5)=02640:F(5)=011776:CF(5)=1.893e-3:Q(5)=07.300
B(6)=11776:F(6)=143360:CF(6)=1.294e-3:Q(6)=14.360
RETURN
ROUTINE02
print «Initialisierung RS 232 auf COM1...»
open «COM1:1200,N,8,1,RS» AS #1
return
ROUTINE03
print #1,chr$(34);
if p=0 then A$=input$(1,#1):p=1 "Entfernung des ersten Schriftzeichens
A$=input$(3,#1) : A$=left$(A$,2) "Einfang 3 Schniftzeichen, & 2 ersten behalten
A1A2% = asc(left$(A$,1)) : B1B2% = asc(right$(A$,1))
A1% = fix(A1A2%/16) : B1% = fix(B1B2%/16)
A2% = A1A2% - 16*A1% : B2% = B1B2% - 16*B1%
R=((B2%*256+A1%*16+A2%)*2^B1%)/80
gosub ROUTINE04
return
ROUTINE04
K=-1
for I=6 to 1 step -1
if R >= B (I) then
end if
next I
LABEL01:
return
" + 20 ms Verarbeitungszeit....
K=R*CF(I)+Q(I)
ptr = I
goto LABEL01
121