'CR1000 Series Datalogger

'Date: July 27, 2008
'Program: C:\campbellsci\crbasiceditor\KMOTION7.CR1 for cr1000
'Send Note: Sensors wired just like the 21X program (i.e. SE3, SE4, SE5, SE6, SE7, SE8)
'Send Serial Data "Meas()" out the CR1000 ComRS232 "Tx" line (i.e. Control Port 7)
'zaccel is measured with a voltage divider...result is x 0.0019973
'rawz is raw measurement without divider
'Declare Public Variables
Public Meas(7)
Public OutString as string * 1000

Alias  Meas(1)= roll
Alias  Meas(2)= pitch
Alias  Meas(3)= yaw
Alias  Meas(4)= xaccel
Alias  Meas(5)= yaccel
Alias  Meas(6)= zaccel
alias  Meas(7)= rawz
'Define Data Tables
DataTable (Motion,1,6)
	Sample (7,Meas(),FP2)
EndTable

'Main Program
BeginProg
	SerialOpen (ComRS232,38400,0,0,100)
	Scan (100,mSec,0,0)
		VoltSe (Meas(),5,mV5000,1,0,0,250,0.001,0)
		VoltSe (Meas(6),1,mV5000,6,0,0,250,0.0019973,0)
		VoltSe (Meas(7),1,mV5000,7,0,0,250,0.001,0)
		OutString = Meas(1)+","+Meas(2)+","+Meas(3)+","+Meas(4)+","+Meas(5)+","+Meas(6)+","+Meas(7)+CHR(13)+CHR(10)
		SerialOut (ComRS232,OutString,"",0,0)
		CallTable Motion
	NextScan
EndProg