Opslaan als en Openen

[Schippertje]

Goeden dag Heren.

Ik ben in vb 2010 een drinkgeld programma aan het maken voor
bij ons aan boord.
Nou heb ik alles al met berekeningen en al gemaakt.
Maar nu zou ik graag een form willen opslaan en kunnen openen.
Ik heb wel kunnen vinden dat je het kan opslaan als txt, maar wil het graag opslaan als form, en dat ik het dus later ook weer kan openen in een form.
Zou iemand mij daarbij kunnen helpen.

Alvast bedankt.

 

[old Hippy]

Zal wel scheepstaal zijn snap er geen fokkemaat van.

Wat wil je opslaan en weer kunnen laden.
De gegevens uit je form ????
of je gehele form.
volgens mij zou je de gegevens op moeten slaan.
Als je een database wild opslaan kan je importeren en exporteren op datum.
b.v in Excel

 

[Schippertje]

ik wil mijn gehele form op kunnen slaan.
de gegevens die ik heb ingevuld dat ie dat opslaat.
maar ook bepaalde labels.
dus als ik dat dan weer wil openen dat ie dat in die form dan laad.

 

[old Hippy]

Laat eens een afbeelding zien van wat je wildt opslaan.
als je wild hoor stuur hem anders op per mail.

 

[Schippertje]

hier een foto.

 

[old Hippy]

OK en welke labels veranderen dat je ze wil opslaan

 

[Schippertje]

In de textboxen komen telkens andere getallen te staan.
en ik heb een paar labels die dan ook veranderen om dat daar de berekeningen achter zitten.
Nu niet zichtbaar.

 

[JoZ1]

Waarom gebruik je 'onzichtbare labels' ? Kun je niet gewoon string-variabelen gebruiken?

Een handleiding over het opslaan en ophalen van gegevens d.m.v. .INI-Bestanden: klik.

 

[Schippertje]

ik gebruik ze niet als onzichtbare labels.
ik heb de naam van de label een spatie gegeven dus geeft ie geen letter of cijfer weer.
maar als ik dan op de knop berekenen druk, dan geef ie de uitkomst wel weer bij de desbetreffende label.
ik zal eens even kijken of ik daar iets mee kan.

 

[JoZ1]

Ah, nu snap ik het. Maar dan kun je ook het getal 0 erin plaatsen, dat is makkelijker als je het label wil aanpassen. Maar ik dwaal af...

 

[old Hippy]

Ok kan heel goed zo als JoZ1 voorsteld.
als de berekeningen in je labels komt hoe je deze niet opteslaan.
wandt als je andere getallen laad word de berekening vanzelf weer aangepast.
dus alleen je gegevens opslaan.

 

[Schippertje]

Oke zal even kijken of ik eruit kom.
Ben namelijk nog niet zolang met vb bezig.
In ieder geval bedankt.

 

[old Hippy]

een manier om te rekenen met de uitkoms in je label

 Dim prijs As Double
        Dim aantal As Double
        Dim totaal As Double
        Dim totaal
        prijs = CDbl(TextBox1.Text)
        aantal = CDbl(TextBox2.Text)
        totaal = prijs * aantal
        Label1.Text = "totaalingekocht " & FormatCurrency(totaal, 2)

 

[Schippertje]

Bedankt zal eens even kijken.
ik heb zelf een van deze berekeningen gebruikt, en gemaakt onder de button berekenen

Private Sub rekenuittotaalverbuik1()
Try
Dim teller26 As Double = TextBox7.Text
Dim teller27 As Double = TextBox16.Text
Dim teller28 As Double = TextBox21.Text
Dim teller29 As Double = TextBox26.Text
Dim teller30 As Double = TextBox31.Text
Dim uitkomst As Double = teller26 + teller27 + teller28 + teller29 + teller30
Label45.Text = FormatNumber(uitkomst, 0)

Catch ex As Exception

End Try
End Sub

 

[JoZ1]

Aan de berekening hoeft toch niets veranderd te worden? Dat werkt toch allemaal?

Is het trouwens nog gelukt met het gegevens opslaan?

 

[Schippertje]

Nee daar hoeft veder niks aan veranderd worden.
Nee kom er nog niet echt uit. Ben er nog mee bezig.

 

[JoZ1]

OK... Wat lukt er niet dan? Of wil je het zelf even uitvogelen?

 

[old Hippy]

Even een voorbeeld

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prijs, ingekocht, nogaanboord, verkoopprijs As Double
        Dim Verbruik
        Dim OverDezeWeek, totaalinkoop, inkomsten
      
        prijs = CDbl(TextBox1.Text)
        ingekocht = CDbl(TextBox2.Text)
        totaalinkoop = prijs * ingekocht
        nogaanboord = CDbl(TextBox3.Text)
        verkoopprijs = CDbl(TextBox4.Text)
        Verbruik = ingekocht - nogaanboord
         OverDezeWeek = nogaanboord
         inkomsten = verkoopprijs * Verbruik
         Label1.Text = "Cola Sinas " & (Verbruik)
         Label2.Text = "Cola Sinas " & (nogaanboord)
         Label8.Text = "Totaal inkoop " & FormatCurrency(totaalinkoop, 2)
         Label10.Text = "inkomsten " & FormatCurrency(inkomsten, 2)
    End Sub

 

[Schippertje]

Snap nog niet helemaal hoe ik dit dan moet toe voegen en hoe het werkt.
Voor mij zou het mooist zijn als ik alles wat er staat gewoon kan opslaan. En het hoeft laater niet aangepast te worden als ik het maar gewoon terug kan zien als 1 form.
Hulp is altijd welkom.

 

[JoZ1]

Wat snap je niet? Waar loop je vast? Heb je de handleiding stap voor stap gevolgd en het voorbeeldproject gezien?

@old Hippy: De berekening werkt hoor