VB - Speichen und laden eines Datenformulars

  • VB.NET

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

    VB - Speichen und laden eines Datenformulars

    Hallo,

    bin neu in diesem Forum und leider noch blutiger VB-Anfänger.
    Ich hoffe mal ich schriebe hier in den richtigen Forenbereich, sonst bitte verschieben.

    Ich möchste gerne eine Anwendung erstellen, mit der ich diverse Flächen und Volumen ausrechen kann.
    Nachdem ich mich schon durch zahlreiche Youtube-Tutorials gearbeitet habe ist dabei folgende Form herausgekommen.
    (Siehe Screen)

    Das Berechnen klappt wunderbar.
    Mein Problem ist, dass ich leider noch nix (für mich verständliches) gefunden habe wie ich meine Daten speichern kann und dach ein paar Tagen wieder aufrufen.
    Ich möchte z.B. eine Berechnung machen und die Daten dann unter einem Dateinamen speichern, danach wieder etwas berechnen und speichern, usw.
    Über einen Datei-Öffnen-Dialog möchte ich dann später die verschienen Datein öffnen können und daraus dann ein PDF erstellen.

    Kann mir bitte jemand eine anfängertaugliche Antwort liefern? Das wäre top.

    Falls das irgendwie hilf hänge ich meinen bereits erstellten Code an.

    Vielen Dank schonmal...

    Spoiler anzeigen


    Brainfuck-Quellcode

    1. Public Class Form_Mubo_REck
    3. Dim Länge As Double
    4. Dim Breite As Double
    5. Dim Tiefe As Double
    6. Dim Arbeitsraum As Double
    7. Dim Ergebnis As Double
    8. Dim ErgebnisGrundfläche As Double
    9. Dim ErgebnisVolumenGrundfläche As Double
    10. Dim ErgebnisFlächeArbeitsraum As Double
    11. Dim ErgebnisVolumenArbeitsraum As Double
    12. Dim ErgebnisFlächeGesamt As Double
    14. Private Sub TextboxEingabe_MuboREck_Länge_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxEingabe_MuboREck_Länge.TextChanged
    16. Try
    17. Länge = Convert.ToDouble(TextboxEingabe_MuboREck_Länge.Text) '------------Eingabe Länge checken
    18. Catch ex As Exception
    19. TextboxEingabe_MuboREck_Länge.Text = ""
    20. Länge = 0
    21. End Try
    23. End Sub
    25. Private Sub TextboxEingabe_MuboREck_Breite_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxEingabe_MuboREck_Breite.TextChanged
    27. Try
    28. Breite = Convert.ToDouble(TextboxEingabe_MuboREck_Breite.Text) '------------Eingabe Breite checken
    29. Catch ex As Exception
    30. TextboxEingabe_MuboREck_Breite.Text = ""
    31. Breite = 0
    32. End Try
    34. End Sub
    36. Private Sub TextboxEingabe_MuboREck_Tiefe_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxEingabe_MuboREck_Tiefe.TextChanged
    38. Try
    39. Tiefe = Convert.ToDouble(TextboxEingabe_MuboREck_Tiefe.Text) '------------Eingabe Tiefe checken
    40. Catch ex As Exception
    41. TextboxEingabe_MuboREck_Tiefe.Text = ""
    42. Tiefe = 0
    43. End Try
    45. End Sub
    47. Private Sub TextboxEingabe_MuboREck_Arbeitsraum_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxEingabe_MuboREck_Arbeitsraum.TextChanged
    49. Try
    50. Arbeitsraum = Convert.ToDouble(TextboxEingabe_MuboREck_Arbeitsraum.Text) '------------Eingabe Arbeirsraum checken
    51. Catch ex As Exception
    52. TextboxEingabe_MuboREck_Arbeitsraum.Text = ""
    53. Arbeitsraum = 0
    54. End Try
    56. End Sub
    58. Private Sub ButtonEingabe_MuboREck_Berechnen_Click(sender As System.Object, e As System.EventArgs) Handles ButtonEingabe_MuboREck_Berechnen.Click
    60. If TextboxEingabe_MuboREck_Länge.Text = Nothing Then
    61. TextboxEingabe_MuboREck_Länge.Text = "0"
    62. Länge = TextboxEingabe_MuboREck_Länge.Text
    63. Else
    64. Länge = TextboxEingabe_MuboREck_Länge.Text
    65. End If
    67. If TextboxEingabe_MuboREck_Breite.Text = Nothing Then
    68. TextboxEingabe_MuboREck_Breite.Text = "0"
    69. Breite = TextboxEingabe_MuboREck_Breite.Text
    70. Else
    71. Breite = TextboxEingabe_MuboREck_Breite.Text
    72. End If
    74. If TextboxEingabe_MuboREck_Tiefe.Text = Nothing Then
    75. TextboxEingabe_MuboREck_Tiefe.Text = "0"
    76. Tiefe = TextboxEingabe_MuboREck_Tiefe.Text
    77. Else
    78. Tiefe = TextboxEingabe_MuboREck_Tiefe.Text
    79. End If
    81. If CheckBoxEingabe_MuboREck_Arbeitsraum.Checked = True Then
    83. If TextboxEingabe_MuboREck_Arbeitsraum.Text = Nothing Then
    84. TextboxEingabe_MuboREck_Arbeitsraum.Text = "0"
    85. Arbeitsraum = TextboxEingabe_MuboREck_Arbeitsraum.Text
    86. Else
    87. Arbeitsraum = TextboxEingabe_MuboREck_Arbeitsraum.Text
    88. End If
    90. ElseIf CheckBoxEingabe_MuboREck_Arbeitsraum.Checked = False Then
    91. Arbeitsraum = 0
    92. TextboxEingabe_MuboREck_Arbeitsraum.Text = "0"
    93. End If
    95. '---- Berechnungen ----
    97. ErgebnisGrundfläche = (Länge * Breite) 'Grundfläche ohne Arbeitsraum
    99. ErgebnisFlächeArbeitsraum = (Länge + 2 * Arbeitsraum) * (Breite + 2 * Arbeitsraum) - (ErgebnisGrundfläche) 'Nur Fläche Arbeitsraum
    101. ErgebnisVolumenGrundfläche = (Länge * Breite * Tiefe) 'Volumen Grundfläche
    103. ErgebnisVolumenArbeitsraum = (ErgebnisFlächeArbeitsraum * Tiefe) 'Volumen nur Arbeitsraum
    105. ErgebnisFlächeGesamt = (Länge + 2 * Arbeitsraum) * (Breite + 2 * Arbeitsraum) 'Fläche Gesamt
    107. Ergebnis = (Länge + 2 * Arbeitsraum) * (Breite + 2 * Arbeitsraum) * Tiefe 'Volumen Gesamt
    109. '---- Ausgabe ----
    111. LabelAusgabe_MuboREck_TextLänge_Wert.Text = Länge & (" m")
    112. LabelAusgabe_MuboREck_TextBreite_Wert.Text = Breite & (" m")
    113. LabelAusgabe_MuboREck_TextTiefe_Wert.Text = Tiefe & (" m")
    114. LabelAusgabe_MuboREck_TextArbeitsraum_Wert.Text = Arbeitsraum & (" m")
    115. LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Text = Ergebnis & (" m³")
    116. LabelAusgabe_MuboREck_TextGrundfläche_Wert.Text = ErgebnisGrundfläche & (" m²")
    117. LabelAusgabe_MuboREck_TextVolumenGrundfläche_Wert.Text = ErgebnisVolumenGrundfläche & (" m³")
    118. LabelAusgabe_MuboREck_TextFlächeArbeitsraum_Wert.Text = ErgebnisFlächeArbeitsraum & (" m²")
    119. LabelAusgabe_MuboREck_TextVolumenArbeitsraum_Wert.Text = ErgebnisVolumenArbeitsraum & (" m³")
    120. LabelAusgabe_MuboREck_TextGesamtfläche_Wert.Text = ErgebnisFlächeGesamt & (" m²")
    122. End Sub
    124. Private Sub ButtonAktion_MuboREck_Hauptmenü_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAktion_MuboREck_Hauptmenü.Click
    126. FormHauptmenü.Show()
    127. Me.Hide()
    129. End Sub
    131. Private Sub ButtonEingabe_MuboREck_Leeren_Click(sender As System.Object, e As System.EventArgs) Handles ButtonEingabe_MuboREck_Leeren.Click
    133. '---- Leeren ----
    134. TextboxEingabe_MuboREck_Länge.Clear()
    135. TextboxEingabe_MuboREck_Breite.Clear()
    136. TextboxEingabe_MuboREck_Tiefe.Clear()
    137. TextboxEingabe_MuboREck_Arbeitsraum.Clear()
    138. LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Text = ""
    140. LabelAusgabe_MuboREck_TextLänge_Wert.Text = Nothing
    141. LabelAusgabe_MuboREck_TextBreite_Wert.Text = Nothing
    142. LabelAusgabe_MuboREck_TextTiefe_Wert.Text = Nothing
    143. LabelAusgabe_MuboREck_TextArbeitsraum_Wert.Text = Nothing
    144. LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Text = Nothing
    145. LabelAusgabe_MuboREck_TextGrundfläche_Wert.Text = Nothing
    146. LabelAusgabe_MuboREck_TextVolumenGrundfläche_Wert.Text = Nothing
    147. LabelAusgabe_MuboREck_TextFlächeArbeitsraum_Wert.Text = Nothing
    148. LabelAusgabe_MuboREck_TextVolumenArbeitsraum_Wert.Text = Nothing
    149. LabelAusgabe_MuboREck_TextGesamtfläche_Wert.Text = Nothing
    151. End Sub
    153. Private Sub CheckBoxOptionen_MuboREck_Info_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxOptionen_MuboREck_Info.CheckedChanged
    155. '---- Infobox ----
    157. If CheckBoxOptionen_MuboREck_Info.Checked = True Then
    158. Me.Width = 1239
    159. PictureBoxInfo_MuboREck_Bild.Image = My.Resources.Rechteck
    160. LabelInfo_MuboREck_Infotext.Text = "Länge x Breite x Tiefe"
    162. ElseIf CheckBoxOptionen_MuboREck_Info.Checked = False Then
    163. Me.Width = 891
    164. End If
    166. End Sub
    168. Private Sub TextboxTextfeld_MuboREck_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxTextfeld_MuboREck.TextChanged
    170. If CheckBoxOptionen_MuboREck_Textfeld.Checked = True Then
    171. TextboxTextfeld_MuboREck.Show()
    172. Else
    173. TextboxTextfeld_MuboREck.Hide()
    174. End If
    176. End Sub
    178. Private Sub CheckBoxOptionen_MuboREck_Textfeld_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxOptionen_MuboREck_Textfeld.CheckedChanged
    180. If CheckBoxOptionen_MuboREck_Textfeld.Checked = True Then
    181. TextboxTextfeld_MuboREck.Visible = True
    182. ElseIf CheckBoxOptionen_MuboREck_Textfeld.Checked = False Then
    183. TextboxTextfeld_MuboREck.Visible = False
    184. End If
    186. End Sub
    188. Private Sub CheckBoxOptionen_MuboREck_Zwischenergebnis_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxOptionen_MuboREck_Zwischenergebnis.CheckedChanged
    190. If CheckBoxOptionen_MuboREck_Zwischenergebnis.Checked = True Then
    192. LabelAusgabe_MuboREck_TextGrundfläche.Visible = True
    193. LabelAusgabe_MuboREck_TextGrundfläche_Wert.Visible = True
    195. LabelAusgabe_MuboREck_TextFlächeArbeitsraum.Visible = True
    196. LabelAusgabe_MuboREck_TextFlächeArbeitsraum_Wert.Visible = True
    198. LabelAusgabe_MuboREck_TextVolumenGrundfläche.Visible = True
    199. LabelAusgabe_MuboREck_TextVolumenGrundfläche_Wert.Visible = True
    201. LabelAusgabe_MuboREck_TextVolumenArbeitsraum.Visible = True
    202. LabelAusgabe_MuboREck_TextVolumenArbeitsraum_Wert.Visible = True
    204. LineShapeAusgabe_MuboREck_3.Visible = True
    205. LineShapeAusgabe_MuboREck_2.Visible = True
    207. LabelAusgabe_MuboREck_TextGesamtfläche.Location = New Point(95, 283)
    208. LabelAusgabe_MuboREck_TextGesamtfläche_Wert.Location = New Point(228, 283)
    210. LabelAusgabe_MuboREck_TextGesamtvolumen.Location = New Point(86, 309)
    211. LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Location = New Point(228, 309)
    213. ElseIf CheckBoxOptionen_MuboREck_Zwischenergebnis.Checked = False Then
    215. LabelAusgabe_MuboREck_TextGrundfläche.Visible = False
    216. LabelAusgabe_MuboREck_TextGrundfläche_Wert.Visible = False
    218. LabelAusgabe_MuboREck_TextFlächeArbeitsraum.Visible = False
    219. LabelAusgabe_MuboREck_TextFlächeArbeitsraum_Wert.Visible = False
    221. LabelAusgabe_MuboREck_TextVolumenGrundfläche.Visible = False
    222. LabelAusgabe_MuboREck_TextVolumenGrundfläche_Wert.Visible = False
    224. LabelAusgabe_MuboREck_TextVolumenArbeitsraum.Visible = False
    225. LabelAusgabe_MuboREck_TextVolumenArbeitsraum_Wert.Visible = False
    227. LineShapeAusgabe_MuboREck_3.Visible = False
    228. LineShapeAusgabe_MuboREck_2.Visible = False
    230. LabelAusgabe_MuboREck_TextGesamtfläche.Location = New Point(95, 149)
    231. LabelAusgabe_MuboREck_TextGesamtfläche_Wert.Location = New Point(228, 149)
    233. LabelAusgabe_MuboREck_TextGesamtvolumen.Location = New Point(86, 175)
    234. LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Location = New Point(228, 175)
    235. End If
    236. End Sub
    238. End Class


    Bilder

    • Screen.PNG

      39,81 kB, 884×554, 173 mal angesehen

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

    @Fragelix Willkommen im Forum. :thumbup:
    1. Drück den Button Erweiterte Antwort, da kannst Du Dateien anhängen.
    2. Quellcode kannst Du direkt in Deinen Post einfügen, drück einen der Sprach-Button (z.B. VB.NET) und füge dann Deinen Code da rein.
      Ist der Code länger, mach einen Spoiler drumherum.
    3. Pack nicht 7 Probleme in einen Thread, da lässt sich schlecht mit arbeiten.
      Zerlege Dein Problem in eine Reihe von Elementarproblemen und löse diese separat, ggf. je ein Thread pro Problem.
      Löse jedes Problem in einem eigenen kleinen Projekt, und wenn Du alles zu Deiner Zufriedenheit gelöst hast, machst Du da ein neues Gesamt-Projekt draus.
    4. Welche Daten Deiner Rechnung sollen gespeichert werden?
      Du kannst im Projekt Settings anlegen und diese an Controls binden. Such gezielt danach.
    5. Wenn Du numerische Berechnungen anstellen wilst, bietet sich als Input-Control das NumericUpDown an. Da hast Du keine Probleme mit der Typ-Konvertierung.
    6. Meide YT-Tutorials.
    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!

    Aso, ok.

    Also als erstes möchte ich dann eine Datei erstellen/speichern in der die Werte aus den Textboxen und meinen Ausgabelables gespeichert werden.
    Wenn ich später die Datei öffne sollen die Werte wieder in den Textboxen und Labels stehen.

    Ich stöber nochmal bei den Settings rum, mal gucken ob ich da durchsteig. :S

    NumericUpDown kenne ich nicht, bzw. noch nix davon gehört - ich recherchiere da nach.

    Danke erstmal für die fixen Antworten. :thumbsup:


    Unnötiges Vollzitat entfernt
    -Artentus

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

    Fragelix schrieb:

    Aso, ok.
    Bitte zitiere hier nicht die Posts über Dir vollständig, das wird hier nicht geren gesehen.

    Fragelix schrieb:

    Also als erstes möchte ich dann eine Datei erstellen/speichern
    Wenn Du ein Problem hast, gib keine Lösung vor, damit verbaust Du Dir den Weg zu einer besseren Lösung.
    My.Settings.
    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!

    Fragelix schrieb:


    Ich möchte z.B. eine Berechnung machen und die Daten dann unter einem Dateinamen speichern, danach wieder etwas berechnen und speichern, usw.
    Über einen Datei-Öffnen-Dialog möchte ich dann später die verschienen Datein öffnen können und daraus dann ein PDF erstellen.


    Wieso sollte für diese Anfrage MySettings eine "bessere" Lösung sein? IMO ist es gar keine Lösung für seinen Anwendungsfall.
    Wenn ich es richtig verstanden habe und mir auch sein Bild zur Programmoberfläche so ansehe, dann gehe ich von Datenbänkerei aus. Wenigstens ein typisiertes Dataset mit Tabellen und Bindings sollten es meiner Meinung nach sein.

Facebook
Telefonspende