Hoe leest u een USB Joystick in Visual Basic

March 16


Hoe leest u een USB Joystick in Visual Basic

Het lezen van de gegevens van een Universal Serial Bus (USB) joystick of thumb drive is mogelijk met Microsoft Visual Basic (VB). Omdat USB-apparaten zijn zelf-identificatie en plug-and-play-compatibel, een computersysteem in staat is om ze gemakkelijk te herkennen. Dit maakt het schrijven van een klein stukje van de VB-code om een ​​pakket te verzenden en ophalen van gegevens op het USB-apparaat eenvoudig. Het verzenden van een pakket naar de poort is noodzakelijk, omdat het de toestand van de haven zal detecteren en terug te sturen alle gegevens vinden op het USB-apparaat. Als er geen USB-apparaat aangesloten op de poort, dan is er een foutmelding wordt weergegeven.

Instructies

•  Open een nieuwe VB-bestand.

•  Stel de SendPacket functie. Schrijf deze code aan de bovenkant van uw VB-bestand: Functie SendPacket (ByRef TxPacket Zoals PacketStructure) Zoals PacketStructure Dim lpResult As Long Dim RxPacket Zoals PacketStructure

•  Stel de ontvanger en het model van het apparaat door het invoegen van deze code op de vijfde regel: TxPacket.Recipient = 8 TxPacket.DeviceModel = 18

•  Bel de SendPacket functie in de VB-code. Schrijf de onderstaande code te beginnen op de negende regel: Als 0 = DeviceIoControl (hDevice, CTL_CODE_SEND_PACKET, TxPacket, 8 + TxPacket.Length, RxPacket, 8, lpResult, 0) Dan "mislukte SendPacket functie Kan geen USB-gegevens op te halen.." MsgBox Exit Function End If

•  Terugbellen de gegevens opgehaald met de SendPacket functie. Plaats deze code aan de onderkant van uw VB script: SendPacket = RxPacket End Function

•  Plaats uw USB-joystick in de USB-poort van de computer.

•  samenstellen en uitvoeren van uw VB-script. Gegevens worden opgehaald in het geheugen van het programma, die u kunt gebruiken voor andere programmering oplossingen en behoeften.