Stap 2: Joystick-poort in VB
Private Sub Timer1_Timer()
Dim V, H As Integer
Out & H201, & HFF
Voor H = 1 tot 3000
Als (Inp (& H201) en & H1) / & H1 = 0 dan afrit
Volgende H
Horizontal.Text = H
Out & H201, & HFF
V = 1 tot 3000
Als (Inp (& H201) en & H2) / & H2 = 0 dan afrit
Volgende V
Vertical.Text = V
Als (Inp (& H201) en & H10) / & H10 = 0 Then Shape1.FillColor = & HFF
Als (Inp (& H201) en & H20) / & H10 = 0 Then Shape2.FillColor = & HFF
Als (Inp (& H201) en & H10) / & H10 = 1 Then Shape1.FillColor = & HC0C0C0
Als (Inp (& H201) en & H20) / & H20 = 1 Then Shape2.FillColor = & HC0C0C0
Shape3.left = H
Shape3.Top = V
End Sub
Het programma werkt alleen als u een echte joystick die is aangesloten op uw PC. De vakken horizontale en verticale tekst geeft een waarde aan gerelateerde X en Y bewegingen van je stick. Ook zal een vierkant verplaatsen binnen een grotere doos te vertegenwoordigen uw bewegingen. De A- en B-knoppen in te drukken zal veranderen Lees de grijze cirkels. De steekproef samengesteld EXE bestand, de broncode en de INPOUT32. DLL bibliotheek zijn de. RAR bestand.