Exemple De Programmation 5; Cr1000 Mode Rs-232 Pour Le Sr50A - Campbell Scientific Sonic SR50A Manuel D'utilisation

Capteur de télémétrie sonique SR50A

10.5 Exemple de programmation 5 :

CR1000 mode RS-232 pour le SR50A

'CR1000 Series Datalogger
'In this example, the SR50A is mounted 2.5 meters above the ground.
'The SR50A is used in RS-232 mode (internal jumpers are set).
'The CR1000 sends a serial string to the SR50A, which is in "Measure on Poll Mode",
'and then receives a serial string in return which is parsed into different values.
'Wiring: Black: Power Ground
' clear: Power Ground
' Red: +12V,
' White:C1
' Green:
'Declare Variables
'Declare SR50AData as a dimensioned string of maximum 50 chrs
Dim SR50AData as STRING * 50
Public ParseVals(5) as FLOAT
Alias ParseVals(1)=SerialAddress
Alias ParseVals(2)=Raw_Distance
Alias ParseVals(3)=SignalQuality
Alias ParseVals(4)=Diagnostics
Alias ParseVals(5)=Chcksum
Public Temp_Corr_Distance
Public Air_Temp
Public Snow_Depth
'Declare the initial distance of the SR50A from the ground in meters:
Const Initial_Distance=2.5
'Define Data Tables
DataTable (Table1,True,-1)
DataInterval (0,60,Min,10)
Sample (1,Snow_Depth,FP2)
EndTable
'Main Program
BeginProg
'Open RS232 port for communications 9600 BAUD is the default:
SerialOpen (Com1,9600,0,0,2000)
Scan (60,Sec,0,0)
'Measure the SR50A:
'Transmit serial command "p33<CR>"
SerialOut (Com1,"p33"+chr(13),"",0,0)
C2
- 50 -