Campbell Scientific CR1000KD CR800 and CR850 Measurement and Control Systems - Page 246

Section 7. Installation Minimum(1,AirTemp_C,FP2,0,False) Sample(1,DeltaT_C, FP2) Sample(1,HowMany, FP2) EndTable 'Stores temperature minimum in low 'resolution format 'Stores temp difference sample in low 'resolution format 'Stores how many data events in low 'resolution format BeginProg 'A second way of naming a station is to load the name into a string variable. The is 'place here so it is executed only once, which saves a small amount of program 'execution time. SiteName = "CR1000SiteName" Scan(1,Sec,1,0) 'Measurements 'Battery Voltage Battery(Batt_Volt) 'Wiring Panel Temperature PanelTemp(PTemp_C,_60Hz) 'Type T Thermocouple measurements: TCDiff(AirTemp_C,1,mV2_5C,1,TypeT,PTemp_C,True,0,_60Hz,1,0) TCDiff(AirTemp_F,1,mV2_5C,1,TypeT,PTemp_C,True,0,_60Hz,1.8,32) 'Convert from degree C to degree F AirTemp2_F = AirTemp_C * 1.8 + 32 'Count the number of times through the program. This demonstrates the use of a 'Long integer variable in counters. Counter = Counter + 1 'Calculate the difference between air and panel temps DeltaT_C = AirTemp_C - PTemp_C 'Control the flag based on the difference in temperature. 'set Flag 1 high, otherwise set it low If DeltaT_C >= 3 Then Flag(1) = high Else Flag(1) = low EndIf If DeltaT >= 3 then 'Turn LED connected to Port 1 on when Flag 1 is high If Flag(1) = high Then PortSet(1,1) 'alternate syntax: Else PortSet(1,0) 'alternate syntax: EndIf PortSet(1,high) PortSet(1,low) 246