j'arrive pas à faire compter VB !?Résolu

Question

bonjour &#224; tout le monde,

je suis sur un petit programme qui doit g&#233;n&#233;rer et/ou r&#233;soudre des grilles de Sudoku.
j'ai 81 label case0(index). je souhaiterai compter le nombre de chiffre total &#224; savoir le nombre de 1 / 2 / 3 / ... / 9 sur l'ensemble des labels, mais je n'y arrive pas, le nombre doit s'afficher dans un textbox chiffre(index) (0 &#224; 8)

Dim nombre As Integer 'nombre de fois le m&#234;me chiffre
For v = 0 To 80 'index de 0 &#224; 80 case0(index)
For u = 1 To 9 'valeur de la case de 1 &#224; 9
If case0(v).Caption = u Then 'si la case cliquer &#233;gal &#224; une valeur de 1 &#224; 9
nombre = nombre + 1 '+1 nombre total de m&#234;me chiffre
chiffre(u - 1).Text = nombre 'textbox chiffre(u-1) index&#233; 0 &#224; 8 affiche le total
End If
Next u
Next v

qu'est ce qui  n'est pas bon ?

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

Gobillot · Accepted Answer

ReDim temp(9) As Integer

    

    For v = 0 To 80

        u = Val(case0(v).Caption)

        temp(u) = temp(u) + 1

        Next v

        

    For u = 0 To 8

        chiffre(u).Text = temp(u + 1)

        Next u


Daniel

econs · Answer

Dim nombre As Integer 'nombre de fois le m&#234;me chiffre
For v = 0 To 80 'index de 0 &#224; 80 case0(index)
For u = 1 To 9 'valeur de la case de 1 &#224; 9
If case0(v).Caption = u Then 'si la case cliquer &#233;gal &#224; une valeur de 1 &#224; 9
chiffre(u - 1).Text = Cstr(Val(chiffre(u - 1).Text)+1) 'textbox chiffre(u-1) index&#233; 0 &#224; 8 affiche le total
End If
Next u
Next v

la variable nombre
&#233;tait commune &#224; TOUS les nombres, du coup, tu comptais le nombre total
de chiffres dans ta grille, et pas le nmobre de 1 ou de 2 ...




Manu

cs_Acolyte · Answer

ca a chang&#233; un peu mais il y a un probl&#232;me quelque par le textbox chiffre affiche pas le nombre de 1 / 2 / 3 / ... / 8 / 9 mais d'autre chiffre il arrive vite &#224; 300, j'ai pas totu compris l&#224; ?

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

cs_Acolyte · Answer

merci beaucoup beaucoup beaucoup...

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

amezghal · Answer

il faut utiliser la fonction val parceque le contenu du label ou bien de textbox est de type String,ce qui ne marche pas

J'arrive pas à faire compter VB !?

5 réponses

Discussions similaires