Vraag : trek 10% van textbox af

hallo,
ik heb een knoop die wanneer gedrukte veranderingen de kleur als achtergrond, ik het ook 10% van het totaal van een textbox wil aftrekken, dan wanneer geklikt, de kleurenrug en reapply 10% verandert. ….  De code is tot dusver:

als percent10.BackColor = Color.LightGray Then
percent10.BackColor = Color.Red
discountlabel. Tekst = „lbltotal 10% Korting Toegepaste "
. Tekst = Formaat (lbltotal Val (. Tekst)/10, „0.00“)
Else

percent10.BackColor = Color.LightGray
discountlabel. Tekst = lbltotal ""
. Tekst = Formaat (lbltotal Val (. Tekst) * geeft 0.1, „0.00“)
Eind If

This sommige vreemde resultaten hoewel en ik niet kan uitwerken waar ik verkeerd ga.  Kan iedereen helpen?

Thanks

Antwoord : trek 10% van textbox af

een 10% korting is NIET wat u krijgt wanneer u door 10 verdeelt.  Eerder is een 10% korting de originele waarde MINUS10%of die originele waarde

Korting = 0.1* OriginalValue
DiscountedValue = OriginalValue - Korting

dan, om de originele waarderug te worden opnieuw, zou u de Korting aan DiscountedValue toevoegen:

OriginalValue = DiscountedValue + Korting