Graph Animasi Lampu dengan Free Pascal

membuat graph dengan free pascal.
pada kesempatan ini, saya ingin berbagi tentang membuat graph di free pascal. graph disini animasi lampu disco dan lampu natal.
belajar pascal itu menyenangkan loh... ahahahah....... :D
silahkan ketik coding dibawah ini di free pascal dan lihat hasinya.

program lampu;
uses crt,graph;
var
d,m,radius : integer;
begin
clrscr;
d:= detect;
initgraph(d,m,
'');

rectangle(1000,700,0,0);
line(1000,300,830,300);
line(0,0,250,70);
line(830,300,250,300);
line(250,300,0,450);
line(250,300,250,70);
line(250,70,1000,70);
line(550,0,550,30);
circle(550,40,10);

{untuk kaki kursi}
line(400,200,550,200);
line(400,325,400,335);
line(550,200,550,275);
line(405,325,405,335);
line(550,275,575,303);
line(400,335,405,335);
line(575,303,575,325);
line(575,325,375,325);
line(550,325,550,335);
line(375,325,375,303);
line(555,325,555,335);
line(375,303,400,275);
line(550,335,555,335);
line(400,275,400,200);
line(575,303,375,303); setcolor(white);
line(550,275,400,275);
setfillstyle(3,white);

floodfill(430,205,white);
line(400,225,550,225);
floodfill(380,305,white);
line(400,250,550,250);
setfillstyle(9,white);
line(425,200,425,275);
floodfill(545,280,white);
line(450,200,450,275);
line(475,200,475,275);
line(500,200,500,275);
line(525,200,525,275);

{pohon natal}

