Campbell-scientific CR9000X Measurement and Control System Uživatelský manuál stáhnout pdf (Strana 392)

Section 10. Custom Keyboard Display Menus

The MenuItem instruction creates an item that displays the value of a variable

and allows the value to be edited. The MenuItem can be set up to be edited

either by keying in a new numeric value or by selecting an option from a pick

list.

MenuPick is use to create a pick list for MenuItem. A link to another user

menu can be created with the SubMenu and EndSubMenu functions.

Example Program 10-1 is an example of a CRBasic program to set-up a custom

display. It is used as a model for the instructions in this section.

Example Program 10-1:

'Declare Variables for panel temperature, two thermocouples, a [down] counter

‘and a flag to determine if the count is active or not:

Public Tpnl, Ttc(2)

Public Counter, CountFlag

'Declare constants for menu display:

Const Yes = True

Const No = False

DataTable (Temp,1,1000) 'Define DataTable Temp:

DataInterval (0,1,Sec,10)

Average (1,Tpnl,IEEE4,0)

Average (2,Ttc(),IEEE4,0)

EndTable

DisplayMenu ("Example Custom Menu",1) 'Define Custom Menu:

SubMenu("Current Temperatures")

DisplayValue("Panel Temp",Tpnl)

DisplayValue("TC 1",Ttc(1))

DisplayValue("TC 2",Ttc(2))

EndSubMenu

SubMenu("Last 1 Min. Averages")

DisplayValue("Panel Temp",Temp.Tpnl_Avg(1,1))

DisplayValue("TC 1",Temp.Ttc_Avg(1,1))

DisplayValue("TC 2",Temp.Ttc_Avg(2,1))

EndSubMenu

SubMenu ("Play with Down Count")

MenuItem ("Enable",CountFlag)

MenuPick (Yes,No) 'Create a pick list with constants

MenuItem("Down Count",Counter)

MenuPick(15,30,45,60) 'Create a pick list for Counter

'While the counter can be reloaded with the above menu item,

'using a sub menu allows slightly more descriptive text:

SubMenu("Reload Down Counter")

MenuItem("Pick Count",Counter)

MenuPick(15,30,45,60) 'Create a pick list for Counter

MenuItem("Enter No.",Counter) 'no pick list = user enters #

EndSubMenu

EndMenu

BeginProg 'Main Program

Scan (10,mSec,100,0)

ModuleTemp (Tpnl,1,1,100)

TCDiff (Ttc(),2,mV50C,4,1,TypeT,Tpnl,True ,40,100,1.0,0)

If CountFlag Then

Counter=Counter-1

If Counter <=0 Then Counter=0

EndIf

CallTable Temp

NextScan

EndProg

10-2

1 2 ... 387 388 389 390 391 392 393 394 395 396 397 ... 441 442

Komentáře k této Příručce

Žádné komentáře

Campbell-scientific CR9000X Measurement and Control System Uživatelský manuál Strana 392

Komentáře k této Příručce

Související produkty a manuály pro Měřící nástroje Campbell-scientific CR9000X Measurement and Control System