Datenübertragung zwischen Arduino und VB ( Problem mit mehreren PerformClick() )

  • VB.NET

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

    Datenübertragung zwischen Arduino und VB ( Problem mit mehreren PerformClick() )

    Hallo und schönen Abend aus dem Alpenland!
    Im unteren Code kommuniziere ich zwischen VB über einen Arduino zu einer Modellbahnlokomotive.
    Ich sende per Button über den SerialPort101 den Befehl z.B. <R 1 11111 22222> an den Arduino,
    der weiter an die Lok. Diese "schreibt mir z.B.zurück <r11111|22222|1 2>.
    Ich extrahiere mir dann aus diesem meine Info's für z.B. Label1001.Text.
    Ich habe 5 Buttons für 5 vordefinierte SENDE-Befehle, das funktioniert alles perfekt.

    Jetzt zum Problem: Sehr oft kommt es vor das ich alle 5 Buttons hintereinander clicken muss um ALLE Info's aus
    der LOK zu bekommen. Also meine naive Idee:
    Button1001.PerformClick()
    Button1003.PerformClick()
    Button1004.PerformClick()
    Button1008.PerformClick()
    Button1029.PerformClick()

    Aber siehe da: nach dem 3'ten klick (Button1004.PerformClick() ist immer schluss.
    aber WARUM ??? Wenn ich mich händisch durch die 5 Button's clicke gibt's kein Problem, stundenlang keins.

    Könnt Ihr mir da was lernen was ich falsch oder fehlend mache? DANK EUCH

    Lenny


    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.IO.Ports
    3. Imports System.Threading
    4. Public Class Form1
    5. Private W001 As String
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
    9. SerialPort101.Close()
    10. SerialPort101.PortName = "com101" 'Port für GBM
    11. SerialPort101.BaudRate = 115200
    12. SerialPort101.DataBits = 8
    13. SerialPort101.Parity = Parity.None
    14. SerialPort101.StopBits = StopBits.One
    15. SerialPort101.Handshake = Handshake.None
    16. SerialPort101.Encoding = System.Text.Encoding.Default
    17. SerialPort101.Open()
    19. End Sub
    21. Private Sub Button1001_Click(sender As Object, e As EventArgs) Handles Button1001.Click
    22. sendenCV1001()
    23. End Sub
    24. Sub sendenCV1001()
    25. SerialPort101.Write("<1>") 'ein
    26. SerialPort101.Write("<R 1 11111 22222>")
    27. SerialPort101.Write("<0>")
    28. End Sub
    30. Private Sub Button1003_Click(sender As Object, e As EventArgs) Handles Button1003.Click
    31. sendenCV1003()
    32. End Sub
    33. Sub sendenCV1003()
    34. SerialPort101.Write("<1>") 'ein
    35. SerialPort101.Write("<R 3 11111 22222>")
    36. SerialPort101.Write("<0>")
    37. End Sub
    39. Private Sub Button1004_Click(sender As Object, e As EventArgs) Handles Button1004.Click
    40. sendenCV1004()
    41. End Sub
    42. Sub sendenCV1004()
    43. SerialPort101.Write("<1>") 'ein
    44. SerialPort101.Write("<R 4 11111 22222>")
    45. SerialPort101.Write("<0>")
    46. End Sub
    48. Private Sub Button1008_Click(sender As Object, e As EventArgs) Handles Button1008.Click
    49. sendenCV1008()
    50. End Sub
    51. Sub sendenCV1008()
    52. SerialPort101.Write("<1>") 'ein
    53. SerialPort101.Write("<R 8 11111 22222>")
    54. SerialPort101.Write("<0>")
    55. End Sub
    57. Private Sub Button1029_Click(sender As Object, e As EventArgs) Handles Button1029.Click
    58. sendenCV1029()
    59. End Sub
    60. Sub sendenCV1029()
    61. SerialPort101.Write("<1>") 'ein
    62. SerialPort101.Write("<R 29 11111 22222>")
    63. SerialPort101.Write("<0>")
    64. End Sub
    66. 'AUSLESEN
    67. Private Sub SerialPort101_DataReceived001(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort101.DataReceived
    68. Me.AppendText1(Me.SerialPort101.ReadExisting())
    69. End Sub
    70. Private Sub AppendText1(txt As String)
    71. If Me.InvokeRequired Then
    72. Dim ac = New Action(Of String)(AddressOf AppendText1)
    73. Me.Invoke(ac, txt)
    74. Return
    75. End If
    76. Me.W001 = txt
    77. RichTextBox1.AppendText(txt)
    78. RichTextBox1.ScrollToCaret()
    79. Dim str As String = txt
    80. Dim extr1 As String = ""
    81. Dim start1 As Integer = str.LastIndexOf("|") + 1 'von letzten |
    82. Dim [end1] As Integer = str.IndexOf(" ") 'bis zum Leerzeichen
    84. Dim extr2 As String = ""
    85. Dim start2 As Integer = str.LastIndexOf(" ") + 1 'von letzten Leerzeihen
    86. Dim [end2] As Integer = str.IndexOf(">") 'bis zum GroeSerzeichen
    88. If start1 >= 0 AndAlso [end1] > start1 Then 'Wenn Start ist größer 0 und IntArray ist größer als Start
    89. extr1 = str.Substring(start1, [end1] - start1) 'Gesuchter Wert ist ab der Stelle "Start1" bis zum IntArray-Wert minus Start1, gespeichert in der Variable "extr1"
    90. End If
    92. Label1.Text = extr1 'Wert an Label1 übergeben
    94. If start2 >= 0 AndAlso [end2] > start2 Then 'Wenn Start ist größer 0 und IntArray ist größer als Start
    95. extr2 = str.Substring(start2, [end2] - start2) 'Gesuchter Wert ist ab der Stelle "Start2" bis zum IntArray-Wert minus Start2, gespeichert in der Variable "extr2"
    96. End If
    98. Label2.Text = extr2 'Wert an Label2 übergeben
    100. '----------------------------------------
    102. If extr1.Contains("1") Then
    103. CV1001()
    104. End If
    106. If extr1.Contains("3") Then
    107. CV1003()
    108. End If
    110. If extr1.Contains("4") Then
    111. CV1004()
    112. End If
    114. If extr1.Contains("8") Then
    115. CV1008()
    116. End If
    118. If extr1.Contains("29") Then
    119. CV1029()
    120. End If
    121. End Sub
    123. Sub CV1001()
    124. Label1001.Text = "gelesene CV = " + Label1.Text
    125. Label2001.Text = "gelesener Wert = " + Label2.Text
    126. End Sub
    128. Sub CV1003()
    129. Label1003.Text = "gelesene CV = " + Label1.Text
    130. Label2003.Text = "gelesener Wert = " + Label2.Text
    131. End Sub
    133. Sub CV1004()
    134. Label1004.Text = "gelesene CV = " + Label1.Text
    135. Label2004.Text = "gelesener Wert = " + Label2.Text
    136. End Sub
    138. Sub CV1008()
    139. Label1008.Text = "gelesene CV = " + Label1.Text
    140. Label2008.Text = "gelesener Wert = " + Label2.Text
    141. End Sub
    143. Sub CV1029()
    144. Label1029.Text = "gelesene CV = " + Label1.Text
    145. Label2029.Text = "gelesener Wert = " + Label2.Text
    146. End Sub
    148. ' alle lesen
    149. Private Sub ButtonALLE1_Click(sender As Object, e As EventArgs) Handles ButtonALLE1.Click
    151. Button1001.PerformClick()
    152. Button1003.PerformClick()
    153. Button1004.PerformClick()
    154. Button1008.PerformClick()
    155. Button1029.PerformClick()
    157. End Sub
    159. End Class

    Lennart schrieb:

    Aber siehe da: nach dem 3'ten klick (Button1004.PerformClick() ist immer schluss.
    Kommunikation mit Hardware ist ein langwierig Ding.
    Du kommunizierst asynchron, Du sendest einen Befehl, und während die Hardware noch sinniert, was zu tun ist, sendest Du bereits den nächsten Befehl, da kommt jede Hardware aus dem Tritt.
    Ich empfehle Dir, synchron zu kommunizieren.
    Bei mir heißt der entsprechende Befekl SendCommandWait4Answer():

    Quellcode

    1. Send()
    2. Sleep()
    3. Read()

    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