’_______AIRPRESS_______
Average(2,AirPress(1),IEEE4,0)
Minimum(2,AirPress(1),IEEE4,0,0)
Maximum(2,AirPress(1),IEEE4,0,0)
Totalize(1,AirPress_SQ_1,IEEE4,False)
Totalize(1,AirPress_SQ_2,IEEE4,False)
’_______PRYRANO_______
Average(1,Pyrano,FP2,0)
Minimum(1,Pyrano,FP2,0,0)
Maximum(1,Pyrano,FP2,0,0)
Totalize(1,Pyrano_SQ_1,IEEE4,False)
’_______NUMBER OF MEASURED DATA_______
Sample(1,N,FP2)
EndTable
’________________________PROGRAMM__________________________________
BeginProg
’_______SET COMMUNICATION-PARAMETERS FOR PTB210_______
SerialOpen(Com1,9600,10,0,0)
SerialOpen(Com2,9600,10,0,0)
Scan(5,Sec,0,0)
’_______SEND STRING ".P<cr><lf>" TO PTB210_______
SerialOut(Com1,Command,"",0,100)
SerialOut(Com2,Command,"",0,100)
’_______RECEIVE SERIAL DATA AS STRING FROM PTB210_______
SerialIn(AirPress(1),Com1,100,10,10)
SerialIn(AirPress(2),Com2,100,10,10)
’_______CONVERTING STRING INTO NUMERIC VALUE_______
AirPressString = AirPress(1) + "," + AirPress(2)
SplitStr(AirPressNum(1),AirPressString,",",2,0)
AirPress_SQ_1 = AirPressNum(1) * AirPressNum(1)
AirPress_SQ_2 = AirPressNum(2) * AirPressNum(2)
83
Commentaires sur ces manuels