Pause / Fortsetzen Button

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von sannicolao.

    Pause / Fortsetzen Button

    Hallo liebe Forum Gemeinde ;)

    Ich habe ein Programm bei welchem ich gerne einen Pause Button einbauen möchte. Es soll einer sein, der das gesamte Programm stoppt. Egal wo sich das Programm befindet. Zudem soll dieser Zustand solange gespeichert werden bis das Programm mit einem seperaten Button "Fortstzen" wieder weitergeführt wird.

    Leider habe ich noch keine passende Lösung gefunden und wäre über jeden Lösungsansatz dankbar ;)

    lg

    sannicolao

    Mhhhh, das ist schwirig.

    Mit dem befehl [VB]Threading.Trhead.Sleep(Zeit in MS) kann man das Programm in einen Schlafzustand bringen.

    Aber ich weis nicht ob das auch permanent geht, da wenn das Programm gestoppt ist, auch der Button gesperrt ist ;) also müsste die form in einem anderen Thread sein!

    Es ist ja nicht so, dass der gleiche Button auch der Fortsetzungs - Button sein muss. Mir reichts, wenn ich einen Pause Button hab. Und einen Fortsetzt - Button.
    Mit Sleep kann ich nur eine gewisse Zeit angeben. Was für mich nicht wirklich eine passende Lösung ist.

    vielen Dank für dein Feedback

    Wie meinst du die Zeit speichern?
    Welche Zeit?

    Eine andere Frage ist ebenfalls aufgetaucht. Ich möchte gerne einen Fortschrittsanzeige machen, welche NUR von der Zeit abhängig ist. Also sprich nach 10 Sekunden nach dem Start gedrückt wurde ist es fertig. SOllte nicht so schwer sein oder?
    hab aber leider auch noch keine Lösung.

    Vielen Dank

    Gruss

    sannicolao

    Deine Ursprungsfrage ist total Programmabhängig...
    Was soll denn Stoppen ? Was läuft denn ?
    So allgemeine Fragen.. sind unbeantwortbar !
    Dazu müsste man sich ja erst ein Programm überlegen, was man stoppen kann, und dies dir dann posten !?!?!
    Poste den Code, der "läuft", und du bekommst sicher einen Hinweis, wie man ihn pausiert..
    Das ist meine Signatur und sie wird wunderbar sein!

    Mono schrieb:

    Deine Ursprungsfrage ist total Programmabhängig...
    Was soll denn Stoppen ? Was läuft denn ?
    So allgemeine Fragen.. sind unbeantwortbar !
    Dazu müsste man sich ja erst ein Programm überlegen, was man stoppen kann, und dies dir dann posten !?!?!
    Poste den Code, der "läuft", und du bekommst sicher einen Hinweis, wie man ihn pausiert..



    Sorry das ich solange auf mich warten liess. Hatte heute noch Schule.

    Folgender Code habe ich bereits zusammen gestellt:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim Zaehler As Integer
    4. Dim Ende As Integer
    7. Private Sub GO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GO.Click
    8. Dim Zeit As Integer
    9. Zaehler = 0
    10. Timer1.Enabled = True
    11. Zeit = Int(TextBox2.Text)
    12. Timer1.Interval = Zeit * 1000
    13. End Sub
    15. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    16. Ende = Int(TextBox1.Text)
    17. 'MsgBox("Die Zeit ist abgelaufen !")
    19. Zaehler = Zaehler + 1
    20. ShowInTaskbar = False
    22. If Zaehler = Ende Then
    23. Timer1.Enabled = False
    24. MsgBox("Programm kann geschlossen werden")
    25. Exit Sub
    26. End If
    27. Call Timer1_OnTimer()
    28. End Sub
    30. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    31. Dim AnzahlMails As Integer
    32. AnzahlMails = Int(TextBox1.Text)
    33. End Sub
    34. Sub Timer1_OnTimer()
    35. Dim Time As Date
    36. Dim Server As Object
    37. Dim Benutzername As Object
    38. Dim schema As String = "http://schemas.microsoft.com/cdo/configuration/"
    39. Dim Nachricht, Flds, iMsg, iConf, Port, Passwort, Empfaenger, Absender, strbody As Object
    40. Dim Pfad As Object
    41. 'Dim Pfad2 As String
    44. Server = TextBox3.Text
    45. Port = Int(TextBox4.Text)
    46. Absender = TextBox5.Text
    47. Empfaenger = TextBox6.Text
    48. Nachricht = TextBox7
    49. Pfad = TextBox8
    50. Benutzername = TextBox9
    51. Passwort = TextBox10.Text
    53. 'Pfad2 = Pfad
    54. Timer2.Start()
    55. iMsg = CreateObject("CDO.Message")
    56. iConf = CreateObject("CDO.Configuration")
    57. iConf.Load(-1)
    58. Flds = iConf.Fields
    60. With Flds
    61. Flds.Item(schema & "sendusing") = 2
    62. Flds.Item(schema & "smtpserver") = Server
    63. Flds.Item(schema & "smtpserverport") = Port
    64. Flds.Item(schema & "smtpauthenticate") = 1
    65. Flds.Item(schema & "sendusername") = "mail@gmail.com"
    66. Flds.Item(schema & "sendpassword") = Passwort
    67. Flds.Item(schema & "smtpusessl") = 1
    68. Flds.Update()
    69. End With
    71. Time = Format$(Now, "General Date")
    72. strbody = "Hallo"
    73. 'sendto = Empfaenger
    74. With iMsg
    75. .Configuration = iConf
    76. .To = Empfaenger
    77. .CC = ""
    78. .BCC = ""
    79. .From = Absender
    80. .Subject = "subject"
    81. .TextBody = strbody
    82. 'Dim oAttch As Net.Mail.Attachment = New Net.Mail.Attachment("C:\Test.txt")
    83. '.Attachments.Add("C:\Test.txt")
    84. .Send()
    85. End With
    87. End Sub
    88. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    90. Using Pfad As New OpenFileDialog()
    91. Pfad.InitialDirectory = "C:"
    92. If Pfad.ShowDialog() = DialogResult.OK Then
    93. Dim Endpfad As String = Pfad.FileName
    94. If Endpfad = "" Then
    95. Else
    96. TextBox8.Text = Endpfad
    97. End If
    98. End If
    99. End Using
    101. End Sub
    103. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    104. Exit Sub
    105. End Sub
    109. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    110. Dim AnzahlMails As Integer
    111. Dim AnzahlSek As Integer
    112. Dim Timertotal As Long
    115. AnzahlMails = TextBox1.Text
    116. AnzahlSek = TextBox2.Text
    118. Timertotal = (AnzahlMails * AnzahlSek)
    119. ProgressBar1.Maximum = Timertotal
    123. ProgressBar1.Increment(1)
    124. Label10.Text = ProgressBar1.Value
    125. If ProgressBar1.Value = ProgressBar1.Maximum Then
    126. End If
    127. End Sub
    128. End Class


    Ich weiss, dass es noch eine "offene Baustelle" ist.
    Z.B. funktioniert auch die Mailabsender Adresse zum eingeben nicht... :S
    aber Hauptthema soll das Stoppen und Fortsetzen dieses Programm sein.

    Das andere Problem habe ich mitlerweilen gelöst ;) hehe

    lg
    und Danke:)

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

    Mono schrieb:

    Wie wäre es, wenn du einfach per Button Klick die Timer stoppst ? Und bei Fortsetzen wieder startest ?


    Wenn ich ihn stoppe und wider starte so beginnt er von Anfang an. Er soll jedoch von dem Punkt weiter machen, an dem er pausiert wurde.

    Vielen Dank Mono.

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

    sannicolao schrieb:

    Er soll jedoch von dem Punkt weiter machen, an dem er pausiert wurde.

    Ich würde mal sagen, dass dein kompletter Ansatz von Grund auf "falsch" ist.
    Eine "Anwendung anhalten" ist irgendwie sinnlos, insbesondere wenn es deine eigene ist. Definiere am besten erstmal, was es heißt, dass die Anwendung "läuft". Theoretisch könntest du einen zweiten Thread starten und den GUI-Thread per Thread.Suspend anhalten. Allerdings hast du dann den Effekt, dass deine Anwendung nicht mehr reagiert - auf alles! Also nix mehr mit Form verschieben, Redraw etc.

    Wenn du es Unbrauchbar machen möchtest mach einfach:

    Button1 = Pause
    Button2 = Fortsetzen

    VB.NET-Quellcode

    1. Private Sub Formanhalten()
    2. For Each Control as Control in me.Controls
    3. Control.enabled = false
    4. Next
    5. Button2.enabled = true
    6. End Sub
    8. Private Sub Formfortsetzen()
    9. For each Control as Control in me.Controls
    10. Control.enabled = true
    11. Next
    13. Button1.click......
    14. Formanhalten
    15. End sub
    17. Button2.click.....
    18. Formfortsetzen
    19. End sub




    MFG


    MArkus

    picoflop schrieb:

    sannicolao schrieb:

    Er soll jedoch von dem Punkt weiter machen, an dem er pausiert wurde.

    Ich würde mal sagen, dass dein kompletter Ansatz von Grund auf "falsch" ist.
    Eine "Anwendung anhalten" ist irgendwie sinnlos, insbesondere wenn es deine eigene ist. Definiere am besten erstmal, was es heißt, dass die Anwendung "läuft". Theoretisch könntest du einen zweiten Thread starten und den GUI-Thread per Thread.Suspend anhalten. Allerdings hast du dann den Effekt, dass deine Anwendung nicht mehr reagiert - auf alles! Also nix mehr mit Form verschieben, Redraw etc.



    Wie du siehst handelt es sich um einen Test, welcher ein System auf Auslastung testet.
    Da wäre es eigentlich sinnvoll einen Pause - Button kreieren zu können. Aber ich habe das ganze nun mit Timer1.stop sowie Timer2.Stop gemacht. Passt scho ;) hehe lg


    Edit:
    Vielen Dank an markushettmann!

    Genau das habe ich gesucht:)

Facebook
Telefonspende