Example Of Rapid Readout - Chauvin Arnoux C.A 43 Bedienungsanleitung

11.6 EXAMPLE OF RAPID READOUT

The following Program allows you to make a rapid readout of 100 measurements at a rate of 100ms.
Measurement decoding is done in accordance with probe table 231. The language used is Turbo Basic.
cls
p=0 : dim X1(200) 'creation of the data table
gosub ROUTINE01
gosub ROUTINE02
print:print «Retrieval of 100 points ... see COM display on C.A 43»
beep
for N=1 to 100
delay 0.08
gosub ROUTINE03
X1(N)=K
next N
beep
print : print «display of 100 data retrieved:» : print
for N=1 to 100
print «data:»;X1(N)
delay 0.1
next N
print :print «**** End of program ****» : close #1
end
'==================== S U B - P R O G R A M S ======================
ROUTINE01: 'table of sensor 231(taken as example)
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 «setting up RS232 on 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 'delete the first byte
A$=input$(3,#1) : A$=left$(A$,2) 'delete 3 byte and keep the first two
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
next I
LABEL01:
return
''delays by 20 mS to allow for C.A 43 processing time
if R >= B(I) then
K=R*CF(I)+Q(I)
ptr = I
goto LABEL01
end if
66