If x = 1 and x = 2

[NicTheQuick]

Bei cxAlex kommt aber statt 1 und 2 auch noch 0 vor. Das macht in dem Fall zwar nichts,
aber ein einfacher 1-2-Umschalter ist es damit nicht.

[cxAlex]

Code: Alles auswählen

Procedure Setter(*x.Integer)
  Repeat
    *x\i = *x\i%2+1
  ForEver
EndProcedure

CreateThread(@Setter(), @x)

Repeat
  If x = 1 And x = 2
    MessageRequester("!!!", "WTF")
  EndIf
ForEver

Jetzt ist es PERFEKT! Mit Modulo .

[Kaeru Gaman]

das hat mich doch jetzt glatt gereitzt, mit dem "glide" etwas mehr zu machen...

Code: Alles auswählen

For n=0 To 39
  x = ( x+1 ) % 8 +1
  Debug x
Next

biddeschön, die einstelligen natürlichen geraden zahlen...

[ZeHa]

Ich haette der Einfachheit halber das genommen:

Code: Alles auswählen

If i = 1
    i = 2
Else
    i = 1
EndIf

[Kiffi]

Ich haette der Einfachheit halber das genommen:

Code: Alles auswählen

If i = 1
    i = 2
Else
    i = 1
EndIf

Grüße ... Kiffi

[Kaeru Gaman]

ach, ihr wollt es einfach statt stylisch?

Code: Alles auswählen

  Repeat
    For n= 1 to 2
      *x\i = n
    Next
  ForEver 

[Kiffi]

ach, ihr wollt es einfach statt stylisch? [...]

ist mir auch noch immer zu kompliziert. Der Code von ZeHa passt schon.

Grüße ... Kiffi

[Kurzer]

WTF!

Boah, seid ihr alle krank!

[Falko]

Man hätte noch einfacher swappen können

Code: Alles auswählen

A=1
B=2
For i= 1 To 10
  Swap A,B
  Debug A
Next i

[KeauHou]

Ihr habt lange weile