Ako čítať USB Joystick v jazyku Visual Basic

Čítanie dát z Universal Serial Bus ( USB ) , joystick alebo flash disk je možné s Microsoft Visual Basic ( VB ) . Vzhľadom k tomu , USB zariadenia sú self - identifikácia a plug - and - play kompatibilný , počítačový systém je schopný ľahko rozpoznať . To umožňuje písanie malý kúsok kódu VB odoslať paket a načítavať dáta na USB zariadenie jednoduché . Odoslanie paketu na porte je nutné , ako to bude detekovať stav portu a poslať späť všetky dáta nachádzajúce sa na USB zariadenie . Pokiaľ nie je zariadenie USB pripojený do portu , potom sa zobrazí chybové hlásenie . Pokyny dovolená 1

Otvorte nový súbor VB .
2

Nastavte funkciu SendPacket . Napíšte tento kód v hornej časti VB súboru :

Funkcia SendPacket ( ByRef TxPacket Ako PacketStructure ) Ako PacketStructure

Dim lpResult ako dlho

Dim RxPacket ako PacketStructure

3

Nastavte príjemcu a model zariadenia vložením tohto kódu na piatom riadku :

TxPacket.Recipient = 8

TxPacket.DeviceModel = 18
stránka 4

Volanie funkcie SendPacket vo VB kódu . Napíšte pod kód začínajúci na deviatom riadku :

Ak 0 = DeviceIoControl ( hDevice , CTL_CODE_SEND_PACKET , TxPacket ,

8 + TxPacket.Length , RxPacket , 8 , lpResult , 0 ) , potom

MsgBox " funkcie SendPacket zlyhala . Nepodarilo sa načítať dáta USB . "

Exit Function

End If
5

Zavoláme dáta načítané s SendPacket funkcie . Umiestnite tento kód v dolnej časti VB skript : .

SendPacket = RxPacket

End Function
6

Vložte USB joystick do USB portu počítača

7

Kompilácia a spustite váš skript jazyka Visual Basic . Dáta sú načítaná do pamäte programu , ktorý môžete použiť pre ďalšie programovacie riešenia a potrieb .

• Predchádzajúca strana: Ako zmeniť FOTN S String v jazyku Visual Basic 
• Ďalšia strana: Ako vytvoriť Vb grafickej obrazovky