Combobox et ports ouverts

Question

Bonjour , j'aurais aimais savoir si quelqu'un pouvais me dire quelle est la fonction permettant d'afficher les ports ouverts (COM 1,2,3,etc...) dans ma combobox . J'avais déjà utilisé réussi à le faire auparavant mais reprenant visual basic 10 je n'y arrive plus.

Merci d'avance

ucfoutu · Answer

Bonjour,
Va lire ce code déposé :
Tapez le texte de l'url ici.
Y COMPRIS les commentaires et SURTOUT l'avant-dernier d'entre eux.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

acive · Answer

Bonjour,

Ou de manière un peu moins "orthodoxe" :
Imports System.IO.Ports.SerialPort
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Com In System.IO.Ports.SerialPort.GetPortNames
            SerialPort1.PortName = Com
            Try
                SerialPort1.Open()
                SerialPort1.Close()
                ListBox1.Items.Add(Com & " - Disponible")
            Catch ex As Exception
                ListBox1.Items.Add(Com & " - Occupé, " & ex.Message)
            End Try
        Next
    End Sub
End Class


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Nicousa · Answer

Merci , c'est à peux près cela mais ne serais-ce pas possible d'afficher le nom du com précisément en fonction du timer ? Si le com 16 est créer alors en fonction du timer il apparaise dans ma combobox "Com 16" pour qu'il puisse etre choissis .

Merci d'avance

Nicousa · Answer

personne ? car le probleme est qu'il n'affiche pas "Com 16 ou autre ouver" mais "disponible"

acive · Answer

Hé bien, tu peux tester les ports avec un timer par exemple:
Imports System.IO.Ports.SerialPort
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ListBox1.Items.Clear()
        For Each Com In System.IO.Ports.SerialPort.GetPortNames
            SerialPort1.PortName = Com
            Try
                SerialPort1.Open()
                SerialPort1.Close()
                ListBox1.Items.Add(Com & " - Disponible")
            Catch ex As Exception
                ListBox1.Items.Add(Com & " - Occupé, " & ex.Message)
            End Try
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer1.Interval = 5000 'Toutes les 5 secondes par exemple
    End Sub
End Class


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Combobox et ports ouverts

5 réponses

Votre réponse

Discussions similaires