Stop Button

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Stop Button

    Hi,

    vorab muss ich sagen, dass Programmierung für mich Neuland ist.

    Ich bin dabei ein kleines Programm zu schreiben, womit ich
    nacheinander einzelne Relais steuern kann und gleichzeitig die
    Messwerte ablese und in eine XML Datei speichere.

    Soweit habe ich das geschafft mithilfe mehrere Anleitungen die ich
    gefunden habe.

    Bis jetzt habe ich das Programm folgendermaßen aufgebaut:

    Com-Anschlüsse deklarieren


    Programm starten wenn ich auf den „Start-Button“ klicke


    Schalten der ersten Relais → Messen U1 → schalten der
    nächsten Relais → Messen U2


    → Schreiben in xml.


    Dies lasse ich nur mehrere male hintereinander laufen für
    verschiedene Geräte

    Wenn alle Geräte durch sind schreibe ich alle Werte noch einmal
    in eine Gemeinsame xml. Datei um alle Messungen auf einem Blick zu
    haben.

    Wenn ich beim letzten Gerät angekommen bist soll es wieder von
    vorne beginnen.

    Soweit habe ich es bis jetzt geschafft.

    Jetzt möchte ich mit einem Button wieder aus der Schleife
    rauskommen. Also wenn ich irgendwann den Button drücke soll die
    do-loop Schleife durchlaufen, die Werte in die Dateien schreiben und
    die Messung bzw. das schalten der Relais beenden.

    Habe schon paar Sachen zu dem Backgroundworker gelesen aber da
    dies für mich Neuland ist komme ich damit gar nicht klar. Wie mache
    ich das am besten.

    Danke im Voraus

    Gruß Hippi

    Willkommen im Forum. :thumbup:

    Hippi schrieb:

    Wie mache ich das am besten.
    Wenn Du pausenlos misst, blockierst Du Deine GUI und Du bekommst Messwerte noch und nöcher.
    Wahrscheinlich hast Du da einen schönen Spagetti-Code verzapft.
    Lass Dir mal das Event-Konzept von Windows durch den Kopf gehen.
    Iwie musst Du ja dem Gerät sagen, dass es einen Messwert schicken soll. Ist das eine RS232, so generiert das entsprechende SerialPort-Objekt ein DataReceived-Event, in dem Du genau diese Daten ausliest und verarbeitest.
    Wenn Du nun in vernünftigen Intervallen messen willst, nimm einen Timer, in dessen Takt Du die Geräte antriggerst.
    Und wenn Du das ganze anhalten willst, stoppst Du einfach den Timer.
    Feddich. :D
    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!

    Mhm,
    erstmal danke für die Antwort aber ich verstehe das net ganz, warum ich einen Timer nehmen soll.

    Also ich werde mal bei der Anwendung genauer.

    Ich habe 8 gleiche Geräte von denen ich jeweil nacheinander bestimmte Sachen messe. Dies passiert alles über das gleiche Messgerät. Die Relais schalte ich auch über einen SerialPort.
    Also ich schalte die Relais für Gerät 1 zu und messe, dann schalte ich die Relais ab und kurz darauf für Gerät 1 die anderen Ralais um die 2 Messung durchzuführen. Und dies geht dann immer so weiter für die anderen 7 Geräte. Pro durchlaufe(alle Geräte) brauche ich ca 1 Minute(Ralaisschalten abwarten, Messgerät muss sich eingepegelt haben usw... ) Nach dem durchlauf fängt es wieder von oben an. Dies ist auch gewollt. Die Messung muss ich halt irgendwann nach ca 1 - 2h manuell beenden. Deshalb benötige ich den Stop-Button aber die Schleife soll nach drücken bis zum letzten Gerät laufen und dann erst beenden.

    Also bin dahin ist das Programm funktionsfähig :) ICh such jetzt nur noch einen "Ausgang" :)
    Ist dies mit Button nicht einfacher als mit Timer ?

    Gruß Hippi

    Hippi schrieb:

    und kurz darauf
    Definiere dies und beschreibe, wie Du dies programmiert hast.
    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!

    SerialPort9.WriteLine(vbCr) 'Rücksetzen der Relais -falls ich den Ausgangszustand nicht kenne-
    System.Threading.Thread.Sleep(1000) 'Schaltpause
    SerialPort9.WriteLine("C1K1C5K1\r") Messung1 1. Gerät
    System.Threading.Thread.Sleep(2000) 'Schaltpause

    SerialPort1.WriteLine("READ?")
    Dim data As String = SerialPort1.ReadLine
    x = Format(Val(data), "00.0000")

    SerialPort9.WriteLine(vbCr) 'Rücksetzen
    System.Threading.Thread.Sleep(1000) 'Schaltpause
    SerialPort9.WriteLine("C3K1C5K1\r") 'Messung2 1. Gerät
    System.Threading.Thread.Sleep(2000) 'Schaltpause

    file1.WriteLine........

    Und das immer so weiter ! und dann ich beim letzten Gerät war springe ich wieder hoch mit Do-Loop

    Und nun soll er wenn ich das mächste nach dem letzten Gerät nicht mehr nach oben spring sondern einfach unten "ausläuft"

    Hippi schrieb:

    VB.NET-Quellcode

    1. System.Threading.Thread.Sleep(1000) 'Schaltpause
    ist ein NoGo in diesem Kontext, Du blockierst Dir Deine GUI damit.
    Nutze einen Timer.
    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!

    Hippi schrieb:

    Verzögerungen
    nicht, aber für ein Timer-Tick-Event jede Sekunde, und Deine GUI hat alle Zeit der Welt, per Button-Click den Timer zu stoppen.
    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!

    Hippi schrieb:

    umzuschreiben
    Sieh Dir mal dieses Skelett an:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. Timer1.Enabled = Not Timer1.Enabled
    4. End Sub
    6. Private index As Integer = 0
    7. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    8. Select Case index
    9. Case 0
    10. ' tue Schritt 1
    11. Case 1
    12. ' tue Schritt 2
    13. Case 3
    14. ' tue Schritt 3
    15. ' ...
    16. Case Else
    17. index = -1 ' wieder alles von vorn
    18. End Select
    19. index += 1 ' nächster Index
    20. End Sub
    22. Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    23. Select Case index
    24. Case 0
    25. ' tue Schritt 1
    26. Case 1
    27. ' tue Schritt 2
    28. Case 3
    29. ' tue Schritt 3
    30. End Select
    31. End Sub
    32. End Class
    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!

    Also ich habe gerade echt keine Ahnung, wie ich das äqivalent umschreiben kann. So habe ich es bis jetzt. Aber wie gesagt mit viel Probieren.
    Wie würde ich das in diesem Fall am besten machen ?

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public a, b, c, d, e, f, g, file1
    4. Private readOK As Boolean= False
    6. PrivateSub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    7. SerialPort1.PortName= "COM1"
    9. SerialPort1.BaudRate = Integer.Parse("9600")
    11. SerialPort1.DataBits = Integer.Parse("8")
    13. SerialPort1.Parity = CType([Enum].Parse(GetType(Parity), "None"), Parity)
    15. SerialPort1.StopBits = CType([Enum].Parse(GetType(StopBits), "1"), StopBits)
    17. 'SerialPort1.DtrEnable = CheckBox1.Checked
    18. ' Data Terminal Ready - Signal
    19. SerialPort1.Encoding = System.Text.Encoding.UTF8
    20. ' Codierung für UTF8-Format
    21. SerialPort1.Open()
    22. SerialPort1.WriteLine("*RST;*SRE 0;:INIT:CONT OFF;:SENS:FUNC ""VOLT:DC"";:VOLT:DC:RANG:AUTO ON")
    23. ' Eingabemaske anpassen:
    24. 'enableControls()
    25. End Sub
    27. Private Sub SerialPort9_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort9.DataReceived
    29. EndSub
    32. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    33. readOK = True
    34. Do
    35. SerialPort9.Open()
    37. Dim file1 As New IO.StreamWriter("C:\Dokumente und Einstellungen\Messung\Gerät1.xml", True)
    38. Dim file2 As New IO.StreamWriter("C:\Dokumente und Einstellungen\Messung\Gerät2.xml", True)
    39. Dim file3 As New IO.StreamWriter("C:\Dokumente und Einstellungen\Messung\Gerät3.xml", True)
    40. Dim file4 As New IO.StreamWriter("C:\Dokumente und Einstellungen\Messung\Alle_Geräte.xml", True)
    42. For i = 1 To 1
    45. Application.DoEvents()
    46. SerialPort9.WriteLine(vbCr) 'Rücksetzen
    47. System.Threading.Thread.Sleep(1000) 'Schaltpause
    48. SerialPort9.WriteLine("C1K1C5K1\r") 'Messung1 1. Gerät
    49. System.Threading.Thread.Sleep(2000) 'Schaltpause
    51. Call Messung1()
    53. SerialPort9.WriteLine(vbCr) 'Rücksetzen
    54. System.Threading.Thread.Sleep(1000) 'Schaltpause
    55. SerialPort9.WriteLine("C3K1C5K1\r") 'Messung2 1. Gerät
    56. System.Threading.Thread.Sleep(2000) 'Schaltpause
    58. Call Messung2()
    59. TextBox1.Text = ";Gerät1;"";" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y
    60. a = x
    61. b = y
    63. Next (i)
    65. For i = 1 To 1
    67. Application.DoEvents()
    68. SerialPort9.WriteLine(vbCr) 'Rücksetzen
    69. System.Threading.Thread.Sleep(1000) 'Schaltpause
    70. SerialPort9.WriteLine("C1K2C5K2\r") 'Messung1 2. Gerät
    71. System.Threading.Thread.Sleep(2000) 'Schaltpause
    73. Call Messung1()
    75. SerialPort9.WriteLine(vbCr) 'Rücksetzen
    76. System.Threading.Thread.Sleep(1000) 'Schaltpause
    77. SerialPort9.WriteLine("C3K2C5K2\r") 'Messung2 2. Gerät
    78. System.Threading.Thread.Sleep(2000) 'Schaltpause
    80. Call Messung2()
    82. TextBox1.Text = ";Gerät2;"";" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y
    83. file2.WriteLine(i & ";1;" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y)
    85. c = x
    86. d = y
    88. Next (i)
    90. For i = 1 To 1
    92. Application.DoEvents()
    93. SerialPort9.WriteLine(vbCr) 'Rücksetzen
    94. System.Threading.Thread.Sleep(1000) 'Schaltpause
    95. SerialPort9.WriteLine("C1K3C5K3\r") 'Messung1 3. Gerät
    96. System.Threading.Thread.Sleep(2000) 'Schaltpause
    98. Call Messung1()
    100. SerialPort9.WriteLine(vbCr) 'Rücksetzen
    101. System.Threading.Thread.Sleep(1000) 'Schaltpause
    102. SerialPort9.WriteLine("C3K3C5K3\r") 'Messung2 3. Gerät
    103. System.Threading.Thread.Sleep(2000) 'Schaltpause
    105. Call Messung2()
    107. TextBox1.Text = ";Gerät3;"";" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y
    109. file3.WriteLine(i & ";1;" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y)
    111. f = x
    112. g = y
    114. Next (i)
    116. file4.WriteLine(Now.ToString("dd-MM-yy HH:mm") & ";" & ";" & a & ";" & b & ";" & ";" & c & ";" & d & ";" & ";" & f & ";" & g)
    118. Next (i)
    120. SerialPort9.Close()
    122. file1.Close()
    123. file2.Close()
    124. file3.Close()
    125. file4.Close()
    127. Loop
    129. SerialPort1.Close()
    131. End
    133. End Sub
    135. Sub Messung1()
    137. SerialPort1.WriteLine("READ?")
    138. Dim data As String = SerialPort1.ReadLine
    139. x = Format(Val(data), "00.0000")
    141. End Sub
    143. Sub Messung2()
    145. SerialPort1.WriteLine("READ?")
    146. Dim data As String = SerialPort1.ReadLine
    147. y = Format(Val(data), "00.0000")
    149. End Sub
    151. End Class

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

    bitte mal anständig Formatieren. Das kann ja keiner Lesen

    Hippi schrieb:

    Dim
    data As
    String
    = SerialPort1.ReadLine

    => Dim data As String= SerialPort1.ReadLine
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Hippi schrieb:

    Dim data As String = SerialPort1.ReadLine

    RodFromGermany schrieb:

    Ist das eine RS232, so generiert das entsprechende SerialPort-Objekt ein DataReceived-Event
    Du solltest nichts umschreiben, sondern alles vergessen und dann das Projekt unter neuen Gesichtspunkten völlig neu aufsetzen.
    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!

    RodFromGermany schrieb:

    Sieh Dir mal dieses Skelett an:


    Habe ich soweit getan aber wenn ich den Button klicke stoppt der Timer und wenn ich wieder klicke läuft er weiter... Aber wie komme ich aus der Schleife wieder raus

    Also das ich das Programm abschließen kann.

    Habe es genauso wie in dem "Skelett" aufgebaut und nach jedem "Case" meine befehle reingeschrieben.
    Kann ich da noch irgendwie ein Button einfügen das ich in den nächsten Privat Sub gehe.

    Hippi schrieb:

    Aber wie komme ich aus der Schleife wieder raus
    Aus welcher Schleife?
    Poste mal Deinen ganzen (neuen) Code.
    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!

    Mir geht es darum, dass die files wieder geschlossen werden damit ich sie richtig öffnen kann.

    Und das passiert hier nicht.
    Wenn ich ehrlich bin, weis ich auch net wie das mit index+= 1 funktionieren soll:)

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public a, b, c, d, e, f, g
    4. Dim file1 As New IO.StreamWriter("C:\Dokumente und Einstellungen\Messung2\Gerät1.xml", True)
    5. Dim file2 As New IO.StreamWriter("C:\Dokumente und Einstellungen\Messung2\Gerät2.xml", True)
    6. Dim file3 As New IO.StreamWriter("C:\Dokumente und Einstellungen\Messung2\Gerät3.xml", True)
    7. Dim file4 As New IO.StreamWriter("C:\Dokumente und Einstellungen\Messung2\AlleGeräte.xml", True)
    9. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    10. SerialPort1.PortName = "COM1"
    11. SerialPort1.BaudRate = Integer.Parse("9600")
    12. SerialPort1.DataBits = Integer.Parse("8")
    13. SerialPort1.Parity = CType([Enum].Parse(GetType(Parity), "None"), Parity)
    14. SerialPort1.StopBits = CType([Enum].Parse(GetType(StopBits), "1"), StopBits)
    15. 'SerialPort1.DtrEnable = CheckBox1.Checked
    16. 'Data Terminal Ready - Signal
    17. SerialPort1.Encoding = System.Text.Encoding.UTF8
    19. SerialPort1.Open()
    21. SerialPort1.WriteLine("*RST;*SRE 0;:INIT:CONT OFF;:SENS:FUNC ""VOLT:DC"";:VOLT:DC:RANG:AUTO ON")
    22. End Sub
    23. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    25. Timer1.Enabled = Not Timer1.Enabled
    26. End Sub
    28. Private index As Integer = 0
    30. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    32. SerialPort9.Open()
    34. Select Case index
    35. Case 0
    36. SerialPort9.WriteLine(vbCr)
    38. Case 1
    39. SerialPort9.WriteLine("C1K1C5K1\r")
    41. Case 2
    42. Call
    43. Messung1()
    44. SerialPort9.WriteLine(vbCr)
    46. Case 3
    47. SerialPort9.WriteLine("C3K1C5K1\r")
    49. Case 4
    51. Call
    52. Messung2()
    54. file1.WriteLine(";1;" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y)
    56. TextBox1.Text = ";Gerät1;"";" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y
    58. a= x
    59. b= y
    61. SerialPort9.WriteLine(vbCr)
    63. Case 5
    64. SerialPort9.WriteLine("C1K2C5K2\r")
    66. Case 6
    67. Call Messung1()
    68. SerialPort9.WriteLine(vbCr)
    70. Case 7
    71. SerialPort9.WriteLine("C3K2C5K2\r")
    73. Case 8
    74. Call Messung2()
    76. TextBox1.Text= ";Gerät2;"";" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y
    77. file2.WriteLine(";1;" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y)
    78. c = x
    79. d = y
    80. SerialPort9.WriteLine(vbCr)
    81. Case 9
    83. SerialPort9.WriteLine("C1K3C5K3\r")
    85. Case 10
    87. Call Messung1()
    88. SerialPort9.WriteLine(vbCr)
    90. Case 11
    91. SerialPort9.WriteLine("C3K3C5K3\r")
    93. Case 12
    95. Call Messung2()
    96. TextBox1.Text = ";Gerät3;"";" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y
    97. file3.WriteLine(";1;" & Now.ToString("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y)
    99. f = x
    100. g = y
    102. file4.WriteLine(Now.ToString("dd-MM-yy HH:mm") & ";" & ";" & a & ";" & b & ";" & ";" & c & ";" & d & ";" & ";" & f & ";" & g)
    104. SerialPort9.WriteLine(vbCr)
    106. Case Else
    108. index = -1 '
    110. End Select
    112. index += 1
    114. SerialPort9.Close()
    115. End Sub
    117. Sub Messung1()
    119. SerialPort1.WriteLine("READ?")
    121. Dim data As String = SerialPort1.ReadLine
    123. x = Format(Val(data), "00.0000")
    124. End Sub
    126. Sub MEssung2()
    127. SerialPort1.WriteLine("READ?")
    128. Dim data As String = SerialPort1.ReadLine
    129. y = Format(Val(data), "00.0000")
    130. End Sub
    132. Sub
    133. Private Sub Test()
    134. file1.Close()
    135. file2.Close()
    136. file3.Close()
    137. file4.Close()
    139. End
    140. Sub
    142. End
    143. Class

    Hippi schrieb:

    dass die files wieder geschlossen werden
    Der Code ist noch sehr chaotisch.
    Sieh Dir mal diese Konstruktion an, da brauchst Du keinen IO.StreamWriter:

    VB.NET-Quellcode

    1. IO.File.AppendAllText("DEIN_PFAD", "DEIN_INHALT" & Environment.NewLine)

    Und gib Deinem Programm ganz schnell Option Strict On :!:
    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!

    Ok, danke

    VB.NET-Quellcode

    1. IO.File.AppendAllText("C:\Dokumente und Einstellungen\Messung2\Gerät1.xml", ("dd-MM-yy HH:mm:ss") & ";" & x & ";" & y & Environment.NewLine)


    Aber das Datum wird nicht eingefügt in meiner xml. Datei.

    Hippi schrieb:

    VB.NET-Quellcode

    1. Now.ToString
    vergessen?
    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