El mouse habla, el BASIC Stamp escucha
Aristides (MicrosParallax.com.ar)
Tan habituados estamos al uso del mouse que a veces quisiéramos tener uno para cada cosa que debemos manejar, por tal motivo he estado investigando la posibilidad de comunicarlo con el BASIC Stamp.
Los resultados positivos los he logrado con mouses del tipo más simple
y económico, el motivo de esto supongo que se debe a que los más
especiales (caros), disponen de controladores con los cuales establecen la comunicación
por medio de un protocolo propio.
Análisis de la señal
Al mover el mouse sobre una superficie se genera una señal de tres bytes
consecutivos con velocidad de comunicación de1200 Baudios.
Programa
El programa se la pasa verificando con SERIN la llegada de la señal
del mouse, cuando esta se hace presente, la acumula en tres variables, por medio
de la comparación de estos valores, se puede determinar la dirección
del movimiento y de esta forma el programa se redirecciona, (en nuestro caso
sólo se muestran los valores en la pantalla DEBUG) para obrar en consecuencia.
 |
LISTADO DEL CÓDIGO
'{$STAMP BS2}
dir VAR WORD(3)
verifica:
SERIN 4, 17197, [dir(1), dir(2), dir(3)]
DEBUG ? dir(1), ? dir(2), ? dir(3), CR
PAUSE 10
GOTO verifica
Código fuente para BASIC Stamp SX
'{$STAMP BS2sx}
dir VAR WORD(3)
verifica:
SERIN 4, 18447, [dir(1), dir(2), dir(3)]
DEBUG ? dir(1), ? dir(2), ? dir(3), CR
PAUSE 10
GOTO verifica
|
