Editeur - SERAD MCS 32 EX Guide D'utilisation

Documentation MCS32
La syntaxe est la suivante :
Exemple :
Attente:
IF Inp(BoutonDepart)=On Then Goto Depart
K#=INKEY
IF K#=0 Then Goto Attente
IF K#=@F1 Then Goto MenuF1
Goto Attente
La fonction WAIT KEY permet d'attendre l'appui sur une touche et de stocker ensuite le
code de cette touche dans la variable locale système KEY. Contrairement à la fonction
précédente, cette fonction est bloquante tant qu'aucune touche n'a été appuyée. La syntaxe est la
suivante : WAIT KEY
Enfin, la variable système KEY contient le code de la dernière touche appuyée dans les
fonctions WAIT KEY ou EDIT. Cette variable est locale à la tâche et ne peut qu'être lue.
Exemple :
WAIT KEY
IF KEY=@F1 THEN GOTO ...
IF KEY=@F2 THEN GOTO ...
...

8-3-4- Editeur

Les terminaux DIALOG 80, 160 et 640 autorisent, via la commande EDIT, de saisir un réel
avec ou sans signe et point, en l'affichant à un endroit précis de l'écran. Dans la ligne
d'instructions, on choisit le nom de la variable réelle (<Variable>), les numéros de ligne
(<Ligne>) et de colonne (<Colonne>) du premier chiffre de la saisie. On peut également
préciser si oui ou non (0 ou 1) on utilise le signe (<Signe>) et/ou le point (<Point>).
La syntaxe est la suivante : <Variable> = EDIT(<Ligne>,<Colonne>,<Longueur>,<Signe>,
Pour saisir la valeur sur les pupitres opérateurs, on utilise les touches numériques, les touches
DEL pour effacer, ENTER pour valider et ESC pour abandonner la saisie.
Exemple :
Saisie!=EDIT(1,5,4,0,0)
If Key=@ESC Then Goto MenuPrincipal
If (Saisie!<10) Or (Saisie!>50) Then
Beep
Goto MenuPrincipal
End If
Longueur=Saisie!
Goto MenuPrincipal
La fonction EDIT possède une deuxième syntaxe. Cette deuxième forme permet d'autoriser des
saisies de code d'accès en affichant directement une étoile (*) à chaque touche enfoncée. Ce
mode est autorisé par le bit <Code>. La syntaxe est la suivante : <Variable> =
EDIT(<Ligne>,<Colonne>,<Longueur>,<Signe>,<Point>,<Code>).
SaisieCode!=EDIT(1,5,4,0,0,1)
If Key=@ESC Then Goto MenuPrincipal
If (SaisieCode!=CodeReglage) Then
Goto MenuReglage
Else
Beep
Goto MenuPrincipal
End If
R342
EX
<Variable>=INKEY
'attente d'une touche
'édition d'un réel de quatre chiffres
'sans point ni signe en ligne 1 et colonne 5
'Scrutation du clavier
<Point>).
'édition d'un réel de quatre chiffres
'sans point ni signe en ligne 1 et
'colonne 5 en mode saisie de
'code d'accès
- 146 - SERAD S.A.