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