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 .
