Die Rückgängig Taste

    • VB.NET

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

      Die Rückgängig Taste

      Wenn der Benutzer stets alle Eingaben richtig macht braucht er sie nicht, ansonsten handelt es sich um eine nützliche Option welche eine Anwendung meist wesentlich komfortabler macht, die Rückgängig Taste...

      Im nachfolgenden ist eine Codierung eines kleinen Programmes zu finden in welcher eine solche Rückgängig Taste umgesetzt wurde, natürlich auch mit einer Wiederholen Option als Gegenstück.
      Der wesentliche Punkt des Programmes besteht darin das alle für den Programmablauf wichtigen Variablen über eine Struktur in eine einzige Variable zusammengefasst worden sind. Nach jedem Programmschritt welcher eine wesentliche Änderung mit sich bringt werden die Werte für diese Variable aktualisiert und die alten Werte an Speichervariablen übergeben.

      Der Quellcode spricht ansonsten für sich und ist an allen wichtigen Stellen mit Kommentaren versehen.

      Zunächst ein Screenshot: (Durch einige Label ist es möglich den Vorgang zu beobachten):




      Und der Quellcode:

      VB.NET-Quellcode

      1. Public Class frmForm1
      3. '----------Variablendeklaration----------
      5. 'Variablen für den Prozess des Rückgängigmachens
      6. Public W As New Werte
      7. Public W1 As New Werte
      8. Public W2 As New Werte
      9. Public W3 As New Werte
      11. 'Die Variablen welche rückgängig gemacht werden sollen
      12. 'werden in einer Struktur zusammengefasst
      13. Public Structure Werte
      14. Public Zahl1 As Integer
      15. Public Zahl2 As Integer
      16. Public Zahl3 As Integer
      17. End Structure
      19. 'Ein Zaehler für den ganzen Prozess
      20. Public RueckWieder As Integer = 3
      22. '------------Menüauswahl---------------
      23. 'Die Menüauswahl Rückgängig wurde getroffen
      24. Private Sub mnurg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnurg.Click
      25. 'Es besteht wieder die Möglichkeit etwas zu wiederholen
      26. mnuwh.Enabled = True
      28. 'Es wird überprüft welcher Schritt gültig ist
      29. 'Da sich RueckWieder ändert findet an den jeweiligen Stellen
      30. 'Ein Abbruch mit Exit Sub statt
      31. If RueckWieder = 3 Then
      32. W = W1
      33. RueckWieder -= 1
      34. LabelWerte()
      35. Label18.Text = RueckWieder
      36. Exit Sub
      37. End If
      38. If RueckWieder = 2 Then
      39. W = W2
      40. RueckWieder -= 1
      41. LabelWerte()
      42. Label18.Text = RueckWieder
      43. Exit Sub
      44. End If
      45. If RueckWieder = 1 Then
      46. W = W3
      47. RueckWieder -= 1
      48. mnurg.Enabled = False
      49. LabelWerte()
      50. Label18.Text = RueckWieder
      51. Exit Sub
      52. End If
      53. End Sub
      54. 'Die Menüauswahl Wiederholen wurde getroffen
      55. Private Sub mnuwh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuwh.Click
      56. 'Es besteht wieder die Möglichkeit etwas zu wiederholen
      57. mnurg.Enabled = True
      59. 'Es wird überprüft welcher Schritt gültig ist
      60. If RueckWieder = 1 Then
      61. W = W1
      62. RueckWieder += 1
      63. LabelWerte()
      64. Label18.Text = RueckWieder
      65. Exit Sub
      66. End If
      67. If RueckWieder = 0 Then
      68. W = W2
      69. RueckWieder += 1
      70. LabelWerte()
      71. Label18.Text = RueckWieder
      72. Exit Sub
      73. End If
      75. End Sub
      77. '-------------Hauptprogramm------------
      78. 'Die Form wird geladen
      79. Private Sub frmForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      80. 'Es werden Startwerte gesetzt
      81. mnurg.Enabled = False
      82. mnuwh.Enabled = False
      83. 'AnfangsZaehlerstand in Label
      84. Label18.Text = RueckWieder
      85. End Sub
      87. 'Ereignisse der einzelnen Buttons wenn diese gedrückt werden
      88. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      89. W.Zahl1 += 1
      90. Label1.Text = W.Zahl1
      91. End Sub
      92. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      93. W.Zahl2 += 1
      94. Label2.Text = W.Zahl2
      95. End Sub
      96. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      97. W.Zahl3 += 1
      98. Label3.Text = W.Zahl3
      99. End Sub
      101. 'Es wurde ausgewählt das die eingebenen Werte übergeben werden sollen
      102. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
      103. 'Der Zaehlerstand für Rueckwieder wird aktualisiert
      104. If RueckWieder < 3 Then
      105. RueckWieder += 1
      106. End If
      108. 'AktuelleZaehlerstand in Label
      109. Label18.Text = RueckWieder
      111. 'Aktivierung und Deaktivierung des Menüs Rückgängig
      112. If RueckWieder >= 3 Then
      113. mnuwh.Enabled = False
      114. Else
      115. mnuwh.Enabled = True
      116. End If
      118. mnurg.Enabled = True
      120. 'Wertübergabe
      121. W3 = W2
      122. W2 = W1
      123. W1 = W
      125. 'Zahlen und Label zurücksetzen
      126. 'Das setzen der Werte ist problemlos da nie
      127. 'eine ungewollte Wertübergabe dieser Zahlen stattfindet
      128. W.Zahl1 = 0
      129. W.Zahl2 = 0
      130. W.Zahl3 = 0
      132. Label1.Text = W.Zahl1
      133. Label2.Text = W.Zahl2
      134. Label3.Text = W.Zahl3
      138. 'Im Speicher
      139. 'Erste Reihe
      140. Label4.Text = W1.Zahl1
      141. Label5.Text = W1.Zahl2
      142. Label6.Text = W1.Zahl3
      143. 'Zweite Reihe
      144. Label7.Text = W2.Zahl1
      145. Label8.Text = W2.Zahl2
      146. Label9.Text = W2.Zahl3
      147. 'Dritte Reihe
      148. Label10.Text = W3.Zahl1
      149. Label11.Text = W3.Zahl2
      150. Label12.Text = W3.Zahl3
      155. End Sub
      157. 'Den Label die Werte zuordnen
      158. Private Sub LabelWerte()
      159. 'Aktuelle Reihe
      160. Label1.Text = W.Zahl1
      161. Label2.Text = W.Zahl2
      162. Label3.Text = W.Zahl3
      164. End Sub
      166. End Class




      Hier noch einmal das ganze zum ausprobieren:

      RueckgaengigTaste.rar

      Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „Dragonfly“ ()

      Also mit nem Stack haste den Vorteil dass du an sich alle veränderungen ewig oft abspeichern kannst und später Stück für Stück wieder herstellen kannst. Letzt endlich kannst du für jede Sache die evtl. rückgängig gemacht werden soll via Stack absichern.

      Hab mal nen kleines Beispiel geschrieben:

      VB.NET-Quellcode

      1. Public Class Form1
      3. Dim s1 As New Stack(Of Integer) 'Stack für rückgängig vom Typ Integer
      4. Dim s2 As New Stack(Of Integer) 'Stack für weiderherstellen vom Typ Integer
      6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      7. s1.Push(Integer.Parse(l1.Text)) 'packt Daten (in dem Fall Integer) auf Stack 1
      8. l1.Text = t1.Text
      9. End Sub
      11. Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click
      12. If s1.Count > 0 Then
      13. Dim t As Integer
      14. t = s1.Pop 'ließt Daten vom Stack 1 in einen temporären Integer
      15. s2.Push(Integer.Parse(l1.Text)) 'packt Daten (in dem Fall Integer) auf Stack 2
      16. l1.Text = t
      17. Else
      18. MsgBox("Keine Elemente im Stack")
      19. End If
      20. End Sub
      22. Private Sub b2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b2.Click
      23. If s2.Count > 0 Then
      24. Dim t As Integer
      25. t = s2.Pop 'ließt Daten vom Stack 2 in einen temporären Integer
      26. l1.Text = t
      27. Else
      28. MsgBox("Keine Elemente im Stack")
      29. End If
      30. End Sub
      31. End Class


      Als Form benötigst du in dem Beispiel 3 Buttons (Eingabe (Button1), zurück (b1) und wiederherstellen (b2)),
      ein Textfield (t1) für die Eingabe und ein Label (l1) für zwischenausgabe.

      Ich hoffe, es hilft dir nen bisschen weiter. 8-)

      Also mit nem Stack haste den Vorteil dass du an sich alle veränderungen ewig oft abspeichern kannst und später Stück für Stück wieder herstellen kannst.


      Also das ist natürlich ein enormer Vorteil gegenüber meiner Lösung.
      Der Quellcode scheint mir auch wesentlich schlanker zu sein, vielen Dank.
      Ich denke in Zukunft werde ich das auch so handhaben :)

      Das Problem beim Stack ist, dass man immer nur den letzten runter "poppen" kann/sollte. Eine ordentliche History wird dadurch schwer. Für sowas sind wieder ArrayLists besser - heißt dann hald offiziell nicht mehr Pop ;)
      Als "Daten-Container" is am Besten eine Struct oder gleich eine Klasse (mit ordentlichn Konstruktoren und vielleicht ner ToString-Methode für's eine Info-Liste) am Besten geeignet =)

      @Onkelchrischi
      Mir fällt da jetzt spontan Paint ein...
      Man kann meist die letzten 3 Zeichenschritte wieder rückgängig machen, das dürfte vermutlich ein Stack sein.

      @Mad Andy
      Ein Array wäre jetzt die nächste sinnvolle Erweiterung, ich arbeite derzeit an einem Programm wo das dann auch so laufen wird.

      Dragonfly schrieb:

      Ein Array wäre jetzt die nächste sinnvolle Erweiterung


      warum ein Array?? eine sinnvolle ergänzung bzw. Alternative wäre ne einfache LinkedList!? Das ist doch deutlich einfacher zu handeln als nen Array. Und für ne Chronik wie in Photoshop o.ä. optimal, da man eben Zustände herstellen kann ohne wie beim Stack von hinten alles wegzupoppen (schönes wort :D ).

      Aber wahrscheinlich bin ich von der Uni so auf diese Datenstrukturen geprägt, dass ich gar nicht mehr anders kann :whistling:

      Gemeint ist, dass beides möglich ist, der Code etwa gleich lang ist und man die tatsächliche Instruktions-Anszahl bei .net schlecht im Kopf abschätzen kann. ;)
      Der Unterschied ist auch schnell erklärt: eine Linked List ist nicht direkt mit nem Index adressierbar, da die Elemente nicht direkt hintereinander stehen, sondern ein Element zum Nächsten verweist. Eine ArrayList ist eine Mischung - man kann Elemente am Anfang und Ende einfach so rauslöschen -> Liste wird kürzer, jedoch verhalten sich die Daten in der Speicherverwaltung wie ein Array -> Löschen zwischendurch erfordert nachrücken, dafür direkt über Index adressierbar

    Facebook