Specifications

SR50A Sonic Ranging Sensor

'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)

'Flush the serial buffer

SerialFlush (Com1)

'Recieve serial string from SR50A

SerialIn (SR50AData,Com1,200,13,50)

SplitStr (ParseVals,SR50AData,"",5,0)

'Measure the 107 temperature sensor:

Therm107 (Air_Temp,1,1,Vx1,0,250,1.0,0)

'Use Air_Temp to calculate corrected distance:

Temp_Corr_Distance=Raw_Distance*(SQR((Air_Temp+273.15)/273.15))

'Subtract the corrected distance from the initial distance of the SR50A to the ground:

Snow_Depth=Initial_Distance - Temp_Corr_Distance

'Call Data Table and Store Data:

CallTable (Table1)

NextScan

EndProg

10.6 Programming Example 6

SR50AT RS-232 Mode CR1000

'CR1000 Series Datalogger

'In this example, the SR50AT is mounted 2.5 meters above the ground.

'The SR50AT is used in RS-232 mode (internal jumpers are set).

'The CR1000 sends a serial string to the SR50AT, 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: C2

'Declare Variables

'Declare SR50AData as a dimensioned string of maximum 50 chrs

Dim SR50AData as STRING * 50