RS232 Geräte Kommunikation

  • VB.NET

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

    RS232 Geräte Kommunikation

    Hallo zusammen,

    bin ein absoluter Anfänger was VB angeht! Versuch mich gerade in einem kleineren Programm wo ich eine Kommunikation mit einem Gerät aufbauen will und komm einfach nicht weiter! Das Gerät Sendet gewisse Strings über die Com schnittstelle die ich gerne auswerten möchte bzw. darauf antworten möchte! Eine Verbindung zu dem Gerät hab ich schon hin bekommen und ich kann div. Strings in einer Textbox ausgeben bzw. auch Strings senden! Nun möchte ich aber, das sobald ein String z.B "Alive?" oder ein xbeliebigen anderen String gesendet wird darauf mit "OK" antworten! In dem Gerät kann ich bestimmen was und ob es mit Start/End Zeichen senden soll! Leider hab ich noch wirklich eine schöne Lösung gefunden! Mein Programm antwortet zwar, allerdings ein bisschen undefiniert!

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. '' Laden des Serial Port
    5. Me.mycomPort = New IO.Ports.SerialPort("com1")
    6. Me.mycomPort.BaudRate = 9600
    7. Me.mycomPort.DataBits = 8
    8. Me.mycomPort.StopBits = IO.Ports.StopBits.One
    9. Me.mycomPort.Parity = IO.Ports.Parity.None
    10. Me.mycomPort.ReceivedBytesThreshold = 1
    11. Me.mycomPort.Open()
    12. Timer1.Start()
    14. End Sub
    15. Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal b As System.IO.Ports.SerialDataReceivedEventArgs) Handles mycomPort.DataReceived
    17. Dim msg As String = Me.mycomPort.ReadExisting
    18. Me.ShowText(msg)
    19. Select Case b.EventType
    20. Case IO.Ports.SerialData.Chars
    21. Case IO.Ports.SerialData.Eof
    22. End Select
    24. Me.mycomPort.Write("Ok")
    26. End Sub
    28. Private Sub ShowText(ByVal text As String)
    29. If Me.TextBox1.InvokeRequired Then
    30. Dim d As New TextBoxCallback(AddressOf ShowText)
    31. Me.Invoke(d, New Object() {text})
    32. Else
    33. Me.TextBox1.Text = Me.TextBox1.Text & text
    34. End If
    35. End Sub
    37. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    38. Me.mycomPort.Close()
    39. Timer1.Stop()
    40. Me.Close()
    41. End Sub
    43. Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click
    44. Me.mycomPort.Write(TextBox3.Text & vbCrLf)
    45. Dim TX As String
    46. TX = TextBox3.Text
    47. TextBox2.Text = TX & vbCrLf
    49. End Sub
    51. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    52. ProgressBar1.Value += 1
    53. If ProgressBar1.Value = ProgressBar1.Maximum Then
    54. ProgressBar1.Value = 0
    55. End If
    57. End Sub



    Würd mich ein bisschen Hilfe freuen! Besten Dank im Vorraus 8o

    fraju schrieb:

    Welche Zeichen kommen den ein bisschen undefiniert an?


    Das Gerät sendet z.B. "Alive?" dan Antwortet mein Programm auf "Alive" mit "OK" und auf das "?" mit "OK"! Warum auch immer! Ich sollte es aber so haben dass das Programm erst mir "OK" antwortet wenn die komplette "Alive?" verarbeitet wurde!

Facebook
Telefonspende