VB2008 - Risultati errati

[jurdan01]

Salve! Ho un urgente bisogno di finire una programmazione e non riesco a capire dove ho sbagliato. Devo creare un applicazione che mostri il resto dovuto all'utente in Quarti di dollaro, Dimes (10cents), Nickels (5cents) e Pennies (1cent). L'utente inserisce in due textbox la quota pagata e il costo dell'oggetto che compra, entrambi espressi in centesimi.
Questo è il codice che ho creato, ma non mi ritrovo con i calcoli... Dove sbaglio?
Sono veramente alle prime armi e non riesco a capirci...
Grazie!!

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        ' Variables for fields
        Dim lblCost As Double = CDbl(txtCostItm.Text)
        Dim lblAmnt As Double = CDbl(txtAmntGvn.Text)


        ' Find Difference between Cost of Item and Price Received
        Dim temp As Double = txtAmntGvn.Text - txtCostItm.Text

        'Declare Integers

        Dim lblQuar As Integer
        Dim lblDim As Integer
        Dim lblNick As Integer
        Dim lblPenn As Integer

      


        'How many quarters will be handed
        lblQuar = CInt(temp / 25)
        temp = temp - CDbl(CDbl(lblQuar) * 25)
        lblQrts.Text = lblQuar.ToString

        'Dimes 
        lblDim = CInt(temp / 10)
        temp = temp - CDbl(CDbl(lblDim) * 10)
        lblDimes.Text = lblDim.ToString

        'Nickels 
        lblNick = CInt(temp / 5)
        temp = temp - CDbl(CDbl(lblNick) * 5)
        lblNckls.Text = lblNick.ToString

        'Pennies
        lblPenn = CInt(temp / 1)
        temp = temp - CDbl(CDbl(lblPenn) * 1)
        lblPennies.Text = lblPenn.ToString

[oregon]

Originariamente inviato da jurdan01
urgente

Non c'è nulla di urgente per un forum ...

non mi ritrovo con i calcoli... Dove sbaglio?

Che vuol dire? Dovresti essere più preciso sul problema. Facci un esempio di calcolo che non ti convince ...


P.S. Questo non è il forum giusto per il VB.NET ... ne esiste uno apposito ...

[LeleFT]

Originariamente inviato da oregon
Non c'è nulla di urgente per un forum ...



Che vuol dire? Dovresti essere più preciso sul problema. Facci un esempio di calcolo che non ti convince ...


P.S. Questo non è il forum giusto per il VB.NET ... ne esiste uno apposito ...

Quoto.

Sposto nel forum "Visual Basic e .NET Framework".

Ciao.

[oregon]

In ogni caso, non usare la funzione CInt ma la Fix ed elimina le CDbl inutili ... ovvero, ad esempio per la prima CInt, deve essere

lblQuar = Fix(temp / 25)

e questa è sufficiente così

temp = temp - CDbl(lblQuar * 25)