Opdrachten herhalen tutorial

[Frits91]

Beste Mensen,

Om de basis van vba te leren ben ik bezig een cursusboek door te werken.
Inmiddels ben ik aangekomen bij het onderwerp opdrachten herhalen. Hiervoor moet een oefening gemaakt worden met een jaarlijkse stijging van het zakgeld.

De gebruiker voert zijn leeftijd in en het bedrag aan zakgeld dat ontvangen werd op de leeftijd 5.
Vervolgens selecteert de gebruiken een option button met de keuze uit:
1) een jaarlijkse stijging met 5 euro.
2) een jaarlijkse verhoging met 50%
3) een driejaarlijse verdubbeling

In een textbox komt de leeftijd vanaf 5 jaar te staan tot de huidige leeftijd met daarachter het zakgeld.

Kan iemand mij aan deze code helpen,? ik kom er zelf niet uit

Groet,
Frits

 

[Warme bakkertje]

Post eens een voorbeeeldbestandje met wat je tot hiertoe gemaakt hebt.

 

[Frits91]

Bijgevoegd de code to zover ik ze heb. Het gaat om de Actie1, Actie2 en Actie3. De waarde van de teller moet elke keer met 1 omhoog en de waarde van het product ook. Is het mogelijk om twee tellers te hebben en die er in te zetten?

Private Sub cmdBerekenen_Click()

Dim strResultaat As String
Dim intLeeftijd As Integer
Dim intProduct As Integer
Dim intTeller As Integer

strResultaat = ""
sngZakgeldJ = Val(txtLeeftijd.Text) / Val(txtLeeftijd.Text) * Val(txtZakgeld.Text)

Select Case True

Case txtLeeftijd.Text = ""
strResultaat = "Vul eerst een getal in"
Case Not (IsNumeric(txtLeeftijd.Text))
strResultaat = "U mag enkel een getal invoeren"
Case txtLeeftijd.Text < 5
strResultaat = "U bent te jong voor zakgeld"
Case txtLeeftijd.Text > 21
strResultaat = "U bent te oud voor zakgeld"

Case optActie1.Value = True
For intTeller = 5 To Val(txtLeeftijd.Text)
intProduct = Val(txtLeeftijd.Text) + 5 'Dit moet 5 euro per jaar worden.
strResultaat = strResultaat & Int(intTeller) & " : " & Str(intProduct) & vbCrLf

Next intTeller

Case optActie2.Value = True
For intTeller = 5 To Val(txtLeeftijd.Text)
intProduct = Val(txtLeeftijd.Text) + (Val(txtLeeftijd.Text) * 0.5) 'Ook een stijging per jaar.
strResultaat = strResultaat & Int(intTeller) & " : " & Str(intProduct) & vbCrLf

Next intTeller

Case optActie3.Value = True
For intTeller = 5 To Val(txtLeeftijd.Text)
intProduct = Val(txtLeeftijd.Text) 'Step 3 'Dit moet de driejaarlijkse verdubbeling van het zakgeld worden, ik denk dat dit het beste kan met een do-functie.
strResultaat = strResultaat & Int(intTeller) & " : " & Str(intProduct) & vbCrLf

Next intTeller

End Select

txtResultaat.Text = strResultaat
intLeeftijd = DateDiff("yyyy", txtLeeftijd, Date)

End Sub[/I]

 

[Warme bakkertje]

Voorbeeldbestand

 

[Frits91]

Bekijk bijlage oef6Zakgeld.xls

 

[Warme bakkertje]

Zie bijlage

 

[Frits91]

Het werkt!

Warme bakkertje bedankt! Het werkt en ik zie waar ik de mist ben ingegaan.