Lendo os dados de um (USB) joystick ou pen drive Universal Serial Bus é possível com o Microsoft Visual Basic (VB) . Como os dispositivos USB são auto- identificação e plug- and-play compatível , um sistema de computador é capaz de reconhecê-los facilmente. Isso faz com que escrever um pequeno pedaço de código VB para enviar um pacote e recuperar dados no dispositivo USB fácil. O envio de um pacote para a porta é necessário, uma vez que irá detectar o estado da porta e enviar todos os dados encontrados no dispositivo USB. Se não houver um dispositivo USB conectado à porta , em seguida, uma mensagem de erro é exibida. Instruções
1
Abra um novo arquivo VB .
2
Defina a função SendPacket . Escreve este código na parte superior do seu arquivo VB:
SendPacket Função ( ByRef TxPacket Como PacketStructure ) Como PacketStructure
Dim lpResult As Long Dim
RxPacket Como PacketStructure
3
definir o destinatário e modelo do dispositivo , inserindo este código na quinta linha :
TxPacket.Recipient = 8
TxPacket.DeviceModel = 18
4
Chame a função SendPacket no código VB . Escreva o código abaixo a partir da nona linha :
Se 0 = DeviceIoControl ( hDevice , CTL_CODE_SEND_PACKET , TxPacket ,
8 + TxPacket.Length , RxPacket , 8, lpResult , 0) Então < br >
MsgBox "falhou função SendPacket . Impossível recuperar dados USB. "
Exit Function End If
5
Chame de volta os dados obtidos com a função SendPacket . Coloque este código na parte inferior do seu script VB: .
SendPacket = RxPacket
End Function
6
Insira o seu joystick USB na porta USB do computador < br >
7
Compilar e executar o script VB . Os dados são recuperados na memória do programa , que você pode usar para outras soluções de programação e necessidades.
