Fionction qui retourne un tableau ou 2 variables ? possible ou non ?

cs_jiojio Messages postés 20 Date d'inscription vendredi 15 août 2003 Statut Membre Dernière intervention 4 juin 2006 - 4 juin 2006 à 16:28
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 5 juin 2006 à 01:54
Salut , je fais un programme avec des procédures et des fonctions et je voudrais savoir s'il est possible de retourner un tableau dans une fonction ? ou encore 2 varaibles passées en paramètres ?

Voilà ma procédure que je voudrais transformer en fonction :
Celle-ci par dans un fichier texte pour faire des stats

Public Sub CalculStats()
Public TabStats(1 To 49) As Integer
'on initialise le tableau à 0
For i = 1 To 49
TabStats(i) = 0
Next


Open "archives.txt" For Input As #1


Do
' on lit les lignes une par une
Input #1, Bo.Bdate, Bo.Bheure, Bo.Bnb1, Bo.Bnb2, Bo.Bnb3, Bo.Bnb4, Bo.Bnb5, Bo.Bnb6, Bo.Bnb7
  For p = 1 To 49 ' Le nombre de boules
     ' Si un numéro correspond à une boule du fichier alors...     If p Bo.Bnb1 Or p Bo.Bnb2 Or p = Bo.Bnb3 Or p = Bo.Bnb4 Or p = Bo.Bnb5 Or p = Bo.Bnb6 Or p = Bo.Bnb7 Then
     ' le tableau prend + 1
     TabStats(p) = TabStats(p) + 1
     End If
  Next


Loop Until EOF(1)
Close #1
End Sub

2 réponses

AnteManoclis Messages postés 154 Date d'inscription jeudi 22 mai 2003 Statut Membre Dernière intervention 6 septembre 2007
4 juin 2006 à 20:59
Salut;

Un truc de ce genre devrait fonctionner

Public Sub CalculStats(ByRef Tableau() as Integer)
ReDim Tableau(1 To 49)

Tchô AnteManoclis
0
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
5 juin 2006 à 01:54
salut,
pour coller exactement avec ta question :

Public Function CalculStats() As Integer() 
    Dim TabStats(1 To 49) As Integer 
    Dim i As Integer 
    'on initialise le tableau à 0
    For i =  1 To 49 
        TabStats(i) = 0 
    Next i 

    Open "archives.txt" For Input As #1 
        Do 
        ' on lit les lignes une par une
        Input #1, Bo.Bdate, Bo.Bheure, Bo.Bnb1, Bo.Bnb2, Bo.Bnb3, Bo.Bnb4, Bo.Bnb5, Bo.Bnb6, Bo.Bnb7 
        For p = 1 To 49  ' Le nombre de boules
           ' Si un numéro correspond à une boule du fichier alors...
            If p = Bo.Bnb1 Or p = Bo.Bnb2 Or p = Bo.Bnb3 Or p = Bo.Bnb4 Or p = Bo.Bnb5 Or p = Bo.Bnb6 Or p = Bo.Bnb7 Then 
                ' le tableau prend + 1
                TabStats(p) = TabStats(p) + 1 
            End If 
        Next p 
        '
        Loop Until  EOF (1) 
    Close #1 
    '
    'retour
    CalculStats  = TabStats 
    Erase TabStats 
End Function

<small> Coloration
syntaxique automatique [AFCK]</small>
       

mais je ne vois pas pour autant ce que tu entends par "tableau ou 2 variables"

++
PCPT  [AFCK]
0
Rejoignez-nous