Classement des boules de lotto pour statisque _ problème lors de l'affichage ? Résolu

Question

Voil&#224;, j'ai une base de donn&#233;es contenant des num&#233;ros de lotto, et j'aimerai savoir combien de fois chaque boule est sortie...
Voici le code que j'ai &#233;cris, le probl&#232;me est que lors de l'affichage, j'ai des z&#233;ro partout du au RAZ, mais aucun classement.

Voici le code : 

    stFichier = (App.Path & "\Lotto.dat")
    
    Open stFichier For Input As #1
    
        num_fiche_stat = 0
        
        Do While Not EOF(1)
            num_fiche_stat = num_fiche_stat + 1
            Line Input #1, tabl1(num_fiche_stat, 6)               => de 6  &#224; 12 = 7 boules (6 boules + 1 compl)  ==> 1 combinaison
            Line Input #1, tabl1(num_fiche_stat, 7)
            Line Input #1, tabl1(num_fiche_stat, 8)
            Line Input #1, tabl1(num_fiche_stat, 9)
            Line Input #1, tabl1(num_fiche_stat, 10)
            Line Input #1, tabl1(num_fiche_stat, 11)
            Line Input #1, tabl1(num_fiche_stat, 12)
        Loop
        Close #1
       
       
        
        tot_fiches_stat = num_fiche_stat
        num_fiche_stat = 1


        ' RAZ des labels
        For i = 0 To 41                           D'ou 42 boules 
        lblBoules(i).Caption = "0"            RAZ des lblBoules
        Next i



        For i = num_fiche_stat To tot_fiches_stat         De la premi&#232;re fiche &#224; la derni&#232;re            For j 6 To j 12                                      Chaque combinaison de boule => 7 boules (6+1compl)
            K(j) = tabl1(i, j) - 1                                     -1 car les lblBoules commence &#224; z&#233;ro (index)            lblBoules(K(j)).Caption lblBoules(K(j)).Caption + 1        +1 comptabilisation des boules
            Next j
        Next i

Donc voil&#224;, je ne sais pas o&#249; j'ai fais une erreur. Donc il m'affiche des z&#233;ros dans toutes les lblboules(i).

Merci d'avance pour votre aide.

Luca62

Gobillot · Accepted Answer

le type Variant est &#224; &#233;viter, tu n'as pas les erreurs tout de suite mais tu les as plus tard



tu fait un Dim au niveau g&#233;n&#233;ral sans taille d&#233;finie ou en public dans
un module pour pouvoir l'utiliser dans des Formes diff&#233;rentes.

Dim (ou Public) Tabl1() As Integer



ensuite dans la Form-Load de d&#233;part tu donnes la taille du tableau puisque tu la connais et quelle est fixe:



Redim Tabl1(72, 12)




Daniel

Zlub · Answer

Salut,

&#231;a serait pas un probleme de Refresh ?

T'as trac&#233; avec debug.print les valeurs des captions ?



ou alors t'as une faille dans ton tableau ... &#224; priori non, vu que t'as le fichier pour v&#233;rifier ..

++

Zlub

cs_CanisLupus · Answer

Salut, et si tu essayais 
For j = 6 To 12
plut&#244;t queFor j 6 To j 12

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_drahcir · Answer

Salut,

essaye ce que dis CaniLupus, car si tu mets 2 fois "j=" dans ta boucle, ton prog la parcours 2 fois, puis il sort...

@+

luca62 · Answer

C'est plut&#244;t bizarre, quand je retire le J, j'ai ce message d'erreur : "subscript out of range".

Cependant, j'ai modifi&#233;, un peut le code : 

For i = num_fiche_stat To tot_fiches_stat
            For j = 6 To 12
            K(i, j) = tabl1(i, j) - 1
            lblBoules(K(i, j)).Caption = lblBoules(K(i, j)).Caption + 1                              Car le k(i,j), y a une valeur pour chaque i et charque k
            'lblBoules(tabl1(i, j) - 1).Caption = lblBoules(tabl1(i, j) - 1).Caption + 1
            Next j
        Next i

Et par hasard, comment vous auriez d&#233;clar&#233; le k(i,j) ?? Autrement je comprend pas ?? Par contre j'ai pas compris le truc de refresh, car je suis dans la form load, et donc il devrait de tout fa&#231;on indiquer quelque chose non ?

Merci d'avance....

Luca62.

Gobillot · Answer

si tu veux des interm&#233;diaires il faut prendre des variables simples

d'autre pat dans la boucle For j 6 To j 12 comme j=6 il est jamais &#233;gal &#224; 12

donc j = 12 est False donc z&#233;ro donc la boucle ne se fait pas.



Dim k1 As Integer

Dim k2 As Integer



For i = num_fiche_stat To tot_fiches_stat
       For j = 6 To 12

            k1 = tabl1(i, j) - 1

            k2 = lblBoules(k1).Caption 


            lblBoules(k1)).Caption = k2 + 1

         Next j
      Next i

Daniel

luca62 · Answer

Ca semble un peu plus logique comme &#231;a mais j'ai un type mismatch pour la ligne  k1 = tabl1(i, j) - 1 ?

C'est bien quand il sais pas lire toute les donn&#233;es &#231;a ? 

Par hasard, y aurait-il pas quelqu'un qui pourrais me donner un lien sur ce que veux dire exactement tout les messages d'erreurs ?

Merci.

Luca62.

Gobillot · Answer

et en quoi est d&#233;fini tabl1() ?



Erreur n&#176;13 : Type incompatible

si tu as les messages en anglais, installe VB6FR.dll ils seront en fran&#231;ais mais seulement en compil&#233;




Daniel

luca62 · Answer

