Port série/USB : Ce n'est pas une question pratique, c'est qu'un port USB se comporte comme un port série.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionplus facile de contrôler mon interrupteur via un port série
Je me demandais donc si l'adaptateur remplacerait l'adresse du port usb par un port serie
Il est possible de se passer de micro-contrôleur jusqu'à 2 sorties + 4 entrées en utilisant les signaux annexes destinés au modem
Prière de ne pas vous arrachez les cheveux en lisant ce message
J'ai demandé à mon professeur d’électronique comment il s'y prendrait pour la partie codage et il m'a dit de faire une routine
une boucle que l'on répète jusqu'à ce que le programme détecte une information binaire à envoyer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Ouverture() 'Au démarrage il fait appel à la sub Ouverture qui ouvre le port End Sub Private Sub Ouverture() Try SerialPort1.PortName = "COM1" 'Numéro de ton port SerialPort1.BaudRate = 9600 'Vitesse à régler selon le circuit SerialPort1.StopBits = 1 SerialPort1.DataBits = 8 SerialPort1.Parity = Parity.None SerialPort1.Open() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 'Si le port est ouvert quand on ferme le programme il ferme le port If SerialPort1.IsOpen = True Then SerialPort1.Close() End Sub 'Réception de données: Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Me.Invoke(New EventHandler(AddressOf Recu)) 'Dès qui reçoit un caractère il fait appel à la sub 'Recu' End Sub Private Sub Recu() Threading.Thread.Sleep(100) 'On attend 100ms afin de s'assurer que tuotes les données sont bien arrivées Dim DonnéesRecues As String = SerialPort1.ReadExisting TextBox1.Text = DonnéesRecues 'Les données sont maintenant dans la variable 'DonnéesRecues' End Sub 'écriture de données: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try SerialPort1.Write("BlaBlaBla") Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub
Imports System.IO.Ports 'ça en toute première ligne Public Class Form1 Dim WithEvents SerialPort1 As New System.IO.Ports.SerialPort 'et ça juste après le Public Cass Formx