calcul dans textbox [VB6]

Question

bonjour &#224; tous
j'ai fait se code pour calculer,ne vous moquez pas,car je crois qu'il y plus court ,mais je ne suis pas assez cal&#233;  .En plus j'ai 11 textbox.
mon probleme,c'est quand je rentre une valeur dans Text1(0) et que je passe sur Text1(1) pour rentrer une valeur,j'ai dans Text3,
Text4,Text6,Text7 le chiffre 1 qui s'affiche , je ne voit pas pourquoi,auriez vous une id&#233;e 
A part LostFocus il y a une autre facon d'avoir le r&#233;sultat en temps r&#233;el sans changer de focus
Private Sub Text1_LostFocus(Index As Integer)
If Val(Text1(0).Text) > Val(Text1(1).Text) Then
Text5.Text = 3
Text3.Text = ""
Text4.Text = ""
Else
If Val(Text1(0).Text) = Val(Text1(1).Text) Then
Text5.Text = 1
Else
Text5.Text = 0


End If
End If
If Val(Text1(1).Text) > Val(Text1(0).Text) Then
Text2.Text = 3
Else
If Val(Text1(1).Text) = Val(Text1(0).Text) Then
Text2.Text = 1
Else
Text2.Text = 0
End If
End If
If Val(Text1(2).Text) > Val(Text1(3).Text) Then
Text3.Text = 3
Else
If Val(Text1(2).Text) = Val(Text1(3).Text) Then
Text3.Text = 1
Else
Text3.Text = 0
End If
End If
If Val(Text1(3).Text) > Val(Text1(2).Text) Then
Text4.Text = 3
Else
If Val(Text1(3).Text) = Val(Text1(2).Text) Then
Text4.Text = 1
Else
Text4.Text = 0
End If
End If
If Val(Text1(4).Text) > Val(Text1(5).Text) Then
Text6.Text = 3
Else
If Val(Text1(4).Text) = Val(Text1(5).Text) Then
Text6.Text = 1
Else
Text6.Text = 0
End If
End If
If Val(Text1(5).Text) > Val(Text1(4).Text) Then
Text7.Text = 3
Else
If Val(Text1(5).Text) = Val(Text1(4).Text) Then
Text7.Text = 1
Else
Text7.Text = 0
End If
End If
End Sub

merci 
@ plus
petchy

NHenry · Answer

L'&#233;venement "change" des textbox peut-&#234;tre utilis&#233;.

Sinon, conseil : met des noms explicites &#224; tes controles.

&#224; la place de Vla utilise cint ou clng

Si tu utilise souvent tes valeurs, met les dans des variables.



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

PCPT · Answer

salut,
je viens d'indenter ton code pour r&#233;ussir au moins &#224; le lire....

bah ouai, tu lui demandes de passer toutes les valeurs &#224; 1, alors il le fait ;)
tout ce code pour quoi? en quoi peut-on t'aider?

PCPT

cs_petchy · Answer

bonjour &#224; vous deux
merci NH, je crois que je vais d&#233;group&#233; tous mes textbox.Car &#231;a fonctionne comme &#231;a
PCPT en fait je me fais un programme pour le mondial 2006 ,bah oui je mis prends longtemps &#224; l'avance car vu mon niveau .
Se code sert &#224; compt&#233; les matchs gagn&#233;s,nul et perdu et comme il y a 8 groupe de 4 &#233;quipes + les quarts les demi et la finale,j'ai du boulot 
petchy

PCPT · Answer

1998 + 4 = 2002 .....
2002 + 4 =2006 ....
oui, il parle sans doute de foot 

d&#233;sol&#233;, c'est pas mon truc. mais si tu as envie d'expliquer plus clairement et que tu as besoin d'aide, n'h&#233;site pas 
++
PCPT

cs_petchy · Answer

et oui c'est du Foot,D&#233;sol&#233; 
j'ai encore une question :
je r&#233;cupere le total des points dans 4 textbox 1 par &#233;quipe et 4 labels (le nom des &#233;quipes)
comment fait on pour afficher du genre "classement" du 1er au dernier,l'&#233;quipe qui &#224; plus de point  le second  le troisieme et le quatrieme,tous &#231;a dans 4 labels diff&#233;rents.
je ne c'est pas si tous &#231;a est bien clair,sinon d&#233;sol&#233;
merci
petchy

PCPT · Answer

expliqu&#233; comme &#231;&#224;, attaque-toi directement &#224; 2010 ou 2014

nan, je crois avoir compris...
tu peux tr&#232;s bien faire un tableau de Type (NomEquipe, PointsDernierMatch, TotalPoints) un truc du genre....
et ensuite, tu tries le tableau par ordre de points totaux et affiche les noms des 4 premi&#232;res &#233;quipes.

PCPT

Calcul dans textbox [VB6]

6 réponses

Discussions similaires