Section 7. Installation
228
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,mV20C,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
PortSet
(4,ToggleLED)
'Set control port according
'to result of processing
NextScan
EndProg
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: ......