Pascal-Countdown

Computer: Software & Programmierung Delphi & Pascal
#1

Hi,
ich hab in TurboPascal ein Programm geschrieben und will da jetzt einen Countdown einbauen.
Dass hab ich auch bloss dass Problem is:
ER fängt für jede Zahl ne neue Zeile an!
Das sieht dann so aus:

Loading 10
Loading 9
Loading 8
…
aber ich möchte dass es so aussieht:

Loading (dann die Zahl)
und zwar dass zb. die Zahl 8 die Zahl 9 einfach überschreibt und nicht jedes mal eine neue Zele anfängt!!
MfG
Wolf

PS: ’ Hab ein kleines Rechenprog. geschrieben wer es haben möchte einfach hier eintragen.’

#2

Hi!

Machs mal so:

y := wherey;
i := 11;
repeat
dec(i);
gotoxy(1,y);
write('Loading: ',i);
delay(1000);
until i = 0;

MFG, Volker

#3

Hi Wolf,

ich würde vorschlagen, dass du nach jedem Loading… den Bildschirm löscht.
So sieht es dann aus, als würde sich nur die Zahl verändern.

Sascha

#4

var px,py:Integer;

write('Loading: ');
px := WhereX;
py := WhereY;

i := 11;
repeat
dec(i);
GotoXY(px,py);
Write(i)+’ ';
delay(1000);
until i = 0;

Gruß
jo