[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...
A voir également:
- [Visual Basic] Fonctions
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
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)
' 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)
