Lesen von RS-232

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von fraju.

    Lesen von RS-232

    Nachdem ich nun seit Oktober letzten Jahres nichts mehr weiter programmiert habe, habe ich nun mein Prokjekt wieder hervorgeholt und auch inzwischen VB2010 installiert. Jetzt bin ich wieder am Thema RS-232.
    Ich habe folgendes Testprogramm erstellt und bekomme einfach das "Me" nicht vorgeschlagen bei "Me.Invoke(New EventHandler(AdressOf updateData)). Wenn ich es mit Form1 versuche dann kommt folgende Meldung "Invoke oder BeginInvoke kann für ein Steuerelement erst aufgerufen werden, wenn das Fensterhandle erstellt wurde."
    Ich weis leider nur nicht so recht was ich da falsch mache.
    Wie kann ich Ereignisgesteuert Daten empfangen wenn ich nicht weis wieviel Bytes ankommen? Ich weis nur, daß am Ende der gültigen Bytes "255" gesendet wird.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Shared ByteIn(255) As Byte
    4. Private Shared count, bytesImBuffer As Integer
    5. Private Shared angefordeteBytes As Integer = 10
    6. Private Shared comOpen, Datenfehler As Boolean
    7. Private Shared WithEvents SerialPort1 As New IO.Ports.SerialPort
    8. Private Shared Timer1 As New Timer
    10. Private Shared Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    12. SerialPort1.PortName = "COM1"
    13. SerialPort1.Handshake = IO.Ports.Handshake.None
    14. SerialPort1.BaudRate = 9600
    15. SerialPort1.Parity = IO.Ports.Parity.None
    16. SerialPort1.DataBits = 8
    17. SerialPort1.StopBits = IO.Ports.StopBits.One
    18. SerialPort1.RtsEnable = True
    19. SerialPort1.DtrEnable = True
    21. SerialPort1.Open()
    22. comOpen = SerialPort1.IsOpen
    24. End Sub
    26. Private Shared Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    28. Timer1.Enabled = False
    29. bytesImBuffer = SerialPort1.BytesToRead
    30. If bytesImBuffer < angefordeteBytes Then
    31. MsgBox(("Datenübertragungsfehler " & _
    32. angefordeteBytes - bytesImBuffer).ToString & _
    33. " Bytes verloren", MsgBoxStyle.Critical)
    35. SerialPort1.DiscardInBuffer()
    36. Datenfehler = True
    37. Exit Sub
    38. End If
    40. SerialPort1.Read(ByteIn, 0, bytesImBuffer)
    41. Form1.Invoke(New EventHandler(AddressOf updateData))
    43. End Sub
    45. Private Shared Sub updateData()
    46. For i As Integer = 0 To angefordeteBytes - 1
    47. count += 1
    48. Dim _str = String.Format("{0} >> {1:X}", count, ByteIn(i))
    49. Form1.ListBox1.Items.Add(_str)
    50. Next
    51. End Sub
    53. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    55. If comOpen Then
    56. SerialPort1.ReceivedBytesThreshold = angefordeteBytes
    57. SerialPort1.Write(Chr(&H14))
    58. Timer1.Interval = 5000
    59. Timer1.Enabled = True
    60. Datenfehler = False
    61. count = 0
    62. End If
    64. End Sub
    67. End Class


    wäre schön wenn ich da Hilfe bekommen könnte.

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende