Comptage aide

marty14 Messages postés 104 Date d'inscription lundi 21 août 2006 Statut Membre Dernière intervention 29 mai 2011 - 26 août 2008 à 13:32
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 26 août 2008 à 15:08
Bonjours,
 je cherche a compter le nombre de fois que mon label va m'afficher une valeur ex: 12, voici mon code
mais ca ne marche pas.
dans mon timer:

Dim i, c
For i = 1 To Len(LABEL)If Mid$(label, i, 1) "12" Then c c + 1
Next

Par avance merci

4 réponses

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
26 août 2008 à 14:15
Salut,
Tu devrais peu être regarder l'aide sur la fonction Mid.

Mid$(label, i, 1) ne prend QU'UN SEUL caracetere donc il ne pourras JAMAIS etre égal à "12" !!!!

@+: Ju£i€n
Pensez: Réponse acceptée
0
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
26 août 2008 à 14:16
RE,
Oups j'ai oublier l'exemple.

Essaie peu être ceci.

Dim i As Integer
Dim c As Integer
   For i = 1 To Len(Label)       If Mid$(Label, i, 2) "12" Then c c + 1
   Next
, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée
0
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
26 août 2008 à 15:03
Salut,

On peut, peut-être aussi le faire avec : Instr

Lol Jrivet(salut), cela ne te ressemble pas de ne pas préciser la propriété à laquelle tu fait appel pour le Label ^^ ...Lol...

A+
Exploreur

 Linux a un noyau, Windows un pépin
0
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
26 août 2008 à 15:08
Re,
euh... méa culpa, j'ai du taf et je n'ai pas penser...mais tu as raison de le rappeler. SI Label est label, il faut préciser sa propriété .Caption (une bonne habitude à prendre)

@+: Ju£i€n
Pensez: Réponse acceptée
0
Rejoignez-nous