Forum: Programmieren allgemein
by devnull,
3. Dez 2003
Ich weis nich, ob das jetzt hier noch aktuell is;
falls ja, ich habe eigentlich nur deinen source übernommen und umgeformt ...
du solltest vor der repeat-Schleife noch f := 0; setzen.
devnull :cheers:
Forum: Programmieren allgemein
by devnull,
30. Nov 2003
Schreib so den Code so:
clrscr;
for i:=1 to 80-f do begin
gotoxy(i,y);
textcolor (white);
write('*');
delay (75);
textcolor (black);
Forum: Programmieren allgemein
by devnull,
30. Nov 2003
Frage: Sicher das das so mit Delphi geht ??????
Das sieht nach borland pascal aus ...
clrscr; gotoxy
Forum: Programmieren allgemein
by devnull,
30. Nov 2003
Könnte man das nicht einfach so realisieren, dass man die Position des Zeichens
> wenn man nach rechts geht X := X + 5; (in Pixel)
> " " " links geht X := X - 5;
nach oben und unten dann genauso, nur das hier halt x := 0; ist ...
Die Anzahl der Verschiebungen ist ja dann eigentlich belieb.