Vamos a poner un ejemplo de un procedimiento para que haga diversas acciones en función de la tecla que hemos pulsado. Utilizaremos la primitiva LEECARACTER (LC) y el operador lógico O.
Para Pulsa_Tecla
BT
ES [PROCEDIMIENTO DETECCIÓN DE TECLA]
REPITE 3 [ES []]
ES [Pulsa la tecla 1 o 2]
ES [Si quieres acabar pulsa la tecla F]
Haz "Tecla LC
Si :Tecla ="1 [ES [Pulsaste la tecla 1]]
Si :Tecla ="2 [ES [Pulsaste la tecla 2]]
Si O :Tecla ="f :Tecla = "F [ES [Pulsaste la tecla (F)IN, el programa se detendrá] ALTO]
ESPERA 100 BP
Pulsa_Tecla
FIN
Pulsa_Tecla
....
Para Pulsa_Tecla
BT
ES [PROCEDIMIENTO DETECCIÓN DE TECLA]
REPITE 3 [ES []]
ES [Pulsa la tecla 1 o 2]
ES [Si quieres acabar pulsa la tecla F]
Haz "Tecla LC
Si :Tecla ="1 [ES [Pulsaste la tecla 1]]
Si :Tecla ="2 [ES [Pulsaste la tecla 2]]
Si O :Tecla ="f :Tecla = "F [ES [Pulsaste la tecla (F)IN, el programa se detendrá] ALTO]
ESPERA 100 BP
Pulsa_Tecla
FIN
Pulsa_Tecla
....
No hay comentarios:
Publicar un comentario