- 18 Ara 2007
- 273
- 9
kod:
alıntıdır denemedim!!!
Not :Yalnız tam denemedim.Bir sorun olrusa bana ulasın
uses graph,crt;
var
i,a,k,x1,x2,y1,y2,x,y,gd,gm:integer; h,v,g,p:word;
msg:array[1..10] of string;
begin
detectgraph(gd,gm);
initgraph(gd,gm,");
graphdefaults;
setlinestyle(0,1,3);
x:=350;y:=100;
msg[1]:='HERSEY VATAN ICIN';
MSG[2]:='NE MUTLU TURKUM DIYENE';
repeat
repeat
x:=i;
line(104+x,30+y{},{}120+x,80+y);
line(120+x,80+y{},{}180+x,80+y);
line(180+x,80+y{},{}132+x,112+y);
line(132+x,112+y{},{}150+x,165+y);
line(150+x,165+y{},{}104+x,132+y);
line(104+x,132+y{},{}55+x,165+y);
line(55+x,165+y{},{}72+x,112+y);
line(72+x,112+y{},{}30+x,80+y);
line(30+x,80+y{},{}85+x,80+y);
line(85+x,80+y{},{}104+x,30+y);
arc(0+x-100,100+y,40,320,190);
arc(70+x-100,100+y,60,300,145);
floodfill(-200+x,150+y,white);
floodfill(104+x,y+50,white);
setbkcolor(red);
settextstyle(10,0,3);
i:=i+10;
outtextxy(x-325,420,'COPYRIGHT (C) BY KAMIL YESIL');
if i>getmaxx+250 then begin i:=-300; a:=a+1;end;
delay(10);
if i=350 then delay(1000);
cleardevice;
until a=2;
a:=0;i:=-100;
repeat
i:=i+10;
outtextxy(i,50,msg[a]);
if i=100 then delay(1000);
DELAY(20); cleardevice;
if i>getmaxx+250 then begin i:=-300; a:=a+1;end;
until a=3;
a:=0
until keypressed;
readln;
closegraph;
end.
var
i,a,k,x1,x2,y1,y2,x,y,gd,gm:integer; h,v,g,p:word;
msg:array[1..10] of string;
begin
detectgraph(gd,gm);
initgraph(gd,gm,");
graphdefaults;
setlinestyle(0,1,3);
x:=350;y:=100;
msg[1]:='HERSEY VATAN ICIN';
MSG[2]:='NE MUTLU TURKUM DIYENE';
repeat
repeat
x:=i;
line(104+x,30+y{},{}120+x,80+y);
line(120+x,80+y{},{}180+x,80+y);
line(180+x,80+y{},{}132+x,112+y);
line(132+x,112+y{},{}150+x,165+y);
line(150+x,165+y{},{}104+x,132+y);
line(104+x,132+y{},{}55+x,165+y);
line(55+x,165+y{},{}72+x,112+y);
line(72+x,112+y{},{}30+x,80+y);
line(30+x,80+y{},{}85+x,80+y);
line(85+x,80+y{},{}104+x,30+y);
arc(0+x-100,100+y,40,320,190);
arc(70+x-100,100+y,60,300,145);
floodfill(-200+x,150+y,white);
floodfill(104+x,y+50,white);
setbkcolor(red);
settextstyle(10,0,3);
i:=i+10;
outtextxy(x-325,420,'COPYRIGHT (C) BY KAMIL YESIL');
if i>getmaxx+250 then begin i:=-300; a:=a+1;end;
delay(10);
if i=350 then delay(1000);
cleardevice;
until a=2;
a:=0;i:=-100;
repeat
i:=i+10;
outtextxy(i,50,msg[a]);
if i=100 then delay(1000);
DELAY(20); cleardevice;
if i>getmaxx+250 then begin i:=-300; a:=a+1;end;
until a=3;
a:=0
until keypressed;
readln;
closegraph;
end.
alıntıdır denemedim!!!
Not :Yalnız tam denemedim.Bir sorun olrusa bana ulasın
Son düzenleme: