Discussion :

[telodo]

Bonsoir,


Je vous contact ce soir suite a un probleme lors d'un calcul. J'ai vraiment besoin d'aide, je sais que l'erreure ne doit pas etre complique mais je suis un parfait debutant. Et je bloque vraiment, pas faute de chercher et tester.

Mon programme ce compose de 2 TextBox. L'utilisateur doit entrer des valeures a l'interieure de celles-ci. Lorsqu'il clique sur le bouton calculer, le programme effectue une division du TextBox1 et TextBox 2. Si l'utilisateur n'a entre aucune valeure, alors un message s'affiche pour lui signaler que le programme ne peut aps faire l'operation.

Tous le code se situe dans le bouton "Calculer". Voici ce code facile de comprehension :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Command14_Click()
 
Tapis$ = Text1.Text
Relance$ = Text2.Text
Rien$ = ""
 
If Tapis$ = Rien$ And Relance$ = Rien$ Then
Label2.Caption = "Vous devez saisir la taille de votre tapis et celle de la relance !"
Else
Rapport$ = Tapis$ / Relance$
End If
 
If Rapport$ > 4 Then
Label2.Caption = "Vous devez vous mettre All-In avec : AA, KK, QQ, JJ, AK"
ElseIf Rapport$ < 2.5 Then
Label2.Caption = "Vous devez vous mettre All-In avec : AA, KK, QQ, JJ, TT, 99, 88, 77, AK, AQ, AJ, KQ"
Else
Label2.Caption = "Vous devez vous mettre All-In avec : AA, KK, QQ, JJ, TT, AK, AQ"
End If
 
End Sub

De plus, pour eviter que l'utilisateur ne s'amuse a taper des lettres dans les TextBox prevues pour des chiffres j'ai ajoute cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If Not Chr(KeyAscii) Like "[0123456789.]" Then KeyAscii = 0
 
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
 
If Not Chr(KeyAscii) Like "[0123456789.]" Then KeyAscii = 0
 
End Sub

Lorsque l'utilisateur entre des valeurs dans TextBox1 et TextBox2, le programme fait bien ses calculs et affiche le resultat. Cependant lorsque l'utilisateur n'entre aucunes valeurs et qu'il clique sur "Calculer" , alors le resultat s'affiche mais un bug surviens "Run-Time Error 13" et le DEBBUG m'affiche en jaune la ligne "If Rapport$ > 4 Then" comme etant un probleme.



En esperant que vous pourrez tres vite me venir en aide, je vous souhaite une agreable nuit et une bonne programmation !

A tres bientot !

[rv26t]

Bonjour,

Ton test doit comparer des numériques.

Pour tester si les deux chaines ne sont pas vide il faut un "OR".

Tu as un troisième point à prendre en compte : Val(Relance$) doit être différent de 0.

En plus si tu as une erreur de saisie (chaine vide ou relance=0), il ne faut pas faire la suite des calculs et des comparaisons.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Tapis$ = Text1.Text
Relance$ = Text2.Text
Rien$ = ""
 
If Tapis$ = Rien$ Or Relance$ = Rien$ Then ' aucun ne doit être vide
  Label2.Caption = "Vous devez saisir la taille de votre tapis et celle de la relance !"
Else
 If val(Relance$) <> 0 Then
  'plus d'erreur de saisie, on peut traiter les info
  'Rapport$ = Tapis$ / Relance$ ' fonctionne mais à éviter
  Rapport$ = val(Tapis$) / val(Relance$) 
  If Val(Rapport$) > 4 Then ' d'ailleur là ça ne fonctionnait plus, maintenant ok 
    Label2.Caption = "Vous devez vous mettre All-In avec : AA, KK, QQ, JJ, AK"
  ElseIf Val(Rapport$) < 2.5 Then
    Label2.Caption = "Vous devez vous mettre All-In avec : AA, KK, QQ, JJ, TT, 99, 88, 77, AK, AQ, AJ, KQ"
  Else
    Label2.Caption = "Vous devez vous mettre All-In avec : AA, KK, QQ, JJ, TT, AK, AQ"
  End If
 Else
    Label2.Caption = "La relance ne doit pas être = à 0 !"
 End If
End If

Tu pourrais aussi procéder autrement : tester directement tes textbox (voir si vide) et utiliser des variables numériques pour tes affectations et calculs.

A+, Hervé.

[telodo]

Oh ! Merci beaucoup Herve ! Maintenant tout fonctionne a merveille !

Pour le val("x") j'avais fait des testes, mais je l'utilisais mal. Maintenant, avec le code source que vous m'avez fournis je comprends tout le sens de cette fonction. Maintenant tout est plus clair !

Et surtout gros merci pour l'heure a laquelle j'ai eu la reponse, je pensais que je devrais attendre demain !

Merci encore !