M109 Entrada de usuario interactiva

P - Un nmero en el rango (500-549) que representa la variable macro del mismo nombre.

Este cdigo M permite a un programa con cdigo-G situar un pequeo aviso (mensaje) en la pantalla. Debe especificarse una variable macro en el rango de 500 a 549 con un cdigo P. El programa puede comprobar si hay algn carcter que pueda introducirse desde el teclado comparndolo con el equivalente decimal del carcter ASCII.

Valores para caracteres ASCII

32		espacio	59	;	punto y coma
33	!	smbolo de exclamacin	60	<	menor que
34	"	smbolo de comillas	61	=	igual
35	#	signo de nmero	62	>	mayor que
36	$	signo de dlar	63	?	signo de interrogacin
37	%	signo de porcentaje	64	@	arroba
38	&	ampersand	65-90	A-Z	letras maysculas
39		comilla de cierre	91	[	corchete cuadrado de apertura
40	(	parntesis de apertura	92	\	barra diagonal inversa
41	)	parntesis de cierre	93	]	corchete cuadrado de cierre
42	*	asterisco	94	^	signo de intercalacin
43	+	signo ms	95	_	subrayado
44	,	coma	96		comilla de apertura
45	-	signo menos	97-122	a-z	letras minsculas
46	.	punto	123	{	corchete de apertura
47	/	barra oblicua	124	\|	barra vertical
48-57	0-9	nmeros	125	}	corchete de cierre
58	:	dos puntos	126	~	tilde

El siguiente programa de ejemplo realizar al usuario una pregunta con respuesta S o No, luego esperar a que se introduzca un Y (S) o un N (No). El resto de caracteres se ignorarn.

  %
 
o61091 (57 M109_01 Interactive User Input) ;
 
N1 #501= 0. (Clear the variable) ;
 
N5 M109 P501 (Sleep 1 min?) ;
 
IF [ #501 EQ 0. ] GOTO5 (Wait for a key) ;
 
IF [ #501 EQ 89. ] GOTO10 (Y) ;
 
IF [ #501 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 ;
 
%

El siguiente programa de ejemplo solicitar al usuario que seleccione un nmero, y esperar a que se introduzca un 1, 2, 3, 4 o un 5; se ignorarn el resto de caracteres.

  %
 
O61092 (58 M109_02 Interactive User Input) ;
 
N1 #501= 0 (Clear Variable #501) ;
 
(Variable #501 will be checked) ;
 
(Operator enters one of the following selections) ;
 
N5 M109 P501 (1,2,3,4,5) ;
 
IF [ #501 EQ 0 ] GOTO5 ;
 
(Wait for keyboard entry loop until entry) ;
 
(Decimal equivalent from 49-53 represent 1-5) ;
 
IF [ #501 EQ 49 ] GOTO10 (1 was entered go to N10) ;
 
IF [ #501 EQ 50 ] GOTO20 (2 was entered go to N20) ;
 
IF [ #501 EQ 51 ] GOTO30 (3 was entered go to N30) ;
 
IF [ #501 EQ 52 ] GOTO40 (4 was entered go to N40) ;
 
IF [ #501 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) ;
 
#1106= 1 ;
 
N100 ;
 
M30 ;
 
%

G-code, M-code, and Setting