Been struggling with getting thermistor string working with CR1000 & AM16/32. String made with sensor 109 probes and was only delivered with one resistor. String has 9 sensors in it and the advice I've had so far sezs it should work with one resistor(RES 24.9K-0.1)& configured as stated below. I do 3 reps in the instruction and the 1st 2 measurements seem to be correct w/every 3rd missing. Can this be done in 2x32 mode?
Any help?...probably obvious to the more experienced. TIA...
'CR1000 Series Datalogger
''AM16/32 Mux in 2x32 Mode
'Wiring:
'AM16/32 === CR1000
'RES === C4
'CLK === C3
'GND === G
'12V === 12V
'Com Odd
'H === SE13 also (RES 24.9K-0.1 to G)
'L === Vx2
'Com Even
'H === xxxx
'L === xxxx
'
'Mux Wiring === 9 sensors, pair per sensor in channels 1-9
'++++++++++++
'Declare Public Vars
Public PTemp, batt_volt
Public T109_F(9)
'Declare Other Vars
Dim LCount
'Declare Constants
Units PTemp=Deg c
Units batt_volt=Volts
Units T109_F=DegF
'Define Data Tables
DataTable(Table60,true,-1)
DataInterval(0,60,Min,10)
Average(1,T109_F(1),FP2,False)
Average(1,T109_F(2),FP2,False)
Average(1,T109_F(3),FP2,False)
Average(1,T109_F(4),FP2,False)
Average(1,T109_F(5),FP2,False)
Average(1,T109_F(6),FP2,False)
Average(1,T109_F(7),FP2,False)
Average(1,T109_F(8),FP2,False)
Average(1,T109_F(9),FP2,False)
EndTable
'Main Program
BeginProg
Scan (60,Sec,0,0)
PanelTemp (PTemp,250)
Battery (batt_volt)
'Turn AM16/32 Mux On
PortSet(4,1)
Delay(0,150,mSec)
LCount=1
SubScan(0,uSec,3)
'Switch to next AM16/32 Mux channel
PulsePort(3,10000)
'109 Temperature Probe measurements 'T109_F()' on the AM16/32 Mux
Therm109(T109_F(LCount),3,13,2,0,_60Hz,1.8,32)
LCount=LCount+3
NextSubScan
'Turn AM16/32 Mux Off
PortSet(4,0)
Delay(0,150,mSec)
'Call Output Tables
CallTable Table60
NextScan
EndProg
* Last updated by: nohowie on 9/23/2013 @ 2:14 PM *
Thanks go out to Sam Utley @ CSI and Mike Ryder @ CSC who help us get this done. The wiring can be setup a couple different ways with the resistor and both work. The problem was in the Subscan instruction, the Therm109 reps and the LCount+3.
Here's the changes made to the program in the 1st post:
1.) Changed SubScan to "9".
2.) Changed 3 reps to 1. - Added delay to 5000.
3.) Changed LCount+3 to LCount+1
PortSet(4,1)
Delay(0,150,mSec)
LCount=1
SubScan(0,uSec,9)
'Switch to next AM16/32 Multiplexer channel
PulsePort(3,10000)
'109 Temperature Probe (3-wire) measurements 'T109_F()' on the AM16/32 Multiplexer
Therm109(T109_F(LCount),1 ,13,2,5000 ,_60Hz,1.8,32)
LCount=LCount+1
NextSubScan
'Turn AM16/32 Multiplexer Off
PortSet(4,0)
Delay(0,150,mSec)
EndIf
After getting through that, found that Port 7 in the Mux was dead. Moved pairs that were in 7, 8, 9 to 8, 9, 10. Added this to the program:
SubScan(0,uSec,9)
'Switch to next AM16/32 Multiplexer channel
PulsePort(3,10000)
If LCount = 7
PulsePort(3,10000)
EndIf
'109 Temperature Probe (3-wire) measurements 'T109_F()' on the AM16/32 Multiplexer
Therm109(T109_F(LCount),1 ,13,2,5000 ,_60Hz,1.8,32)
LCount=LCount+1
NextSubScan
Everything works great...
* Last updated by: nohowie on 9/23/2013 @ 2:45 PM *