label tekst opslaan in vb

[ido435]

hallo
ik heb een vraagje
ik wil een klein spelletje maken maar daarvoor wil ik een label hebben waar in een code staat meer nu is de vraag hoe maak ik dat
ik heb ook geen idee hoe ik er aan beginnen moet
ik hoop als jullie mij kunnen helpen

alvast bedankt

 

[JoZ1]

Daarvoor kun je een setting aanmaken.

Ga naar My Project > Settings en maak daar een setting van het type String aan.

Ik noem hem voor het gemak in dit voorbeeld even LabelSetting
In je code gebruik je dat zo:

Ophalen:
[cpp]Label1.Text = My.Settings.LabelSetting[/cpp]

Opslaan:
[cpp]My.Settings.LabelSetting = Label1.Text
My.Settings.Save()[/cpp]

 

[ido435]

ok bedankt ik ga het ff proberen ik laat het zo weten als het goed is

 

[ido435]

ok maar scope gewoon op user blijven staan

 

[JoZ1]

Ja. Heb je het getest?

 

[ido435]

nee nog niet maar als ik bijvoorbeeld nou
op 0 punten sta maar als ik dan 10 punten haal hoe moet ik dat er bij laten zetten

op dat punt kom ik ff niet verder

 

[JoZ1]

Je hebt het nog niet geprobeerd maar je hebt wel een vraag

 

[ido435]

ik heb hem er in gezet
maar ik weet niet hoe je punten bij elkaar kunt op tellen dus daardoor kan ik hem niet testen

 

[JoZ1]

Je doet niet eens moeite om het zelf te proberen. *zucht*

Maak van je setting een integer.
(Ik noem de setting even punten, voor het gemak)

Ophalen:
[CPP]TextBox1.Text = My.Settings.Punten[/CPP]

Wegschrijven:
[CPP]If IsNumeric(TextBox1.Text) Then
My.Settings.Punten += CInt(TextBox1.Text)
My.Settings.Save()
Else
MsgBox("Graag een numerieke waarde invullen.")
End If[/CPP]

 

[ido435]

waar moet ik dat het numerieke waarde invullen?
heb zelf al het een en ander geprobeert

 

[JoZ1]

Jij wilt toch dat de score wordt opgehoogd? Scores zijn toch altijd numerieke waarden?

En je kan niet erg veel geprobeerd hebben in 1 minuut (19:13 - 19:14).

 

[ido435]

niet veel maar wel wat

 

[mastermindzh]

Joz zijn code is perfect maar ik denk niet dat jij het zo snapt eerlijk gezecht.


Een iets langere code maar misschien snap je het dan

Dim finalval as integer = nothing
Dim currentval as integer = my.settings.punten Dit haalt het aantal punten op (wat nu bij my.settings.punten) staat.

try
if isNummeric(textbox1.text) then     Textbox1.text is het ingevoerde aantal punten dat ERBIJ geteld moet worden

Dim userinputval as integer = textbox1.text         textbox1.text kan je ook vervangen door "10" om er standaard 10 punten bij te doen als er een punt wordt gemaakt.
finalval = currentval + userinputval      Finalval (of score) is gelijk aan currentval(de score voordat je een punt haalt) + userinputval (het gehaalde aantal punten zoals gespecificeerd in textbox1)
my.settings.punten = finalval
my.settings.save
else
msgbox("Please enter a value")
end if


catch ex as exception
msgbox(ex.message)

 

[ido435]

ik heb het gedaan maar nu krijg ik dit in de code

 

[JoZ1]

Joz zijn code is perfect maar ik denk niet dat jij het zo snapt eerlijk gezecht.

Als hij het niet snapt, kan hij het vragen. Dat heb ik liever dan dat hij na één minuut vraagt of ik zijn code wil schrijven.
Bedankt trouwens


@ido435: Volgens mij snap je het nog steeds niet heel erg...
Never mind:

IsNumeric <- met één m

Eigenlijk zou je zorgvuldig moeten zijn met datatypes, dus:
[cpp]Dim userinputval = CInt(TextBox1.Text)[/cpp]
Maar dat is eigenlijk geen fout.

Je hebt finalval en currentval niet gedeclareerd.
Mastermindzh bedoelde dat je hier je eigen waarden voor zou moeten gebruiken.

En je dient te eindigen met Try Catch.

 

[mastermindzh]

bedoel je niet dat je de try catch moet eindigen met een end try ?


@IDO
Copy paste jij alle code alleen?

zoals joz al aangaf moeten curentval en finalval eerst gedeclareerd worden


dim curentval as integer = nothing


isnumeric had ik per ongeluk met 2 mmén geschreven dat moet met 1

ook had ik geen end try getypt om de try catch blok te sluiten

hier de complete code

        Try
            If IsNumeric(TextBox1.Text) Then

                Dim currentval As Integer = My.Settings.punten
                Dim userinputval = CInt(TextBox1.Text)
                Dim finalval As Integer = currentval + userinputval

                My.Settings.punten = finalval
                My.Settings.Save()
            Else
                MsgBox("Please enter a value")
            End If


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Deze kan je copy-paste en dan moet het werken

 

[ido435]

ik probeer zelf ook wel iets
maar ik snap het zelf ook niet helemaal

 

[mastermindzh]

En als je de code uit mijn vorige bericht pakt? die zou moeten werken..