contoh animasi sederhana, asli karya saya.
moga bermanfaat yah...
[animasi lampu dalam ruangan]
uses crt, graph; Nama : Maryanti agustina B.Sondak
var NPM :11 411 116
d,m,radius:integer; [FREEPASCAL]
begin
clrscr;
d:=detect;
initgraph(d,m,'');
rectangle(1000,700,0,0);
{dinding}
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);
{kursi} {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} {P.Natal kanan}
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(700,275,748,275); line(950,275,910,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 natal}
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(495,420,445,420);
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}
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,450);
line(500,450,500,575);
line(500,575,550,525);
line(500,450,550,410);
setcolor(blue);
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.
[output]

»» READMORE...
moga bermanfaat yah...
[animasi lampu dalam ruangan]
uses crt, graph; Nama : Maryanti agustina B.Sondak
var NPM :11 411 116
d,m,radius:integer; [FREEPASCAL]
begin
clrscr;
d:=detect;
initgraph(d,m,'');
rectangle(1000,700,0,0);
{dinding}
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);
{kursi} {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} {P.Natal kanan}
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(700,275,748,275); line(950,275,910,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 natal}
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(495,420,445,420);
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}
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,450);
line(500,450,500,575);
line(500,575,550,525);
line(500,450,550,410);
setcolor(blue);
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.
[output]
terefleksikan dan dideteksi oleh
fotosensor yang kemudian dikonversi menjadi data digital.


jarak.Bila
head bersentuhan dengan metal penyimpan, hal ini akan menyebabkan kerusakan
permanen fisik, head yang aus, tentu saja panas akibat gesekan. Apalagi
teknologi sekarang kecepatan putar harddisk sudah sangat cepat. Selain itu
teknologi head harddiskpun juga mengalami evolusi. Evolusi head
baca/tulis harddisk : Ferrite head, Metal-In-Gap (MIG) head, Thin Film (TF)
Head, (Anisotropic) Magnetoresistive (MR/AMR) Heads, Giant Magnetoresistive
(GMR) Heads dan sekarang yang digunakan adalah Colossal Magnetoresistive (CMR)
Heads. Ferrite head, merupakan teknologi head yang paling kuno, terbuat dari
inti besi yang berbentuk huruf U dan dibungkus oleh lilitan elektromagnetis.
Teknologi ini diimplementasikan pada pertengahan tahun 1980 pada harddisk Seagate
ST-251. Kebanyakan terdapat pada harddisk yang ukurannya kurang dari 50MB.
Metal-In-Gap (MIG), merupakan penyempurnaan dari head Ferrite. Biasanya
digunakan pada harddisk yang ukurannya 50MB sampai dengan 100MB. Thin Film (TF)
heads, berbeda jauh dengan jenis head sebelumnya. Head ini dibuat dengan proses
photolothografi seperti yang digunakan pada pembuatan prosessor.
(Anisotropic) Magnetoresistive (MR/AMR) Heads, head ini digunakan untuk
membaca saja. Untuk penulisannya digunakan head jenis Thin Film. Diimplementasikan
pada harddisk ukuran 1GB sampai dengan 30GB. Giant Magnetoresistive (GMR)
Heads, merupakan penemuan dari peneliti Eropa Peter Gruenberg and Albert Fert.
Digunakan pada harddisk ukuran besar seperti 75GB dan kerapatan tinggi sekitar
10 Gbits/in2 sampai dengan 15 Gbits/in2.
Gbr.
Kartu plong
dengan Recordable DVD, dan memiliki 6
macam versi, yaitu :

sangat mahal karena menggunakan teknologi
tinggi.
