Make your own free website on Tripod.com

Grafik dan Animasi

for fs01.05

 

back
chapter 1 : Kreasi Grafik dari Titik

1.1 Membuat Garis

1.2 Membuat Grafik Sinus

1.3 Membuat Grafik Cosinus

1.4 Membuat Lingkaran

 

1.1 Membuat Garis
Grafik dan Animasi -> Kreasi Grafik dati Titik -> Membuat Garis

 

Contoh program 1.1.1

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

For i := 0 to xmax do

Begin

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

End;

For i := 0 to ymax do

Begin

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

End;

Repeat until KeyPressed;

CloseGraph;

End.

 

Contoh progarm 1.1.2

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,);

Xmax := GetMaxX;

Ymax := GetMaxY;

i := 0;

Repeat

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

Inc(i);

Until i = xmax;

 

i := 0;

Repeat

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

Inc(i);

Until i = ymax;

 

Repeat until KeyPressed;

CloseGraph;

End.

 

Contoh progarm 6.3

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

i := 0;

Repeat

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

Inc(i);

Delay(10);

Until i = xmax;

 

i := 0;

Repeat

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

Inc(i);

Delay(10);

Until i = ymax;

 

Repeat until KeyPressed;

CloseGraph;

End.

 

Contoh progam 6.4

Program titik_acak;

Uses

Graph, crt;

Var

Gd, gm,

xmax, ymax, x, y,  : integer;

Begin

ClrScr;

Gd := CGA;

Gm := CGAHi;

InitGraph(gd,gm,);

Xmax := GetMaxX;

Ymax := GetMaxY;

Rectangle(0,0, xmax,ymax);

 

Randomize;

Repeat

X := random(xmax);

Y := random(ymax);

PutPixel(x,y,15);

 

Until KeyPressed;

CloseGraph;

End.
 

1.2 Membuat Grafik Sinus
Grafik dan Animasi -> Kreasi Grafik dari Titik -> Membuat Grafik Sinus

 

 

Yang harus Anda perhatikan dalam pembuatan grafik dengan cara ini adalah perbedaan antara sistem koordinat grafik yang biasa Anda gunakan dalam matematika dan sistem koordinat grafik dalam Pascal. 

Jika Anda tidak menghiraukannya maka yang tampil tidak menggambarkan apa yang seharusnya terjadi. Selain dari perbedaan sistem koordinat, tentu saja Anda harus menguasai persemaan tersebut.

Dalam koordinat cartesius biasanya Anda dapat membagi kertas menjadi empat daerah, yaitu kuadran I, II, II dan IV.

Jika diperhatikan, sistem koordinat dalam Pascal mirip kuadran IV ada koordinat cartesius, tetapi nilai sumbu y-nya posiif. Oleh karena itu untuk memperoleh hasil tampilan yang sesuai dengan apa yang seharusnya terjadi diperlukan suatu cara terendiri.

Di bawah ini akan dibuat program grafik sinus (sudut) terhadap sudutnya, dari 0 sampai xmax. Dengan demikian sebagai sumbu y adalah sinus (sudut) dan sumbu x adalah sudutnya.

Karena hasil perhitungan sinus (sudut) merupakan bilangan nyata sedangkan sistem koordinat Pascal adalah bilangan bulat maka hasil perhitungan sinus (sudut) harus dinyatakan ke dalam bilangan bulat. Untuk menyatakannya dilakukan dengan mempergunakan fungsi Round.

 

Cara menuliskannya adalah : 

X := round(r*cos(q));

 

Contoh program 1.2

Program sinus;

Uses

crt, graph;

Var

xmax, ymax, x, y, y1, y2, gm, gd : integer;

Begin

Gd := CGA;

Gm := CGAHi;

Initgraph(gd,gm,);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

{-----membuat sumbu-----}

