Campbell CR1000 User Manual

Section 7. Installation
Case Is < 305
Month = 10
Date = DOY + -273
Case Is < 336
Month = 11
Date = DOY + -304
Case Is < 366
Month = 12
Date = DOY + -334
EndSelect
EndIf
EndSub
'//////////////////////////// PROGRAM ////////////////////////////
BeginProg
StationID = 4771
Scan(1,Sec, 3, 0)
'/////////////////Measurement Section////////////////////////
'PulseCount(KWH_In, 1, 1, 2, 0, 1, 0) 'Activate this line in working program
KWH_In = 4.5 'Simulation -- delete this line from working program
'PulseCount(KVarH_I, 1, 2, 2, 0, 1, 0) 'Activate this line in working program
KVarH_I = 2.3 'Simulation -- delete this line from working program
KWHH = KWH_In
KvarH = KVarH_I
KWHHold = KWHH + KWHHold
KVarHold = KvarH + KVarHold
CallTable OneMinTable
'////////////////////Serial I/O Section/////////////////////
SerialOpen(ComRS232,9600,0,0,10000)
'///////////////Serial Time Set Input Section///////////////
'Accept old C command -- [2008:028:10:36:22]C -- parse, process, set
'clock (Note: Chr(91) = "[", Chr(67) = "C")
SerialInRecord(ComRS232,InString,91,0,67,InStringSize,01)
If InStringSize <> 0 Then
SplitStr(InStringSplit,InString,"",5,0)
Call DOY2MODAY 'Call subroutine to convert day-of-year
'to month & day
ClkSet(1) = Year
ClkSet(2) = Month
ClkSet(3) = Date
ClkSet(4) = Hour
ClkSet(5) = Minute
ClkSet(6) = Second
ClkSet(7) = uSecond
'Note: ClkSet array requires year, month, date, hour, min, sec, msec
ClockSet(ClkSet())
CallTable(ClockSetRecord)
EndIf
263

Campbell CR1000 Specifications

General

Power Requirements	9.6 to 16 VDC
Data Logger Operating System	CRBasic
Memory	4 MB
Analog Inputs	16 single-ended or 8 differential
Analog Input Resolution	13 bits
Analog Input Range	+/-2.5V
Digital I/O	8
Pulse Counters	2
Communication Ports	RS-232
Operating Temperature	-25°C to +50°C
Pulse Channels	4