CR1000 Manual - Campbell Scientific

Section 7. Installation
recognize the C command. CR1000 dataloggers, however, require custom
programming to output and accept these same ASCII strings. A similar program
can be used to emulate CR10X and CR23X dataloggers.
Solution: CRBasic example Measure Sensors / Send RS-232 Data (p. 215) imports
and exports serial data via the CR1000 RS-232 port. Imported data are expected
to have the form of the legacy Campbell Scientific time set C command. Exported
data has the form of the legacy Campbell Scientific Printable ASCII format.
Note The nine-pin RS-232 port can be used to download the CR1000 program if
the SerialOpen() baud rate matches that of the datalogger support software (p. 399,
p. 451). However, two-way PakBus ® communications will cause the CR1000 to
occasionally send unsolicited PakBus ® packets out the RS-232 port for at least 40
seconds after the last PakBus ® communication. This will produce some "noise" on
the intended data-output signal.
Monitor the CR1000 RS-232 port with the HyperTerminal instance described in
Configure HyperTerminal (p. 211). Send C-command file to set the clock according
to the text in the file.
Note The HyperTerminal file will not update automatically with actual time. The
file only simulates a clock source for the purposes of this example.
CRBasic Example 41.
Measure Sensors / Send RS‐232 Data
'CR1000 is programmed to accept legacy "C" command to set the CR1000 clock.
'Declarations
'Visible Variables
Public StationID
Public KWH_In
Public KVarH_I
Public KWHHold
Public KVarHold
Public KWHH
Public KvarH
Public InString As String * 25
Public OutString As String * 100
'Hidden Variables
Dim i, rTime(9), OneMinData(6), OutFrag(6) As String
Dim InStringSize, InStringSplit(5) As String
Dim Date, Month, Year, DOY, Hour, Minute, Second, uSecond
Dim LeapMOD4, LeapMOD100, LeapMOD400
Dim Leap4 As Boolean, Leap100 As Boolean, Leap400 As Boolean
Dim LeapYear As Boolean
Dim ClkSet(7) As Float
215