’_______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
’_______COUNTER OF MEASURED DATA PER INTERVAL_______
Count = Count + 1
N = Count
If TimeIntoInterval(0,60,sec) Then
Count = 0
EndIf
’_______PUT OVER DATA TO TABLE_______
CallTable(Table_Outdoor)
CallTable(Table_Indoor)
NextScan
EndProg
84
Comentários a estes Manuais