line(825,150,800,175);
line(825,150,850,175);
line(800,175,810,175);
line(850,175,840,175);
line(810,175,775,200);
line(840,175,875,200);
line(775,200,800,200);
line(875,200,850,200);
line(800,200,750,225);
line(850,200,900,225);
line(750,225,795,225);
line(900,225,870,225);
line(795,225,725,250);
line(870,225,925,250);
line(725,250,765,250);
line(925,250,895,250);
line(765,250,700,275);
line(895,250,950,275);
line(748,275,675,300);
line(910,275,975,300);
line(675,300,975,300);
{warna pohon}
setcolor(white);
setfillstyle(9,green);
floodfill(820,180,white);
{batang pohon}
line(827,300,827,325);
line(810,300,810,325);
line(827,325,810,325);
{kaki pohon natal}
line(790,315,810,315);
line(826,315,855,315);
line(855,315,840,340);
line(840,340,775,340);
line(775,340,790,315);
setfillstyle(7,white);
floodfill(800,320,white);
{pintu}
line(130,375,130,200);
line(130,200,50,225);
line(50,225,50,423);
line(130,375,50,423);
circle(115,280,3);
circle(115,300,3);
line(115,280,115,300);
{warna pintu}
setcolor(white);
setfillstyle(9,white);
floodfill(125,370,white);
{warna dinding}
setcolor(white);
setfillstyle(3,blue);
floodfill(990,290,white);
setcolor(white);
setfillstyle(9,white);
floodfill(900,5,white);
setcolor(white);
setfillstyle(3,blue);
floodfill(5,5,white);
{lampu belajar}
{kaki lampu}
line(480,440,495,420);
line(485,400,475,380);
line(445,420,425,440);
line(425,440,480,440);
{batang lampu}
line(470,430,485,400);
line(485,400,475,380);
line(465,430,480,400);
line(480,400,470,385);
line(470,430,465,430);
{batok}
line(475,380,475,370);
line(475,370,455,355);
line(455,355,455,395);
line(455,395,470,385);
ellipse(455,375,90,270,15,20);
{lampu meja}
circle(450,375,5);
setcolor(yellow);
setfillstyle(9,yellow);
floodfill(450,375,white);
setcolor(white);
{buku}
line(348,440,390,420);
line(380,440,420,420);
line(322,440,360,420);
ellipse(365,440,180,0,14,5);
ellipse(337,440,180,0,14,5);
ellipse(375,420,180,0,14,5);
ellipse(405,420,180,0,14,5);
{meja}
line(550,525,550,410);
line(550,410,320,410);
line(320,410,250,450);
line(250,450,250,575);
line(250,575,350,575);
line(350,575,400,550);
line(400,550,400,540);
line(400,540,400,450);
line(350,575,350,450);
line(250,450,500,575);
line(500,450,500,575);
line(500,575,550,525);
line(500,450,550,410);
setcolor(green);
setfillstyle(9,blue);
floodfill(540,520,white);
floodfill(350,425,white);
{laci}
rectangle(260,460,340,495);
circle(300,475,5);
rectangle(260,510,340,570);
circle(325,525,3);
circle(325,550,3);
line(325,525,325,550);
{lampu pohon natal}
circle(825,175,5);
circle(815,200,5);
circle(835,200,5);
circle(800,225,5);
circle(825,225,5);
circle(850,225,5);
circle(780,250,5);
circle(810,250,5);
circle(840,250,5);
circle(870,250,5);
circle(755,275,5);
circle(780,275,5);
circle(810,275,5);
circle(840,275,5);
circle(870,275,5);
circle(900,275,5);
{lampu disco}
line(550,0,550,30);
circle(550,40,10);
repeat
setcolor(random(10));
for
radius:= 1 to 20 do
circle(550,40,radius*3);
{lampu natal}
for
radius := 1 to 5 do
circle(825,175,radius*1);
for
radius:= 1 to 5 do
circle(815,200,radius*1);
for
radius:= 1 to 5 do
circle(835,200,radius*1);
for
radius:= 1 to 5 do
circle(800,225,radius*1);
for
radius:= 1 to 5 do
circle(825,225,radius*1);
for
radius := 1 to 5 do
circle(850,225,radius*1);
for
radius:= 1 to 5 do
circle(780,250,radius*1);
for
radius:= 1 to 5 do
circle(810,250,radius*1);
for
radius:= 1 to 5 do
circle(840,250,radius*1);
for
radius:= 1 to 5 do
circle(870,250,radius*1);
for
radius:= 1 to 5 do
circle(755,275,radius*1);
for
radius:= 1 to 5 do
circle(780,275,radius*1);
for
radius:= 1 to 5 do
circle(810,275,radius*1);
for
radius:= 1 to 5 do
circle(840,275,radius*1);
for
radius:= 1 to 5 do
circle(870,275,radius*1);
for
radius:= 1 to 5 do
circle(900,275,radius*1);
until keypressed;
readln;
end.

semangat ya....

Read More

ALG-Mencetak Karakter dengan C++

C++ adalah bahasa pemrograman tingkat tinggi yang digunakan untuk berbagai tujuan pemrograman. pengoperasiannya sebenarnya mudah saja jika kita mengerti coding dasarnya. mulai dari variabel, tipe data, sampai pengoperasian lainnya. kali ini saya akan membagikan suatu cara untuk mencetak nama di C++.  disini saya menggunakan nama saya sebagai hasil dari coding. jika teman-teman ingin mencetak nama sendiri, silahkan rubah saja codingnya.
berikut codinnya..

Read More

Khasiat Gula Sabu

Khasiat unik Gula Sabu ...

Tidak semua orang di daerah lain di luar NTT tahu dan mengerti apa itu Gula Sabu ..

Aku pernah search lewat Google dengan kata kunci Gula Sabu dan hasilnya minim sekali , yang muncul di hasil searching malah Sabu-sabu. lucu memang Gula Sabu bukan jenis psikotropika khan ..

Gula Sabu merupakan panganan khas Pulau Sabu yang sangat unik dan bermanfaat . Kenapa begitu ?

Read More