Springen naar inhoud


- - - - -
VS 2012

Inkomen Berekenen Tot Pensioenleeftijd

Oefening For...Next

  • Log in a.u.b. om te beantwoorden
Er zijn 6 reacties in dit onderwerp

#1 ludo64

ludo64

    Starting Developer

  • Leden
  • 18 berichten
    Laatst bezocht vandaag, 13:58
  • LocatieTongeren

Geplaatst op 12 juni 2019 - 10:51

Via een naam, leeftijd en startkapitaal moet ik berekenen hoeveel men verdient tot de pensioenleeftijd.
Elk jaar komt er 5% opslag bij.
Dit is mijn laatste probeerversie, maar die klopt niet.
Visual Basic Code:
Private Sub btnCompute_Click(sender As Object, e As EventArgs) Handles btnCompute.Click
Dim pensionAge As Integer = 65
Dim name As String = txtName.Text
Dim age As Integer = CInt(txtAge.Text)
Dim oldSalary As Double = CDbl(txtSalary.Text)
Dim newSalary As Double = oldSalary
Dim profit As Double = 0
Dim ageDiff As Integer = pensionAge - age
For i = 1 To ageDiff
newSalary += (newSalary * 0.05)
Next
profit = (newSalary - oldSalary)
txtOutcome.Text = name & " will earn about " & profit.ToString("C2")
End Sub


#2 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1139 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 13 juni 2019 - 09:10

Bericht bekijkenludo64, op 12 juni 2019 - 10:51, zei:

Via een naam, leeftijd en startkapitaal moet ik berekenen hoeveel men verdient tot de pensioenleeftijd.
Elk jaar komt er 5% opslag bij.
Dit is mijn laatste probeerversie, maar die klopt niet.

En wat klopt er dan niet, precies?

#3 ludo64

ludo64

    Starting Developer

  • Leden
  • 18 berichten
    Laatst bezocht vandaag, 13:58
  • LocatieTongeren

Geplaatst op 13 juni 2019 - 09:57

In het oefenboek is ingevuld een leeftijd van 25 jaar en een startsalaris van 20000.
De uitkomst zou dan moeten zijn: 2415,995.
Ik kom uit op meer dan 120000.

#4 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1139 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 14 juni 2019 - 09:03

Bericht bekijkenludo64, op 13 juni 2019 - 09:57, zei:

In het oefenboek is ingevuld een leeftijd van 25 jaar en een startsalaris van 20000.
De uitkomst zou dan moeten zijn: 2415,995.
Ik kom uit op meer dan 120000.
Kan je de volledige opgave posten, want die cijfers zijn niet in overeenstemming te brengen met je code.

#5 ludo64

ludo64

    Starting Developer

  • Leden
  • 18 berichten
    Laatst bezocht vandaag, 13:58
  • LocatieTongeren

Geplaatst op 14 juni 2019 - 09:49

Estimate how much a young worker will earn before retiring at age 65.
Request the worker's name, age and starting salary as input.
Assume the worker receives a 5% raise each year.

#6 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1139 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 14 juni 2019 - 18:31

Bericht bekijkenludo64, op 14 juni 2019 - 09:49, zei:

Estimate how much a young worker will earn before retiring at age 65.
Request the worker's name, age and starting salary as input.
Assume the worker receives a 5% raise each year.

Bericht bekijkenludo64, op 13 juni 2019 - 09:57, zei:

In het oefenboek is ingevuld een leeftijd van 25 jaar en een startsalaris van 20000.
De uitkomst zou dan moeten zijn: 2415,995.

De uitkomst zou moeten zijn:  2.415.995,48
Zoals ik al zei: met jouw cijfers sloeg dat nergens op.

Visual Basic Code:

 Sub LoonTotPensioen()
	 Dim pensioenLeeftijd As Integer = 65
	 Dim naam As String = "Jos"
	 Dim leeftijd As Integer = 25
	 Dim loon As Double = 20000
	 Dim verdiend As Double = 0
	 For leeftijd = leeftijd To pensioenLeeftijd - 1
		 verdiend += loon
		  loon *= 1.05 ' 5 % opslag
	 Next
	 MessageBox.Show($"{naam} heeft {verdiend:C2} verdiend")
End Sub



Geeft:
Code:
Jos heeft 2.415.995,48 € verdiend


#7 ludo64

ludo64

    Starting Developer

  • Leden
  • 18 berichten
    Laatst bezocht vandaag, 13:58
  • LocatieTongeren

Geplaatst op 14 juni 2019 - 18:55

Thx Dirk, klopt helemaal.





Ook met taq VS 2012, Oefening For...Next voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2012] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)