Início da Assistência M109 Introduo interativa pelo utilizador

M109 Introduo interativa pelo utilizador

M109 Introduo interativa pelo utilizador

P - Um nmero no intervalo (500-549 ou 10500-10549) que represente a varivel macro com o mesmo nome.

M109 permite a um programa de cdigo G colocar um aviso (mensagem) no ecr. Deve usar um cdigo P para especificar a varivel macro dentro do intervalo de 500-549 ou 10500-10549. O programa consegue verificar qualquer carater que possa ser introduzido atravs do teclado comparando com o equivalente decimal do carater ASCII (G47, Gravar Texto, tem uma lista de carateres ASCII).


NOTE		 As variveis de macro 540-599 e 10549-10599 so reservadas para a opo WIPS (sonda). Se a sua mquina estiver equipada com WIPS, utilize apenas o P500-539 ou o P10500-10599.

O programa de exemplo seguinte pergunta ao utilizador uma questo Yes No ou no, depois aguarda que seja introduzido Y ou um N. Todos os outros carateres so ignorados.

%
O61091 (M109 INTERACTIVE USER INPUT) ;
(This program has no axis movement) ;
N1 #10501= 0. (Clear the variable) ;
N5 M109 P10501 (Sleep 1 min?) ;
IF [ #10501 EQ 0. ] GOTO5 (Wait for a key) ;
IF [ #10501 EQ 89. ] GOTO10 (Y) ;
IF [ #10501 EQ 78. ] GOTO20 (N) ;
GOTO1 (Keep checking) ;
N10 (A Y was entered) ;
M95 (00:01) ;
GOTO30 ;
N20 (An N was entered) ;
G04 P1. (Do nothing for 1 second) ;
N30 (Stop) ;
M30 ;
%

O programa de exemplo seguinte pede ao utilizador para selecionar um nmero, depois espera que seja introduzido 1, 2, 3, 4 ou 5; todos os outros carateres so ignorados.

%
O00065 (M109 INTERACTIVE USER INPUT 2) ;
(This program has no axis movement) ;
N1 #10501= 0 (Clear Variable #10501) ;
(Variable #10501 will be checked) ;
(Operator enters one of the following selections) N5 M109 P501 (1,2,3,4,5) ;
IF [ #10501 EQ 0 ] GOTO5 ;
(Wait for keyboard entry loop until entry) ;
(Decimal equivalent from 49-53 represent 1-5) ;
IF [ #10501 EQ 49 ] GOTO10 (1 was entered go to N10) ;
IF [ #10501 EQ 50 ] GOTO20 (2 was entered go to N20) ;
IF [ #10501 EQ 51 ] GOTO30 (3 was entered go to N30) ;
IF [ #10501 EQ 52 ] GOTO40 (4 was entered go to N40) ;
IF [ #10501 EQ 53 ] GOTO50 (5 was entered go to N50) ;
GOTO1 (Keep checking for user input loop until found) ;
N10 ;
(If 1 was entered run this sub-routine) ;
(Go to sleep for 10 minutes) ;
#3006= 25 (Cycle start sleeps for 10 minutes) ;
M95 (00:10) ;
GOTO100 ;
N20 ;
(If 2 was entered run this sub routine) ;
(Programmed message) ;
#3006= 25 (Programmed message cycle start) ;
GOTO100 ;
N30 ;
(If 3 was entered run this sub routine) ;
(Run sub program 20) ;
#3006= 25 (Cycle start program 20 will run) ;
G65 P20 (Call sub-program 20) ;
GOTO100 ;
N40 ;
(If 4 was entered run this sub routine) ;
(Run sub program 22) ;
#3006= 25 (Cycle start program 22 will be run) ;
M98 P22 (Call sub program 22) ;
GOTO100 ;
N50 ;
(If 5 was entered run this sub-routine) ;
(Programmed message) ;
#3006= 25 (Reset or cycle start will turn power off) ;
#12006= 1 ;
N100 ;
M30 (End Program);
%