Variable von der Prozedure übergeben

[RSBasic]

@D@nte
Ist aber sehr schlecht in einer Wiederholschleife: xyz = abc()
PS: Spiel (Hauptschleife) + Prozedure

\\Edit:

...xyz = abc()

Denn, dann kann man den Wert von X nicht menr ändern, weils sowieso in 101 geändert wird.

[Andreas_S]

Wie wärs mit Global x?

[a14xerus]

RSBasic wollte einen wert in einer procedure ändern und in der main wieder weiter benutzen
Sollte die Procedure mehrere Werte veränder sollte man Pointer übergeben und die Procedure ändert die Werte direkt im Speicher
Soll nur ein Wert geändert werden ist es doch ganz einfach:

Code: Alles auswählen

Procedure.l erhoehe(wert.l)
  wert+1
  ProcedureReturn wert
Endprocedure
x = 5
debug x
x = erhoehe(x)
debug x
; oder auch:
debug "---"
x = 5
for i = 1 to 5
  x = erhoehe(x)
  debug x
next

[PureBasic4.0]

@a14xerus: Wieso einfach, wenns umständlich geht? . Du hast hier wieder die einfachste Methode genommen und wir sind alle nicht darauf gekommen

[Andreas_S]

Und so?

Code: Alles auswählen

Procedure Add1ToVal(*Val.Long)
 *Val\l+1
EndProcedure


a=0
Debug a
Add1ToVal(@a)
Debug a

[a14xerus]

Das ist die von mir erwähnte Pointervariante
Nur nützlich, wenn mehrere Werte geändert werden sollen.
Oder andersherum, wenn du zb einem Thread mehrere Werte übergeben willst (strukture)
Immer wenn du mehrer Werte irgendwohin übergeben willst aber nur ein Wert "zugelassen" ist, ist das Arbeiten mit Pointern zu structuren am besten (IMHO)

[RSBasic]

@a14xerus
Danke für dein Code, das war sehr hilfreich
Also das Problem besteht immernoch

Code: Alles auswählen

...
x = 5 
Debug x 
x = erhoehe(x) 
Debug x 
; oder auch:
...

Also vor der Prozedure und nach "---" ist mir klar.
Aber ich weis nicht wo ich es hin machen soll, diesen Teil-Code, was ich siehe oben gepostet hab.
Weil ich muss in der Wiederholschleife hinschreiben, aber dann macht es keinen Sinn.

[PureBasic4.0]

Warum machst du es nicht einfach so?:

Code: Alles auswählen

Global x.l
Procedure ErhoeheX()
  x + 1
EndProcedure

x = 5
Debug x
ErhoeheX()
Debug x

[a14xerus]

weil das unschön ist

[ts-soft]

Wenn Du in einer Procedure bist, wird nur der dortige Code ausgeführt, bis
ProcedureReturn folgt oder die Procedure zu ende ist. Die andere Schleife
wartet solange . Mit Threads kann man das umgehen, aber dann
kannste auch nicht gleichzeitig auf dieselben variablen zugreifen, sondern
mußt die sperren. Also irgendo haste einen grossen Denkfehler.