Campbell CR800 Series, Operator'S Manual

Page: 213 / 598

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