Barrow ARM TPS Program - Revision history

imported>Bob: Barrow Program moved to Barrow ARM TPS Program: Too General of a name.

2013-05-07T00:15:23Z

Barrow Program moved to Barrow ARM TPS Program: Too General of a name.

137.229.92.134 at 22:18, 6 May 2013

2013-05-06T22:18:12Z

137.229.92.134 at 22:17, 6 May 2013

2013-05-06T22:17:03Z

137.229.92.134 at 22:15, 6 May 2013

2013-05-06T22:15:45Z

137.229.92.134 at 22:14, 6 May 2013

2013-05-06T22:14:23Z

137.229.92.134 at 22:12, 6 May 2013

2013-05-06T22:12:19Z

137.229.92.134 at 22:11, 6 May 2013

2013-05-06T22:11:46Z

137.229.92.134 at 22:10, 6 May 2013

2013-05-06T22:10:05Z

137.229.92.134 at 22:09, 6 May 2013

2013-05-06T22:09:22Z

New page

'CR1000 Series Datalogger
'To create a different opening program template, type in new
'instructions and select Template | Save as Default Template
'date:
'program author:

'Declare Public Variables

' Wiring:
' TPS-3100 Sensor
'Wire Purpose Datalogger
'____________________________________
' Pin 2 RS232 TPSc1 RX C5 (white)
' Pin 3 RS232 TPSc1 TX C6 (red)
' Pin 5 RS232 Gc1 G (black, green)

' Pin 2 RS232 TPSs1 RX C7 (white)
' Pin 3 RS232 TPSs1 TX C8 (red)
' Pin 5 RS232 Gs1 G (black, green)

'CS10_L sensor (actually a CS15_L)
' CS10 white SE1
' CS10 red AG
' CS10 black AG
' CS10 clear AG

'Judd snow depth (analog)
'Wire Purpose Datalogger
'____________________________________
'Clear Shield G
'Black Power - G
'Red Power + +12V
'Green On/Off C1
'White Signal + 3H
'Brown Signal - 3L

' C1 -- Judd, green
' C5 -- TPSc1 RX, white
' C6 -- TPSc1 TX, red
' C7 -- TPSs1 RX, white
' C8 -- TPSs1 TX, red
' SE 1 -- CS10, white
' SE 5 -- Judd, white
' SE 6 -- Judd, brown
' AG -- CS10, red, black, clear
' G -- Judd, clear, black
' 12v -- Judd, red

Public TPS_out_format As String *3
Public TPS_timestamp As String * 10
Public TPS_Fault_Ind As String * 7
Public TPS_cur_precip As Float
Public TPS_accum_precip As Float
Public TPS_AT As Float
Public TPS_Inst_Temp As Float
Public TPS_WS As Float
Public TPS_CRC As String *4
Public callstring As String * 3
Public TPS_String As String * 200
Public TPS_out_format2 As String *3
Public TPS_timestamp2 As String * 10
Public TPS_Fault_Ind2 As String * 7
Public TPS_cur_precip2 As Float
Public TPS_accum_precip2 As Float
Public TPS_AT2 As Float
Public TPS_Inst_Temp2 As Float
Public TPS_WS2 As Float
Public TPS_CRC2 As String *4
Public callstring2 As String * 3
Public TPS_String2 As String * 200
Public LoggerTemp_C As Float
Public BattVolts_V As Float

Const num_samples = 100
Public Amps
Public Amp_mult
Dim i_sig(num_samples)
PreserveVariables

Public Battery
Public Air_TempC
Public Air_TempF
Public Depth

'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////

DataTable(TableTPSplus,true,-1)
DataInterval(0,1,Min,0)
Sample(1, TPS_out_format, FP2)
Sample(1, TPS_timestamp, String)
Sample(1, TPS_Fault_Ind, String)
Sample(1, TPS_cur_precip,FP2)
Sample(1, TPS_accum_precip,FP2)
Sample(1, TPS_AT, FP2)
Sample(1, TPS_Inst_Temp, FP2)
Sample(1, TPS_WS, FP2)
Sample(1, TPS_CRC, String)
EndTable

DataTable(AmpTable,True,-1)
DataInterval(0,1,Min,10)
Maximum(1,Amps,IEEE4,False,False)
Average(1,Amps,FP2,False)
EndTable

DataTable(TableTPSplus2,true,-1)
DataInterval(0,1,Min,0)
Sample(1, TPS_out_format2, FP2)
Sample(1, TPS_timestamp2, String)
Sample(1, TPS_Fault_Ind2, String)
Sample(1, TPS_cur_precip2,FP2)
Sample(1, TPS_accum_precip2,FP2)
Sample(1, TPS_AT2, FP2)
Sample(1, TPS_Inst_Temp2, FP2)
Sample(1, TPS_WS2, FP2)
Sample(1, TPS_CRC2, String)

