Campbell Scientific WXT520 WXT520 Weather Transmitter - Page 13

Example CR1000 Program

Page 13 highlights

WXT520 Weather Transmitter 6.6.1.1 Example CR1000 Program Although the following program is for the CR1000, the CR800, CR850, CR3000, and CR5000 are programmed similarly. This program uses the "aR!" command. 'CR1000 Series Datalogger 'Declarations Public PTemp, batt_volt Public WXT520(7) Alias WXT520(1)=WindDir Alias WXT520(2)=WindSpd Alias WXT520(3)=AirTemp Alias WXT520(4)=RelHumidity Alias WXT520(5)=AirPressure Alias WXT520(6)=Ramount Alias WXT520(7)=Hamount Units WindDir = Degrees Units WindSpd = m/s Units AirTemp = Celcius Units RelHumidity = % Units AirPressure = hPa Units Ramount = mm Units Hamount = hits/cm2 'Define Data Tables DataTable (Test,1,-1) DataInterval (0,60,Min,10) WindVector (1,WindSpd,WindDir,FP2,False,900,0,0) FieldNames("Ws_Mean,Wd_MeanUnitVector,Wd_StdDev") Average (1,AirTemp,FP2,False) Sample (1,RelHumidity,FP2) Sample (1,AirPressure,IEEE4) Totalize (1,Ramount,FP2,False) Totalize (1,Hamount,FP2,False) EndTable 'Main Program BeginProg 'Running a 5 second scan to coincide with 5 second 'update interval of the WXT520 Scan (5,Sec,0,0) PanelTemp (PTemp,250) Battery (batt_volt) 'WXT520 connected to SDI12 port 1 SDI12Recorder (WXT520(1),1,0,"R!",1.0,0) CallTable Test NextScan EndProg 7

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22

WXT520 Weather Transmitter
6.6.1.1 Example CR1000 Program
Although the following program is for the CR1000, the CR800, CR850,
CR3000, and CR5000 are programmed similarly.
This program uses the “aR!”
command.
'CR1000 Series Datalogger
'Declarations
Public PTemp, batt_volt
Public WXT520(7)
Alias WXT520(1)=WindDir
Alias WXT520(2)=WindSpd
Alias WXT520(3)=AirTemp
Alias WXT520(4)=RelHumidity
Alias WXT520(5)=AirPressure
Alias WXT520(6)=Ramount
Alias WXT520(7)=Hamount
Units WindDir = Degrees
Units WindSpd = m/s
Units AirTemp = Celcius
Units RelHumidity = %
Units AirPressure = hPa
Units Ramount = mm
Units Hamount = hits/cm2
'Define Data Tables
DataTable (Test,1,-1)
DataInterval (0,60,Min,10)
WindVector (1,WindSpd,WindDir,FP2,False,900,0,0)
FieldNames("Ws_Mean,Wd_MeanUnitVector,Wd_StdDev")
Average (1,AirTemp,FP2,False)
Sample (1,RelHumidity,FP2)
Sample (1,AirPressure,IEEE4)
Totalize (1,Ramount,FP2,False)
Totalize (1,Hamount,FP2,False)
EndTable
'Main Program
BeginProg
'Running a 5 second scan to coincide with 5 second
'update interval of the WXT520
Scan (5,Sec,0,0)
PanelTemp (PTemp,250)
Battery (batt_volt)
'WXT520 connected to SDI12 port 1
SDI12Recorder (WXT520(1),1,0,"R!",1.0,0)
CallTable Test
NextScan
EndProg
7