vb.net 2010, SerialPort1 öffnen?

Welche Entwicklungsumgebung nutzt du?

Hast du den SerialPort initialisiert?
Ich würde deine ganzen Zuweisungen einfach in die new 
Serialport()-Klammern reinnehmen.

Mit freundlichen Grüßen,
Valentin Buck

Also falls Du Visual Studio nutzt müssen deine Einstellungen nicht extra 
geladen werden. Bei mir sehen die Einstellungen so aus und es läuft 
prima...

Allerdings lese ich auch direkt danach wieder vom Port, was ist wenn Du 
das mal probierst?

Bist du dir auch ganz sicher, dass ein COM9 existiert?
Ich mache das lieber mit einer Combobox, in der ich alle verfügbaren 
Ports anzeigen lasse und dann den richtigen einstellen kann.

Mit freundlichen Grüßen,
Valentin Buck

Hehe, ja so gehts manchmal. Alle vorhandenen Com-Ports kann man sich 
übrigens über folgende Funktion anzeigen lassen. Ich nutze zwei 
Comboboxen dafür...

Gruß, Sebastian


Private Sub Ports_testen()
        Dim Comport As String
        ComboBox_Ports1.Items.Clear()
        ComboBox_ports2.Items.Clear()
        Comport = "Kein Port"
        For Portzaehler = 1 To 16
            If PortTest(Portzaehler) = True Then
                ComboBox_Ports1.Items.Insert(Portzaehler - 1, "COM" & 
Portzaehler)
                ComboBox_ports2.Items.Insert(Portzaehler - 1, "COM" & 
Portzaehler)
                Comport = "COM" & Portzaehler
            End If
        Next
    End Sub

    Private Function PortTest(ByVal COMPortNummer As Integer) As Boolean
        SerialPort1.PortName = "COM" & COMPortNummer
        Try
            SerialPort1.Open()
            SerialPort1.Close()
            PortTest = True
        Catch X As Exception
            PortTest = False
        End Try
    End Function

PortTest liefert nur dann True, wenn die Schnittstelle existiert und 
nicht von was anderem belegt ist, obendrein "fasst" es die Schnittstelle 
kurzzeitig an, was daran angeschlossene Hardware durcheinanderbringen 
kann (Wackeln an Handshakeleitungen).

Besser ist es, in der Registry zu forschen, das ist allerdings auch 
aufwendiger.

Was lässt Dich annehmen, daß Schnittstellennummern > 16 nicht auftreten?

Hallo Rufus,

in dem Fall wäre es gut von dir, den Code für das Erforschen der 
Registry mitzuliefern.... die Aussage "aufwendiger" kann viel 
bedeuten...

Du hast natürlich Recht, bei manch einem treten auch viel größere 
Portnummern auf. Die 16 war nur in meinem Fall ganz gut...

Ach so ja, in meinem Programm kann ich Ports_testen() natürlich nur 
ausführen wenn Serialport1 und 2 NICHT geöffnet sind....

In der Tat, so funktioniert es viel besser. Von mehr Aufwand kann 
allerdings nicht die Rede sein und es werden bis zu 100 (!!) Com-ports 
unterstützt :-)

Super gut!

Private Sub Ports_testen()
        Dim ports As String() = 
System.IO.Ports.SerialPort.GetPortNames()
        For i = 0 To 100
            Try
                ComboBox_Com1.Items.Insert(i, ports(i))
            Catch ex As Exception
                Exit For
            End Try
        Next
End Sub

Sebastian H. schrieb:
> In der Tat, so funktioniert es viel besser. Von mehr Aufwand kann
> allerdings nicht die Rede sein und es werden bis zu 100 (!!) Com-ports
> unterstützt :-)

So viele wie das OS/der Treiber/die Komponente unterstützt, die 100 
resultieren nur aus dem gezeigten Quelltext...

1

    // also entweder 

2

    For i = 0 To ports.Length - 1

3

    // oder

4

    For Each s in ports

5

    // oder ganz einfach

6

    comboBox.Items.AddRange(SerialPort.GetPortNames())

Ach, die 100 waren doch bloß Ironie :-)

Aber deine Möglichkeit ist noch besser, dann kann man sich die 
try-Anwendung sparen.

    Private Sub Ports_testen()
        Dim ports As String() = 
System.IO.Ports.SerialPort.GetPortNames()
        For i = 0 To ports.Length - 1
            ComboBox_Com1.Items.Insert(i, ports(i))
        Next
    End Sub