yukarıdan aşağıya kayan kod ( matrix )

[command]

matrix benzeri yukarıdan aşağıya kayan ascii karekterler

Kod Seç Genişlet



program matris(input,output);

uses crt;

var
x,y,i,say:integer;

procedure uret;
begin
randomize;
x:=random(80);
y:=random(16);
if x=0 then x:=x+1;
end;

procedure sayi;
begin
randomize;
i:=random(255);
if (i=10) or (i=13) then i:=i+1;
end;

procedure sil;
var bos:integer;
begin
for bos:=1 to 9 do
begin
gotoxy(x+1,y+bos);
delay(15);
write(' ');
end;
end;

begin
cursoroff;
highvideo;
textmode(256);
repeat
uret;
for say:=1 to 9 do
begin
gotoxy(x,y+say);
delay(15);
sayi;
if odd(i)=true then textcolor(lightgreen) else textcolor(green);
//if say=9 then textcolor(8);
write(chr(i));
end;
sil;
until keypressed;
cursoron;
gotoxy(1,25);
readkey;
normvideo;
halt(0);
end.


[IMG]http://www.mypicshare.com/thumbs/20100225/e62rw9or.jpg[/img]

[Sherlock Holmes]

Paylaşım için sağol...............