Hvordan lese en USB-Joystick i Visual Basic

10/03/2014 by admin

Hvordan lese en USB-Joystick i Visual Basic

Lese dataene fra en Universal seriell buss (USB) er styrespak eller tommelfingeren kjøre mulig med Microsoft Visual Basic (VB). Siden USB-enheter er selv identifisere og plug-and-play kompatible, er en maskin kjøpedyktig lett gjenkjenne dem. Dette gjør skrive et lite stykke VB kode å sende en pakke og hente data på USB-enheten lett. Sende en pakke til porten er nødvendig som det oppdager delstaten porten og returnere data på USB-enheten. Hvis det er ingen USB-enhet som er koblet til porten, vises en feilmelding.

Instruksjoner

1 åpne en ny VB-fil.

2 sett funksjonen SendPacket. Skrive denne koden øverst i filen VB: funksjonen SendPacket(ByRef TxPacket As PacketStructure) som PacketStructure Dim lpResult som lang Dim RxPacket som PacketStructure

3 angi mottakeren og enheten modellen ved å sette inn denne koden på femte linje: TxPacket.Recipient = 8 TxPacket.DeviceModel = 18

4 kalle funksjonen SendPacket i VB kode. Skrive den under kode på niende linjen: Hvis 0 = DeviceIoControl(hDevice, CTL_CODE_SEND_PACKET, TxPacket, 8+TxPacket.Length, RxPacket, 8, lpResult, 0) deretter MsgBox "SendPacket funksjon mislyktes. Kan ikke hente USB data. "Exit Function End hvis

5 ringe tilbake data hentet med funksjonen SendPacket. Plasser denne koden på bunnen av skriptet VB: SendPacket = RxPacket End Function

6 sett inn USB-joystick i datamaskinens USB-port.

7 kompilere og kjøre VB-skript. Data hentes i programmets minnet, som du kan bruke for andre programmering løsninger og behov.


Relaterte artikler

© 2018 - sternwheels.com| Contact us: webmaster# sternwheels.com