Oleh: blogfirman | 26 Desember 2009

Reserved Word(7) Statemen(warna,suara dan window)

  • TextColor [prosedur].

Untuk mengatur warna dari karakter-karakter di layar.

Sintaks: TextColor (color : Byte);

Catatan : untuk pilihan warna lihat pada buku Turbo Pascal yang anda miliki.

Daftar TextColor :

(2) .. Hijau Muda (3) .. Hijau pupus (4) .. Merah

(5) .. Ungu Tua (6) .. Kuning (7) .. Putih

(8) .. Biru Tua (9) .. Biru Cerah (10) .. Hijau Muda

(12) .. Merah Muda (13) .. Ungu Cerah (14) .. Kuning Muda

(15) .. Ungu Pupus (16) .. Hitam

Daftar TextColor dengan Blink :

(17) .. Biru Tua (18) .. Hijau Muda (19) .. Hijau Pupus

(20) .. Merah (21) .. Ungu Tua

  • TextBackGround [prosedur].

Untuk mengatur warna latar belakang dari karakter-karakter di layar.

Sintaks: TextBackGround (Color : Byte);

  • Window [prosedur].

Untuk membuat suatu jendela (window) yang terletak pada layar.

Sintaks: Window (x1,x2,y1,y2 : Byte);

x1,x2 = kordinat kiri atas dengan nilai maksimal

sesuai dengan mode layar.

y1,y2 = kordinat kanan bawah dengan nilai

maksimal sesuai dengan mode layar.

  • TextMode [prosedur].

Untuk mengatur lebar layar, 80 kolom atau 40 kolom.

Sintaks: TextMode(Mode: Byte);

Default = C80

  • Sound [prosedur].

Untuk mengaktifkan suara (beep) pada internal speaker.

Sintaks: Sound (Hz : word);

Untuk mengnonaktifkannya, gunakan statemen NoSound.

Contoh :

Program Layar2;

Uses Crt;

Begin

ClrScr;

Window (5,5,20,75);

TextBackGround(Red); .. anda juga bisa menggunakan angka (4)

TextColor(Yellow);

Sound (220);

GotoXY(10,7);

Writeln(’I Love Dinda’);

GotoXY(11,7);

Writeln(’Bayi Sehatku’);

NoSound;

End.


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: