Commande à travers usb

RachidGhar Messages postés 3 Statut Membre -  
ElementW Messages postés 5690 Statut Contributeur -
Bonjour,

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

1 réponse

  1. ElementW Messages postés 5690 Statut Contributeur 1 293
     
    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