Make your own free website on Tripod.com

Grafik dan Animasi

for fs01.05

 

back
chapter 2: Kreasi huruf dalam grafik

2.1 Cara menulis huruf

2.2 Mengatur Jastifikasi

2.3 Mengatur Gaya Huruf

 

2.1 Cara menulis huruf
Grafik dan Animasinya -> Kreasi huruf dalam grafik -> Cara Menulis huruf

 

Di dalam mode teks, Anda menuliskan tulisan dengan prosedur write. Di dalam mode grafik prosedur tersebut tidak dapat digunakan. Prosedur yang digunakan untuk menuliskan tulisan di dalm mode grafik adalah prosedur OutText atau prosedur OutTextXY.

 

2.1.1 Prosedur OutText

Salah satu cara untuk menuliskan tulisan di dalam mode grafik adalah dengan menuliskan tulisan pada posisi pointer yang sedang diaktifkan.

Cara menuliskannya adalah :

OutText(‘Tulisan’);

Tulisan yang akan ditampilkan harus berada di antara tanda kutip (‘). Prosedur ini akan mulai menuliskan tulisannya pada koordinat (0,0). Agar letak tulisan sesuai dengan keinginan, maka sebelumnya perlu diberi prosedur MoveTo untuk memindahkan pointernya. Perhatikan program berikut ini :

 

Contoh Program 7.1

Program huruf_grafik:

Uses

Graph, crt;

Var

Xmax, ymax, gm, dg : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

MoveTo(xmax div 2,ymax div 2);

OutText(‘HURUF GRAFIK’);

 

Repeat until KeyPressed;

CloseGraph;

End.

 

2.1.2 Prosedur OutTextXY

Cara lain untuk menuliskan tulisan di dalam mode grafik adalah dengan mempergunakan prosedur OutTextXY. Berbeda dengan penggunaan prosedur OutText, penggunaan prosedur ini tidak perlu menyertakan prosedur pemindah pointer karena koordinatnya sudah terdapat di dalamnya.

Cara menuliskannya adalah :

OutTextXY(x,y,’tulisan’);

X dan y masing-masing adalah koordinatnya.

 

Contoh progarm 7.2

Program huruf_grafik;

Uses

Graph, crt;  

Var

Xmax, ymax, gm, gd : integer;

Begin

ClrScr;

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

OutTextXY(xmax div 2,ymax div 2,’HURUF GRAFIK’);

Repeat until KeyPressed;

CloseGraph;

End.

 


continue with Mengatur Jastifikasi

last change: 2005-01-22 , Fendi Sudiantor
n_fendi_s@yahoo.com