[Visual Basic] Fonctions
lgu
-
lgu -
lgu -
Je voudrais, en visual basic, faire une fonction qui retourne plusieurs nombre (2 en l'occurence). J'ai donc fait de cette manière (qui ne marche pas :o( ) :
1°/ ma fonction :
Public funtion Ma_fonction () as integer()
dim mon_tableau (0 to 1) as integer
(...)
Ma_fonction = mon_tableau
2°/ L'appel :
dim tab_resultat (0 to 1) as integer
(...)
tab_resultat = Ma_fonction()
Si c'est normal que ça ne marche pas : quelle solution puis-je avoir pour récupérer mes deux entiers de ma_fonction ?
Merci...
1°/ ma fonction :
Public funtion Ma_fonction () as integer()
dim mon_tableau (0 to 1) as integer
(...)
Ma_fonction = mon_tableau
2°/ L'appel :
dim tab_resultat (0 to 1) as integer
(...)
tab_resultat = Ma_fonction()
Si c'est normal que ça ne marche pas : quelle solution puis-je avoir pour récupérer mes deux entiers de ma_fonction ?
Merci...
2 réponses
-
salut ! il faut faire une procédure...
' Definition de la procédure
Public Sub Ma_fonction (Nombre1 As Integer, Nombre2 As Integer)
(....)
Nombre1 = ....
Nombre2 = ....
End Sub
' Appel de la procédure
dim Nb1 as Integer
dim Nb2 as Integer
Call Ma_fonction (Nb1, Nb2)
' et là Nb1 et Nb2 vont prendre les valeur calculée dans ta procédure
si ça marche pas essaie de déclarer ta procédure comme ça :
Public Sub Ma_fonction (ByVal Nombre1 As Integer, ByVal Nombre2 As Integer) -
