Commande à travers usb

Fermé
RachidGhar Messages postés 2 Date d'inscription lundi 30 décembre 2013 Statut Membre Dernière intervention 30 décembre 2013 - 30 déc. 2013 à 13:28
ElementW Messages postés 4816 Date d'inscription dimanche 12 juin 2011 Statut Contributeur Dernière intervention 5 octobre 2021 - 30 déc. 2013 à 16:38
Bonjour,

je veux commander un système technique éducatif à travers le port usb via une interface vb2010
j'attends vos aides. Merci d'avant

A voir également:

1 réponse

ElementW Messages postés 4816 Date d'inscription dimanche 12 juin 2011 Statut Contributeur Dernière intervention 5 octobre 2021 1 225
30 déc. 2013 à 16:38
Salut, si ton périphérique peut communiquer en RS-232, tu peux utiliser le port USB comme un port parallèle ou COM normal:
Imports System.IO.Ports

Dim sensor As SerialPort

Private Sub InitializeUSB()
	sensor = New SerialPort("COM6")
	sensor.BaudRate = 9600
	sensor.Parity = Parity.None
	sensor.StopBits = StopBits.One
	sensor.DataBits = 8
	sensor.Handshake = Handshake.None
	sensor.Open()
End Sub

Private Sub DoCommand()
	sensor.Write("COMMANDE");
        Console.WriteLine(sensor.ReadLine())
End Sub

Private Sub CloseUSB()
	sensor.Close()
End Sub

C'est pas complet et je doute que ça marche du premier coup, adapte selon tes besoins et les erreurs dont ton enviro de dev se plaint :)

Sinon, si c'est de l'USB "normal", il faudra passer par des librairies wrappers telles que winusbnet ou sharpusblib, dont je ne donnerais pas d'exemple ici.
0