Serialport auslesen

  • VB.NET

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

    Serialport auslesen

    Guten Morgen und Frohe Weihnachten an alle!

    Ich habe auf meinem Arduino Uno ein Programm am laufen. Dieses Programm ermöglicht mir das Zähler von Runden sowie das messen der jeweiligen Rundenzeiten von zwei spieler. Das ganze kann ich mir dann auf dem Serial Monitor anzeigen lassen.

    Nun möchte ich das ganze etwas anschulicher gestalten und möchte die sachen über den serialen port auslesen.
    Das klappt auch.

    Nun zu meinem Problem, ich habe ich einem Fenster zwei textboxen, die linke ist für spieler 1 und die rechte für spieler zwei.
    Zurzeit werden alle eregnise an die linke textbox für spieler eins geleitet.

    Ich möchte es jedoch so haben, das alles was für spieler eins ausgelsen wird in die linke und das für spieler zwei in die rechte textbox ausgelsen wird.

    Ich hab bereits versucht das ganze mit verschiedenen baudrate zu machen.

    Spieler 1: Baudrate 4800
    Spieler 2: Baudrate 9600

    sodass ich es mir über verschiedene baudrates in die jeweiligen textboxen auslesen kann, dieses schaffe ich jedoch nicht und weiss nicht wie ich es anstellen soll, evtl. gibts auch bessere lösungen.

    Ich habe bereits den ganzen letzten abend damit verbracht foren und andere beiträge durchzublättern sodass ich leider nicht zum ergebnis kommen konnte.

    Auch bin ich ein freund der suchmaschinen und werden auch immer fündig sodass ich nur sehr selten neue themen beginne.
    dies wollte ich nur vorweg nehmen damit niemand sofort fragt :"Suchfunktion benutzt ?"

    Ich wäre über tipps, codes.... sehr dankbar.

    Das ganze soll später über das VB programm anschasulich dargestellt werden und die Rundenzeiten etc. meine carrera anzeigen.

    Ein Frohes Fest.
    Gruß STefan



    Hier mein Arduino Programm:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. /* StopWatch
    2. * Paul Badger 2008
    3. * Demonstrates using millis(), pullup resistors,
    4. * making two things happen at once, printing fractions
    5. *
    6. * Physical setup: momentary switch connected to pin 4, other side connected to ground
    7. * LED with series resistor between pin 13 and ground
    8. */
    10. #define ledPin A3 // LED connected to digital pin 13
    11. int Lichtschranke1 = A1; // oder Taster
    12. int Lichtschranke2 = A2;
    13. int Runde1 = 0;
    14. int Runde2 = 0;
    15. int Ton = 11;
    16. int value1 = LOW; // previous value of the LED
    17. int value2 = LOW; // previous value of the LED
    18. int buttonState1; // variable to store button state
    19. int buttonState2; // variable to store button state
    20. int lastButtonState1; // variable to store last button state
    21. int lastButtonState2; // variable to store last button state
    22. int blinking1; // condition for blinking - timer is timing
    23. int blinking2; // condition for blinking - timer is timing
    24. long interval1 = 100; // blink interval - change to suit
    25. long interval2 = 100; // blink interval - change to suit
    26. long previousMillis1 = 0; // variable to store last time LED was updated
    27. long previousMillis2 = 0; // variable to store last time LED was updated
    28. long start1 ; // start time for stop watch
    29. long dauer1 ; // elapsed time for stop watch
    30. long start2 ; // start time for stop watch
    31. long dauer2 ; // elapsed time for stop watch
    32. int fractional1; // variable used to store fractional part of time
    33. int fractional2; // variable used to store fractional part of time
    34. #include <LiquidCrystal.h>
    35. int Reset = 9;
    36. LiquidCrystal lcd(10,11,12,13,14,15,16);
    38. void setup()
    39. {
    40. lcd.begin(16, 2);
    42. pinMode(ledPin, OUTPUT); // sets the digital pin as output
    44. pinMode(Lichtschranke1, INPUT); // not really necessary, pins default to INPUT anyway
    45. pinMode(Lichtschranke2, INPUT); // not really necessary, pins default to INPUT anyway
    46. digitalWrite(Lichtschranke1, HIGH); // turn on pullup resistors. Wire button so that press shorts pin to ground.
    47. digitalWrite(Lichtschranke2, HIGH); // turn on pullup resistors. Wire button so that press shorts pin to ground.
    48. pinMode(Reset,INPUT);
    49. }
    51. void loop()
    52. {
    53. //LICHTSCHRANKE 2
    56. // check for button press
    57. buttonState2 = digitalRead(Lichtschranke2); // read the button state and store
    59. if (buttonState2 == LOW && lastButtonState2 == HIGH && blinking2 == false){ // check for a high to low transition
    60. // if true then found a new button press while clock is not running - start the clock
    62. start2 = millis(); // store the start time
    63. blinking2 = true; // turn on blinking while timing
    64. // short delay to debounce switch
    65. lastButtonState2 = buttonState2; // store buttonState in lastButtonState, to compare next time
    67. }
    69. else if (buttonState2 == LOW && lastButtonState2 == HIGH && blinking2 == true){ // check for a high to low transition
    70. // if true then found a new button press while clock is running - stop the clock and report
    71. Runde2++; // Inkrementieren der Variablen Runde
    72. dauer2 = millis() - start2; // store elapsed time
    73. blinking2 = false; // turn off blinking, all done timing
    74. Serial.begin(9600);
    75. Serial.print("Spieler 2 - Runde: ");
    76. Serial.print(Runde2);
    79. // routine to report elapsed time
    81. Serial.print(" Rundenzeit: ");
    83. Serial.print((int)(dauer2)/1000L); // divide by 1000 to convert to seconds - then cast to an int to print
    87. Serial.print("."); // print decimal point
    89. // use modulo operator to get fractional part of time
    90. fractional2 = (int)(dauer2 % 1000L);
    92. // pad in leading zeros - wouldn't it be nice if
    93. // Arduino language had a flag for this? :)
    94. if (fractional2 == 0)
    95. Serial.print("000"); // add three zero's
    97. else if (fractional2 < 10) // if fractional < 10 the 0 is ignored giving a wrong time, so add the zeros
    98. Serial.print("00"); // add two zeros
    100. else if (fractional2 < 100)
    101. Serial.print("0"); // add one zero
    102. if(digitalRead(Reset) == HIGH){
    103. Runde2=0;}
    105. Serial.println(fractional2); // print fractional part of time
    108. }
    110. else{
    111. lastButtonState2 = buttonState2; // store buttonState in lastButtonState, to compare next time
    112. }
    114. // blink routine - blink the LED while timing
    115. // check to see if it's time to blink the LED; that is, the difference
    116. // between the current time and last time we blinked the LED is larger than
    117. // the interval at which we want to blink the LED.
    119. if ( (millis() - previousMillis2 > interval2) ) {
    121. if (blinking2 == true){
    122. previousMillis2 = millis(); // remember the last time we blinked the LED
    124. // if the LED is off turn it on and vice-versa.
    125. if (value2 == LOW)
    126. value2 = HIGH;
    127. else
    128. value2 = LOW;
    129. digitalWrite(ledPin, value2);
    130. }
    131. else{
    132. digitalWrite(ledPin, LOW); // turn off LED when not blinking
    133. }
    134. }
    135. if(Runde2==20){
    137. digitalWrite(ledPin, HIGH);
    139. Runde2=0;
    140. Serial.print("");
    141. Serial.println("SPIELER 2 HAT GEWONNEN");
    142. delay(5000);}
    145. //LICHTSCHRANKE 1
    148. // check for button press
    149. buttonState1 = digitalRead(Lichtschranke1); // read the button state and store
    151. if (buttonState1 == LOW && lastButtonState1 == HIGH && blinking1 == false){ // check for a high to low transition
    152. // if true then found a new button press while clock is not running - start the clock
    154. start1 = millis(); // store the start time
    155. blinking1 = true; // turn on blinking while timing
    156. // short delay to debounce switch
    157. lastButtonState1 = buttonState1; // store buttonState in lastButtonState, to compare next time
    159. }
    161. else if (buttonState1 == LOW && lastButtonState1 == HIGH && blinking1 == true){ // check for a high to low transition
    162. // if true then found a new button press while clock is running - stop the clock and report
    163. Runde1++; // Inkrementieren der Variablen Runde
    164. dauer1 = millis() - start1; // store elapsed time
    165. blinking1 = false; // turn off blinking, all done timing
    166. Serial.begin(4800);
    167. Serial.print("Spieler 1 - Runde: ");
    168. Serial.print(Runde1);
    171. // routine to report elapsed time
    172. Serial.print(" Rundenzeit: ");
    173. Serial.print((int)(dauer1 / 1000L)); // divide by 1000 to convert to seconds - then cast to an int to print
    176. Serial.print("."); // print decimal point
    178. // use modulo operator to get fractional part of time
    179. fractional1 = (int)(dauer1 % 1000L);
    181. // pad in leading zeros - wouldn't it be nice if
    182. // Arduino language had a flag for this? :)
    183. if (fractional1 == 0)
    184. Serial.print("000"); // add three zero's
    186. else if (fractional1 < 10) // if fractional < 10 the 0 is ignored giving a wrong time, so add the zeros
    187. Serial.print("00"); // add two zeros
    189. else if (fractional1 < 100)
    190. Serial.print("0"); // add one zero
    193. Serial.print(fractional1);
    194. Serial.println("ms"); // print fractional part of time
    197. }
    199. else{
    200. lastButtonState1 = buttonState1; // store buttonState in lastButtonState, to compare next time
    201. }
    203. // blink routine - blink the LED while timing
    204. // check to see if it's time to blink the LED; that is, the difference
    205. // between the current time and last time we blinked the LED is larger than
    206. // the interval at which we want to blink the LED.
    208. if ( (millis() - previousMillis1 > interval1) ) {
    210. if (blinking1 == true){
    211. previousMillis1 = millis(); // remember the last time we blinked the LED
    213. // if the LED is off turn it on and vice-versa.
    214. if (value1 == LOW)
    215. value1 = HIGH;
    216. else
    217. value1 = LOW;
    218. digitalWrite(ledPin, value1);
    219. }
    220. else{
    221. digitalWrite(ledPin, LOW); // turn off LED when not blinking
    222. }
    223. }
    224. if(Runde1==20){
    225. Runde1=0;
    226. Serial.print("");
    227. Serial.println("SPIELER 1 HAT GEWONNEN");
    228. delay(5000);}
    231. }



    Hier das VB Programm:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO.Ports
    3. Public Class Form1
    4. Dim WithEvents sp As New SerialPort
    5. Private Sub GetSerialPortNames()
    6. sp.BaudRate = 4800
    7. sp.PortName = "COM4"
    8. sp.Open()
    9. End Sub
    14. Sub ShowString(ByVal myString As String)
    15. txtIn.AppendText(myString)
    16. End Sub
    20. Delegate Sub myMethodDelegate(ByVal [text] As String)
    21. Dim myDelegate As New myMethodDelegate(AddressOf ShowString)
    24. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    27. GetSerialPortNames()
    30. End Sub
    32. Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
    33. Dim str As String = sp.ReadExisting()
    34. Invoke(myDelegate, str)
    35. End Sub
    37. Private Sub txtIn_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIn.TextChanged
    39. End Sub
    40. End Class


    *Posting ausgelagert*

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

    Es wird ja jeweils immer spieler 1 und spieler 2 angezeigt, jedoch bekomme ich die zeichen in vb nicht ausgelsen und in die beiden boxen geschrieben.
    Ich bin die ganze zeit am lesen und probieren, jedoch ohne erfolg!

    So sieht es zurzeit aus:
    Ich bekomme die Daten von Spieler 2 einfach nicht in die Rechte Textbox !

    Für Spieler 1 habe ich es schon mit $
    Und Spieler 2 mit % versucht.

    kann mir evtl. jemand ein beispiel nenen wie ich das ganze mit besagten zeichen trennen könnte ?

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

    wie speicher ich den text als variable ?


    muss das ganze dann hier rein ?

    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.ReadExisting()
    6. End Sub



    hiermit wird er in die linke textbox geschrieben

    VB.NET-Quellcode

    1. Sub ShowString(ByVal myString As String)
    2. txtIn.AppendText(myString)
    3. End Sub
    6. Delegate Sub myMethodDelegate(ByVal [text] As String)
    7. Dim myDelegate As New myMethodDelegate(AddressOf ShowString)


    textbox rechts ist dann
    txtIn1.AppendText(myString)

    Es wäre nett wenn du mir ein Beispiel schicken könntest da ich es mir nicht ganz vorstellen kann.

    Und vielen Danke für deine Bemühung !



    Das habe ich bereits prbiert. Jedoch wenn spieler 1 betätigt kommt die Msgbox Spieler 1 und danach sofort Spieler 2, obwohl der String mit $ für spieler 1 und % für spieler 2 beginnt.

    Im Arduino Programm habe ich Spieler 1 durch § ersetzt. siehe erster Post.


    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()
    4. Dim P1 As String = str.StartsWith("$")
    5. MsgBox("Spieler 1")
    6. Dim P2 As String = str.StartsWith("%")
    7. MsgBox("Spieler 2")
    10. End Sub


    Jetzt leg ich mich erstmal hin und hoffe morgen zum ziel zu kommen.
    Danke für die Hilfe.

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

    Guten Abend/Morgen,

    Die StarsWith-Methode gibt einen Boolean zurück. Heißt also, dass du hier mit einem konditionalen Konstrukt - auch bekannt als If - arbeiten musst. So würde es z.B. lauten:

    VB.NET-Quellcode

    1. If P1.StartsWith("$") Then
    2. ' Hier in TextBox1 reinschreiben
    3. Else
    4. ' Hier in TextBox2 reinschreiben
    5. End If


    Das ganze halt in das DataReceive-Event vom SerialPort.

    Guten Morgen und vielen Dank dafür,
    genau so hatte ich es gestern kurz, jedoch habe ich als Spieler 1 versehentlich ein § statt eines $ Zeichens empfangen sodass dies nicht funktionierte.

    Jetzt klappt es zumindest schonmal mit den MsgBoxen, in denen jeweils die werte von Spieler 1 und Spieler 2 stehen wenn diese auslösen.

    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()
    4. Dim P1 As String = str
    5. Dim P2 As String = str
    7. If P1.StartsWith("$") Then
    8. txtIn.AppendText(P1)
    9. Else
    10. txtIn.AppendText(P2)
    11. End If
    13. End Sub


    So sieht das ganze mit den Textboxen aussehen.
    jedoch kommt immer die folgende fehlermeldung. :S

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

    So ich habe es nun hinbekommen, das einzige was mich noch stört ist, das nun die texte in den textboxen hintereinander weggeschrieben werden,
    Sie werden mir jetzt nicht mehr untereinander ausgegeben.

    Ich finde den fehler leider nicht. Wenn mir dabei noch jemand helfen könnte wäre ich euch sehr dankbar !

    hier mein aktueller code !

    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. Private Sub GetSerialPortNames()
    9. sp.BaudRate = 9600
    10. sp.PortName = "COM4"
    11. sp.Open()
    12. sp.DataBits = 8
    13. sp.Parity = Parity.None
    14. sp.StopBits = StopBits.One
    15. sp.Handshake = Handshake.None
    16. sp.Encoding = System.Text.Encoding.Default
    17. End Sub
    18. Sub ShowString(ByVal myString As String)
    19. txtIn.AppendText(myString)
    20. End Sub
    21. Sub ShowString1(ByVal myString As String)
    22. txtIn1.AppendText(myString)
    23. End Sub
    25. Delegate Sub myMethodDelegate(ByVal [text] As String)
    26. Dim myDelegate As New myMethodDelegate(AddressOf ShowString)
    28. Delegate Sub MethodDelegate(ByVal [text] As String)
    29. Dim myDelegate2 As New myMethodDelegate(AddressOf ShowString1)
    33. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    34. GetSerialPortNames()
    35. End Sub
    37. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    38. zählen = zählen + 10
    39. txtIn2.Text = zählen
    40. sp.Write("1")
    42. End Sub
    43. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    44. zählen = zählen + -10
    45. txtIn2.Text = zählen
    46. sp.Write("0")
    47. If zählen = 0 Then
    48. MsgBox("Rundenzahl kann nicht 0 sein, Bitte Rundenzahl erhöhen")
    49. End If
    51. End Sub
    52. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    53. sp.Write("2")
    54. txtIn.Clear()
    55. txtIn1.Clear()
    56. End Sub
    59. Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
    60. Dim str As String
    61. str = sp.ReadLine()
    62. Dim P1 As String = str
    63. Dim P2 As String = str
    65. If P1.StartsWith("Spieler 1") Then
    66. Invoke(myDelegate, P1)
    68. Else
    69. Invoke(myDelegate2, P2)
    72. End If
    73. End Sub
    79. End Class

    hat keiner einen Tipp ? Ich hab schon diverse foreneinträge durch.
    Danke Gruss Stefan

    Habs hinbekommen.

    VB.NET-Quellcode

    1. Sub ShowString(ByVal myString As String)
    2. txtIn.AppendText(myString & Environment.NewLine)
    3. End Sub



    Gibt es die möglichkeit noch die z.b kleinste Zahl in den textboxen zu finden und diese in eine dritte textbox anzuzeigen ?

    Er soll nämliche die niedrigste rundenzeit finden und diese dann in textbox 3 ausgeben.

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

    Hi Paco, sorry für die verspätete Antwort nachträglich frohe weihnachten.

    Also ich hab es lösen können und zwar durch setzen einer Anfangsmarkierung z.b. ====begin==== und endmarkierung ====end====.
    dann habe ich zeile für zeile das eingelesen und die Zeile wo ===begin=== und die zeile wo ====end==== vorkam immer notiert.
    Dann habe ich gesagt, dass der inhalt zwischen den Markierungen in die zweite Textbox auch erscheinen soll.

    Wichtig: Bei mir wurde dieser Inhalt separat in der 2.Textbox angezeigt und auch in der 1.Textbox.

    Schau hier mal:

    VB.NET-Quellcode

    1. Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort_i2c.DataReceived
    2. 'das was an buffer ist wird an variable drangehängt und somit nicht ueberschrieben
    5. inputdata = inputdata & SerialPort_i2c.ReadExisting
    7. 'HIer wird die funktion aufgerufen, weil damit gibt eskeine verzögerung,
    8. 'd.h. da wird alles was im EMpfangsbuffer anliegt ausgelesen und ausgegeben. -> brauche im Event vom Button klick nicht definieren
    9. 'da arduino nur sendet wenn er Dollarzeichen erhält, also -> receive, da kommt erst eventhandler datarecieved zum arbeiten
    11. Me.Invoke(Sub() Me.DoIt())
    13. End Sub
    14. Private Sub DoIt()
    16. Dim beginningLine As Integer 'notiere Zeilenzahl vom arry wo ===file begin kommt
    17. Dim endLine As Integer 'notiere Zeilenzahl vom array wo ===end== kommt
    18. Dim WerteArray() As String = Split(inputdata, Environment.NewLine)
    19. 'Befülle Array mit den Zeilen der RTB mit zeilenweise
    20. RichTextBox1.Clear() 'lösche richttextbox
    21. For i = 0 To WerteArray.Length - 1 ' i sind die zeilen
    22. 'For Each line As String In WerteArray 'überprüfe jede zeile auf ===file content=== und ===end ===
    23. Select Case WerteArray(i)
    24. Case "===file content===" 'wenn gefunden
    25. beginningLine = i 'notiere zeile wo file content vorkommt
    26. Case "===end==="
    27. endLine = i 'notiere Zeile wo end vorkommt
    28. Case Else
    29. RichTextBox1.AppendText(WerteArray(i) & vbCr) 'sonst schriebe in richtextbox 'vbCrlF
    30. End Select
    31. Next
    34. If beginningLine >= 0 Then 'wenn beginnline >=0 , d.h. wenn 0 oder grösser bedeutet zeile gefunden
    35. listbox_i2c_editparameter.BeginUpdate() 'friert box ein sodass man bei langsamen rechner das nicht sieht wegen update
    36. listbox_i2c_editparameter.Items.Clear() 'wird nicht drangehängt sondern gelöscht und immer neues angezeigt in listbox
    37. For i As Integer = (beginningLine + 2) To (endLine - 1) ' trage die zeilen ein von beginning+2 d.h. wo der erste param anfängt line bis letzte param also endline-1
    38. listbox_i2c_editparameter.Items.Add(WerteArray(i)) 'füge zeilen von beign to end in listbox
    39. Next
    42. listbox_i2c_editparameter.EndUpdate() 'bende update
    43. RichTextBox1.ScrollToCaret() 'sodass er runterscroll und das aktuellste zeigt
    45. End If
    46. '----wenn Gui empfängt, dann lade die Progressbar auf 100 %-------'
    47. '-----d.h. hier ist progress =1 --------'
    49. progress = 1
    50. Progress_i2c.Value = 100
    52. 'wenn ich erneut drücke, d.h die progress var =1 dann erneut laden----'
    53. 'd.h. zuerst auf 0 und dann wieder auf 100%
    54. If progress = 1 Then
    55. Progress_i2c.Value = 0
    56. Progress_i2c.Value = 100
    58. End If
    63. End Sub




    Sorry sehe schon da haben einige schon weitergeholfen, doch schaden kann es trotzdem nicht. Und helf gerne weiter.
    Falls du fragen dazu hast frag mich ruhig :D.

    evtl. kannst du mir bei meinem letzten beitrag weiterhelfen, ich möchte die niedrigste zahl aus meinen beiden textboxen ermitteln und diese dann in eine dritte textbox schreiben lassen.
    Die Textbox soll dann die schnellste runde anzeigen. evtl sogar so.

    Beste Rundenzeit Spieler 1
    Beste Rundenzeit Spieler 2
    und dann noch die ingesamt beste runden zeit.

    Als Anregung:
    (Für die TextBox Werte in String wandeln).

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    4. Dim Beste As Double = 99
    5. Dim Beste1 As Double = 99
    6. Dim Beste2 As Double = 99
    7. Dim t(3) As String, tmp As String
    8. t(0) = "Spieler 1 Runde Rundenzeit: 0:328 Sek."
    9. t(1) = "Spieler 2 Runde Rundenzeit: 0:424 Sek."
    10. t(2) = "Spieler 2 Runde Rundenzeit: 1:101 Sek."
    11. t(3) = "Spieler 1 Runde Rundenzeit: 0:498 Sek."
    13. For i As Integer = 0 To 3
    14. tmp = t(i).Substring(t(i).IndexOf("Rundenzeit") + 12, 5)
    15. tmp = tmp.Replace(":"c, ","c)
    16. If t(i).Contains("Spieler 1") Then
    17. Beste1 = Math.Min(Beste1, CDbl(tmp))
    18. ElseIf t(i).Contains("Spieler 2") Then
    19. Beste2 = Math.Min(Beste2, CDbl(tmp))
    20. End If
    21. Next
    22. Beste = Math.Min(Beste1, Beste2)
    23. Debug.Print("Beste - " & Beste)
    24. Debug.Print("Beste1 - " & Beste1)
    25. Debug.Print("Beste2 - " & Beste2)
    26. End Sub
    28. End Module

    Danke ! aber wie lasse ich mir das ganze nun in einer einer dritten textbox anzeigen ?

    meine textbox habe ich wie folgt benannt

    txtIn1
    txtIn2
    u.s.w

    so soll es am ende dann aussehen.

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

    paco86 schrieb:

    evtl. kannst du mir bei meinem letzten beitrag weiterhelfen, ich möchte die niedrigste zahl aus meinen beiden textboxen ermitteln und diese dann in eine dritte textbox schreiben lassen.
    Die Textbox soll dann die schnellste runde anzeigen. evtl sogar so.

    Beste Rundenzeit Spieler 1
    Beste Rundenzeit Spieler 2
    und dann noch die ingesamt beste runden zeit.
    Hi gerne versuche ich dir zu helfen.
    Also meine Idee war es die textboxen (also den Inhalt) zu überprüfen and von > bzw < zu vergleichen und dann das kleinste in der textbox 3 anzeigen zu lassen.

    Also in etwa so:
    If textbox1.Text > textbox2.Text Then
    ' Passiert was
    End If

    Schau mal unter diesem link:

    [VB 2010] Zahlen vergleich (größer als)


    als kleiner Ansatz, doch ich glaube du hast da ja mehrere d.h. man müsste mehrere Vergleiche machen also so in etwa:


    Wenn Runde 1 Sp1 > Runde 1 SP2 , dann..... usw.


    Habe es aber selber nicht ausprobiert, dass war ein Einfall wie ich das auch versuchen würde.
    Kann dir das weiterhelfen?

    ich habs eben mal kurz versucht das mit dem if text 1 größer text 2 klappt, aber nur wenn ich in textbox drei reingehe und kurz einen buchstaben drücke.
    er aktualisiert jedoch die werte, er soll es aber so machen das er die kleinste von allen nimmt und diese dann dauerhaft anzeigt, solange bis wieder von spieler 1 oder 2 eine neue bestzeit gefahren wurde.

    aber der ansatz ist schonmal nicht schlecht, da müsste dan warscheinlich soetwas wie math.min klappen oder so. leider schaffe ich heute icht mehr es zu probieren. ich werde mich aber melden.
    vielen dank schonmal !!!

    so sieht es im mom aus. jetzt ist es zusätzlich auch noch so das sobald spieler 2 einmal eine schnellere runde gefahren ist, er auch runden anzeigt die eigentlich länger waren

    VB.NET-Quellcode

    1. Private Sub txtIn3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIn3.TextChanged
    2. If txtIn.Text > txtIn1.Text Then
    3. txtIn3.Text = txtIn.Text
    4. Else
    5. txtIn3.Text = txtIn1.Text
    6. End If
    8. End Sub

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

    paco86 schrieb:

    ich habs eben mal kurz versucht das mit dem if text 1 größer text 2 klappt, aber nur wenn ich in textbox drei reingehe und kurz einen buchstaben drücke.
    er aktualisiert jedoch die werte, er soll es aber so machen das er die kleinste von allen nimmt und diese dann dauerhaft anzeigt, solange bis wieder von spieler 1 oder 2 eine neue bestzeit gefahren wurde.

    aber der ansatz ist schonmal nicht schlecht, da müsste dan warscheinlich soetwas wie math.min klappen oder so. leider schaffe ich heute icht mehr es zu probieren. ich werde mich aber melden.
    vielen dank schonmal !!!

    so sieht es im mom aus. jetzt ist es zusätzlich auch noch so das sobald spieler 2 einmal eine schnellere runde gefahren ist, er auch runden anzeigt die eigentlich länger waren

    VB.NET-Quellcode

    1. Private Sub txtIn3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIn3.TextChanged
    2. If txtIn.Text > txtIn1.Text Then
    3. txtIn3.Text = txtIn.Text
    4. Else
    5. txtIn3.Text = txtIn1.Text
    6. End If
    8. End Sub
    Ok verstehe , ja das er nur das anzeigt, wenn du in textbox3 was eingbist hat glaube ich damit zu tun, dass du das in dem textchange event von der dritten textbox geschrieben hast. Melde dich falls du weitere hilfe benötigst bzw. wenn du auch einen Ansatz hast.

    ich komme einfach nicht weiter. kann mir jemand sagen wo der code stehen muss ?
    er sollte immer die insegesamt schnellste runde anzeigen, und natürlich auch von wem sie gefahren wurde.

    als extra wäre es schön wenn die schnellste runde des jeweiligen spieler angezeigt würde.

    Einen guten rutsch und danke für eure hilfe.
    Gruß Stefan

    Versuch's mal damit:

    VB.NET-Quellcode

    1. ...
    2. ...
    4. Public Class Form1
    5. Private zählen As Integer = 20
    6. Dim WithEvents sp As New SerialPo
    8. Dim BesteRunde As String = ""
    9. Dim BesteRundeFahrer1 As String = ""
    10. Dim BesteRundeFahrer2 As String = ""
    12. ...
    13. ...
    15. Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
    16. Dim str As String
    17. str = sp.ReadLine()
    19. Dim tmp As String = ""
    20. Static Beste As Double = 99
    21. Static Beste1 As Double = 99
    22. Static Beste2 As Double = 99
    24. tmp = str.Substring(str.IndexOf("Rundenzeit") + 12, 5)
    25. tmp = tmp.Replace(":"c, ","c)
    27. If str.StartsWith("Spieler 1") Then
    28. Beste1 = Math.Min(Beste1, CDbl(tmp))
    30. Invoke(myDelegate, str)
    31. Else
    32. Beste2 = Math.Min(Beste2, CDbl(tmp))
    34. Invoke(myDelegate2, str)
    35. End If
    37. Beste = Math.Min(Beste1, Beste2)
    39. BesteRunde = Beste.ToString
    40. BesteRundeFahrer1 = Beste1.ToString
    41. BesteRundeFahrer2 = Beste2.ToString
    44. End Sub

    Also zunächst mal Frohes neues Jahr !
    Ich habe deinen code genommen und diesen eingefügt, das programm läuft auch ohne fehler durch.
    Wie kann ich mir das ganze nun in die textboxen schreiben ? wenn ich mit invoke arbeite sagt er mir immer das double nicht in string konvertiert werden kann.

    und wenn ich die 20 runden gefahren bin sagt er "Ungültige Konvertierung von der Zeichenfolge AT GE in Typ Double."
    bei

    VB.NET-Quellcode

    1. Beste2 = Math.Min(Beste2, CDbl(tmp))


    auch wenn ich bei mydelegate3 as Double eingeben. Warscheinlich ist es nur ein kleiner codeschnippsel der fehlt.

    Vielen dank schonmal für deine Hilfe !

    Grüße Stefan

Facebook
Telefonspende