Campbell Scientific CR1000KD CR1000 Measurement and Control System - Page 197
As Boolean
View all Campbell Scientific CR1000KD manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 197 highlights
Section 7. Installation Const Off = false Public StartFlag As Boolean Public CountDown As Long Public ToggleLED As Boolean 'Define Note DataTable DataTable(Notes,1,-1) Sample(1,SelectNote,String) Sample(1,EnterNote,String) EndTable 'Define temperature DataTable DataTable(TempC,1,-1) DataInterval(0,60,Sec,10) Sample(1,RefTemp,FP2) Sample(1,TCTemp(1),FP2) Sample(1,TCTemp(2),FP2) EndTable 'Custom Menu Declarations DisplayMenu("**CUSTOM MENU DEMO**",-3) SubMenu("") DisplayValue("",Escape) EndSubMenu SubMenu("View Data ") DisplayValue("Ref Temp C",RefTemp) DisplayValue("TC 1 Temp C",TCTemp(1)) DisplayValue("TC 2 Temp C",TCTemp(2)) EndSubMenu SubMenu("Make Notes ") MenuItem("Predefined",SelectNote) MenuPick(Cal_Done,Offset_Changed) MenuItem("Free Entry",EnterNote) MenuItem("Accept/Clear",CycleNotes) MenuPick(Accept,Clear) EndSubMenu SubMenu("Control ") MenuItem("Count to LED",CountDown) MenuPick(15,30,45,60) MenuItem("Manual LED",toggleLED) MenuPick(On,Off) EndSubMenu EndMenu 'Main Program BeginProg CycleNotes = "??????" Scan(1,Sec,3,0) 'Measurements PanelTemp(RefTemp,250) 'Assign "Off" as Boolean False 'LED Control Process Variable 'LED Count Down Variable 'LED Control Variable 'Set up Notes data table, written 'to when a note is accepted 'Sample Pick List Note 'Sample Free Entry Note 'Set up temperature data table. 'Written to every 60 seconds with: 'Sample of reference temperature 'Sample of thermocouple 1 'Sample of thermocouple 2 'Create Menu; Upon power up, the custom menu 'is displayed. The system menu is hidden 'from the user. 'Dummy Sub menu to write a blank line 'a blank line 'End of dummy submenu 'Create Submenu named PanelTemps 'Item for Submenu from Public 'Item for Submenu - TCTemps(1) 'Item for Submenu - TCTemps(2) 'End of Submenu 'Create Submenu named PanelTemps 'Choose predefined notes Menu Item 'Create pick list of predefined notes 'User entered notes Menu Item 'Create Submenu named PanelTemps 'Create menu item CountDown 'Create a pick list for CountDown 'Manual LED control Menu Item 'End custom menu creation 'Initialize Notes Sub Menu, 'write ????? as a null 'Measure Reference Temperature 197