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
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...
Brainfuck-Quellcode
- Public Class Form_Mubo_REck
- Dim Länge As Double
- Dim Breite As Double
- Dim Tiefe As Double
- Dim Arbeitsraum As Double
- Dim Ergebnis As Double
- Dim ErgebnisGrundfläche As Double
- Dim ErgebnisVolumenGrundfläche As Double
- Dim ErgebnisFlächeArbeitsraum As Double
- Dim ErgebnisVolumenArbeitsraum As Double
- Dim ErgebnisFlächeGesamt As Double
- Private Sub TextboxEingabe_MuboREck_Länge_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxEingabe_MuboREck_Länge.TextChanged
- Try
- Länge = Convert.ToDouble(TextboxEingabe_MuboREck_Länge.Text) '------------Eingabe Länge checken
- Catch ex As Exception
- TextboxEingabe_MuboREck_Länge.Text = ""
- Länge = 0
- End Try
- End Sub
- Private Sub TextboxEingabe_MuboREck_Breite_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxEingabe_MuboREck_Breite.TextChanged
- Try
- Breite = Convert.ToDouble(TextboxEingabe_MuboREck_Breite.Text) '------------Eingabe Breite checken
- Catch ex As Exception
- TextboxEingabe_MuboREck_Breite.Text = ""
- Breite = 0
- End Try
- End Sub
- Private Sub TextboxEingabe_MuboREck_Tiefe_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxEingabe_MuboREck_Tiefe.TextChanged
- Try
- Tiefe = Convert.ToDouble(TextboxEingabe_MuboREck_Tiefe.Text) '------------Eingabe Tiefe checken
- Catch ex As Exception
- TextboxEingabe_MuboREck_Tiefe.Text = ""
- Tiefe = 0
- End Try
- End Sub
- Private Sub TextboxEingabe_MuboREck_Arbeitsraum_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxEingabe_MuboREck_Arbeitsraum.TextChanged
- Try
- Arbeitsraum = Convert.ToDouble(TextboxEingabe_MuboREck_Arbeitsraum.Text) '------------Eingabe Arbeirsraum checken
- Catch ex As Exception
- TextboxEingabe_MuboREck_Arbeitsraum.Text = ""
- Arbeitsraum = 0
- End Try
- End Sub
- Private Sub ButtonEingabe_MuboREck_Berechnen_Click(sender As System.Object, e As System.EventArgs) Handles ButtonEingabe_MuboREck_Berechnen.Click
- If TextboxEingabe_MuboREck_Länge.Text = Nothing Then
- TextboxEingabe_MuboREck_Länge.Text = "0"
- Länge = TextboxEingabe_MuboREck_Länge.Text
- Else
- Länge = TextboxEingabe_MuboREck_Länge.Text
- End If
- If TextboxEingabe_MuboREck_Breite.Text = Nothing Then
- TextboxEingabe_MuboREck_Breite.Text = "0"
- Breite = TextboxEingabe_MuboREck_Breite.Text
- Else
- Breite = TextboxEingabe_MuboREck_Breite.Text
- End If
- If TextboxEingabe_MuboREck_Tiefe.Text = Nothing Then
- TextboxEingabe_MuboREck_Tiefe.Text = "0"
- Tiefe = TextboxEingabe_MuboREck_Tiefe.Text
- Else
- Tiefe = TextboxEingabe_MuboREck_Tiefe.Text
- End If
- If CheckBoxEingabe_MuboREck_Arbeitsraum.Checked = True Then
- If TextboxEingabe_MuboREck_Arbeitsraum.Text = Nothing Then
- TextboxEingabe_MuboREck_Arbeitsraum.Text = "0"
- Arbeitsraum = TextboxEingabe_MuboREck_Arbeitsraum.Text
- Else
- Arbeitsraum = TextboxEingabe_MuboREck_Arbeitsraum.Text
- End If
- ElseIf CheckBoxEingabe_MuboREck_Arbeitsraum.Checked = False Then
- Arbeitsraum = 0
- TextboxEingabe_MuboREck_Arbeitsraum.Text = "0"
- End If
- '---- Berechnungen ----
- ErgebnisGrundfläche = (Länge * Breite) 'Grundfläche ohne Arbeitsraum
- ErgebnisFlächeArbeitsraum = (Länge + 2 * Arbeitsraum) * (Breite + 2 * Arbeitsraum) - (ErgebnisGrundfläche) 'Nur Fläche Arbeitsraum
- ErgebnisVolumenGrundfläche = (Länge * Breite * Tiefe) 'Volumen Grundfläche
- ErgebnisVolumenArbeitsraum = (ErgebnisFlächeArbeitsraum * Tiefe) 'Volumen nur Arbeitsraum
- ErgebnisFlächeGesamt = (Länge + 2 * Arbeitsraum) * (Breite + 2 * Arbeitsraum) 'Fläche Gesamt
- Ergebnis = (Länge + 2 * Arbeitsraum) * (Breite + 2 * Arbeitsraum) * Tiefe 'Volumen Gesamt
- '---- Ausgabe ----
- LabelAusgabe_MuboREck_TextLänge_Wert.Text = Länge & (" m")
- LabelAusgabe_MuboREck_TextBreite_Wert.Text = Breite & (" m")
- LabelAusgabe_MuboREck_TextTiefe_Wert.Text = Tiefe & (" m")
- LabelAusgabe_MuboREck_TextArbeitsraum_Wert.Text = Arbeitsraum & (" m")
- LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Text = Ergebnis & (" m³")
- LabelAusgabe_MuboREck_TextGrundfläche_Wert.Text = ErgebnisGrundfläche & (" m²")
- LabelAusgabe_MuboREck_TextVolumenGrundfläche_Wert.Text = ErgebnisVolumenGrundfläche & (" m³")
- LabelAusgabe_MuboREck_TextFlächeArbeitsraum_Wert.Text = ErgebnisFlächeArbeitsraum & (" m²")
- LabelAusgabe_MuboREck_TextVolumenArbeitsraum_Wert.Text = ErgebnisVolumenArbeitsraum & (" m³")
- LabelAusgabe_MuboREck_TextGesamtfläche_Wert.Text = ErgebnisFlächeGesamt & (" m²")
- End Sub
- Private Sub ButtonAktion_MuboREck_Hauptmenü_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAktion_MuboREck_Hauptmenü.Click
- FormHauptmenü.Show()
- Me.Hide()
- End Sub
- Private Sub ButtonEingabe_MuboREck_Leeren_Click(sender As System.Object, e As System.EventArgs) Handles ButtonEingabe_MuboREck_Leeren.Click
- '---- Leeren ----
- TextboxEingabe_MuboREck_Länge.Clear()
- TextboxEingabe_MuboREck_Breite.Clear()
- TextboxEingabe_MuboREck_Tiefe.Clear()
- TextboxEingabe_MuboREck_Arbeitsraum.Clear()
- LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Text = ""
- LabelAusgabe_MuboREck_TextLänge_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextBreite_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextTiefe_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextArbeitsraum_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextGrundfläche_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextVolumenGrundfläche_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextFlächeArbeitsraum_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextVolumenArbeitsraum_Wert.Text = Nothing
- LabelAusgabe_MuboREck_TextGesamtfläche_Wert.Text = Nothing
- End Sub
- Private Sub CheckBoxOptionen_MuboREck_Info_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxOptionen_MuboREck_Info.CheckedChanged
- '---- Infobox ----
- If CheckBoxOptionen_MuboREck_Info.Checked = True Then
- Me.Width = 1239
- PictureBoxInfo_MuboREck_Bild.Image = My.Resources.Rechteck
- LabelInfo_MuboREck_Infotext.Text = "Länge x Breite x Tiefe"
- ElseIf CheckBoxOptionen_MuboREck_Info.Checked = False Then
- Me.Width = 891
- End If
- End Sub
- Private Sub TextboxTextfeld_MuboREck_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextboxTextfeld_MuboREck.TextChanged
- If CheckBoxOptionen_MuboREck_Textfeld.Checked = True Then
- TextboxTextfeld_MuboREck.Show()
- Else
- TextboxTextfeld_MuboREck.Hide()
- End If
- End Sub
- Private Sub CheckBoxOptionen_MuboREck_Textfeld_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxOptionen_MuboREck_Textfeld.CheckedChanged
- If CheckBoxOptionen_MuboREck_Textfeld.Checked = True Then
- TextboxTextfeld_MuboREck.Visible = True
- ElseIf CheckBoxOptionen_MuboREck_Textfeld.Checked = False Then
- TextboxTextfeld_MuboREck.Visible = False
- End If
- End Sub
- Private Sub CheckBoxOptionen_MuboREck_Zwischenergebnis_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxOptionen_MuboREck_Zwischenergebnis.CheckedChanged
- If CheckBoxOptionen_MuboREck_Zwischenergebnis.Checked = True Then
- LabelAusgabe_MuboREck_TextGrundfläche.Visible = True
- LabelAusgabe_MuboREck_TextGrundfläche_Wert.Visible = True
- LabelAusgabe_MuboREck_TextFlächeArbeitsraum.Visible = True
- LabelAusgabe_MuboREck_TextFlächeArbeitsraum_Wert.Visible = True
- LabelAusgabe_MuboREck_TextVolumenGrundfläche.Visible = True
- LabelAusgabe_MuboREck_TextVolumenGrundfläche_Wert.Visible = True
- LabelAusgabe_MuboREck_TextVolumenArbeitsraum.Visible = True
- LabelAusgabe_MuboREck_TextVolumenArbeitsraum_Wert.Visible = True
- LineShapeAusgabe_MuboREck_3.Visible = True
- LineShapeAusgabe_MuboREck_2.Visible = True
- LabelAusgabe_MuboREck_TextGesamtfläche.Location = New Point(95, 283)
- LabelAusgabe_MuboREck_TextGesamtfläche_Wert.Location = New Point(228, 283)
- LabelAusgabe_MuboREck_TextGesamtvolumen.Location = New Point(86, 309)
- LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Location = New Point(228, 309)
- ElseIf CheckBoxOptionen_MuboREck_Zwischenergebnis.Checked = False Then
- LabelAusgabe_MuboREck_TextGrundfläche.Visible = False
- LabelAusgabe_MuboREck_TextGrundfläche_Wert.Visible = False
- LabelAusgabe_MuboREck_TextFlächeArbeitsraum.Visible = False
- LabelAusgabe_MuboREck_TextFlächeArbeitsraum_Wert.Visible = False
- LabelAusgabe_MuboREck_TextVolumenGrundfläche.Visible = False
- LabelAusgabe_MuboREck_TextVolumenGrundfläche_Wert.Visible = False
- LabelAusgabe_MuboREck_TextVolumenArbeitsraum.Visible = False
- LabelAusgabe_MuboREck_TextVolumenArbeitsraum_Wert.Visible = False
- LineShapeAusgabe_MuboREck_3.Visible = False
- LineShapeAusgabe_MuboREck_2.Visible = False
- LabelAusgabe_MuboREck_TextGesamtfläche.Location = New Point(95, 149)
- LabelAusgabe_MuboREck_TextGesamtfläche_Wert.Location = New Point(228, 149)
- LabelAusgabe_MuboREck_TextGesamtvolumen.Location = New Point(86, 175)
- LabelAusgabe_MuboREck_TextGesamtvolumen_Wert.Location = New Point(228, 175)
- End If
- End Sub
- End Class
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Fragelix“ ()