PureBasic

Bonjour,

j'essaye un truc simple avec des pointeurs, mais j'arrive a rien.

Voici le code que je teste :

test.l = 5

Procedure rajoute_deux(*valeur)
  *valeur += 2
EndProcedure

rajoute_deux(@test)

Debug test

Ce que j’espérais naïvement, c'est :
- ma valeur test est a 5
- je lance la procédure rajoute_deux avec l'adresse mémoire de test
- je rajoute 2 a la valeur du pointeur
- en ressortant, test a pour valeur 7 et plus 5

.

Problème, test reste a 5.

Comment je fais pour avoir ma valeur test a 7 (le passage par pointeur me permettrait de réduire une procedure de 100 lignes a 30).

comme ça

Code : Tout sélectionner

test.l = 5

Procedure rajoute_deux(*valeur.long)
  *valeur\l + 2
EndProcedure

rajoute_deux(@test)

Debug test

ou

Code : Tout sélectionner

test.l = 5

Procedure rajoute_deux(*valeur)
  PokeL(*valeur, PeekL(*valeur) + 2)
EndProcedure

rajoute_deux(@test)

Debug test

*valeur\l + 2

On en apprend tout les jours ...

Merci

moi qui cherchait bêtement avec les * ou @.

Merci énormément.

supercdfr a écrit :moi qui cherchait bêtement avec les * ou @.

Merci énormément.

oui ça marche aussi

... c'est plus scolaire ...

Code : Tout sélectionner

Declare  rajoute_deux(variable_adress.i)

test.i = 5
rajoute_deux(@test) ; ici on passe l'adresse de la variable "test.i"
Debug test

; ******* zone procedure *******************
Procedure rajoute_deux(variable_adress.i)
	valeur.i=peekl(variable_adress.i) ; recupere la valeur (le contenu) de la variable test.l, et la met dans la variable locale "valeur.i"
	pokei(variable_adress.i, valeur.i+ 2) ; pose la nouvelle valeur (valeur+2) a l'adresse passé en parametre (donc dans la varable "test.i")
EndProcedure
; EPB

PureBasic

[RESOLU] procedure et pointeurs, aie aie aie

[RESOLU] procedure et pointeurs, aie aie aie

Re: procedure et pointeurs, aie aie aie

procedure et pointeurs, aie aie aie

Re: procedure et pointeurs, aie aie aie

Re: procedure et pointeurs, aie aie aie