EndTable

DataTable(HourlyDiag,true,-1)
DataInterval(0,60,Min,10)
Sample(1, LoggerTemp_C,FP2)
Average(1,LoggerTemp_C,FP2,False)
Sample(1,BattVolts_V,FP2)
Average(1,BattVolts_V,FP2,False)
Maximum(1,BattVolts_V,FP2,False,False)
Minimum(1,BattVolts_V,FP2,False,False)

EndTable

DataTable(DepthSensor,true,-1)
OpenInterval
DataInterval(0,1,Min,10)
Average(1,Air_TempF,FP2,0)
Sample(1,Depth,FP2)
EndTable

'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////

BeginProg
'Scan( 1,Min, 3, 0)
Scan(250,mSec,10,0)
SequentialMode
'PipeLineMode
'----------
' Current sensor
'----------

Amp_mult = 0.2
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)
StdDevSpa(Amps,num_samples,i_sig(1))
Amps = Amps * Amp_mult
CallTable AmpTable

If IfTime(0,60,Sec) Then
'SequentialMode
'''''''''''''''''''''''''''''''''''''''''
''' Measure TPS C1'''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 )
' 1) open the serial port
SerialOpen (Com3,9600,0,300,10000)
' 2) flush the port
SerialFlush (Com3)
' 3) Send the transmit code and put the response into variable TPS_String
SerialOut (Com3,callstring,"",3,0)
SerialIn (TPS_String,Com3,100,-1,100)
' 4) Close the serial port
SerialClose (Com3)
' 5) Comma separate the string from the TPS
'SplitStr (TPS_Array1(),TPS_String,",",8,2)
' 6) Space separate the first bit o' data
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)
' 7) Star separate the last bit o' data
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)
TPS_out_format = Mid (TPS_String,3,3)
TPS_timestamp = Mid(TPS_String,7,10)
TPS_Fault_Ind = Mid(TPS_String,18,7)
TPS_cur_precip = Mid(TPS_String,26,5)
TPS_accum_precip = Mid(TPS_String,32,8)
TPS_AT = Mid(TPS_String,41,5)
TPS_Inst_Temp = Mid(TPS_String,47,5)
TPS_WS = Mid(TPS_String,53,4)
TPS_CRC = Mid(TPS_STring,58,4)

'''''''''''''''''''''''''''''''''''''''''
''' Measure TPS2 S1'''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 )
' 1) open the serial port
SerialOpen (Com4,9600,0,300,10000)
' 2) flush the port
SerialFlush (Com4)
' 3) Send the transmit code and put the response into variable TPS_String
SerialOut (Com4,callstring2,"",3,0)
SerialIn (TPS_String2,Com4,100,-1,100)
' 4) Close the serial port
SerialClose (Com4)
' 5) Comma separate the string from the TPS
'SplitStr (TPS_Array1(),TPS_String,",",8,2)
' 6) Space separate the first bit o' data
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)
' 7) Star separate the last bit o' data
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)
TPS_out_format2 = Mid (TPS_String2,3,3)
TPS_timestamp2 = Mid(TPS_String2,7,10)
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)
TPS_cur_precip2 = Mid(TPS_String2,26,5)
TPS_accum_precip2 = Mid(TPS_String2,32,8)
TPS_AT2 = Mid(TPS_String2,41,5)
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)
TPS_WS2 = Mid(TPS_String2,53,4)
TPS_CRC2 = Mid(TPS_STring2,58,4)

Battery (BattVolts_V)
PanelTemp (LoggerTemp_C,250)

'---------
' judd
'----------

Battery(Battery)
'Turn ON the depth sensor
PortSet(1,1)
'wait 0.8 seconds for the sensor to output the air temp
Delay(0,800,MSEC)
'air temp is output in milliVolts, scaled to Kelvin,
'and then convert to Celsius.
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)
'Air temp is also converted and saved in F
Air_TempF = Air_TempC * 1.8
Air_TempF = Air_TempF +32
'The depth sensor needs another 1.8 seconds to make up
'to 10 measurements and perform error checking and
'temp compensation
Delay(0,1800,MSEC)
'Distance is output in milliVolts, scaled to inches, and
'then converted to depth by subtracting the distance
'measured from the reference distance.
'Use a multiplier of -.19685 for output in inches
'and -.5 for output in centimeters.
'
'The following instruction is configured to output the measured distance in inches
'To reconfigure the instruction to output depth in inches do the following:
'Change the multiplier from .1968 to -.1968
'Change the offset value from 0 to the distance measured
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)
'Turn off the sensor
PortSet(1,0)