Line(xmax div 10,0, xmax div 10,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Y1 := Round(ymax div 5*cos(0));

Y := ymax div 2-y1;

 

SetTextJustify(LeftText,BottomText);

OutTextXY(xmax div 20,y,1);

 

Y1 := Round(ymax div 5*cos(180));

Y := yamx div 2-2*y1;

 

SetTextJustify(leftText,BottomText);

OutTextXY(xmax div 20,y,-1);

 

 

{-----grafik sinus----}

For x := 0 to xmax do

Begin

Y1 := round(yamx div 5*sin(x*pi/180));

Y := ymax div 2-y1;

PutPixel(x+xmax div 10,y,GetMaxColor);

End;

 

Repeat until KeyPressed;

CloseGraph;

End.

 

1.3 Membuat Grafik Cosinus
Grafik dan Animasi -> Kreasi Grafik dari Titik -> Membuat Grafik Cosinus

 

Di bawah ini akan dibuat program grafik cosinus (sudut) terhadap sudutnya dari 0 sampai xmax. Dengan demikian sebagai sumbu y adalah cosinus (sudut) dan sumbu x adalah sudutnya.

 Seperti pada grafik sinus, hasil cosinus (sudut)-nya juga dinyatakan dulu ke dalam bilangan bulat dengan fungsi round.

 

Contoh program 1.3

Program cosinus;

Uses

crt, graph;

Var

xmax, ymax, x, y, y1, y2, gm, gd : integer;

Begin

Gd := CGA;

Gm := CGAHi;

Initgraph(gd,gm,);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

{-----membuat sumbu-----}

Line(xmax div 10,0, xmax div 10,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Y1 := Round(ymax div 5*cos(0));

Y := ymax div 2-y1;

 

SetTextJustify(LeftText,BottomText);

OutTextXY(xmax div 20,y,1);

 

Y1 := Round(ymax div 5*cos(180));

Y := yamx div 2-2*y1;

 

SetTextJustify(leftText,BottomText);

OutTextXY(xmax div 20,y,-1);

 

 

{-----grafik sinus----}

For x := 0 to xmax do

Begin

Y1 := round(ymax div 5*cos(x*pi/180));

Y := ymax div 2-y1;

PutPixel(x+xmax div 10,y,GetMaxColor);

End;

 

Repeat until KeyPressed;

CloseGraph;

End.

 

 

1.4 Membuat Lingkaran
Graik dan Animasi -> Kreasi Grafik dari Titik -> Membuat Lingkaran

 

 

Pada grafik sinus dan cosinus, Anda membuat hubungan antara hara sinus sudut) dan cosinus (sudut) terhadap sudutnya, diperoleh grafik seperti gelombang longitudinal. Apa yang akan terjadi jika grafik tersebut dibuat dengan menghubungkan antara harga sinus (sudut) terhadap cosinus (sudut)?

 Misalnya persamaan sinus dan cosinus di atas diubah menjadi : 

X := r cos(sudut)

Y := r sin(sudut)

 Jika x dan y digambarkan dalam suatu koordinat cartesius dan sudutnya diambil dari 0 sampai 360, maka grafik yang diperoleh adalah  swbuah lingkran dengan jari-jari r.

 

Contoh program 1.4

Program lingkaran;

Uses

Crt, graph;

Var

Xmax, ymax, x, y,

X1, y1, s, gd, gm : integer;

Begin

ClrScr;

Gd := CGA;

Gm := CGAHi;

InitGraph(gd,gm,);

Xmax := GetMaxX;

Ymax := GetMaxy;

Rectangle(0,0, xmax,ymax);

For s := 0 to 360 do

Begin

X1 := round(xmax div 6*cos(s*pi/180));

X := xmax div 2-x1;

Y1 := Round(ymax div 4*sin(s*pi/180));

Y := ymax div 2-y1;

PutPixel(x,y, GetMaxColor);

End;

Repeat until KeyPressed;

CloseGraph;

End.

 



n_fendi_s@yahoo.com