Campbell CR1000 User Manual

Section 7. Installation
Const Cal_Done = "Cal Done" 'Word stored when Cal_Don selected
Const Offst_Chgd = "Offset Changed" 'Word stored when Offst_Chgd selected
Const Blank = "" 'Word stored when blank selected
Public EnterNote As String * 30 'Variable to hold free entry note
Public CycleNotes As String * 20 'Variable to hold notes control word
Const Accept = "Accept" 'Notes control word
Const Clear = "Clear" 'Notes control word
'Declarations supporting Control menu item
Const On = true 'Assign "On" as Boolean True
Const Off = false 'Assign "Off" as Boolean False
Public StartFlag As Boolean 'LED Control Process Variable
Public CountDown As Long 'LED Count Down Variable
Public ToggleLED As Boolean 'LED Control Variable
'Define Note DataTable 'Set up Notes data table, written
DataTable(Notes,1,-1) 'to when a note is accepted
Sample(1,SelectNote,String) 'Sample Pick List Note
Sample(1,EnterNote,String) 'Sample Free Entry Note
EndTable
'Define temperature DataTable 'Set up temperature data table.
DataTable(TempC,1,-1) 'Written to every 60 seconds with:
DataInterval(0,60,Sec,10)
Sample(1,RefTemp,FP2) 'Sample of reference temperature
Sample(1,TCTemp(1),FP2) 'Sample of thermocouple 1
Sample(1,TCTemp(2),FP2) 'Sample of thermocouple 2
EndTable
'Custom Menu Declarations
DisplayMenu("**CUSTOM MENU DEMO**",-3) 'Create Menu; Upon power up, the custom menu
'is displayed. The system menu is hidden
'from the user.
SubMenu("") 'Dummy Sub menu to write a blank line
DisplayValue("",Escape) 'a blank line
EndSubMenu 'End of dummy submenu
SubMenu("View Data ") 'Create Submenu named PanelTemps
DisplayValue("Ref Temp C",RefTemp) 'Item for Submenu from Public
DisplayValue("TC 1 Temp C",TCTemp(1)) 'Item for Submenu - TCTemps(1)
DisplayValue("TC 2 Temp C",TCTemp(2)) 'Item for Submenu - TCTemps(2)
EndSubMenu 'End of Submenu
SubMenu("Make Notes ") 'Create Submenu named PanelTemps
MenuItem("Predefined",SelectNote) 'Choose predefined notes Menu Item
MenuPick(Cal_Done,Offset_Changed) 'Create pick list of predefined notes
MenuItem("Free Entry",EnterNote) 'User entered notes Menu Item
MenuItem("Accept/Clear",CycleNotes)
MenuPick(Accept,Clear)
EndSubMenu
186

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