AK Befehle über COM

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von tschulian.

    AK Befehle über COM

    Hallo Gemeinde,

    ich hatte eigentlich eine kleine Aufgabe vor die sich allerdings doch schwerer als erwartet gestaltet hat.

    Der Hintergrund:

    In der Automobilbranche gibt es den Standard der AK Befehle, damit werden seriell verbundene Messgeräte gesteuert. Es gibt bisher (mir kein bekanntes) Programm in dem man 'einfach' den Port wählt, verbindet und Befehle schicken kann. Dies wäre allerdings eine extreme Erleichterung für Servicetechniker öä.
    Prinzipiell ist es keine große Sache Daten per COM zu verschicken, habe ich auch schon hinbekommen. Nur der Syntax dieser Befehle macht mir zu schaffen. Ich habe ein Bild angefügt um diese zu verdeutlichen.



    Ich habe auch ein Beispielprogramm gefunden (nicht von mir, nur cut and paste) dessen Code ich unten angefügt habe. Wenn ich Pin 2und3 brücke kommen die Daten im Empfangsfenster an, somit gehe ich von einer funktionierenden Hardware aus. Unsere Messgeräte sind auch okay, sie reagieren ebenfalls auf AK Befehle.

    Zu meiner Person, bin ein "Wiedereinstiger" und komme von früheren VB Versionen. Natürlich wäre es besser an anderer Stelle einzusteigen, allerdings lerne ich am liebsten und besten problembezogen(für den gewissen Ehrgeiz). Ich erwarte nicht, dass mir jemand ein fertiges Programm liefert, Hilfestellungen und Denkanstöße wären super :)

    viele Grüße
    Julian

    Quellcode

    1. 'Code Starts here ....
    2. 'Import Systems which we are gonna use in our code
    3. Imports System
    4. Imports System.ComponentModel
    5. Imports System.Threading
    6. Imports System.IO.Ports
    9. 'frmMain is the name of our form ....
    10. 'Here starts our main form code .....
    11. Public Class frmMain
    12. Dim myPort As Array
    13. Delegate Sub SetTextCallback(ByVal [text] As String)
    16. 'Page Load Code Starts Here....
    17. Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. myPort = IO.Ports.SerialPort.GetPortNames()
    19. cmbBaud.Items.Add(9600)
    20. cmbBaud.Items.Add(19200)
    21. cmbBaud.Items.Add(38400)
    22. cmbBaud.Items.Add(57600)
    23. cmbBaud.Items.Add(115200)
    24. For i = 0 To UBound(myPort)
    25. cmbPort.Items.Add(myPort(i))
    26. Next
    27. cmbPort.Text = cmbPort.Items.Item(0)
    28. cmbBaud.Text = cmbBaud.Items.Item(0)
    29. btnDisconnect.Enabled = False
    30. End Sub
    31. 'Page Load Code Ends Here ....
    34. 'Connect Button Code Starts Here ....
    35. Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
    36. SerialPort1.PortName = cmbPort.Text
    37. SerialPort1.BaudRate = cmbBaud.Text
    38. SerialPort1.Parity = IO.Ports.Parity.None
    39. SerialPort1.StopBits = IO.Ports.StopBits.One
    40. SerialPort1.DataBits = 8
    41. SerialPort1.Open()
    42. btnConnect.Enabled = False
    43. btnDisconnect.Enabled = True
    44. End Sub
    45. 'Connect Button Code Ends Here ....
    48. 'Disconnect Button Code Starts Here ....
    49. Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
    50. SerialPort1.Close()
    51. btnConnect.Enabled = True
    52. btnDisconnect.Enabled = False
    53. End Sub
    54. 'Disconnect Button Code Ends Here ....
    57. 'Send Button Code Starts Here ....
    58. Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
    59. SerialPort1.Write(txtTransmit.Text)
    60. End Sub
    61. 'Send Button Code Ends Here ....
    64. 'Serial Port Receiving Code Starts Here ....
    65. Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    66. ReceivedText(SerialPort1.ReadExisting())
    67. End Sub
    68. 'Serial Port Receiving Code Ends Here ....
    71. 'Serial Port Receiving Code(Invoke) Starts Here ....
    72. Private Sub ReceivedText(ByVal [text] As String)
    73. If Me.rtbReceived.InvokeRequired Then
    74. Dim x As New SetTextCallback(AddressOf ReceivedText)
    75. Me.Invoke(x, New Object() {(text)})
    76. Else
    77. Me.rtbReceived.Text &= [text]
    78. End If
    79. End Sub
    80. 'Serial Port Receiving Code(Invoke) Ends Here ....
    83. 'Com Port Change Warning Code Starts Here ....
    84. Private Sub cmbPort_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPort.SelectedIndexChanged
    85. If SerialPort1.IsOpen = False Then
    86. SerialPort1.PortName = cmbPort.Text
    87. Else
    88. MsgBox("Valid only if port is Closed", vbCritical)
    89. End If
    90. End Sub
    91. 'Com Port Change Warning Code Ends Here ....
    94. 'Baud Rate Change Warning Code Starts Here ....
    95. Private Sub cmbBaud_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbBaud.SelectedIndexChanged
    96. If SerialPort1.IsOpen = False Then
    97. SerialPort1.BaudRate = cmbBaud.Text
    98. Else
    99. MsgBox("Valid only if port is Closed", vbCritical)
    100. End If
    101. End Sub
    102. 'Baud Rate Change Warning Code Ends Here ....
    105. End Class
    106. 'Whole Code Ends Here ....

    Willkommen im Forum. :thumbup:
    Zunächst muss folgendes geklärt werden.
    Erwartet die Gegenstelle (Unicode-)Strings oder eine Reihe von Bytes?
    Je nach dem musst Du Deinen Code planen.
    <STX> und <ETX> sind je 1 Byte Steuerzeichen, der Rest sieht nach Klartext aus. Das sollte also nicht sonderlich problematisch sein.
    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!

Facebook
Telefonspende