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
Summary of Contents for CR1000
Page 2: ......
Page 4: ......
Page 6: ......
Page 32: ......
Page 36: ......
Page 38: ......
Page 40: ......
Page 60: ...Section 4 System Quickstart Figure 16 PC200W View Line Graph 60 ...
Page 96: ......
Page 98: ...98 ...
Page 302: ......
Page 453: ...Section 8 Operation Figure 115 Using the Keyboard Display 453 ...
Page 456: ...Section 8 Operation Figure 118 Real Time Custom 456 ...
Page 457: ...Section 8 Operation 8 8 1 3 Final Memory Tables Figure 119 Final Memory Tables 457 ...
Page 458: ...Section 8 Operation 8 8 2 Run Stop Program Figure 120 Run Stop Program 458 ...
Page 460: ...Section 8 Operation Figure 122 File Edit 460 ...
Page 461: ...Section 8 Operation 8 8 4 PCCard Memory Card Display Figure 123 PCCard CF Card Display 461 ...
Page 478: ......
Page 506: ......
Page 536: ......
Page 636: ......
Page 642: ......
Page 644: ......
Page 676: ......
Page 677: ......