Springen naar inhoud


- - - - -
VS 2012

Wat Is Er Mis Met Deze Code ?

Fout in berekening ?

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

#1 ludo64

ludo64

    Rookie Developer

  • Leden
  • Pip
  • 30 berichten
    Laatst bezocht 08 jul 2019 00:37
  • LocatieTongeren

Geplaatst op 13 mei 2019 - 17:04

Ik krijg 0 als uitkomst ?!?!?!
Visual Basic Code:
Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
Dim firstName, lastName As String
Dim curSalary, newSalary As Double
firstName = txtFirstName.Text
lastName = txtLastName.Text
curSalary = CDbl(txtCurSalary.Text)
ComputeNewSalary(newSalary)
txtOutcome.Text = "New salary for " & firstName & " " & lastName & " is " & newSalary.ToString("C2")
End Sub
Function ComputeNewSalary(curSalary As Double) As Double
Dim newSalary As Double
curSalary = CDbl(txtCurSalary.Text)
If curSalary < 40000 Then
newSalary = curSalary + (curSalary * 5 / 100)
ElseIf curSalary > 40000 Then
newSalary = (curSalary + 2000) + ((curSalary - 40000) * 2 / 100)
End If
Return newSalary
End Function
End Class


#2 Johnny

Johnny

    Senior Developer

  • Leden
  • PipPipPip
  • 193 berichten
    Laatst bezocht 01 jul 2019 11:21

Geplaatst op 14 mei 2019 - 09:40

Je roept de functie

Code:
Function ComputeNewSalary(curSalary As Double) As Double


met:

Code:
ComputeNewSalary(newSalary) 


dit zou  moeten zijn:
Code:
newSalary = ComputeNewSalary(curSalary)


tevens dien je
Code:
curSalary = CDbl(txtCurSalary.Text)

uit je functie verwijderen

#3 ludo64

ludo64

    Rookie Developer

  • Leden
  • Pip
  • 30 berichten
    Laatst bezocht 08 jul 2019 00:37
  • LocatieTongeren

Geplaatst op 14 mei 2019 - 11:47

Thx Johnny, nu werkt het wel





Ook met taq VS 2012, Fout in berekening ? 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)