Five Temp&Relative Hunidity sensors were connected with Cr1000,3 were HMP-50 and 2 were HC2-S3. BUT one sensor (HC2-S3)gave -38 Degree and -1% RH,and the connection between CR1000 and computer was always broken. What's the problem?
'Main Program
BeginProg
'Main Scan
Scan(5,Sec,1,0)
Subroutine1
'Default Datalogger Battery Voltage measurement 'BattV'
Battery(BattV)
'Default Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp(PTemp_C,_60Hz)
'HMP50/HMP60 Temperature & Relative Humidity Sensor measurements 'FT' and 'FRH'
VoltSE(FT,1,mV2500,1,0,0,_60Hz,0.1,-40)
VoltSE(FRH,1,mV2500,2,0,0,_60Hz,0.1,0)
If (FRH>100) And (FRH<108) Then FRH=100
'HMP50/HMP60 Temperature & Relative Humidity Sensor measurements 'CT' and 'CRH'
VoltSE(CT,1,mV2500,3,0,0,_60Hz,0.1,-40)
VoltSE(CRH,1,mV2500,4,0,0,_60Hz,0.1,0)
If (CRH>100) And (CRH<108) Then CRH=100
'HMP50/HMP60 Temperature & Relative Humidity Sensor measurements 'ST' and 'SRH'
VoltSE(ST,1,mV2500,5,0,0,_60Hz,0.1,-40)
VoltSe(SRH,1,mV2500,6,0,0,_60Hz,0.1,0)
If (SRH>100) And (SRH<108) Then SRH=100
'HC2S3 (constant power) Temperature & Relative Humidity Sensor measurements 'AT' and 'ARH'
VoltSE(AT,1,mV2500,7,0,0,_60Hz,0.1,-40)
VoltSe(ARH,1,mV2500,8,0,0,_60Hz,0.1,0)
If ARH>100 And ARH<103 Then ARH=100
'HC2S3 (constant power) Temperature & Relative Humidity Sensor measurements 'OT' and 'ORH'
VoltSe(OT,1,mV2500,9,0,0,_60Hz,0.1,-40)
VoltSe(ORH,1,mV2500,10,0,0,_60Hz,0.1,0)
If ORH>100 AND ORH<103 Then ORH=100
Hi
Your post seems incomplete.
Where are connected the power supply wires of the sensors?
Smile
Yes, i post parts of it.
All the sensors were connected to the panel of Cr1000.The multimeter showed the Voltages of sensors were no problem, a bit more than 12V(12.8 V).
This datalogger connected with Five Temp&Humidity sensors(VoltSE) and Four CO2 analyzers(VoltDiff).
Yes, i post parts of it.
All the sensors were connected to the panel of Cr1000.The multimeter showed the Voltages of sensors were no problem, a bit more than 12V(12.8 V).
This datalogger connected with Five Temp&Humidity sensors(VoltSE) and Four CO2 analyzers(VoltDiff).
Hi,
tries to decouple the power supplies. Use the SW12 terminal (also always on) for power supply the sensors (about 900 mA max). Maybe a sensor malfunctions or is defective and disturbs even the power of the logger, that is not responding.
Smile
Thank you so much!Smile
I tried as you said however one HC2S3 still give wrong value.
Here are the detail of programme. Thanks so much if anyone help me t check it.
'CR1000
'Created by Short Cut (3.0)
'Declare Variables and Units
Public BattV
Public PTemp_C
Public i1
Public FT
Public FRH
Public CT
Public CRH
Public ST
Public SRH
Public AT
Public ARH
Public OT
Public ORH
Public FCO2
Public CCO2
Public SCO2
Public ACO2
Public FCO2_30S
Public CCO2_30S
Public SCO2_30S
Public ACO2_30S
Public Set_CO2
Public Set_CO2_H
Public Temp_rang
Public Temp_high
Public Temp_low
Public Valve_(16)
Public CO2_high
Public CO2_low
Public CO2_higher
Public CO2_lower
Public CO2_rang
Public StartFlag
Units BattV=Volts
Units PTemp_C=Deg C
Units FT=Deg C
Units FRH=%
Units CT=Deg C
Units CRH=%
Units ST=Deg C
Units SRH=%
Units AT=Deg C
Units ARH=%
Units OT=Deg C
Units ORH=%
Units FCO2=mV
Units CCO2=mV
Units SCO2=mV
Units ACO2=mV
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,60,Sec,10)
'The following TableFile instruction causes new data to be copied to an optional SC115 Flash
'Memory Drive the moment it is plugged into the CS I/O port of the datalogger.
'This mode of operation is referred to as Data Collection Mode (see the SC115 manual).
'This TableFile instruction has no effect if an SC115 is never plugged into the datalogger.
TableFile("USB:"+Status.SerialNumber+"Table1",8,-1,0,0,Hr,0,0)
Sample(1,BattV,FP2)
Sample(1,PTemp_C,FP2)
Sample(16, Valve_, FP2)
Average(1,FT,FP2,False)
Sample(1,FRH,FP2)
Average(1,CT,FP2,False)
Sample(1,CRH,FP2)
Average(1,ST,FP2,False)
Sample(1,SRH,FP2)
Average(1,AT,FP2,False)
Sample(1,ARH,FP2)
Average(1,OT,FP2,False)
Sample(1,ORH,FP2)
Average(1,FCO2_30S,FP2,False)
Average(1,CCO2_30S,FP2,False)
Average(1,SCO2_30S,FP2,False)
Average(1,ACO2_30S,FP2,False)
EndTable
DataTable(Table2,True,-1)
DataInterval(0,1440,Min,10)
Minimum(1,BattV,FP2,False,False)
EndTable
'Subroutines
Sub Subroutine3
' Control CO2
CO2_high = Set_CO2 + CO2_rang
CO2_low = Set_CO2 - CO2_rang
CO2_higher = Set_CO2_H + CO2_rang
CO2_lower = Set_CO2_H - CO2_rang
' FACE 15N2-chamber control CO2......................................................
If (FCO2_30S >= CO2_high) Then
Valve_(5) = 1
Valve_(6) = 0
EndIf
If (FCO2_30S < CO2_low) Then
Valve_(5) = 0
Valve_(6) = 1
EndIf
' ------------------------------------------------------Stop absorption
If (Valve_(5) = 1) Then
If (FCO2_30S < Set_CO2) Then
Valve_(5) = 0
EndIf
EndIf
'-------------------------------------------------------Stop release
If (Valve_(6) = 1) Then
If (FCO2_30S >= Set_CO2) Then
Valve_(6) = 0
EndIf
EndIf
' CO2 enrichment chamber control CO2........................................
If (CCO2_30S >= CO2_higher) Then
Valve_(7) = 1
Valve_(8) = 0
EndIf
If (CCO2_30S < CO2_lower) Then
Valve_(7) = 0
Valve_(8) = 1
EndIf
' ------------------------------------------------------Stop absorption
If (Valve_(7) = 1) Then
If (CCO2_30S < Set_CO2_H) Then
Valve_(7) = 0
EndIf
EndIf
'-------------------------------------------------------Stop release
If (Valve_(8) = 1) Then
If (CCO2_30S >= Set_CO2_H) Then
Valve_(8) = 0
EndIf
EndIf
' Short-term 15N2-chamber control CO2........................................
If (SCO2_30S >= CO2_high) Then
Valve_(9) = 1
Valve_(10) = 0
EndIf
If (SCO2_30S < CO2_low) Then
Valve_(9) = 0
Valve_(10) = 1
EndIf
' ------------------------------------------------------Stop absorption
If (Valve_(9) = 1) Then
If (SCO2_30S < Set_CO2) Then
Valve_(9) = 0
EndIf
EndIf
'-------------------------------------------------------Stop release
If (Valve_(10) = 1) Then
If (SCO2_30S >= Set_CO2) Then
Valve_(10) = 0
EndIf
EndIf
' Ambient 14N2-chamber control CO2......................................................
If (ACO2_30S >= CO2_high) Then
Valve_(11) = 1
Valve_(12) = 0
EndIf
If (ACO2_30S < CO2_low) Then
Valve_(11) = 0
Valve_(12) = 1
EndIf
' ------------------------------------------------------Stop absorption
If (Valve_(11) = 1) Then
If (ACO2_30S < Set_CO2) Then
Valve_(11) = 0
EndIf
EndIf
'-------------------------------------------------------Stop release
If (Valve_(12) = 1) Then
If (ACO2_30S >= Set_CO2) Then
Valve_(12) = 0
EndIf
EndIf
EndSub
Sub Subroutine2
' Control temperature inside the chamber
Temp_high = OT + Temp_rang
Temp_low = OT - Temp_rang
'------------------------------Control 15N2-chamber temp---------
If (FT >= Temp_high) Then
Valve_(13) = 1
EndIf
If (FT < Temp_low) Then
Valve_(13) = 0
EndIf
'------------------------------Control High CO2 chanber temp---------
If (CT >= Temp_high) Then
Valve_(14) = 1
EndIf
If (CT < Temp_low) Then
Valve_(14) = 0
EndIf
'------------------------------Control Short-term chamber temp---------
If (ST >= Temp_high) Then
Valve_(15) = 1
EndIf
If (ST < Temp_low) Then
Valve_(15) = 0
EndIf
'------------------------------Control 14N2-chamber temp--------------
If (AT >= Temp_high) Then
Valve_(16) = 1
EndIf
If (AT < Temp_low) Then
Valve_(16) = 0
EndIf
EndSub
Sub Subroutine1
' =====================Initial setting ==========================
If (StartFlag = 0) Then
Set_CO2 = 380
Set_CO2_H = 760
CO2_rang = 30
Temp_rang = 2
For i1 = 1 To 16
Valve_(i1) = 0
Next i1
StartFlag = 1
EndIf
EndSub
'Main Program
BeginProg
'Main Scan
Scan(5,Sec,1,0)
Subroutine1
'Default Datalogger Battery Voltage measurement 'BattV'
Battery(BattV)
'Default Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp(PTemp_C,_60Hz)
'HMP50/HMP60 Temperature & Relative Humidity Sensor measurements 'FT' and 'FRH'
VoltSE(FT,1,mV2500,1,0,0,_60Hz,0.1,-40)
VoltSE(FRH,1,mV2500,2,0,0,_60Hz,0.1,0)
If (FRH>100) And (FRH<108) Then FRH=100
'HMP50/HMP60 Temperature & Relative Humidity Sensor measurements 'CT' and 'CRH'
VoltSE(CT,1,mV2500,3,0,0,_60Hz,0.1,-40)
VoltSE(CRH,1,mV2500,4,0,0,_60Hz,0.1,0)
If (CRH>100) And (CRH<108) Then CRH=100
'HMP50/HMP60 Temperature & Relative Humidity Sensor measurements 'ST' and 'SRH'
VoltSE(ST,1,mV2500,5,0,0,_60Hz,0.1,-40)
VoltSE(SRH,1,mV2500,6,0,0,_60Hz,0.1,0)
If (SRH>100) And (SRH<108) Then SRH=100
'HC2S3 (constant power) Temperature & Relative Humidity Sensor measurements 'AT' and 'ARH'
VoltSE(AT,1,mV2500,7,0,0,_60Hz,0.1,-40)
VoltSE(ARH,1,mV2500,8,0,0,_60Hz,0.1,0)
If ARH>100 And ARH<103 Then ARH=100
'HC2S3 (constant power) Temperature & Relative Humidity Sensor measurements 'OT' and 'ORH'
VoltSE(OT,1,mV2500,9,0,0,_60Hz,0.1,-40)
VoltSE(ORH,1,mV2500,10,0,0,_60Hz,0.1,0)
If ORH>100 AND ORH<103 Then ORH=100
'Turn AM16/32 Multiplexer On
PortSet(6,1)
Delay(0,150,mSec)
'Switch to next AM16/32 Multiplexer channel
PulsePort(5,10000)
'Generic Differential Voltage measurements 'FCO2' on the AM16/32 Multiplexer
VoltDiff(FCO2,1,mV250,6,True,0,_60Hz,20,0)
AvgRun(FCO2_30S, 1, FCO2, 30)
'Switch to next AM16/32 Multiplexer channel
PulsePort(5,10000)
'Generic Differential Voltage measurements 'CCO2' on the AM16/32 Multiplexer
VoltDiff(CCO2,1,mV250,6,True,0,_60Hz,20,0)
AvgRun(CCO2_30S, 1, CCO2, 30)
'Switch to next AM16/32 Multiplexer channel
PulsePort(5,10000)
'Generic Differential Voltage measurements 'SCO2' on the AM16/32 Multiplexer
VoltDiff(SCO2,1,mV250,6,True,0,_60Hz,20,0)
AvgRun(SCO2_30S, 1, SCO2, 30)
'Switch to next AM16/32 Multiplexer channel
PulsePort(5,10000)
'Generic Differential Voltage measurements 'ACO2' on the AM16/32 Multiplexer
VoltDiff(ACO2,1,mV250,6,True,0,_60Hz,20,0)
AvgRun(ACO2_30S, 1, ACO2, 30)
'Turn AM16/32 Multiplexer Off
PortSet(6,0)
Delay(0,150,mSec)
' Control temperature inside the Chambers----------------------------------------
If TimeIntoInterval(0,10,Sec) Then
Subroutine2
EndIf
' Control CO2 inside the Chambers------------------------------------------------
If TimeInToInterval(0,10,Sec) Then
Subroutine3
EndIf
'Call Data Tables and Store Data
CallTable(Table1)
CallTable(Table2)
SDMCD16AC(Valve_, 1, 5)
NextScan
EndProg
Hi
I have not analyzed your program, but if you have problems with a single sensor, perhaps, it is defective.
Try to change its place with one that works, for confirmation.
Smile