PureBasic

Bonjour tout le monde,

J'ai un problème avec les Procedures, je m'explique. Je declare ma Procedure, jusque la tout va bien. Quand je fais appel a ma procedure il faudrais que les variables *MaxBits.l, *Minbits.l donne le resultat au variable de l'appel de la fontion. En gros voila un exemple.

Code : Tout sélectionner

Procedure.l Create_Codes(Array tree.CodesType(1), Array Lenghts.l(1), NumCodes.l, *MaxBits.l, *Minbits.l)
;
*MaxBits = 10
*Minbits = 1

EndProcedure

Create_Codes(tree.CodesType(),Lenghts.l(1),MaxLLenght, MinLLenght) 

; MaxLLenght = 0 devrait etre 10
; MinLLenght = 0 devrait etre 1

Merci d'avance de votre aide,
GallyHC

Sans avoir testé peut être

Code : Tout sélectionner

Global *MaxBits.l, *Minbits.l

Procedure.l Create_Codes(Array tree.CodesType(1), Array Lenghts.l(1), NumCodes.l, *MaxBits, *Minbits) 
  ; 
  *MaxBits = 10 
  *Minbits = 1 
  
  ProcedureReturn  *MaxBits
  ProcedureReturn  *Minbits
EndProcedure

Bonjour,

J'avais deja testé cela, mais j'ai constate que la fonction est quitter des le premier "ProcedureReturn" et je ne sais pas comment je peux faire alors.

Cordialement,
GallyHC

Code : Tout sélectionner

Procedure.l Create_Codes(Array tree.CodesType(1), Array Lenghts.l(1), NumCodes.l, *MaxBits.long, *Minbits.long)
;
*MaxBits\l = 10
*Minbits\l = 1

EndProcedure

Create_Codes(tree.CodesType(),Lenghts.l(1),@MaxLLenght, @MinLLenght)

; MaxLLenght =  10
; MinLLenght =  1

BOnjour nico,

Merci c'est bien ce que je recherche a faire.

Amitié,
GallyHC

Y'a le mot "Shared" aussi...

PureBasic

Recuperation de variable dans une procedure.

Recuperation de variable dans une procedure.

Re: Recuperation de variable dans une procedure.

Re: Recuperation de variable dans une procedure.

Re: Recuperation de variable dans une procedure.

Re: Recuperation de variable dans une procedure.

Re: Recuperation de variable dans une procedure.