Mit Serialisierung speichern (BinaryFormatter)

    • VB.NET

      Mit Serialisierung speichern (BinaryFormatter)

      Da ich es jetzt nach ein wenig Einarbeitung hinbekommen habe meine Programmdaten über eine Serialisierung zu speichern werde ich hier mal beschreiben wie soetwas abläuft auch wenn auf den zweiten Blick eigendlich nicht viel dahinter steckt.

      Dazu habe ich ein kleines Spiel mit dem Titel: ,,Nur noch 10000 Clicks !!!" geschrieben.
      Ziel des Spieles ist es 10000Mal auf einen Button zu klicken, um dann mit einer MsgBox Meldung belohnt zu werden.
      Also ziemlich aufregend...

      Wird auf den Button Wertänderung gedrückt findet intern eine Wertveränderung zweier Variablen statt, welche dazu führt das sich der Text der Label um den Wert +1 bzw. -1 ändert.
      Falls man das Spiel gerne speichern möchte um dann später an der selben Stelle weiterzumachen sind hierfür zwei weitere Buttons vorgesehen.
      Ansonsten spricht der Quellcode für sich und alles weitere ist durch Kommentare beschrieben.

      Zunächst eine Übersicht über die Programmoberfläche:


      Und der Quellcode:

      VB.NET-Quellcode

      1. 'Es werden die benötigten Namenspace geladen um bestimmte
      2. 'Vorgänge durchführen zu können
      3. Imports System.Runtime.Serialization.Formatters.Binary
      4. Imports System.IO
      6. Public Class Form1
      8. '-------------Variablendeklaration----------
      10. 'Die Variablen für die Serialisierung
      11. Dim bf As New BinaryFormatter()
      12. Dim stream As FileStream
      14. 'In der Variable sind alle Werte aus der Struktur1 zu finden
      15. Public GE As New Struktur1
      17. 'Wenn etwas Serialisiert werden soll muss es mit <Serializable()> gekennzeichnet werden
      18. 'Es wird eine Struktur definiert
      19. <Serializable()> Public Structure Struktur1
      20. 'Wichtig ist das die Werte der Struktur mit Public festgelegt werden
      21. Public Wert1 As Integer
      22. Public Wert2 As Integer
      23. End Structure
      26. '-------------Hauptprogramm-----------------
      28. 'Die Form wird geladen, Grundeinstellungen werden gesetzt
      29. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      30. 'Anfangswerte setzen
      31. GE.Wert1 = 0
      32. GE.Wert2 = 10000
      33. 'Ausgabe in Label
      34. Label1.Text = GE.Wert1
      35. Label2.Text = GE.Wert2
      36. End Sub
      37. 'Der Button zum speichern wurde gedrückt
      38. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      39. 'Öffnen einer Dialogform
      40. Dim sfd As New SaveFileDialog
      41. sfd.InitialDirectory = "C:\Temp"
      42. sfd.Filter = "Alle Dateien (*.*)|*.*"
      43. sfd.Title = "Wählen sie eine Datei zum Speichern aus"
      44. If sfd.ShowDialog = DialogResult.OK Then
      45. MsgBox("Die Datei wird gespeichert")
      46. Else : Exit Sub
      47. End If
      49. 'Filestream zum speichern
      50. stream = New FileStream(sfd.FileName, FileMode.Create)
      51. bf = New BinaryFormatter()
      52. bf.Serialize(stream, GE)
      53. stream.Close()
      54. End Sub
      55. 'Der Button zum öffnen wurde gedrückt
      56. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      57. 'Öffnen einer Dialogform
      58. Dim ofd As New OpenFileDialog
      59. ofd.InitialDirectory = "C:\Temp"
      60. ofd.Filter = "Alle Dateien (*.*)|*.*"
      61. ofd.Title = "Wählen sie eine Datei zum Speichern aus"
      62. If ofd.ShowDialog = DialogResult.OK Then
      63. Else : Exit Sub
      64. End If
      66. 'Vorgänge um die Datei zu erstellen
      67. Dim dat As New FileStream(ofd.FileName, FileMode.Open)
      68. GE = bf.Deserialize(dat)
      69. dat.Close()
      71. 'Die Label werden aktualisiert
      72. Label1.Text = GE.Wert1
      73. Label2.Text = GE.Wert2
      75. End Sub
      76. 'Der Button zur Wertänderung wurde gedrückt
      77. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      78. 'Es wird getestet ob die 10000 Clicks schon erfolgt sind
      79. If GE.Wert1 = 10000 Then
      80. MsgBox("Sie haben es geschafft und sind ganz toll, die Anwendung wird jetzt geschlossen")
      81. 'Danach wird die Anwendung geschlossen
      82. Me.Close()
      83. End If
      84. 'Für den Fall das die 10000 Clicks noch nicht
      85. 'erreicht sind findet eine Wertänderung statt
      86. GE.Wert1 += 1
      87. GE.Wert2 -= 1
      88. 'Ausgabe in Label
      89. Label1.Text = GE.Wert1
      90. Label2.Text = GE.Wert2
      91. End Sub
      93. End Class

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

    Facebook
    Telefonspende