Leggere i dati da un Universal Serial Bus ( USB ) joystick o pen drive è possibile con Microsoft Visual Basic ( VB ) . Dal momento che i dispositivi USB sono auto- identificazione e compatibile plug-and -play , un sistema informatico è in grado di riconoscerli facilmente . Questo rende la scrittura di un piccolo pezzo di codice VB per inviare un pacchetto e recuperare i dati sul dispositivo USB facili . L'invio di un pacchetto per il porto è necessario, in quanto in grado di rilevare lo stato della porta e mandare indietro tutti i dati presenti sul dispositivo USB . Se non vi è alcun dispositivo USB collegato alla porta , viene visualizzato un messaggio di errore . Istruzioni
1

Aprire un nuovo file di VB .
2

la funzione sendPacket . Scrivi questo codice nella parte superiore del file di VB :

Funzione sendPacket ( ByRef TxPacket Come PacketStructure ) Come PacketStructure

Dim lpResult As Long Dim

RxPacket Come PacketStructure

3

il destinatario e modello del dispositivo inserendo il codice sulla quinta riga :

TxPacket.Recipient = 8

TxPacket.DeviceModel = 18

4

Chiama la funzione sendPacket nel codice VB . Scrivere il codice qui sotto a partire dalla nona riga :

Se 0 = DeviceIoControl ( hDevice , CTL_CODE_SEND_PACKET , TxPacket , Stati

8 + TxPacket.Length , RxPacket , 8 , lpResult , 0) allora < br

MsgBox > " funzione sendPacket non è riuscita . Impossibile recuperare i dati USB . "

Exit Function End If

5

Richiama i dati recuperati con la funzione sendPacket . Inserire questo codice nella parte inferiore dello script VB:

sendPacket = RxPacket

End Function
6

Inserisci il tuo joystick USB nella porta USB del computer < br . > Pagina 7

compilare ed eseguire lo script VB . I dati vengono recuperati nella memoria del programma, che si può usare per altre soluzioni di programmazione e le esigenze .

• Come modificare FOTN con stringa in Visual Basic 
• Come creare Vb schermate grafiche