Hi,
I connect several OBS-3+ Sensors to the CR1000 and the wiring is a bit crowded. That is to say, the sensor are not connected in a increasing continuous way at the wiring panel- e.g. 6,7,8,9,10
I conected the sensors at the channels 6,7,8,9,12,13,14,15 an prgrammed the following code
but
the expression
VoltSe(NTUArray(Count_7),1,mV2500,OBS_chn_high(I),1,0,_50Hz,1,0)
do not work. Especially the channal number 'OBS_chn_high(I)' occur an error while compiling the program
_________________________________________________________
Dim OBS_chn_high(SensorNumOBS) = {6,8,12,14}
Dim OBS_chn_low(SensorNumOBS) = {7,9,13,15}
BeginProg
scan(1,Min,1,0)
For I = 1 To SensorNumOBS
For Count_7 = 1 To 21
' -------high range measurement---------
VoltSe(NTUArray(Count_7),1,mV2500,OBS_chn_high(I),1,0,_50Hz,1,0)
' ------calibration function for high rang meassurment--------
NTUArray(Count_7)=cal3_high_OBS(I)+(cal2_high_OBS(I)*NTUArray(Count_7))+(cal1_high_OBS(I)*NTUArray(Count_7)^2)
Next
SortSpa(NTUArray(),21,NTUArray())
TurbNTU(I)=NTUArray(11)
If TurbNTU(I)<250 Then
For Count_7 = 1 To 21
' -------low range measurement---------
VoltSe(NTUArray(Count_7),1,mV2500,OBS_chn_low(I),1,0,_50Hz,1,0)
' ------calibration function for low rang meassurment--------
NTUArray(Count_7)=cal3_low_OBS(I)+(cal2_low_OBS(I)*NTUArray(Count_7))+(cal1_low_OBS(I)*NTUArray(Count_7)^2)
Next
SortSpa(NTUArray(),21,NTUArray())
TurbNTU(I)=NTUArray(11)
EndIf
Next
SW12(0)
......
Thanks in advance for your help
Heiko