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 makkelijk te herkennen . Dit maakt het schrijven van een klein stukje VB code om een pakket te verzenden en ophalen van gegevens op het USB-apparaat eenvoudig . Het verzenden van een pakket naar de haven is nodig , want het zal de toestand van de haven te sporen en terug te sturen alle gegevens vinden op het USB-apparaat . Als er geen USB -apparaat aangesloten op de poort , dan wordt een foutmelding weergegeven . Instructies
1 Open een nieuw VB -bestand . Kopen van 2 Stel de SendPacket functie . Schrijf deze code aan de bovenkant van uw VB- bestand : Functie SendPacket
( ByRef TxPacket Zoals PacketStructure ) Zoals PacketStructure
Dim lpResult zoals lang Dim RxPacket
Zoals PacketStructure
3 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
Goedkope 4 Roep de SendPacket functie in het VB -code . Schrijf de onderstaande code beginnend op de negende regel:
Als 0 = DeviceIoControl ( hDevice CTL_CODE_SEND_PACKET , TxPacket ,
8 + TxPacket.Length , RxPacket , 8 , lpResult , 0 , ) Dan < br MsgBox > " SendPacket functie is mislukt . Kan USB- gegevens op te halen . " Exit Function End
Als
5 terugbellen de gegevens opgehaald met de SendPacket functie . Plaats deze code aan de onderkant van uw VB script : SendPacket
= RxPacket End Function
6
Plaats uw USB- joystick in de USB poort van de computer < br . >
7 samenstellen en uitvoeren van uw VB script . De gegevens worden in het geheugen van het programma , die u kunt gebruiken voor andere programmering oplossingen en behoeften
opgehaald . |
