Make your own free website on Tripod.com

Grafik dan Animasi

for fs01.05

 

back
2.3 Mengatur Gaya Huruf
Grafik dan Animasi -> Kreasi Huruf dalam Grafik -> Mengatur Gaya Huruf

 

Selain posisinya yang dapat digeser-geser, gaya tulisan tersebut juga dapat diubah seperti macam hurufnya, arah penulisannya, serta besar hurufnya.

Jika pada penulisan tidak ditambahkan prosedur untuk mengubah gaya huruf maka yang akan  ditampilkan adalah macam huruf default, arahnya mendatar, ukurannya terkecil.

Untuk mengubahnya dilakukan denagn mempergunakan proedur SetTextStyle.

 

Cara menuliskannya adalah

SetTextStyle(huruf,arah,ukuran)

 

2.3.1 Macam-macam huruf

Macam huruf yang lain biasanya dipanggil dari disket oleh SetTextStyle. Beberapa macam huruf yang ada adalah sebagai berikut :

Konstanta

Macam Huruf

0

1

2

3

4

DafaultFont

Triplexfont

Smallfont

SanserifFont

GothicFont

  Anda dapat menuliskannya dengan cara menentukan harga konstantanya atau dengan menuliskannya langsung nama hurufnya.

  Misalnya Anda akan mempergunakan huruf triplexfont, maka programnya adalah sebagai berikut :

 

Contoh Program 2.3.1

Program gaya_huruf;

Uses

Graph,crt;

Var

Xmax,ymax,gd,gm : integer;

Begin

Gd := CGA;

Gm := CGAHi;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

SetTextJustify(CenterText,CenterText);

SetTextStyle(TriplexFont,0,4);

OutTextXY(xmax div 2,ymax div 2, ‘INILAH TRIPLEXFONT’);

 

Repeat until KeyPressed;

CloseGraph;

End.

 

2.3.2 Arah Huruf

Hanya ada dua arah tampilan huruf yang tersedia dalam Pascal, yaitu secara mendatar dan tegak.

 

Konstanta

Arah Tulisan

0

1

Mendatar

Tegak

 

Cara menuliskannya adpat dinyatakan sebagai konstantanya atau sebagai berikut :

 

SetTextStyle(TriplexFont, HorizDir,4);

SetTextStyle(TriplexFont, VertDir,4);

 

Contoh program 2.3.2;

Program gaya_huruf;

Uses

Graph,crt;

Var

Xmax,ymax,gd,gm : integer;

Begin

Gd := CGA;

Gm := CGAHi;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

SetTextJustify(CenterText,CenterText);

SetTextStyle(TriplexFont,VertDir,4);

OutTextXY(xmax div 2,ymax div 2, ‘ARAH TEGAK’);

 

Repeat until KeyPressed;

CloseGraph;

End.

2.3.3 Ukuran Huruf

Ukuran huruf yang digunakan dapat juga diubah. Ukuran suatu huruf dapat berbeda dengan yang lainnya. Oleh karena itu jika Anda menentukan ukuran 1 untuk defaultfont besarnya akan berbeda dengan TriplexFont.

Untuk memperbesar ukuran huruf, Anda dapat melakukan dengan cara menentukan angka 1, 2, dan seterusnya. Ukuran huruf dapat diperbesar sampai sebesar mungkin.

 

Contoh Program 2.3.4

 

Program gaya_huruf;

Uses

Graph,crt;

Var

Xmax,ymax,gd,

Gm, ukuran ,  y : integer;

Begin

Gd := CGA;

Gm := CGAHi;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

Y := ymax div 10;

 

For ukuran := 1 to 6 do

Begin

SetTextStyle(TriplexFont,HorizDir,4);

OutTextXY(xmax div 10,y, ‘ukuran = ’ + Chr(ukuran+48));

Inc(y, TextHeight(‘’));

End;

 

Repeat until KeyPressed;

CloseGraph;

End.

 

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