FunctionRésolu

Question

Bonjour, j'ai cr&#233;e une minifonction. Seulement, je voudrais quelle retourne une variable au module qui l'appelle... Comment faire?

La fonction :

Public Function Lecture()
   Dim vLectureLPT As Integer 'Valeur retourn&#233;e par le port LPT
   
   If vPortLPT = True Then 'Choisir le port LPT &#224; utiliser
      vLectureLPT = Inp(STATEPORT + LPT1) 'Lire la valeur du port LPT1
   Else
      vLectureLPT = Inp(STATEPORT + LPT2) 'Lire la valeur du port LPT2
   End If
   
   vLectureLPT = (vLectureLPT & 120) / 8  'Masquer car tous les bits ne son pas utilis&#233;s
   
End Function

En C, C++, j'aurais mis "return vLectureLPT "

Mais comment le faire en VB?

Merci!

Bonne journ&#233;e!

econs · Accepted Answer

Salut,
 
 En rouge : une petite correction pour indiquer le type retourn&#233;.
 En bleu, la ligne qui renvoit la valeur (comme un return).





Public Function Lecture() As Integer
   Dim vLectureLPT As Integer 'Valeur retourn&#233;e par le port LPT
   
   If vPortLPT =  True Then 'Choisir le port LPT &#224; utiliser
      vLectureLPT = Inp(STATEPORT + LPT1) 'Lire la valeur du port LPT1
   Else
      vLectureLPT = Inp(STATEPORT + LPT2) 'Lire la valeur du port LPT2
   End If
   
   vLectureLPT = (vLectureLPT & 120) / 8  'Masquer car tous les bits ne son pas utilis&#233;s
   

    Lecture = vLectureLPT
End Function

 Manu 
<hr size ="2" width="100%">Avant de poster un message, n'oubliez pas de consulter le r&#232;glement. 
Pensez &#233;galement &#224; valider une r&#233;ponse quand celle-ci vous convient. 
Attention ! R&#233;ponse valid&#233;e = Question qui ne sera probablement plus visit&#233;e.

Function

1 réponse

Discussions similaires