1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Imports system.io.ports
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Port_Name As String()
Dim Name As String
PortRS232.BaudRate = 9600 ' définit la vitesse en bauds du port série
PortRS232.DataBits = 8 ' définit la longueur standard des bits de données par octet
PortRS232.Parity = Parity.None ' définit le protocole de contrôle de parité
PortRS232.StopBits = StopBits.One ' définit le nombre standard de bits d'arrêt par octet
Port_Name = SerialPort.GetPortNames() 'on récupère dans un tableau le nom des ports séries présent sur l'ordinateur
'On les ajoute dans le combo box
For Each Name In Port_Name
Choix_Port.Items.Add(Name)
Next
Choix_Port.SelectedIndex = 0 ' on place l'index sur le premier port trouvé
End Sub |
Partager