lass mal den Code sehen
lass mal den Code sehen
Code:Dim X As Integer Dim Y As Integer Dim I As Integer Dim J As Integer Dim K As Integer Dim L As Integer Dim M As Integer Dim Durchmesser As Integer X = 0 Y = 0 Durchmesser = 2 Print "X: " ; X ; "Y: " ; Y Incr Y Print "X: " ; X ; "Y: " ; Y While I < 3 While J < 3 Incr X Print "X: " ; X ; "Y: " ; Y Incr J Wend While K < 3 Decr Y Print "X: " ; X ; "Y: " ; Y Incr K Wend While L < 3 Decr X Print "X: " ; X ; "Y: " ; Y Incr L Wend While M < 3 Incr M Print "X: " ; X ; "Y: " ; Y Incr M Wend Incr I Durchmesser = Durchmesser + 2 Wend
also bei mir läuft es einwandfrei.... die zeichen bleiben im simulator stehen....
gruss bluesmash
Meine Homepage:
www.bluesmash.roboterbastler.de
Meinst du damit , daß jede Zeile eine Vorschub erzeugt ?
Um das zu unterdrücken, mußt du jede deiner Printbefehle mit Semicolon ( abgeschlossen sein.
mfg robert
Wer glaubt zu wissen, muß wissen, er glaubt.
Danke für eure Hilfe. Also den Vorschub meinte ich nicht. Wenn ich im Simulator auf das "Run"-Icon klicke, werden alle Zahlen der Reihe nach wie mit der Schreibmaschine "getippt". Sobald das Programm durchlaufen wurde, ist aber alles wieder weg.
Lesezeichen