Top 10

Question

Voila, je fais un travail d'info et je dois faire un jeu questionnaire, et je voudrais mettre un Top 10 des meilleur score, et le tout loadé d'un fichier TXT mais je ne suis vraiment pas capable. Jje ne connais pas encore tout c'est code, j'ai esseyer avec des IF mais ca men prendrai des centaines et des centaines! SVP aidé moa!

Gobillot · Answer

Dim fichier      As String
    Dim Ligne    As String
    Dim Score()  As Integer
    Dim Table()  As Integer
    Dim i        As Integer
    Dim j        As Integer
    Dim k        As Integer
    Dim x        As Integer
    Dim nb       As Integer
    
    fichier = "C:\...\FichierInfo.txt"
    
'chargement des données
    Open fichier For Input As #1
         While Not EOF(1)
           Line Input #1, Ligne
           nb = nb + 1
           ReDim Preserve Table(nb)
'mettre position et longueur de la donnée 
           Table(nb) = Val(Mid$(Ligne, position,longeur))
           Wend
    Close #1
    
'initialisation de la table des scores à zéro
    ReDim Score(10)
'on parcourt la table
    For i = 1 To nb
        x = Table(i)
'pour chaque valeur comparaison avec la table ses scores
        For j = 1 To 10
'si une valeur est plus grande, on décale la table des scores
If x > Score(j) Then     For k 9 To j Step -1: Score(k + 1) Score(k): Next
     Score(j) = x
     Exit For
     End If
            Next j
        Next i


Daniel

hardcore32 · Answer

Daccord merci, mais moi j'ai deux information a rentré, NAME et SCORE. Alors si j'ai compris ton code je dois faire deux "table" comme tu l'as appellé, mais je ne sais pas comment prendre cette information et la rentré dans mes label si je pouvais avoir un example s'il vous plait  :shy)  je suis pas super bon dans les fichier désoler :S!

Si quelqu'un voudrais bien me l'expliquer en profondeur
[mailto:punk_metal_666@hotmail.com punk_metal_666@hotmail.com]
Et je vous enverrais mes form pour que vous me comprenniez plus, merci !

Top 10

2 réponses

Discussions similaires