Buscador
YoReparo.com La Web 

Regístrate gratis para participar de los foros, o si ya estás registrado haz login.

Foros de soluciones « Diseño electrónico

como acceder a los datos del puerto del mouse

Vie Jun 06, 2008 10:15 am
   
muchachos tengo que hacer un proyecto de controlatar unos servomotores, con el mouse del compu, si el mouse se mueve para arriba o para abajo uno de los motroes se activa para la derecha o izauierda segun sea la direccion del mouse, si el mouse se mueve para la derecha o para la izquierda el otro motor se3 movera para la derecha o para la izqueirda segun la direccion del mouse, ese es mi proyecto, lo de los motores es sencillo, lo que no se como hacer es acceder a mi compu para tener info acerca del puerto del mouse asi que esa es la parte que necesito que porfavor me colaboren, de3 verdad les agredesco muchachos

espero respuesta


flameboy

flameboy

Reputación
Dom Jun 08, 2008 10:28 am
   
no dices con que lenguaje pero al hay varias formas

leyendo las direcciones de memoria del mouse
esto se hace mas fácil usando c con asm embebido

y usando un lenguaje de alto nivel que permita la creacion de interfaces gráficas
en estos es obvio que se puede saber la posición del mouse fácilmente

claro que todo esto s usando la compu si quieres conectar un mouse a un pic es otra cosa
el protocolo del mouse ps2 es ttl con un clock y un data yo estoy haciendo algo parecido.

otro juan

Reputación
Lun Jun 09, 2008 7:48 pm
   
a ver.....

para copiarla hace click en responder citando
y la copias de ahi
**********************************************************************************************************************************
'Rutina para detectar el estado de los botones
Private Sub Timer1_Timer () 'se repite cada 100 ms
Dim Valor As Integer

Valor = Lerr (&H201) 'lee el puerto
If (Valor And 16) = 0 Then 'filtra el boton 1
Shape1.BackStyle = 1 'cambia el color del circulo
Else: Shape1.BackStyle = 0
End If

If (Valor And 32) = 0 Then 'filtra el boton 2
Shape2.BackStyle = 1
Else: Shape2.BackStyle = 0
End If

If (Valor And 64) = 0 Then 'filtra el boton 3
Shape3.BackStyle = 1
Else: Shape3.BackStyle = 0
End if

If (Valor And 128) = 0 Then 'filtra el boton 4
Shape4.BackStyle = 1
Else: Shape4.BackStyle = 0
End If
End Sub

pato
Moderador
Reputación


Hacer una pregunta

Reglamento / P+F

Foros

Miembros / Expertos