Campbell CR800 Series - Page 213

Section 7. Installation
213
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
SubMenu("Control ") 'Create Submenu named PanelTemps
MenuItem("Count to LED",CountDown) 'Create menu item CountDown
MenuPick(15,30,45,60) 'Create a pick list for CountDown
MenuItem("Manual LED",toggleLED) 'Manual LED control Menu Item
MenuPick(On,Off)
EndSubMenu
EndMenu 'End custom menu creation
'Main Program
BeginProg
CycleNotes = "??????" 'Initialize Notes Sub Menu,
'write ????? as a null
Scan(1,Sec,3,0)
'Measurements
PanelTemp(RefTemp,250) 'Measure Reference Temperature
'Measure Two Thermocouples
TCDiff(TCTemp(),2,mV2_5C,1,TypeT,RefTemp,True,0,_60Hz,1.0,0)
CallTable TempC 'Call data table
'Menu Item "Make Notes" Support Code
If CycleNotes = "Accept" Then
CallTable Notes 'Write data to Notes data table
CycleNotes = "Accepted" 'Write "Accepted" after written
Delay(1,500,mSec) 'Pause so user can read "Accepted"
SelectNote = "" 'Clear pick list note
EnterNote = "" 'Clear free entry note
CycleNotes = "??????" 'Write ????? as a null prompt
EndIf
If CycleNotes = "Clear" Then 'Clear notes when requested
SelectNote = "" 'Clear pick list note
EnterNote = "" 'Clear free entry note
CycleNotes = "??????" 'Write ????? as a null prompt
EndIf
'Menu Item "Control" Menu Support Code
CountDown = CountDown - 1 'Count down by 1
If CountDown <= 0 'Stop count down from passing 0
CountDown = 0
EndIf
If CountDown > 0 Then
StartFlag = True 'Indicate countdown started
EndIf
If StartFlag = True AND CountDown = 0 Then'Interprocess count down
'and manual LED
ToggleLED = True
StartFlag = False
EndIf
If StartFlag = True AND CountDown <> 0 Then'Interprocess count down and manual LED
ToggleLED = False
EndIf