Problème avec certains nombres.

Question

Bonjour, je suis en train de faire un petit jeu avec un banque.
Dans cette banque on peut verser de l'argent.
Je peux ajouter de l'argent MAIS il y a certains nombres que je ne peux pas mettre dans la textbox.

CODE :

If Form1.Label2.Caption < Text1.Text Then
MsgBox "Vous ne pouvez pas placer un montant superieur à votre argent actuel !", vbInformation, "Argent"
Else
If Text1.Text = "" Then
MsgBox "Entrez une valeur dans la case corespondante !", vbInformation, "Valeur Incorrecte"
Else
Form4.Label5.Caption = Val(Form4.Label5.Caption) - Val(Text1.Text)
Label4.Caption = Val(Label4.Caption) + Val(Text1.Text)
MsgBox "Vous venez de placer " & Text1.Text & " dans votre banque", vbInformation, "Argent placé"
End If
End If

Les valeurs que je ne peux pas ajouter sont celles qui se terminent par un 0 
ex : 10,20,30,40,50,100 .... etc

Merci d'avance pour vos réponses

cs_Jack · Answer

Salut
"que je ne peux pas ajouter" : qui t'en empêche ?
Tu ne nous dis même pas ce qui se passe, ni ce que contiennent tes variables, Label et autre TextBox au moment du problème ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Cataclymse · Answer

Oui je me suis peut être mal exprimé :
Quand je met par exemple 50 dans la textbox1 ça fait comme ci je n'avais pas assez d'argent !
Cette partie du code est prise en compte :

If Form1.Label2.Caption < Text1.Text Then 
MsgBox "Vous ne pouvez pas placer un montant superieur à votre argent actuel !", vbInformation, "Argent" 

Il m'affiche cette msgbox quand j'essaye d'ajouter certains nombres. Alors que j'ai bien assez d'argent pour le placer.

Cataclymse · Answer

Excusez moi pour le double post mais :
Form1.label2.caption c'est l'argent que je possède.
Label4.caption c'est l'argent que j'ai dans ma banque.
form4.label5.caption c'est l'accumulation de tout mes achats et qui me re calcule mon argent.
J'espère que ça vous sera utile.

cs_Jack · Answer

Ok
Cela peut venir du fait que, dans ta condition, tu compares deux textes et nom deux chiffres.
Par exemple, sous forme de texte, "200" est inférieur à "90" (le 2 est bien avant le 9)
Il te suffit donc de bien convertir :
If Val(Form1.Label2.Caption) < Val(Text1.Text) Then
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Cataclymse · Answer

Ohh... Merci j'avais même pas vu mon erreur.
Une petite erreur de rien du tout mais fais chercher pas mal de temps 
Mais merci ça fonctionne maintenant.

Problème avec certains nombres.

5 réponses

Votre réponse

Discussions similaires