folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Türk Bayrağı Çizelimm



Türk Bayrağı Çizelimm

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Reges
    Reges's avatar
    Kayıt Tarihi: 22/Haziran/2003
    Erkek
    Grafik ortamla Şanlı Bayrağımız....

    Uses Crt,Graph;
    Var
    a,b:integer;
    Begin
    a:=Detect;
    Initgraph(a,b,"");
    setcolor(REd);
    Setfillstyle(1,4);
    Rectangle(100,80,510,340);
    Floodfill(102,82,Red);
    Setcolor(White);
    Setfillstyle(1,White);
    Circle(240,210,99);
    Floodfill(190,210,White);
    Setcolor(red);
    Setfillstyle(1,Red);
    Circle(270,210,80);
    Floodfill(270,210,Red);
    Setcolor(White);
    setfillstyle(1,White);
    Line(420,160,380,260);
    Line(420,160,460,260);
    Line(460,260,360,200);
    Line(380,260,480,200);
    Line(360,200,480,200);
    Floodfill(430,203,White);
    Floodfill(430,240,White);
    Floodfill(400,240,White);
    Floodfill(422,167,White);
    Floodfill(450,205,White);
    Floodfill(380,205,White);
    Setcolor(red);
    Setfillstyle(1,red);
    Circle(40,40,25);
    Circle(60,40,25);
    Line(17,50,50,95);
    Line(50,95,83,50);
    Floodfill(40,40,Red);
    Floodfill(25,40,Red);
    Floodfill(75,40,Red);
    Floodfill(50,70,Red);
    setcolor(White);
    settextstyle(0,0,1);
    Outtextxy(30,34,"I LOVE");
    Outtextxy(26,48,"TÜRK0YE");
    Setcolor(red);
    Circle(560,40,25);
    Circle( 5 8 0,40,25);
    Line(537,50,570,95);
    Line(570,95,604,50);
    Floodfill(560,40,Red);
    Floodfill(545,40,Red);
    Floodfill(595,40,Red);
    Floodfill(570,70,Red);
    setcolor(White);
    Outtextxy(550,34,"I LOVE");
    Outtextxy(546,48,"TÜRKiYE");
    Setcolor(red);
    Circle(40,370,25);
    Circle(60,370,25);
    Line(17,380,50,417);
    Line(50,417,83,380);
    Floodfill(40,370,Red);
    Floodfill(26,350,Red);
    Floodfill(75,370,Red);
    Floodfill(50,400,Red);
    Setcolor(White);
    Outtextxy(30,360,"I LOVE ");
    Outtextxy(26,374,"TÜRK0YE");
    Setcolor(red);
    Circle(560,370,25);
    Circle(580,370,25);
    Line(537,380,570,417);
    Line(570,417,603,380);
    Floodfill(560,380,Red);
    Floodfill(545,380,Red);
    Floodfill(595,380,Red);
    Floodfill(570,400,Red);
    Setcolor(White);
    Outtextxy(550,360,"I LOVE");
    Outtextxy(546,376,"TÜRKiYE");
    settextstyle(0,0,2);
    Outtextxy(130,20,"NE MUTLU TÜRKÜM DİYENE");
    Settextstyle(0,0,2);
    Outtextxy(290,50,"M.Kemal ATATÜRK");
    SettextStyle(1,0,2);
    Outtextxy(230,400,"Coder By ReGeS ");
    Readln;
    end.

    - Bilginin Adresinden TurkCom.Org -
Toplam Hit: 2061 Toplam Mesaj: 1