Table des Matières
Publicité
Chapitre 10. Menus pour l'écran d'affichage personnalisé
Exemple :
' Exemple de menu personnalisé pour CR1000
'Déclare les variables pour la température du bornier, deux thermocouples, un 'compteur
vers le [bas] et un drapeau pour déterminer si le compteur est actif ou non :
Public Tpnl, Ttc(2)
Public Counter, CountFlag
'Déclare les constantes pour le menu d'affichage :
Const Yes = True
Const No = False
'Définition du tableau de données Temp :
DataTable (Temp,1,1000)
DataInterval (0,60,Sec,10)
Average (1,Tpnl,IEEE4,0)
Average (2,Ttc(),IEEE4,0)
EndTable
'Définition du menu personnalisé :
DisplayMenu ("Example Custom Menu",1)
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)
MenuItem("Down Count",Counter)
' Alors que compteur peut être ré-initialisé à partir des éléments du menu
' précédent, le fait d'utiliser un sous-menu permet d'avoir un peu plus de texte :
SubMenu("Reload Down Counter")
EndSubMenu
EndSubMenu
EndMenu
'Programme principal
BeginProg
Scan (1,Sec,3,0)
PanelTemp (Tpnl,250)
TCDiff (Ttc(),2,mV20C ,1,TypeT,Tpnl,True ,0,250,1.0,0)
If CountFlag Then
EndIf
CallTable Temp
NextScan
EndProg
10-2
MenuPick (Yes,No)
'Crée un choix multiple avec des constantes
MenuPick(15,30,45,60)
MenuItem("Pick Count",Counter)
MenuPick(15,30,45,60)
MenuItem("Enter No.",Counter)
Counter=Counter-1
If Counter <=0 Then Counter=0
'Crée un choix multiple pour le compteur.
'Crée un choix multiples pour le compteur
'pas de choix multiple = entrer #
Publicité
Table des Matières
