PureBoard

Verfasst: **14.07.2009 16:35**

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.

Verfasst: **14.07.2009 16:38**

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

.

Verfasst: **14.07.2009 16:47**

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...

Verfasst: **14.07.2009 16:53**

Ich haette der Einfachheit halber das genommen:

Code: Alles auswählen

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

Verfasst: **14.07.2009 16:54**

ZeHa hat geschrieben:Ich haette der Einfachheit halber das genommen:
Code: Alles auswählen
If i = 1
    i = 2
Else
    i = 1
EndIf

Grüße ... Kiffi

Verfasst: **14.07.2009 17:13**

ach, ihr wollt es einfach statt stylisch?

Code: Alles auswählen

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

Verfasst: **14.07.2009 17:27**

Kaeru Gaman hat geschrieben:ach, ihr wollt es einfach statt stylisch? [...]

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

Grüße ... Kiffi

Verfasst: **14.07.2009 17:29**

WTF!

Boah, seid ihr alle krank!

Verfasst: **14.07.2009 18:01**

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

Verfasst: **14.07.2009 18:32**

Ihr habt lange weile

PureBoard

If x = 1 and x = 2