Question : soustraire 10% de la boîte à textes

bonjour, le
j'ai un bouton qui une fois pressé des changements la couleur de fond, j'également veut qu'elle déduise 10% du total d'une boîte à textes, puis une fois cliqué, change la couleur en arrière et réapplique le 10%. ….  Le code est jusqu'ici :

si percent10.BackColor = Color.LightGray Then
percent10.BackColor = discountlabel de Color.Red
. Texte =
de « 10% " lbltotal. Texte = format (Val (lbltotal. ) Des textes/10, « 0.00 »)
Else

percent10.BackColor = discountlabel de Color.LightGray
.
des textes = de "" lbltotal. Texte = format (Val (lbltotal. Le texte) * 0.1, « 0.00 ») extrémité If

This du
donne quelques résultats étranges cependant et je ne peux pas établir où je vais mal.  Est-ce que n'importe qui peut aider ?

Thanks class= de

Réponse : soustraire 10% de la boîte à textes

n'est pas un escompte de 10% ce que vous obtenez quand vous vous divisez par 10.  Plutôt un escompte de 10% est la valeur originale MINUS10%of qui valeur originale

Escompte = 0.1* OriginalValue
DiscountedValue = OriginalValue - escompte

puis, pour obtenir le dos de valeur originale encore, vous ajouteriez l'escompte au DiscountedValue :

OriginalValue = DiscountedValue + escompte