'CR200 Series Datalogger
'Sample program to measure an ECI-1 Concrete Corrosion Sensor once a month on the 15th day
'Date: February 6, 2006
'Program author: Robert Herfst, Campbell Scientific (Canada) Corp.

'Wiring:
' Blue - C1/SDI-12
' Black - G
' White - Battery +


Public Batt_volt
Public Result(5)
Public Flag1
Public  today
Public Counter

Alias Result(1) = Chloride
Alias Result(2) = GSTAT
Alias Result(3) = PSTAT
Alias Result(4) = Temp
Alias Result(5) = OCP

'Define Data Tables
DataTable (ECI_Data,1,0)
		 Minimum (1,batt_volt,0,0)
		 Sample 5,Result(1)
EndTable

'Main Program
BeginProg
		 Scan (1,min)
		 Battery (Batt_volt)
		  		 'Measure sensor once a month on the 15th day.
		 		 RealTime (today,3)
		 		 If today=15 Then Counter=Counter+1
		 		  If Counter=1 Then
		 		  		 SDI12Recorder (Chloride,0C!,1.0,0)
		 		 		 CallTable ECI_Data
		 		  EndIf
		 		If today=16 Then Counter=0	 		 
		 NextScan
EndProg