debut: SEROUT 0,103,0,0 ,["L"] 'mode basse resolution boucle: SEROUT 0,103,0,0 ,["G"] 'demande de bloquer l'etat de la sourie SERIN 1,103,0,50 , boucle ,[ paquet ( 1 )~ 3 ] 'receuil les donnÈes LOCATE 0,0 a = paquet ( 1 ).0 'met le bit 0 dans a b = paquet ( 1 ).1 'met le bit 1 dans b c = paquet ( 1 ).4 'met le bit 4 dans c d = paquet ( 1 ).5 'met le bit 5 dans d IF a = 1 THEN LOCATE 1,0 :BUSOUT &H A2 ,&H 04,0 'bouton guauche IF b = 1 THEN LOCATE 14,0 :BUSOUT &H A2 ,&H 04,0 'bouton droit IF c = 1 THEN 'dÈcel si la souris a ÈtÈ sur la guauche IF paquet ( 2 )<> 0 THEN LOCATE 3,2 PRINT DEC( paquet ( 2 ), 2 ) BUSOUT &H A2 ,&H 02,0 END IF END IF IF d = 1 THEN 'dÈcel si la souris a ÈtÈ en arriere IF paquet ( 3 )<> 0 THEN LOCATE 6,3 PRINT DEC( paquet ( 3 ), 2 ) LOCATE 7,2 BUSOUT &H A2 ,&H 03,0 END IF END IF IF c = 0 THEN 'dÈcel si la souris a ÈtÈ a droite IF paquet ( 2 )<> 0 THEN LOCATE 8,2 BUSOUT &H A2 ,&H 01,0 PRINT DEC( paquet ( 2 ), 2 ) END IF END IF IF d = 0 THEN 'dÈcel si la sourie a ÈtÈ en avant IF paquet ( 3 )<> 0 THEN LOCATE 6,2 BUSOUT &H A2 ,&H 04,0 LOCATE 5,1 PRINT DEC ( paquet ( 3 ), 2 ) END IF END IF DELAY 300 CLS GOTO boucle cloture: LOCATE 0,3 PRINT "rien ", init BEEP 11 BREAK
module brancher sur le picbasic
CONST device=3B '*************************************************************** ' programme d'utilisation d'une sourie '*************************************************************** 'les ports utilisés ' 0 = RX ' 1 = TX ' 11 pour le son 'branchement de la souris '1=+5v '2-TX=port 1 du pic=commande SERIN '3-RX=port 0 du pic=commande SEROUT '4= GND 'les commandes 'SERIN,port=1,vitesse=103,mode=0,duree=,adresse=s_routine,variable de reception 'SEROUT,port=0,vitesse=103,mode=0,duree=,adresse=s_routine,variable d'envoie SET PICBUS HIGH 'met le bus a 19200 bps LCDINIT 'initialise l'afficheur LCD CSROFF 'suprime le curseur DIM init AS BYTE DIM paquet ( 4 )AS BYTE DIM result ( 4 )AS BYTE DIM a AS BYTE DIM b AS BYTE DIM c AS BYTE DIM d AS BYTE 'formation des fleches BUSOUT &H A5 ,&H 01,0,4,2,31,2,4,0,0 'fleche droite BUSOUT &H A5, &H 02,0,4,8,31,8,4,0,0 'fleche guauche BUSOUT &H A5 ,&H 03,4,4,4,4,4,21,10,4 'fleche arriere BUSOUT &H A5 ,&H 04,4,10,21,4,4,4,4,4 'fleche avant CSROFF LOCATE 0,0 PRINT "initialisation" LOCATE 0,1 : PRINT" de la souris" delay 1000 'un delay pour que la souris sois bien alimentÈe aux dÈpart SEROUT 0,103,0,0 ,["I"] 'initialise la sourie SERIN 1,103,0,400 , cloture ,[ init ] ' retour de l'initialisation dans init CLS 'controle du retour de souris IF init = 24 THEN PRINT "pas de reponce":GOTO cloture IF init = 21 THEN PRINT "mauvais code":GOTO cloture IF init = 6 THEN GOTO debut 'la sourie repond OK GOTO cloture suite →
module ezMOUSE
BRANCHEMENT D'UNE SOURIS PC SUR UN PICBASIC
module brancher sur la platine d'essai
les adresses a consultées pour l'achat chez LEXTRONIC la doc en anglais application LEXTRONIC
Module "ezMOUSE"Ce petit module vous permettra de récupérer les informations d'une souris compatible PS/2 sous la forme de données séries (interfaçage simple au niveau TTL / 9600 bds via 2 fils). Sans aucune connaissance du protocole et du mode de fonctionnement des souris, vous pourrez connaitre l'état de ses boutons initialiser sa position, connaître sa position par rapport à la dernière acquisition, sélectionner 4 résolutions différentes (basse, moyenne, haute, super-haute).
ACCEUIL CONTACT
module brancher sur le picbasic
CONST device=3B '*************************************************************** ' programme d'utilisation d'une sourie '*************************************************************** 'les ports utilisés ' 0 = RX ' 1 = TX ' 11 pour le son 'branchement de la souris '1=+5v '2-TX=port 1 du pic=commande SERIN '3-RX=port 0 du pic=commande SEROUT '4= GND 'les commandes 'SERIN,port=1,vitesse=103,mode=0,duree=,adresse=s_routine,variable de reception 'SEROUT,port=0,vitesse=103,mode=0,duree=,adresse=s_routine,variable d'envoie SET PICBUS HIGH 'met le bus a 19200 bps LCDINIT 'initialise l'afficheur LCD CSROFF 'suprime le curseur DIM init AS BYTE DIM paquet ( 4 )AS BYTE DIM result ( 4 )AS BYTE DIM a AS BYTE DIM b AS BYTE DIM c AS BYTE DIM d AS BYTE 'formation des fleches BUSOUT &H A5 ,&H 01,0,4,2,31,2,4,0,0 'fleche droite BUSOUT &H A5, &H 02,0,4,8,31,8,4,0,0 'fleche guauche BUSOUT &H A5 ,&H 03,4,4,4,4,4,21,10,4 'fleche arriere BUSOUT &H A5 ,&H 04,4,10,21,4,4,4,4,4 'fleche avant CSROFF LOCATE 0,0 PRINT "initialisation" LOCATE 0,1 : PRINT" de la souris" delay 1000 'un delay pour que la souris sois bien alimentÈe aux dÈpart SEROUT 0,103,0,0 ,["I"] 'initialise la sourie SERIN 1,103,0,400 , cloture ,[ init ] ' retour de l'initialisation dans init CLS 'controle du retour de souris IF init = 24 THEN PRINT "pas de reponce":GOTO cloture IF init = 21 THEN PRINT "mauvais code":GOTO cloture IF init = 6 THEN GOTO debut 'la sourie repond OK GOTO cloture suite →
module ezMOUSE
BRANCHEMENT D'UNE SOURIS PC SUR UN PICBASIC
module brancher sur la platine d'essai
les adresses a consultées pour l'achat chez LEXTRONIC la doc en anglais application LEXTRONIC
Module "ezMOUSE"Ce petit module vous permettra de récupérer les informations d'une souris compatible PS/2 sous la forme de données séries (interfaçage simple au niveau TTL / 9600 bds via 2 fils). Sans aucune connaissance du protocole et du mode de fonctionnement des souris, vous pourrez connaitre l'état de ses boutons initialiser sa position, connaître sa position par rapport à la dernière acquisition, sélectionner 4 résolutions différentes (basse, moyenne, haute, super-haute).
ACCEUIL CONTACT