romanticleaf

MENGATUR WARNA LATAR
ARTIKEL INI DARI SUMBER LAINNYA
Pernah merasa bosan dengan tampilan program pascal yang warna latar nya (background) hitam polos ketika di-compile?
Kalau iya, ayo ikuti tutorial di bawah ini

Persiapan :

Salin semua file yang ada di folder BGI dan UNITS ke folder dimana Anda menaruh file TPX.EXE
Tekan Alt+Enter untuk berubah ke layar fullscreen

Terus?
Jangan lupa menggunakan unit graph. Unit graph digunakan dengan menambahkan 'uses graph' (tanpa tanda petik) di awal program/di bawah 'program nama_program', sebaiknya gunakan unit crt juga:
uses crt,graph
Jangan lupa untuk mendeklarasikan variabel yang berupa integer untuk digunakan dengan initgraph, contoh :
var
gp,gm:integer;
Selanjutnya, di bagian program utama tambahkan 3 baris program sebagai berikut (contohnya dengan menggunakan variabel di atas) :
gp:=detect;
initgraph(gp,gm,'');
setbkcolor(warna);
Keterangan warna :

Pada tahap 3 di atas sudah ada
setbkcolor(warna)
Nah kita bisa mengganti warna nya dengan ketentuan sebagai berikut :

0 = Black
1 = Blue
2 = Green
3 = Cyan
4 = Red
5 = Magenta
6 = Brown
7 = LightGray
8 = DarkGray
9 = LightBlue
10= LightGreen
11 = LightCyan
12 = LightRed
13 = LightMagenta
14 = Yellow
15 = White

Anda boleh menuliskan nomor nya maupun warna nya langsung

Membuat Tulisan

Untuk membuat tulisan pada mode grafik tidak bisa dengan menggunakan perintah write atau writeln ada perintah khusus, yaitu outtext atau outtextXY, lihat contoh program.

Contoh Program :

program warna_latar;
uses
crt,graph;
var
gp,gm : integer;
nama : string;
begin
gp:=detect;
initgraph(gp,gm,'');
setbkcolor(green);
outtextXY(250,250'Nama Anda?'); readln(nama);
moveto(260,270); outtext('Hi, '+nama);
readkey;
end.

Yang di atas itu kalau kita tambahkan unit graph baru bisa jalan, tapi ada beberapa perintah sejenis yang hanya bisa digunakan dengan unit crt, yaitu :

Untuk mengubah warna text :

textcolor(warna)

Untuk mengubah latar text :

textbackground(warna)

gimana bukan susah atau susah bukan ???
Untuk lainnya Komentar Aja Yaa... !!