Hulp gevraagd bij cmd-knoppen werkend krijgen

[Brood18]

Hallo Iedereen,
Dankzij de hulp van mensen op dit forum heb ik al 1 schoolopdracht werkend kunnen krijgen. Nu ben ik weer vastgelopen met mijn 2e, sorry dat ik jullie ermee lastig val, maar verder weet ik niemand die mij kan helpen. Hieronder is mijn project te zien, het is de bedoeling dat als je op knop hoger drukt er 5 punten bij gaan op knop lager 1 eraf en bij knop goed dat het zo blijft. Nu ben ik tot hier gekomen en ik heb geen flauw idee hoe ik eigenlijk verder moet. Ik hoop dat jullie mij kunnen helpen! Alvast Bedankt!

Private Sub UserForm_Click()

'declaratie van waarden
Dim hogerS As String
Dim lagerS As String
Dim goedS As String

'inlezen van scherm
hoger = txtHogerS.Text
lager = txtLagerS.Text
goed = txtGoedS.Text

'berekenen
hoger = Getal + (5)
lager = Getal - (1)
goed = Getal

'schrijven naar scherm
uitkomst = Str(uitkomst)
txtUitkomst.Text = uitkomst

End Sub

 

[Pizara]

Volgens mij is dit Excel VBA heb ik dat goed?

 

[That Guy]

zoiets:

in de general declerations (helemaal bovenaan in je code):

dim iPunten as integer

in de form-load:

iPunten = 200   [COLOR="SeaGreen"]'dit is de beginwaarde[/COLOR]

[COLOR="SeaGreen"]'laat zien[/COLOR]
txtUitkomst = iPunten

in de omhoog-knop:

iPunten = iPunten + 5

[COLOR="SeaGreen"]'laat zien[/COLOR]
txtUitkomst = iPunten

in de omlaag-knop:

iPunten = iPunten - 1

[COLOR="SeaGreen"]'laat zien[/COLOR]
txtUitkomst = iPunten

oid?

 

[Brood18]

Volgens mij is dit Excel VBA heb ik dat goed?

Ik moet het van school in gewoon word maken, maar heb er niet zoveel verstand van