RS232, diesmal ohne COM-Server

  • VB.NET
  • .NET (FX) 4.0

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von vielfrager.

    RS232, diesmal ohne COM-Server

    Moin, moin,

    in einer bereits laufenden Anwendung steuere ich diverse Geräte über einen COM-Server (zur Vervielfachung der Ports...) an. Die Kommunikation ist denkbar einfach:

    VB.NET-Quellcode

    1. Dim dataSend() As Byte
    2. Dim myUdpClient As UdpClient
    4. myUdpClient = New UdpClient(nport_ip, nport_port) 'IP des Comservers, Port, über den der String gesendet werden soll
    5. dataSend = Encoding.ASCII.GetBytes("sw i01" & Environment.NewLine) 'eigentliches Kommando
    6. myUdpClient.Send(dataSend, dataSend.Length)
    7. myUdpClient.Close()


    ..habs leider nur mit Copypaste ans Laufen gebracht, aber es geht :D

    Nun aber wird es für ein anderes Programm (für mich) ziemlich verwirrend. Aus dieser Lage hat mir auch eine zweitägige Googelei nicht herausgeholfen, so dass Ihr meine vorerst letzte Hoffnung seid...

    Es soll nun nur ein Gerät am COM-Port5 betrieben werden und an dieses ein kurzer String (sw i01) gesandt werden. Einen COM-Server gibts in diesem Falle nicht, die Schnittstelle muss also direkt angesprochen werden. ;(

    Ich habe mich schon mit der SerialPort-Klasse herumgeschlagen, dort aber nur über Reading und nicht(s mir verständliches) übers Senden gefunden.

    Kennt jemand des Rätsels Lösung?


    Vielen Dank vom Vielfrager 8-)

    vielfrager schrieb:

    Senden
    nicht gefunden? Glaub ich nicht.

    VB.NET-Quellcode

    1. Me.SerialPort1.PortName = "COM5"
    2. ' Boudrate etc setzen
    3. Me.SerialPort1.Open()
    4. Me.SerialPort1.Write("xyz")
    5. Me.SerialPort1.Close()
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich weiß, dass ich nichts weiß... Hilfst Du trotzdem?

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. 'hier muss sicher der Aufruf rein?
    5. End Sub
    8. End Class
    9. Public Class PortChat
    11. Shared _continue As Boolean
    12. Shared _serialPort As SerialPort
    13. Public Shared Sub Main()
    14. Dim name As String
    15. Dim message As String
    16. Dim sComparer As StringComparer = StringComparer.OrdinalIgnoreCase
    17. Dim readThread As Thread = New Thread(AddressOf Read)
    19. ' Create a new SerialPort object with default settings.
    20. _serialPort = New SerialPort()
    22. ' Allow the user to set the appropriate properties.
    23. _serialPort.PortName = SetPortName(_serialPort.PortName)
    24. _serialPort.BaudRate = SetPortBaudRate(_serialPort.BaudRate)
    25. _serialPort.Parity = SetPortParity(_serialPort.Parity)
    26. _serialPort.DataBits = SetPortDataBits(_serialPort.DataBits)
    27. _serialPort.StopBits = SetPortStopBits(_serialPort.StopBits)
    28. _serialPort.Handshake = SetPortHandshake(_serialPort.Handshake)
    30. ' Set the read/write timeouts
    31. _serialPort.ReadTimeout = 500
    32. _serialPort.WriteTimeout = 500
    34. _serialPort.Open()
    35. _continue = True
    36. readThread.Start()
    38. Console.Write("Name: ")
    39. name = Console.ReadLine()
    41. Console.WriteLine("Type QUIT to exit")
    43. While (_continue)
    44. message = Console.ReadLine()
    46. If sComparer.Equals("quit", message) Then
    47. _continue = False
    48. Else
    49. _serialPort.WriteLine( _
    50. String.Format("<{0}>: {1}", name, message))
    51. End If
    52. End While
    54. readThread.Join()
    55. _serialPort.Close()
    56. End Sub
    58. Public Shared Sub Read()
    59. While (_continue)
    60. Try
    61. Dim message As String = _serialPort.ReadLine()
    62. Console.WriteLine(message)
    63. Catch ex As TimeoutException
    64. ' Do nothing
    65. End Try
    66. End While
    67. End Sub
    69. Public Shared Function SetPortName(ByVal defaultPortName As String) As String
    70. Dim newPortName As String
    72. Console.WriteLine("Available Ports:")
    73. Dim s As String
    74. For Each s In SerialPort.GetPortNames()
    75. Console.WriteLine(" {0}", s)
    76. Next s
    78. Console.Write("COM port({0}): ", defaultPortName)
    79. newPortName = Console.ReadLine()
    81. If newPortName = "" Then
    82. newPortName = defaultPortName
    83. End If
    84. Return newPortName
    85. End Function
    87. Public Shared Function SetPortBaudRate(ByVal defaultPortBaudRate As Integer) As Integer
    88. Dim newBaudRate As String
    90. Console.Write("Baud Rate({0}): ", defaultPortBaudRate)
    91. newBaudRate = Console.ReadLine()
    93. If newBaudRate = "" Then
    94. newBaudRate = defaultPortBaudRate.ToString()
    95. End If
    97. Return Integer.Parse(newBaudRate)
    98. End Function
    100. Public Shared Function SetPortParity(ByVal defaultPortParity As Parity) As Parity
    101. Dim newParity As String
    103. Console.WriteLine("Available Parity options:")
    104. Dim s As String
    105. For Each s In [Enum].GetNames(GetType(Parity))
    106. Console.WriteLine(" {0}", s)
    107. Next s
    109. Console.Write("Parity({0}):", defaultPortParity.ToString())
    110. newParity = Console.ReadLine()
    112. If newParity = "" Then
    113. newParity = defaultPortParity.ToString()
    114. End If
    116. Return CType([Enum].Parse(GetType(Parity), newParity), Parity)
    117. End Function
    119. Public Shared Function SetPortDataBits(ByVal defaultPortDataBits As Integer) As Integer
    120. Dim newDataBits As String
    122. Console.Write("Data Bits({0}): ", defaultPortDataBits)
    123. newDataBits = Console.ReadLine()
    125. If newDataBits = "" Then
    126. newDataBits = defaultPortDataBits.ToString()
    127. End If
    129. Return Integer.Parse(newDataBits)
    130. End Function
    132. Public Shared Function SetPortStopBits(ByVal defaultPortStopBits As StopBits) As StopBits
    133. Dim newStopBits As String
    135. Console.WriteLine("Available Stop Bits options:")
    136. Dim s As String
    137. For Each s In [Enum].GetNames(GetType(StopBits))
    138. Console.WriteLine(" {0}", s)
    139. Next s
    141. Console.Write("Stop Bits({0}):", defaultPortStopBits.ToString())
    142. newStopBits = Console.ReadLine()
    144. If newStopBits = "" Then
    145. newStopBits = defaultPortStopBits.ToString()
    146. End If
    148. Return CType([Enum].Parse(GetType(StopBits), newStopBits), StopBits)
    149. End Function
    151. Public Shared Function SetPortHandshake(ByVal defaultPortHandshake As Handshake) As Handshake
    152. Dim newHandshake As String
    154. Console.WriteLine("Available Handshake options:")
    155. Dim s As String
    156. For Each s In [Enum].GetNames(GetType(Handshake))
    157. Console.WriteLine(" {0}", s)
    158. Next s
    160. Console.Write("Handshake({0}):", defaultPortHandshake.ToString())
    161. newHandshake = Console.ReadLine()
    163. If newHandshake = "" Then
    164. newHandshake = defaultPortHandshake.ToString()
    165. End If
    167. Return CType([Enum].Parse(GetType(Handshake), newHandshake), Handshake)
    168. End Function
    170. End Class

    vielfrager schrieb:

    Hilfst Du trotzdem?
    Was genau ist das Problem?
    Kommen Fehler?
    Wenn ja: Welche, in welcher Zeile?
    Was soll das, dass Du PortName & Co über die Console einliest?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    vielfrager schrieb:

    95% Codezeilen weniger
    Die Parameter des Ports werden von der Hardware, nicht aber vom User vorgegeben. Sie müssen nur mit der Gegenstelle übereinstimmen, also nimm bei beiden Teilnehmern Standardeinstellungen und feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    sonne75 schrieb:

    Also muss der User es mitteilen
    Das wird vorher vereinbart:
    Ein Telefonat: Standardeinstellungen und feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    sonne75 schrieb:

    welches der Kunde einstellt
    Der Kunde interessiert sich ausschließlich für die Port-Nummer, die anderen Einstellungen sind Standard oder genau die aus dem Handbuch.
    Die sind fix für alle Zeiten.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    sonne75 schrieb:

    unsere Kunden
    Ich programmiere Geräte für Leute, die ausschließlich mit Standardeinstellungen arbeiten, weil sie sonst in Teufels Küche kommen.
    Nur zur Entwicklungszeit wird da mal was angefasst, zur "Arbeitszeit" sind diese Einstellungen tabu.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    sonne75 schrieb:

    dass er es nicht braucht...

    vielfrager schrieb:

    Das Ganze geht sicher auch mit 95% Codezeilen weniger...
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Konkret geht es um einen HDMI-Switch von ATEN, der gesteuert werden soll.
    Lt. Handbuch sind die Anforderungen:
    Baudrate 19200
    Databits 8
    Stopbits 1
    Parity None
    FlowControl None

    Hilft das?

    @rod
    .write wird nicht "angeboten" wenn ich den oben gezeigten Code nutze??

    vielfrager schrieb:

    .write wird nicht "angeboten"
    Bilder

    • Serial.png

      16,87 kB, 617×267, 108 mal angesehen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!