Hallo,
ich möchte eine Zeichenkette an COM1 senden, um eine Kassenschublade zu öffnen. Dazu benutze ich unten stehenden Code. Manchmal funktioniert es auch. Häufig kommt aber diese Fehlermeldung: „Der angegebene Anschlussname beginnt nicht mit COM/com oder wird nicht in einen gültigen seriellen Anschluss aufgelöst.“
Wenn ich im Gerätemanager den COM1 deaktiviere und wieder aktiviere, funktioniert es wieder eine Zeit lang.
Weiß jemand woran das liegen kann???
Mein Code:
Try
Dim port As System.IO.Ports.SerialPort
port = New System.IO.Ports.SerialPort(„Com1“)
port.PortName = „COM1“
port.BaudRate = 9600
port.Parity = IO.Ports.Parity.None
port.DataBits = 8
port.StopBits = IO.Ports.StopBits.One
port.RtsEnable = True
port.Open()
If port.IsOpen Then
’ Zeichenkette an COM1 senden, um die Kassenschublade zu oeffnen
port.Write(Chr(27) & Chr(112) & Chr(0) & Chr(25) & Chr(250))
Else
MsgBox(„Port is not open“)
End If
port.Close()
Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Danke im Voraus für eure Hilfe!