Pytanie : odejmować 10% od textbox

cześć,
I mieć guzik che gdy zmiana the tło colour, I także chcieć ono 10% od the suma textbox, then gdy, zmieniać the colour z powrotem i reapply the 10%. ….  The kod do tej pory być:

Jeżeli percent10.BackColor = Color.LightGray Then
percent10.BackColor = Color.Red
discountlabel. Tekst = "10% Pomijać 10% "
lbltotal. Tekst = Format (Val (lbltotal. Tekst)/10, "0.00")
Else

percent10.BackColor = Color.LightGray
discountlabel. Tekst = ""
lbltotal. Tekst = Format (Val (lbltotal. Tekst) * 0.1, "0.00")
Końcówka If

This dawać niektóre dziwaczny rezultat dziwaczny i I móc dokąd I iść źle.  Móc anyone?

Thanks

Odpowiedź : odejmować 10% od textbox

10% rabat być 10% ty dostawać kiedy ty dzielić 10.  Raczej 10% rabat być the oryginalny wartość MINUS10%of który oryginalny wartość

Rabat = 0.1* OriginalValue
DiscountedValue = OriginalValue - Rabat

wtedy, the oryginalny wartość z powrotem znowu, ty dodawać the Rabat the DiscountedValue:

OriginalValue = DiscountedValue + Rabat