[*]Profan

Klaus
Müller

In XProfan entspricht das: WhileLoop N1[,N2[,N3]] ... EndWhile
Ich bin mir nur nicht sicher obs das erst ab Version 11 gab.
Ansonsten sollte der XPSE die sicher enthalten.
Gruß Thomas

Nachtrag: Ich durfte mir gerade sagen lassen, das es WhileLoop schon weit länger gibt

9 oder 8

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

07.12.2009 ▲

Jörg
Sellmeyer

WhileLoop gibt es, laut Hilfe, seit 7.0/7.5.

Außerdem steht dort:

Das ist die XProfan-Version der traditionelle FOR-NEXT-Schleife. Allerdings ist eine Verschachtelung von mehreren Schleifen etwas anders zu realisieren, vor allen Dingen wenn auf die Laufvariablen der Schleifen zugegriffen werden muss.

Gibt es nur einen Parameter, wird die Schleife genau um die hinter WhileLoop angegebene Zahl durchlaufen:
Kompilieren Markieren Separieren

WhileLoop 10

    Print "X"

EndWhile

Hier zum Vergleich die klassische For-Next-Schleife in BASIC:
Kompilieren Markieren Separieren

For i = 1 To 10
Print "X"
Next

Es wird 10 mal das "X" ausgegeben. Für den Fall, dass der Schleifenindex benötigt wird, befindet sich dieser in &Loop. Außerhalb einer Schleife ist &Loop undefiniert und innerhalb einer anderen While-Schleife hat &Loop den aktuellen Wert des hinter While bzw. WhileNot stehenden Ausdrucks, also in den meisten Fällen 1. Innerhalb einer Repeat-Until-Schleife ist &Loop undefiniert.

Ich glaube daher nicht, daß Du noch einen Thread aufmachen mußt: [...]

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

07.12.2009 ▲

Oliver
Schmidt

Hallo
Wie kann ich mit Whileloop eine 1 mal 1 Tabelle darstzellen ?

MfG
Oliver Schmidt

Kompilieren Markieren Separieren

Christian
Schneider

WhileLoop 1

    Print "Zelle "+str$(&loop)

Endwhile

Waitkey

Denke allerdings nicht das wir das Gleiche meinen. Tabelle 1x1 wäre eine Zelle. Dazu brauchts eigentlich kein WhileLoop.

XProfan 11| Vista(64) SP2

Kompilieren Markieren Separieren

declare x&,y&
cls

whileLoop 10

    y&=&loop

    whileLoop 10

        x&=&loop
        setpixel x&,y&,0

    wend

wend

waitinput

Christian
Schneider

@IF: Musst mir mal verraten wo du deine Kristallkugel gekauft hast

XProfan 11| Vista(64) SP2

Nix gekauft, gefleißt. -.-

Oliver
Schmidt

Ich glaube,ihr habt mir nicht richtig verstanden.

[offtopic]Ich glaube eher, Du hast Dich nicht richtig ausgedrückt. Du meinst eine Einmaleins-Tabelle:
Sorry!!! Hab hier versehentlich was gelöscht!!
Jörg[/offtopic]

Achso:
Kompilieren Markieren Separieren

Gemerkt/Separiert von http://xprofan.com/thread.core?t=7965
declare x&,y&
cls

whileLoop 10

    y&=&loop

    whileLoop 10

        x&=&loop
        setpixel x&,y&,0

    wend

wend

waitinput

Oliver
Schmidt

Hallo
Nach deinem Code kommt sowas raus,guck anchang:
aber kein ein mal eins
MfG
Oliver Schmidt

1mal1.jpg	13 kB

Hochgeladen:	08.12.2009

Ladeanzahl:
		Herunterladen