' TPS Aliases
'Alias TPS_Array2(2) = TPS_out_format
'Alias TPS_Array1(2) = TPS_timestamp
'Alias TPS_Array1(3) = TPS_Fault_Ind
'Alias TPS_Array1(4) = TPS_cur_precip
'Alias TPS_Array1(5) = TPS_accum_precip
'Alias TPS_Array1(6) = TPS_AT
'Alias TPS_Array1(7) = TPS_Inst_Temp
'Alias TPS_Array3(1) = TPS_WS
'Alias TPS_Array3(2) = TPS_CRC

'------------------------------------------------
'Log sensor output once an hour

CallTable DepthSensor
CallTable TableTPSplus
CallTable TableTPSplus2
CallTable HourlyDiag
endif
NextScan
EndProg

← Older revision	Revision as of 00:15, 7 May 2013
(No difference)

@@ Line 327: / Line 327: @@
 ' TPS Aliases
 'Alias TPS_Array2(2) = TPS_out_format
 'Alias TPS_Array1(2) = TPS_timestamp
 'Alias TPS_Array1(3) = TPS_Fault_Ind
 'Alias TPS_Array1(4) = TPS_cur_precip
 'Alias TPS_Array1(5) = TPS_accum_precip
 'Alias TPS_Array1(6) = TPS_AT
 'Alias TPS_Array1(7) = TPS_Inst_Temp
 'Alias TPS_Array3(1) = TPS_WS
 'Alias TPS_Array3(2) = TPS_CRC

@@ Line 86: / Line 86: @@
 Public TPS_out_format As String *3
 Public TPS_timestamp As String * 10
 Public TPS_Fault_Ind As String * 7
 Public TPS_cur_precip As Float
 Public TPS_accum_precip As Float
 Public TPS_AT As Float
 Public TPS_Inst_Temp As Float
 Public TPS_WS As Float
 Public TPS_CRC As String *4
 Public callstring As String * 3
 Public TPS_String As String * 200
 Public TPS_out_format2 As String *3
 Public TPS_timestamp2 As String * 10
 Public TPS_Fault_Ind2 As String * 7
 Public TPS_cur_precip2 As Float
 Public TPS_accum_precip2 As Float
 Public TPS_AT2 As Float
 Public TPS_Inst_Temp2 As Float
 Public TPS_WS2 As Float
 Public TPS_CRC2 As String *4
 Public callstring2 As String * 3
 Public TPS_String2 As String * 200
 Public LoggerTemp_C As Float
 Public BattVolts_V As Float
 Const num_samples = 100
 Public Amps
 Public Amp_mult
 Dim i_sig(num_samples)
 PreserveVariables
 Public Battery
 Public Air_TempC
 Public Air_TempF
 Public Depth
 '\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////
 DataTable(TableTPSplus,true,-1)

@@ Line 21: / Line 21: @@
 ' Pin 2    RS232 TPSc1 RX    C5         (white)
 ' Pin 3    RS232 TPSc1 TX    C6         (red)
 ' Pin 5    RS232 Gc1         G          (black, green)
 ' Pin 2    RS232 TPSs1 RX    C7         (white)
 ' Pin 3    RS232 TPSs1 TX    C8         (red)
 ' Pin 5    RS232 Gs1         G          (black, green)
 'CS10_L sensor (actually a CS15_L)
 ' CS10 white                 SE1
 ' CS10 red                    AG
 ' CS10 black                  AG
 ' CS10 clear                  AG
 'Judd snow depth (analog)
 'Wire       Purpose        Datalogger
 '____________________________________
 'Clear      Shield            G
 'Black      Power -           G
 'Red        Power +           +12V
 'Green      On/Off            C1
 'White      Signal +          3H
 'Brown      Signal -          3L
 ' C1 -- Judd, green
 ' C5 -- TPSc1 RX, white
 ' C6 -- TPSc1 TX, red
 ' C7 -- TPSs1 RX, white
 ' C8 -- TPSs1 TX, red
 ' SE 1 -- CS10, white
 ' SE 5 -- Judd, white
 ' SE 6 -- Judd, brown
 ' AG -- CS10, red, black, clear
 ' G -- Judd, clear, black
 ' 12v -- Judd, red
 Public TPS_out_format As String *3

@@ Line 1: / Line 1: @@
-<math>'CR1000 Series Datalogger
+'CR1000 Series Datalogger
 'To create a different opening program template, type in new
 'instructions and select Template | Save as Default Template
 'date:
 'program author:
@@ Line 9: / Line 13: @@
 ' Wiring:
 ' TPS-3100 Sensor
 'Wire      Purpose         Datalogger
 '____________________________________
 ' Pin 2    RS232 TPSc1 RX    C5         (white)
 ' Pin 3    RS232 TPSc1 TX    C6         (red)
@@ Line 280: / Line 288: @@
      endif
    NextScan
-EndProg</math>
+EndProg