Vaisala PTB210 SERIES Manuel d'instructions télécharger pdf (Page 135)

50 CONTENTS

’_______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)

’_______RECEIVE VALUES, VOLTAGES ARE CONVERTED IN REAL UNITS________

SDI12Recorder(TRHData(),5,"0","R!",1,0)

SDI12Recorder(TRHData_2(),7,"0","R!",1,0)

’_______ALLOCATION OF INDOOR MEASUREMENTS TO STRINGS_______

TempString = TRHData(1) + "," + TRHData_2(1)

HumidString = TRHData(2) + "," + TRHData_2(2)

SplitStr(Temp_Indoor(1),TempString,",",2,0)

SplitStr(Humid_Indoor(1),HumidString,",",2,0)

Therm107(Temp_FTIR(1),2,1,Vx1,0,_50Hz,1,0)

VoltDiff(WindSpd(1),2,mV2500,3,True,0,_50Hz,wind_multiplier,wind_offset)

WindSpd_SQ_1 = WindSpd(1) * WindSpd(1)

WindSpd_SQ_2 = WindSpd(2) * WindSpd(2)

VoltDiff(Humid(1),2,mV2500,5,True,0,_50Hz,humid_multiplier,humid_offset)

Humid_SQ_1 = Humid(1) * Humid(1)

Humid_SQ_2 = Humid(2) * Humid(2)

VoltDiff(Temp(1),2,mV2500,7,True,0,_50Hz,temp_multiplier,temp_offset)

Temp_SQ_1 = Temp(1) * Temp(1)

Temp_SQ_2 = Temp(2) * Temp(2)

VoltDiff(Pyrano(1),1,mV2_5,2,True,0,_50Hz,pyrano_multiplier,pyrano_offset)

Pyrano_SQ_1 = Pyrano * Pyrano

1 2 ... 130 131 132 133 134 135 136 137

Pas de commentaire

Vaisala PTB210 SERIES Manuel d'instructions Page 135