Serialport auslesen

  • VB.NET

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von paco86.

    also die schnellste runde wird nun angezeigt. jedoch kommt immer noch der fehler nach den 20 runden "Ungültige Konvertierung von der Zeichenfolge AT GE in Typ Double."

    wie kann ich es machen ? das er mir bei der schnellste runden noch anzeigt von welchem spieler diese ist ?

    danke nochmal du hast mir schon ziemlich weitergeholfen.

    ach ja er aktuallisiert immer die textbox mit der schnellsten runde, kann man es auch so machen das er wirklich nur die eine schnellste runden anzeigt bis dann irgendwann wieder eine bessere kommt ?

    ich möchte dieses thema noch einmal kurz aufgreifen, und zwar habe ich noch ein letztes problem.

    Zurzeit speichere ich den inhalt der textbox welche die beste runde anzeigt in einer csv datei. Diese csv datei lese ich mir in einer unsichtbaren listbox ein und sortiere sie nach dem kleinsten wert und gebe mir diesen kleinsten wert dann ich einer textbox mit der Besten Streckenzeit aus.

    Nun zum Problem, Wenn ich z.b eine Beste Runde fahre, wird diese in der textbox mit der Bestenrunde angezeigt und in der csv datei gespeichert, das problem ist nun, das wenn ich keine neue beste runde fahre der wert der textbox mit der besten runde immer wieder neu geschrieben wird, folglich wird der wert bei einer zwanzig ründigen fahrt satte 150 mal in die textbox geschrieben.

    Wie kann ich es nun realisieren, das er mir nur einen wert in meine csv datei schreibt wenn dieser kleiner als der zuvorige wert der textbox ist ? die textbox mit der schnellsten runde wird also immer mit dem schnellsten wert beschrieben, auch dann wenn ich eine langsamere runde gefahren bin.

    evtl. kann man auch hier ansetzten und sagen wenn der wert spieler 1 oder spieler 2 kleiner als der beste rundenwert ist, erst dann neu in die textbox schreiben.

    vielen dank für eure bemühungen.
    Gruß Stefan

    Hier der ganze code


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.IO.Ports
    3. Imports System.Threading
    5. Public Class Form1
    6. Private zählen As Integer = 20
    7. Dim WithEvents sp As New SerialPort
    8. Dim BesteRunde As String = ""
    9. Dim BesteRundeFahrer1 As String = ""
    10. Dim BesteRundeFahrer2 As String = ""
    13. Private Sub GetSerialPortNames()
    14. sp.BaudRate = 9600
    15. sp.PortName = "COM4"
    16. sp.Open()
    17. sp.DataBits = 8
    18. sp.Parity = Parity.None
    19. sp.StopBits = StopBits.One
    20. sp.Handshake = Handshake.None
    21. sp.Encoding = System.Text.Encoding.Default
    22. End Sub
    24. Sub ShowString(ByVal myString As String)
    25. txtIn.AppendText(myString & Environment.NewLine)
    26. End Sub
    27. Sub ShowString1(ByVal myString As String)
    28. txtIn1.AppendText(myString & Environment.NewLine)
    29. End Sub
    30. Sub ShowString3(ByVal myString As String)
    31. txtIn3.AppendText(myString & Environment.NewLine)
    32. End Sub
    33. Sub ShowString4(ByVal myString As String)
    34. txtIn4.AppendText(myString & Environment.NewLine)
    35. End Sub
    36. Sub ShowString5(ByVal myString As String)
    37. txtIn5.AppendText(myString & Environment.NewLine)
    38. End Sub
    41. Delegate Sub myMethodDelegate(ByVal [text] As String)
    42. Dim myDelegate As New myMethodDelegate(AddressOf ShowString)
    44. Delegate Sub MethodDelegate(ByVal [text] As String)
    45. Dim myDelegate2 As New myMethodDelegate(AddressOf ShowString1)
    47. Delegate Sub MethodDelegate3(ByVal [text] As String)
    48. Dim myDelegate3 As New myMethodDelegate(AddressOf ShowString3)
    50. Delegate Sub MethodDelegate4(ByVal [text] As String)
    51. Dim myDelegate4 As New myMethodDelegate(AddressOf ShowString4)
    53. Delegate Sub MethodDelegate5(ByVal [text] As String)
    54. Dim myDelegate5 As New myMethodDelegate(AddressOf ShowString5)
    57. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    59. GetSerialPortNames()
    61. Dim zeilen As String() = IO.File.ReadAllLines("Rundenzeiten.txt")
    62. For Each item As String In zeilen
    63. ListBox1.Items.Add(item)
    64. Next
    65. TextBox1.Lines = ListBox1.Items.Cast(Of String).ToArray
    66. End Sub
    68. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    69. zählen = zählen + 10
    70. txtIn2.Text = zählen
    71. sp.Write("1")
    73. End Sub
    74. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    75. zählen = zählen + -10
    76. txtIn2.Text = zählen
    77. sp.Write("0")
    78. If zählen = 0 Then
    79. MsgBox("Rundenzahl kann nicht 0 sein, Bitte Rundenzahl erhöhen")
    80. End If
    82. End Sub
    83. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click, Button3.Click
    84. txtIn.Clear()
    85. txtIn1.Clear()
    86. txtIn3.Clear()
    87. txtIn4.Clear()
    88. txtIn5.Clear()
    90. End Sub
    93. Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
    94. Dim str As String
    95. str = sp.ReadLine()
    98. Dim tmp As String = ""
    99. Static Beste As Double = 99
    100. Static Beste1 As Double = 99
    101. Static Beste2 As Double = 99
    103. If txtIn1.Text = "" And txtIn.Text = "" Then
    104. Beste = 99
    105. Beste1 = 99
    106. Beste2 = 99
    108. End If
    111. My.Computer.FileSystem.WriteAllText("Rundenzeiten.txt", txtIn3.Text, True)
    113. tmp = str.Substring(str.IndexOf("Rundenzeit") + 12, 6)
    114. tmp = tmp.Replace(":"c, ","c)
    116. If str.StartsWith("Spieler 1") Then
    117. Beste1 = Math.Min(Beste1, CDbl(tmp))
    118. Invoke(myDelegate, str)
    119. ElseIf str.StartsWith("Spieler 2") Then
    120. Beste2 = Math.Min(Beste2, CDbl(tmp))
    121. Invoke(myDelegate2, str)
    122. Else
    123. MsgBox(str)
    125. End If
    128. Beste = Math.Min(Beste1, Beste2)
    130. BesteRunde = Beste.ToString
    131. BesteRundeFahrer1 = Beste1.ToString
    132. BesteRundeFahrer2 = Beste2.ToString
    134. Invoke(myDelegate3, " " + BesteRunde + " Sek.")
    135. Invoke(myDelegate4, " " + BesteRundeFahrer1 + " Sek.")
    136. Invoke(myDelegate5, " " + BesteRundeFahrer2 + " Sek.")
    137. End Sub
    139. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    140. sp.Write("4")
    142. Thread.Sleep(3850)
    143. My.Computer.Audio.Play(My.Resources.ampelrot,
    144. AudioPlayMode.WaitToComplete)
    145. Thread.Sleep(850)
    146. My.Computer.Audio.Play(My.Resources.ampelrot,
    147. AudioPlayMode.WaitToComplete)
    148. Thread.Sleep(850)
    149. My.Computer.Audio.Play(My.Resources.ampelrot,
    150. AudioPlayMode.WaitToComplete)
    151. Thread.Sleep(850)
    152. My.Computer.Audio.Play(My.Resources.ampelrot,
    153. AudioPlayMode.WaitToComplete)
    154. Thread.Sleep(850)
    155. My.Computer.Audio.Play(My.Resources.ampelrot,
    156. AudioPlayMode.WaitToComplete)
    157. Thread.Sleep(800)
    158. My.Computer.Audio.Play(My.Resources.ampelgrün,
    159. AudioPlayMode.WaitToComplete)
    161. End Sub
    164. End Class


    Und hier mit empfange und schreibe ich die daten in die textboxen.

    VB.NET-Quellcode

    1. Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
    2. Dim str As String
    3. str = sp.ReadLine()
    6. Dim tmp As String = ""
    7. Static Beste As Double = 99
    8. Static Beste1 As Double = 99
    9. Static Beste2 As Double = 99
    11. If txtIn1.Text = "" And txtIn.Text = "" Then
    12. Beste = 99
    13. Beste1 = 99
    14. Beste2 = 99
    16. End If
    19. My.Computer.FileSystem.WriteAllText("Rundenzeiten.txt", txtIn3.Text, True)
    21. tmp = str.Substring(str.IndexOf("Rundenzeit") + 12, 6)
    22. tmp = tmp.Replace(":"c, ","c)
    24. If str.StartsWith("Spieler 1") Then
    25. Beste1 = Math.Min(Beste1, CDbl(tmp))
    26. Invoke(myDelegate, str)
    27. ElseIf str.StartsWith("Spieler 2") Then
    28. Beste2 = Math.Min(Beste2, CDbl(tmp))
    29. Invoke(myDelegate2, str)
    30. Else
    31. MsgBox(str)
    33. End If
    36. Beste = Math.Min(Beste1, Beste2)
    38. BesteRunde = Beste.ToString
    39. BesteRundeFahrer1 = Beste1.ToString
    40. BesteRundeFahrer2 = Beste2.ToString
    42. Invoke(myDelegate3, " " + BesteRunde + " Sek.")
    43. Invoke(myDelegate4, " " + BesteRundeFahrer1 + " Sek.")
    44. Invoke(myDelegate5, " " + BesteRundeFahrer2 + " Sek.")
    45. End Sub


    er soll halt immer nur eine neue zeit in die textboxen schreiben, wenn die letzt unterboten wurde also kürzer ist.

    Viel Dank

    Versuch's mal damit:

    VB.NET-Quellcode

    1. ...
    2. ...
    3. Static BesteBeste As Double = 99
    4. Static BesteBeste1 As Double = 99
    5. Static BesteBeste2 As Double = 99
    6. ...
    7. ...
    8. ...
    9. ...
    10. Beste = Math.Min(Beste1, Beste2)
    12. BesteRunde = Beste.ToString
    13. BesteRundeFahrer1 = Beste1.ToString
    14. BesteRundeFahrer2 = Beste2.ToString
    17. If Beste < BesteBeste then
    18. Invoke(myDelegate3, " " + BesteRunde + " Sek.")
    19. End If
    21. If Beste1 < BesteBeste1 then
    22. Invoke(myDelegate4, " " + BesteRundeFahrer1 + " Sek.")
    23. End If
    25. If Beste2 < BesteBeste2 then
    26. Invoke(myDelegate5, " " + BesteRundeFahrer2 + " Sek.")
    27. End If
    29. End Sub

    werd ich nachher machen, dafür schonmal besten dank,

    jedoch verstehe ich den vergleich

    VB.NET-Quellcode

    1. If Beste < BesteBeste
    nicht, BesteBeste müsste doch immer den alten wert der textbox haben oder etwa nicht ?

    in dem code bekommt BesteBeste doch nur den Wert 99 zugeteilt.

    BesteBeste müsste doch immer den alten wert der textbox haben oder etwa nicht ?

    Hast' recht.
    So müsste es klappen:

    VB.NET-Quellcode

    1. ...
    2. If Beste < BesteBeste then
    3. BesteBeste = Beste
    4. Invoke(myDelegate3, " " + BesteRunde + " Sek.")
    5. End If
    7. If Beste1 < BesteBeste1 then
    8. BesteBeste1 = Beste1
    9. Invoke(myDelegate4, " " + BesteRundeFahrer1 + " Sek.")
    10. End If
    12. If Beste2 < BesteBeste2 then
    13. BesteBeste2 = Beste2
    14. Invoke(myDelegate5, " " + BesteRundeFahrer2 + " Sek.")
    15. End If

    merci !
    ich probiers später hab noch vorlesung.

    Wenn das ganze dann fertig ist setzt ich es mal komplett rein, damit auch andere dies nutzen können.
    Danke !

    Wie könnte ich es realisieren, das wenn die Zeit in textbox besterunde kleiner ist als die in meiner streckenbestzeit eine aufforderung kommt, in dem man den namen eintragen muss und dieser dann als label geändert wird,

    zb. Neue Streckenbestzeit ! Bitte name eintragen.

    sodass dann dort steht Streckenbestzeit gefahren von Name

    Ich dachte an soetwas:

    VB.NET-Quellcode

    1. If MsgBox contains GEWONNEN And TextboxBeste < TextboxStreckenbeste Then
    2. MsgBox("Neue Streckenbestzeit, Bitte Name eintragen")
    3. Dann Hier das label in den Name ändern.
    4. End If


    das mit MsgBox gewonnen ist drin, damit er erst am ende des Rennens sagt bitte name eintragen.

    Das ist mein Ansatz:

    VB.NET-Quellcode

    1. Dim name As String = "Spieler"
    2. If txtIn3.Text < TextBox1.Text And MsgBox("GEWONNEN") Then
    3. MsgBox("Neue Streckenbestzeit, Bitte Name eintragen")
    4. name = InputBox("Bitte geben sie Ihr Passwort ein", "name")
    5. End If
    6. Label3.Text = name

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „paco86“ ()

    so ich musste noch eine kleinigkeit ändern, jetzt klappt es. Vielen dank dafür.


    Das mit der eingabe des Spielernamen bei neuer Streckernbestzeit klappt auch soweit, jedoch soll er es erst am ende des rennens machen, also wenn die MsgBox sagt Spieler x HAT GEWONNEN.

    ich hab auch schon versucht es so zu machen, das wenn str.EndsWith("GEWONNEN") jedoch fragt er mich dann am ende nicht nach der eingabe des namens!

    Hat da jemand eine Idee ?

    Hier mein Code

    VB.NET-Quellcode

    1. Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
    2. Dim str As String
    3. str = sp.ReadLine()
    5. Dim Bestername As String = ""
    6. Dim tmp As String = ""
    7. Static Beste As Double = 99
    8. Static Beste1 As Double = 99
    9. Static Beste2 As Double = 99
    10. Static BesteBeste As Double = 99
    11. Static BesteBeste1 As Double = 99
    12. Static BesteBeste2 As Double = 99
    14. If txtIn1.Text = "" And txtIn.Text = "" Then
    15. Beste = 99
    16. Beste1 = 99
    17. Beste2 = 99
    19. End If
    24. tmp = str.Substring(str.IndexOf("Rundenzeit") + 12, 6)
    25. tmp = tmp.Replace(":"c, ","c)
    27. If str.StartsWith("Spieler 1") Then
    28. Beste1 = Math.Min(Beste1, CDbl(tmp))
    29. Invoke(myDelegate, str)
    30. ElseIf str.StartsWith("Spieler 2") Then
    31. Beste2 = Math.Min(Beste2, CDbl(tmp))
    32. Invoke(myDelegate2, str)
    33. Else
    34. MsgBox(str)
    36. End If
    39. Beste = Math.Min(Beste1, Beste2)
    41. BesteRunde = Beste.ToString
    42. BesteRundeFahrer1 = Beste1.ToString
    43. BesteRundeFahrer2 = Beste2.ToString
    46. If Beste < BesteBeste Then
    47. BesteBeste = Beste
    48. Invoke(myDelegate6, "")
    49. Invoke(myDelegate3, " " + BesteRunde + " Sek.")
    50. My.Computer.FileSystem.WriteAllText("Rundenzeiten.txt", txtIn3.Text, True)
    51. End If
    53. If Beste1 < BesteBeste1 Then
    54. BesteBeste1 = Beste1
    55. Invoke(myDelegate7, "")
    56. Invoke(myDelegate4, " " + BesteRundeFahrer1 + " Sek.")
    57. End If
    59. If Beste2 < BesteBeste2 Then
    60. BesteBeste2 = Beste2
    61. Invoke(myDelegate8, "")
    62. Invoke(myDelegate5, " " + BesteRundeFahrer2 + " Sek.")
    63. End If
    65. If txtIn3.Text < TextBox1.Text And str.EndsWith("GEWONNEN") Then
    66. MsgBox("Neue Streckenbestzeit, Bitte Name eintragen")
    67. Bestername = InputBox("Bitte geben Ihren Namen ein", "Bestername")
    68. Invoke(myDelegate10, "")
    69. Invoke(myDelegate9, Bestername)
    70. End If
    75. End Sub


    der untere code ist für den input zuständig

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „paco86“ ()

Facebook
Telefonspende