Je ne l'ai pas d&#233;fini, c'est un tableau, pour les autres frm, &#231;a fonctionne. Lors de l'ouverture du fichier, je range les diff&#233;rentes valeurs dans tabl1()

Do While Not EOF(1)
            num_fiche_stat = num_fiche_stat + 1
            Line Input #1, tabl1(num_fiche_stat, 6)               => de 6  &#224; 12 = 7 boules (6 boules + 1 compl)  ==> 1 combinaison
            Line Input #1, tabl1(num_fiche_stat, 7)
            Line Input #1, tabl1(num_fiche_stat, 8)
            Line Input #1, tabl1(num_fiche_stat, 9)
            Line Input #1, tabl1(num_fiche_stat, 10)
            Line Input #1, tabl1(num_fiche_stat, 11)
            Line Input #1, tabl1(num_fiche_stat, 12)
        Loop

Gobillot · Answer

vaut mieux d&#233;finir tes variables,

parce que tabl1() &#224; &#233;t&#233; pris en Variant contenant un tableau de string (type=8204)

ce qui peut g&#233;ner pour faire des calculs et entra&#238;ne cette erreur type mismatch



' ce sont des exemples

Dim tabl1() As Integer

Redim tabl1(1 to 72, 6 to 12)

Redim Preserve tabl1(num_fiche_stat , 12)

etc ...




Daniel

luca62 · Answer

J'ai essayer pas mal de ces d&#233;finitions dont : 

dim tabl1() as integer
dim tabl1() as string
Les autres il ne les accepte pas ?

Et ensuite, j'ai des erreurs soit subcript out of range ou type mismatch et dans la proc&#233;dure d'ouverture :          Do While Not EOF(1)
                                                                                                                                                                     num_fiche_stat = num_fiche_stat + 1
                                                                                                                                                                     Line Input #1, tabl1(num_fiche_stat, 6)

Et quand je ne le d&#233;clare pas, j'ai pas d'erreur dedans .... Et pourquoi le faite qu'il soit variant engendre des erreurs ?

luca62 · Answer

Je me demandais si le probl&#232;me venais pas du fait que je n'ouvrais pas tout le fichier j'ai selement ouvrer du 6 &#224; 12 : 

            Line Input #1, tabl1(num_fiche_stat, 6) 
            Line Input #1, tabl1(num_fiche_stat, 7)
            Line Input #1, tabl1(num_fiche_stat, 8)
            Line Input #1, tabl1(num_fiche_stat, 9)
            Line Input #1, tabl1(num_fiche_stat, 10)
            Line Input #1, tabl1(num_fiche_stat, 11)
            Line Input #1, tabl1(num_fiche_stat, 12)

Et que je n'ouvre pas ceux de 1 &#224; 5 ??

Alors, je m'&#233;tais bien tromp&#233;, j'avais bien d&#233;clarer tabl1 comme &#231;a dans un module : public tabl1 (5000,12)

alors, j'ai refais comme tu m'as montr&#233;, donc, public tabl1() as integer dans le module et dans la forme en question, ReDim Tabl1(5000, 12)

Mais il me met le message d'erreur suivant : invalid outside procedure en me selectionnant le ReDim Tabl1(5000, 12) ??

J'ai aussi r&#233;ouvert tout le fichier  :      stFichier = (App.Path & "\Lotto.dat")
    
                                                       Open stFichier For Input As #1

Merci d'avance pour ton aide...

Luca62.

luca62 · Answer

Ha ok, j'y suis arriv&#233; !! Tu avais bien entendu raison, c'est bien un probl&#232;me de d&#233;claration je suppose....

Donc, j'ai d&#233;clar&#233; dans le module  : Public Tabl1() et dans la forme :  Dim Tabl1(5000, 13)

Car j'en avais oubli&#233; un (pas 12, 13) .... puis j'ai ouvert le fichier en totalit&#233; donc de 1 &#224; 13 ....

Voil&#224;, j'avance petit &#224; petit dans ce petit programme .... enfin, c'est de l'amusement et on aprend aussi petit &#224; petit....

Voil&#224;, un tout grand merci &#224; toi Gobillot !!


Luca62.

Gobillot · Answer

n'oublie pas de mettre un Type;



'dans le module

Public Tabl1() As Integer   ' ou Long, etc ...



'et ensuite un Redim au lieu d'un Dim



'dans la Forme

Redim Tabl1 (5000,13)


Daniel

luca62 · Answer

Voil&#224;, quand je met le re, j'ai le message d'erreur suivant &#224; l'ouverture de la feuille : invalid outside procedure

J'ai eu &#233;galement un petit probl&#232;me en fesant quelque modications cette apr&#232;s midi. Pour toujours le m&#234;me code : 

        For i = num_fiche_stat To tot_fiches_stat
           For j = 6 To 12
                k1 = Tabl1(i, j) - 1
                k2 = lblBoules(k1).Caption                  pour cette phrase j'ai le message d'erreur suivant : control array element '66' does not exist ???
                lblBoules(k1).Caption = k2 + 1
           Next j
        Next i

Merci d'avance.

Luca62

luca62 · Answer

J'ai r&#233;solut le probl&#232;me en rouge au dessus (b&#234;te b&#234;te ....)

Mais j'ai toujours celui du Re du Redim ? avec le message d'erreur suivant :  invalid outside procedure ???

Voil&#224;, je ne sais pas d'ou &#231;a peux venir ? est ce que &#231;a ne veux pas dire qu'il ne sais pas passer aux diff&#233;rentes formes ??

Merci. Luca62.

Classement des boules de lotto pour statisque _ problème lors de l'affichage ?

16 réponses

Discussions similaires