Paso 2: Puerto de Joystick en VB
Private Sub Timer1_Timer()
H entero DIM V
Fuera H201 & HFF
Para H = 1 a 3000
Si (Inp (y H201) y & H1) / & H1 = 0 y luego la salida para
Siguiente H
Horizontal.Text = H
Fuera H201 & HFF
Para V = 1 a 3000
Si (Inp (y H201) y & H2) / & H2 = 0 y luego la salida para
Siguiente V
Vertical.Text = V
Si (Inp (y H201) y & H10) / & H10 = 0 Then Shape1.FillColor = & HFF
Si (Inp (y H201) y & H20) / & H10 = 0 Then Shape2.FillColor = & HFF
Si (Inp (y H201) y & H10) / & H10 = 1 Then Shape1.FillColor = & HC0C0C0
Si (Inp (y H201) y & H20) / & H20 = 1 Then Shape2.FillColor = & HC0C0C0
Shape3.Left = H
Shape3.Top = V
End Sub
El programa sólo funciona si tienes un joystick real conectado a su PC. Los cuadros Horizontal y texto Vertical mostrará un valor relacionado con movimientos X y Y de su memoria. También una plaza será moverse dentro de una caja más grande para representar los movimientos. Presiona los botones A y B se volverá leer los círculos grises. La muestra había compilado EXE archivo, el código fuente y el INPOUT32. Librería DLL están en la. Archivo RAR.
