-
Notifications
You must be signed in to change notification settings - Fork 4
/
GetSysInfo.cr1
50 lines (47 loc) · 1.34 KB
/
GetSysInfo.cr1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
'CR1000 Series Datalogger
'
'Get basic CR1000 System Information
'
'Program Author
'Frank L. Engel
'
'Program Version Date
Const ProgramVersionDate = 20150126
'Declarations
Public SerNum As Long
Public OSVersion As String * 18
Public Program As String * 25
Public ProgErrors As Long
Public Low12Volts As Long
Public LithBat As Float
'Public WatchDog As Long
Public SkipScans As Long
Public FreeCFMem As Float
Public RecSysInfoFlag As Boolean
'______________________________Get System Information_____________________________________
Sub GetSysInfo
Battery (CR1Volts) 'get battery volts
SerNum = Status.SerialNumber(1,1)
OSVersion = Status.OSVersion(1,1)
Program = Status.ProgName(1,1)
ProgErrors = Status.ProgErrors(1,1)
Low12Volts = Status.Low12VCount(1,1)
LithBat = Status.LithiumBattery(1,1)
'WatchDog = Status.WatchdogErrors(1,1)
SkipScans = Status.SkippedScan(1,1)
FreeCFMem = Status.CardBytesFree(1,1)
EndSub
'Table for GetSysInfo Output
DataTable(SystemInfo,RecSysInfoFlag,-1)
'CardOut(0,-1)
Sample (1,Program,String)
Sample (1,ProgramVersionDate,String)
Sample (1,SerNum,Long)
Sample (1,OSVersion,String)
Sample (1,ProgErrors,Long)
Sample (1,Low12Volts,Long)
Sample (1,LithBat,FP2)
'Sample (1,WatchDog,Long)
Sample (1,SkipScans,Long)
Sample (1,FreeCFMem,IEEE4)
EndTable