Re: Pointer auf Variable in Procedure
Verfasst: 21.02.2010 22:19
Hallo,
danke Kaeru Gaman und alle anderen, das war genau dass was ich gesucht habe.
Das Resultat:
Die Variable "trans" wird durch die Procedure von 1-255 hoch und runter gezählt.
(Beispiel - kein lauffähiger Code!)
Frage : wurde die Procedure auch mit Float-Typ funktionieren ?
Dater
---
Anmerkung von Moderator Andesdaf
Codetags eingefügt. Bitte die entsprechenden Knöppe benutzen
---
danke Kaeru Gaman und alle anderen, das war genau dass was ich gesucht habe.
Das Resultat:
Die Variable "trans" wird durch die Procedure von 1-255 hoch und runter gezählt.
(Beispiel - kein lauffähiger Code!)
Code: Alles auswählen
Define trans=0,trans_as=1
Procedure.l addsub_l(*var.Long,*i.long,start,ende)
If *var\l >= ende : *i\l=Abs(*i\l)-Abs(*i\l)-Abs(*i\l) : EndIf
If *var\l <= start : *i\l=Abs(*i\l) : EndIf
*var\l + *i\l
ProcedureReturn *var\l
EndProcedure
;Transparenz-Wert wird von 0-255 hoch und runter gezählt.
Start3D()
DisplaySprite3D(1, 100, 100,addsub_l(@trans,@trans_as,1,255))
; ...
Stop3D()Dater
---
Anmerkung von Moderator Andesdaf
Codetags eingefügt. Bitte die entsprechenden Knöppe benutzen
---