Example cr1000 datalogger program for measuring a, Windsonic1 using comn port, Communications and serialinrecord() – Campbell Scientific WINDSONIC 2-D Sonic Wind Sensors User Manual
Page 21: 6. wiring, Cr1000 example program

WindSonic Two-Dimensional Sonic Anemometer
TABLE 7-5. CRBasic Datalogger Operating
Systems that Support RS-232
Communications and SerialInRecord()
Datalogger Model
Operating System
CR800-series 4.0
or
later
CR1000
13.0 or later
CR3000 6.0
or
later
7.3.1 Example CR1000 Datalogger Program for Measuring a WindSonic1
using COMn Port
TABLE 7-6. Wiring for CR1000 Example Program
Description Color
CR1000
WindSonic RxD
Green COM1 Tx (C1)
WindSonic TxD
White COM1 Rx (C2)
Power Red
+12
Vdc
RS-232/Power reference
Black
G
Shield Clear
G
'CR1000 Series Datalogger
Dim in_bytes_str As String * 21
Dim windsonic(4) As String
Public nmbr_bytes_rtrnd
Public wind_direction
Public wind_speed
Public diag
Units wind_direction = degrees
Units wind_speed = m/s
Units diag = unitless
Dim checksum_flg As Boolean
Dim disable_flg As Boolean
Dim n
Units n = arb
DataTable (stats,TRUE,-1)
DataInterval (0,30,Min,10)
WindVector (1,wind_speed,wind_direction,IEEE4,disable_flg,0,0,0)
FieldNames ("mean_wind_speed,mean_wind_direction,std_wind_dir")
Totalize (1,n,IEEE4,disable_flg)
FieldNames ("samples_TOT")
Totalize (1,n,IEEE4,diag<>1)
FieldNames ("diag_1_TOT")
Totalize (1,n,IEEE4,diag<>2)
FieldNames ("diag_2_TOT")
Totalize (1,n,IEEE4,diag<>4)
FieldNames ("diag_4_TOT")
Totalize (1,n,IEEE4,diag<>8)
FieldNames ("diag_8_TOT")
Totalize (1,n,IEEE4,diag<>9)
FieldNames ("diag_9_TOT")
Totalize (1,n,IEEE4,diag<>10)
13