User Forum A 24/7 resource for Campbell Scientific users

Hello,

Firstly, thankyou for reading. I am new to the Campbell Scientific suite and am still learning how to edit in CRBasic after using shortcut to get started. I have an electronics/IT background and am configuring up a CR6 with a 05103 Anemometer. 

I am curious if there is a way to have the sensor output multiple variables into the readings table such as WS_ms, WS_knot from the same sensor or if this needs to be done downstream with conversions for display?

Thanks! 

My code - 

'CR6 Series
'Created by Short Cut (4.5)

'Declare Variables and Units
Public BattV
Public PTemp_C
Public AirTC
Public RH
Public WS_ms
Public WindDir

Units BattV=Volts
Units PTemp_C=Deg C
Units AirTC=Deg C
Units RH=%
Units WS_ms=meters/second
Units WindDir=degrees

'Define Data Tables
DataTable(Hourly,True,-1)
	DataInterval(0,60,Min,10)
	'The following TableFile instruction causes new data to be copied to an optional removable
	'drive (SC115 or USB mass storage) when it is plugged into the datalogger.
	'This TableFile instruction has no effect unless a removable drive is plugged into the datalogger.
	TableFile("USB:"+Status.SerialNumber+"Hourly",8,-1,0,0,Hr,0,0)
	Minimum(1,BattV,FP2,False,True)
	Maximum(1,BattV,FP2,False,True)
	Minimum(1,PTemp_C,FP2,False,True)
	Maximum(1,PTemp_C,FP2,False,True)
	Minimum(1,AirTC,FP2,False,True)
	Maximum(1,AirTC,FP2,False,True)
	Minimum(1,RH,FP2,False,True)
	Maximum(1,RH,FP2,False,True)
	Maximum(1,WS_ms,FP2,False,True)
	Minimum(1,WS_ms,FP2,False,True)
	Sample(1,WindDir,FP2)
EndTable

DataTable(Daily,True,-1)
	DataInterval(0,1440,Min,10)
	Minimum(1,BattV,FP2,False,False)
EndTable

'Main Program
BeginProg
	'Main Scan
	Scan(5,Sec,1,0)
		'Default CR6 Datalogger Battery Voltage measurement 'BattV'
		Battery(BattV)
		'Default CR6 Datalogger Wiring Panel Temperature measurement 'PTemp_C'
		PanelTemp(PTemp_C,60)
		'MP100A (constant power) Temperature & Relative Humidity Sensor (CSL) measurements 'AirTC' and 'RH'
		VoltSE(AirTC,1,mV1000,U1,False,0,60,0.1,0)
		VoltSE(RH,1,mV1000,U2,False,0,60,0.1,0)
		If (RH>100) And (RH<108) Then RH=100
		'05103 Wind Speed & Direction Sensor measurements 'WS_ms' and 'WindDir'
		PulseCount(WS_ms,1,U6,5,1,0.098,0)
		BrHalf(WindDir,1,mV5000,U4,U3,1,2500,True,20000,60,355,0)
		If WindDir>=355 Or WindDir<0 Then WindDir=0
		'Call Data Tables and Store Data
		CallTable Hourly
		CallTable Daily
	NextScan
EndProg

This post is under review.

This post is under review.