5 Warna & StatementCase-Of-Else A. Tujuan Setelah melakukan praktikum, diharapkan praktikan dapat : 1. Menggunakan statement GOTOXY untuk mengatur posisi kursor pada saat menampilkan string di layar, 2. Menggunakan statement TEXTCOLOR dan TEXTBACKGROUND untuk mengatur warna tulisan dan warna latar belakang, 3. Menggunakan statement CASE-OF-ELSE untuk melakukan percabangan jamak, B. Teori Singkat Turbo Pascal juga dapat mencetak suatu karakter atau suatu katakata disuatu tempat tertentu. Untuk melaksanakan hal tersebut, anda dapat menggunakan perintah GOTOXY. Adapun tata penulisan perintah tersebut adalah : GOTOXY(X,Y) dimana X adalah posisi horizontal yang dapat diisi dengan angka 1 hingga 80. Sedangkan Y adalah posisi vertikal yang dapat diisi dengan angka 1 hingga 25. Dengan menggunakan salah satu fasilitas dari unit Crt, anda dapat mengganti warna layar dan warna tulisan sesuai dengan warna yang diinginkan. Untuk mengganti warna layar perintah yang digunakan adalah TextBackGround, sedangkan untuk mengganti warna tulisan perintah yang digunakan adalah TextColor. Adapun tata penulisan sebagai berikut : TextBackGround(warna); TextColor(warna); dimana warna adalah satuan byte yang akan diberikan dengan format 1 byte. Warna ini dapat juga diberikan dalam bahasa Inggris. Berikut ini
2 adalah angka-angka dan kata dalam bahasa Inggris yang dapat diberikan untuk mengganti warna layar dan warna tulisan : Warna Hitam Biru Hijau Cyan Merah Magenta Coklat Coklat Muda Warna Abu-Abu Biru Muda Hijau Muda Cyan Muda Merah Muda Magenta Muda Kuning Putih
Warna Dasar : Konstanta Black Blue Green Cyan Red Magenta Brown Light Gray
Nilai 0 1 2 3 4 5 6 7
Warna Terang : Konstanta Dark Gray Light Blue Light Green Light Cyan Light Red Light Magenta Yellow White
Nilai 8 9 10 11 12 13 14 15
Untuk menampilkan huruf berkedip (blinking) dengan menambahkan 128 pada nilai warna diatas, Case...Of adalah pemecahan dari If bertingkat. Pada Case...Of dapat dilakukan perbandingan beberapa kondisi dari suatu variabel. Adapun tata penulisan Case...Of adalah : Case variabel Of Peluang; End; dimana variabel adalah variabel yang akan diperiksa isinya, peluang adalah kemungkinan isi variabel dan apa yang dilakukan jika peluang tersebut benar. Penambahan Else pada Case...Of adalah untuk mengambil alih pilihan yang terdapat pada daftar pilihan. Tata cara penulisan Case...Of dengan Else adalah : Case variabel Of peluang; Else bagian Else; End; Bila pada program terdapat masukan di luar pilihan, secara otomatis proses program akan dikirimkan ke Else, bukan keluar dari struktur Case seperti pada Case...Of. [Drs. Efrizon, MT. – 2008]
3 C. Latihan-Latihan 1. Menampilkan kalimat ‘Laboratorium Komputer’ sebanyak 15 kali dengan berbagai macam warna (LATIH5A.PAS) Program WarnaHuruf; Uses Crt; Var I,J : Integer; Begin ClrScr; For I := 1 to 15 do Begin For J := 1 to 25 do Begin TextColor(I); {Merubah warna huruf nilai I} GotoXY(J,I); { Pergi ke posisi X,Y } Writeln(' Laboratorium Komputer'); Delay(100); {Tunggu 100 ms } End; End; End.
2. Contoh program untuk mengganti warna latar layar (LATIH5B.PAS) Program WarnaLayar; Uses Crt; Var I,J : Integer; Begin ClrScr; For I := 1 to 7 do Begin TextBackGround(I);{mengganti warna layar nilai I} ClrScr; Delay(500); { Tunggu 500 ms } End; End.
3. Menentukan angka (LATIH5C.PAS)
yang
dimasukkan
Program MenentukanRange; Uses Crt; Var Angka : Integer; Begin ClrScr; Write('Masukan salah satu angka dari 1 sampai 30 : '); Readln(Angka);
[Drs. Efrizon, MT. – 2008]
dengan
Case-Of-Else.
4 Case Angka Of 1..10 : Begin Writeln('Angka yang anda masukan adalah ',Angka:3); Writeln('Terletak antara 1 dan 10'); End; 11..20 : Begin Writeln('Angka yang anda masukan adalah ',Angka:3); Writeln('Terletak antara 11 dan 20'); End; 21..30 : Begin Writeln('Angka yang anda masukan adalah ',Angka:3); Writeln('Terletak antara 21 dan 30'); End; Else Begin Writeln('Angka yang anda masukan adalah ',Angka:3); Writeln('Terletak diluar 1 dan 30'); End; End;
End. 4. Program untuk menghitung luas empat persegi panjang, luas lingkaran, luas segitiga siku-siku. Program meminta pemakai untuk memilih tugas. (LATIH5D.PAS), Program MenghitungLuas; Uses Crt; Var Pilih : Integer; Luas,Panjang,Lebar,Jari,Tinggi,Alas : Real; Begin ClrScr; TextBackGround(1); TextColor(15); GotoXY(14,8); Write(' '); GotoXY(14,9); Write(' Pilih Salah Satu Menu : '); GotoXY(14,10); Write(' 1. Luas Empat Persegi Panjang '); GotoXY(14,11); Write(' 2. Luas Lingkaran '); GotoXY(14,12); Write(' 3. Luas Segitiga Siku-Siku '); GotoXY(14,13); Write(' '); [Drs. Efrizon, MT. – 2008]
5 GotoXY(14,14); Write(' Pilihan Anda (1/2/3) : GotoXY(14,15); Write('
'); ');
GotoXY(42,14);Readln(Pilih); TextBackGround(0); TextColor(15); Case Pilih Of 1 : Begin ClrScr; Writeln('Menghitung Luas Empat Persegi Panjang :'); Write(' Lebar = ');Readln(Lebar); Write(' Panjang = ');Readln(Panjang); Luas := Panjang*Lebar; Writeln(' Luasnya = ',Luas); End; 2 : Begin ClrScr; Writeln('Menghitung Luas Lingkaran :'); Write(' Jari-Jari = ');Readln(Jari); Luas := Pi*Sqr(Jari); Writeln(' Luasnya = ',Luas); End; 3 : Begin ClrScr; Writeln('Menghitung Luas Segi Tiga Siku-Siku :'); Write(' Alas = ');Readln(Alas); Write(' Tinggi = ');Readln(Tinggi); Luas := 1/2*Alas*Tinggi; Writeln(' Luasnya = ',Luas); End; Else ClrScr; End; End.
D. Tugas-Tugas Buatlah program Pascal untuk menghitung nilai tahanan sebuah resistor apabila diketahui warna pada masing-masing gelang 1,2,3 dan 4, kemudian simpan dengan nama TUGAS5A.PAS, Atur tampilan program agar menarik dengan variasi warna-warna.
[Drs. Efrizon, MT. – 2008]
