Section 7. Installation
321
'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
'One Minute Data Table
DataTable
(OneMinTable,true,-1)
OpenInterval
'sets interval same as found in CR510
DataInterval
(0,1,Min,10)
Totalize
(1, KWHH,FP2,0)
Sample
(1, KWHHold,FP2)
Totalize
(1, KvarH,FP2,0)
Sample
(1, KVarHold,FP2)
Sample
(1, StationID,FP2)
EndTable
'Clock Set Record Data Table
DataTable
(ClockSetRecord,True,-1)
Sample
(7,ClkSet(),FP2)
EndTable
'Subroutine to convert date formats (day-of-year to month and date)
Sub
DOY2MODAY
'Store Year, DOY, Hour, Minute and Second to Input Locations.
Year = InStringSplit(1)
DOY = InStringSplit(2)
Hour = InStringSplit(3)
Minute = InStringSplit(4)
Second = InStringSplit(5)
uSecond = 0
'Check if it is a leap year:
'If Year Mod 4 = 0 and Year Mod 100 <> 0, then it is a leap year OR
'If Year Mod 4 = 0, Year Mod 100 = 0, and Year Mod 400 = 0, then it
'is a leap year
LeapYear = 0
'Reset leap year status location
LeapMOD4 = Year MOD 4
LeapMOD100 = Year MOD 100
LeapMOD400 = Year MOD 400
If
LeapMOD4 = 0
Then
Leap4 = True
Else
Leap4 = False
If
LeapMOD100 = 0
Then
Leap100 = True
Else
Leap100 = False
If
LeapMOD400 = 0
Then
Leap400 = True
Else
Leap400 = False
Summary of Contents for CR3000 Micrologger
Page 2: ......
Page 3: ......
Page 4: ......
Page 6: ......
Page 30: ......
Page 34: ......
Page 36: ......
Page 96: ......
Page 485: ...Section 8 Operation 485 8 11 2 Data Display FIGURE 110 Keyboard and Display Displaying Data ...
Page 487: ...Section 8 Operation 487 FIGURE 112 CR1000KD Real Time Custom ...
Page 491: ...Section 8 Operation 491 FIGURE 116 Keyboard and Display File Edit ...
Page 496: ......
Page 502: ......
Page 564: ...Section 11 Glossary 564 FIGURE 126 Relationships of Accuracy Precision and Resolution ...
Page 566: ......
Page 594: ......
Page 598: ......
Page 600: ......
Page 602: ......
Page 624: ......
Page 642: ......
Page 643: ......