I need a program to CR800 with three CS616. My program doesn´t work. This is my program: I would like a help.
'Declare Variables and Units
Public BattV
Public PTemp_C
Public VW
Public PA_uS
Public VW_2
Public PA_uS_2
Public VW_3
Public PA_uS_3
Units BattV=Volts
Units PTemp_C=Deg C
Units PA_uS=uSec
Units PA_uS_2=uSec
Units PA_uS_3=uSec
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,60,Min,10)
Average(1,VW,FP2,False)
Average(1,PA_uS,FP2,False)
Average(1,VW_2,FP2,False)
Average(1,PA_uS_2,FP2,False)
Average(1,VW_3,FP2,False)
Average(1,PA_uS_3,FP2,False)
EndTable
DataTable(Table2,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 CR800 Datalogger Battery Voltage measurement 'BattV'
Battery(BattV)
'Default CR800 Datalogger Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp(PTemp_C,_60Hz)
'CS616 Water Content Reflectometer measurements 'VW' and 'PA_uS'
If TimeIntoInterval(0,1,Hr) Then
CS616(PA_uS,1,1,1,1,1,0)
VW=-0.0663+(-0.0063*PA_uS)+(0.0007*PA_uS^2)
EndIf
'CS616 Water Content Reflectometer measurements 'VW_2' and 'PA_uS_2'
If TimeIntoInterval(0,1,Hr) Then
CS616(PA_uS_2,1,2,1,1,1,0)
VW_2=-0.0663+(-0.0063*PA_uS_2)+(0.0007*PA_uS_2^2)
EndIf
'CS616 Water Content Reflectometer measurements 'VW_3' and 'PA_uS_3'
If TimeIntoInterval(0,1,Hr) Then
CS616(PA_uS_3,1,3,1,1,1,0)
VW_3=-0.0663+(-0.0063*PA_uS_3)+(0.0007*PA_uS_3^2)
EndIf
'Call Data Tables and Store Data
CallTable Table1
CallTable Table2
NextScan
EndProg
I don't see anything wrong with your program. Check your wiring versus the wiring diagram ShortCut provides for the program you created.
I already checked a spinning sensor and it works with 1. The orange wire all are connected in C1... Can this be the problem?
ShortCut is arranging the sensors to have all three enable lines in C1. It should not be a problem as long as the sensors are more than 20 cm apart.
The green wires should be in SE1, SE2, and SE3.
Well, the green sensors are that way, but they are not working.
Well, the green sensors are that way, but they are not working.
I changed your program below. The orange wire for sensor 2 goes in C2 now. The orange wire for sensor 3 will go in C3.
Give it a try to see if it makes a difference.
'Declare Variables and Units
Public BattV
Public PTemp_C
Public VW
Public PA_uS
Public VW_2
Public PA_uS_2
Public VW_3
Public PA_uS_3
Units BattV=Volts
Units PTemp_C=Deg C
Units PA_uS=uSec
Units PA_uS_2=uSec
Units PA_uS_3=uSec
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,60,Min,10)
Average(1,VW,FP2,False)
Average(1,PA_uS,FP2,False)
Average(1,VW_2,FP2,False)
Average(1,PA_uS_2,FP2,False)
Average(1,VW_3,FP2,False)
Average(1,PA_uS_3,FP2,False)
EndTable
DataTable(Table2,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 CR800 Datalogger Battery Voltage measurement 'BattV'
Battery(BattV)
'Default CR800 Datalogger Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp(PTemp_C,_60Hz)
'CS616 Water Content Reflectometer measurements 'VW' and 'PA_uS'
If TimeIntoInterval(0,1,Hr) Then
CS616(PA_uS,1,1,1,1,1,0)
VW=-0.0663+(-0.0063*PA_uS)+(0.0007*PA_uS^2)
EndIf
'CS616 Water Content Reflectometer measurements 'VW_2' and 'PA_uS_2'
If TimeIntoInterval(0,1,Hr) Then
CS616(PA_uS_2,1,2,2,1,1,0)
VW_2=-0.0663+(-0.0063*PA_uS_2)+(0.0007*PA_uS_2^2)
EndIf
'CS616 Water Content Reflectometer measurements 'VW_3' and 'PA_uS_3'
If TimeIntoInterval(0,1,Hr) Then
CS616(PA_uS_3,1,3,3,1,1,0)
VW_3=-0.0663+(-0.0063*PA_uS_3)+(0.0007*PA_uS_3^2)
EndIf
'Call Data Tables and Store Data
CallTable Table1
CallTable Table2
NextScan
EndProg
It did not work anyway. I can only operate with a sensor.
Connect your sensors, 1 at a time, to SE1 and C1. That will verify if you have a damaged sensor.