PureBoard

Verfasst: **15.09.2013 14:50**

Hi Leute,

kurze und sicher auch idiotische Frage

Ich will eine Prozedur die nur das macht:

Global myInt.i
INC(myInt, 1)

dachte mir, da brauchst wohl Pointer also:

Procedure INC(*var, value)
  *var = *var+value
EndProcedure

Tja, aber geht halt nicht

Ich will den Wert auf keinen Fall "returnen" müssen!

PLS Help

Verfasst: **15.09.2013 14:54**

Procedure INC(*var.Integer, value)
  *var\i + value
EndProcedure

Define a.i
a = 100
INC(@a, 50)
Debug a

Verfasst: **15.09.2013 15:01**

Dank dir, ich war so nah dran

Oder gehts auch anders das ich keine Pointer brauch? Aber ohne Return?

Verfasst: **15.09.2013 15:06**

Naja, es geht auch mehr Basic-Like:

Procedure INC(*var, value)
  PokeI(*var, PeekI(*var) + value)
EndProcedure

Define a.i
a = 100
INC(@a, 50)
Debug a

aber ohne Pointer wohl eher nicht.

Verfasst: **15.09.2013 15:18**

Und es geht auch mehr ASM-like

a=20
inc a       ; einfaches +1...

add a,19    ;...oder einfache addition...oder sub....oder dec...usw.

debug a

In den Compiler-Optionen-> ASM-Unterstützung einschalten

Verfasst: **15.09.2013 19:54**

Es geht auch einfacher

EnableExplicit


Global.i var1


Procedure Rechner(zahl.i)
  var1 = var1 + zahl
EndProcedure


Rechner(3)
Debug var1
End

Funktioniert natürlich nur mit einer GLOBALEN Variable, da diese programmweit benutzt werden kann (Except: Protected,...).

Verfasst: **15.09.2013 20:02**

Warum überhaupt eine Procedure verwenden?
In diesem Fall reicht doch wirklich ein Makro:

Macro INC( variable, value=1 )
	variable + value
EndMacro

Warum überhaupt ein Makro oder eine Procedure?

  variable + value

Verfasst: **15.09.2013 20:15**

Die ASM-Version ist gut

Auch dir DANKE!

Pointer in Prozeduren