Grafik dan Animasi |
for fs01.05 |
back |
chapter 2: Kreasi huruf dalam grafik | |||
![]() |
![]() |
|
![]() |
![]() |
![]() |
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;
|
![]() |
![]() |
last change:
2005-01-22
, Fendi Sudiantor
n_fendi_s@yahoo.com