===== Jangan pernah meremehkan dirimu. Tuhan memberikanmu hidup bukan kerena kamu membutuhkannya, tapi karena seseorang membutuhkanmu ===== Bagi semua pengunjung, saya minta do'anya untuk dimudahkan dan dilancarkan skripsiku ===== Makasih =====

CARA MERUBAH WARNA TEKS DAN WARNA BACKGROUND

Bismillah...

Hai sobat sekalian.... apakabar hari ini???
Semangat selalu ya...

Oke, disini saya akan jelaskan CARA MERUBAH WARNA TEKS DAN WARNA BACKGROUND PADA PASCAL, jangan salah arti ya... disini yang dirubah bukan program pascalnya, melainkan program buatan kita yang dibuat menggunakan jasa pascal.

Kita mulai saja ya...
>> Cara merubah warna teks
Seperti pada gambar diatas kita gunakan rumus:
TEXTCOLOR(11);
gantilah angka dalam kurung tersebut dengan angka yang anda inginkan, mulai angka "0" sampai angka "15" sesuai dengan kode warna pada gambar diatas.
Kemudian tulislah teks dibawahnya, misal tulisan: AKU ANAK DEMAK.
Maka penulisan programnya:
TEXTCOLOR(11);
WRITELN(’AKU ANAK DEMAK’);
  
Lebih jelasnya seperti gambar dibawah:
Hasil eksekusi program:
 
Tambahan: diwajibkan penulisan TEXTCOLOR diletakkan sebelum penulisan WRITE/WRITELN.
Karena TEXTCOLOR hanya akan memberi warna tulisan yang berada dibawah/ setelahnya.
 
Hai sobat, jika ada pertanyaan seperti ini:
Tuliskanlah kalimat “Saya belajar pascal” dengan warna teks kuning cerah, kemudian dibawahnya tuliskan “Pascal memang asik” dengan warna teks hijau cerah, dan terakhir tulislah “Saya suka program pascal” dengan warna teks biru muda.?
Terus apa yang sobat lakukan jika menghadapi soal seperti itu???
 
Jangan bingung sobat... ikuti saja langkah-langkah berikut:
1. Tentukan kode warna yang digunakan.
    Kuning cerah = 14
    Hijau cerah = 10
    Biru muda = 11
 
2. Tuliskan program sesuai dengan rumus umum.
    Maka penulisannya sebagai berikut:
TEXTCOLOR(14);
WRITELN(’Saya belajar pascal’);
TEXTCOLOR(10);
WRITELN(’Pascal memang asik’);
TEXTCOLOR(11);
WRITELN(’Saya suka program pascal’);
 
Atau seperti gambar dibawah:
Hasil eksekusi program:

>> CARA MERUBAH WARNA BACKGROUND
Hampir sama seperti cara merubah warna teks, namun yang kita gunakan adalah rumus:
TEXTBACKGROUND(4);
Selain rumus ada lagi yang berbeda, yaitu pada jumlah kode angka. Jika teks mampu menggunakan 16 warna (0-15), kalau backgroun hanya mampu menggunakan 8 warna (0-7).
Seperti biasa, gantilah angka dalam kurung tersebut dengan angka yang anda inginkan, mulai angka "0" sampai angka "7" sesuai dengan kode warna pada gambar panduan (gambar paling atas).
Maka background akan berubah warna seperti warna yang diinginkan.

Tambahan: untuk merubah keseluruhan warna background, disarankan penulisan program “TEXTBACKGROUND(4);”  berada tepat dibawah penulisan “BEGIN”.


Nah... sekarang sobat bisa otak-atik warna program sobat sesuai keinginan.
Selamat mencoba ya... ingat, sebelum mencoba baca bismillah dahulu.... ^_^

 




19 comments:

  1. Unknown15 March 2013 at 22:35

    gan,kalo kita mau memberi warna pada hasil progra kita gimana? gw ada tugas. gw ada buat soal misal nya dy lulus uji tes. kalo lulus tulisan nya warna hijau. kalo gak lulus tulisan nya warna merah, nah itu gimana gan. ngeletakin perintah nya.. di mana

    ReplyDelete
    Replies
    1. Unknown17 March 2013 at 23:57

      Saya beri contoh yang mirip dengan pertanyaanmu...


      =====================================================
      PROGRAM SALAH_BENAR;
      USES CRT;
      VAR HASIL1,HASIL2:INTEGER;
      BEGIN
      TEXTCOLOR(7); { <== UNTUK TEKS WARNA PUTIH }
      CLRSCR;
      WRITELN;
      WRITELN('JAWABLAH SOAL BERIKUT:');
      WRITELN;
      WRITE('1.) 3 + 4 = '); READLN(HASIL1); { SOAL 1 }


      {Code yang paling penting adalah pada rumus IF dibawah ini}
      { kita tahu HASIL1=7 dan HASIL2=25 }

      IF HASIL1=7 THEN
      BEGIN
      TEXTCOLOR(10); { <== WARNA HIJAU }
      WRITELN('BENAR');
      TEXTCOLOR(7); { <== UNTUK MENGEMBALIKAN PADA WARNA PUTIH }
      END
      ELSE
      BEGIN
      TEXTCOLOR(12); { <== WARNA MERAH }
      WRITELN('SALAH');
      TEXTCOLOR(7); { <== UNTUK MENGEMBALIKAN PADA WARNA PUTIH }
      END;



      WRITELN;
      WRITE('2.) 5 x 5 = '); READLN(HASIL2); { SOAL 2 }


      IF HASIL2=25 THEN
      BEGIN
      TEXTCOLOR(10); { <== WARNA HIJAU }
      WRITELN('BENAR');
      TEXTCOLOR(7); { <== UNTUK MENGEMBALIKAN PADA WARNA PUTIH }
      END
      ELSE
      BEGIN
      TEXTCOLOR(12); { <== WARNA MERAH }
      WRITELN('SALAH');
      TEXTCOLOR(7); { <== UNTUK MENGEMBALIKAN PADA WARNA PUTIH }
      END;


      READLN;
      END.
      =====================================================

      Lebih jelasnya DOWNLOAD di alamat:
      http://www.4shared.com/rar/xMESjB5-/WARNA_BENAR_SALAH__BUAT_ABI_.html
      (Saya sertakan code dan aplikasi yang udah jadi)

      Delete
  2. Torond Andre25 October 2013 at 09:22

    membantu,,, good!

    ReplyDelete
  3. Muhammad Yusuf20 May 2014 at 09:45

    sangat bermanfaat

    ReplyDelete
  4. Unknown4 July 2014 at 12:19

    Posting'a sangat menarik dan sangat membantu buat para pembaca'a

    gua lg ada tugas ni gan soal'a kaya gini :

    Tugas Prosedur dalam PASCAL

    Buatlah dalam bahasa Pemrograman Pascal dengan menggunakan skema PROSEDUR untuk menampilkan kata-kata sebagai berikut :
    • ‘SAYA BELAJAR PASCAL’ .. 2 kali tampilan berjajar
    • ‘SAYA BISA MENGGUNAKAN PROSEDUR ‘ .. 3 kali tampilan berjajar
    • ‘SAYA AKAN TERUS BERLATIH DALAM PEMROGRAMAN PASCAL’ ..
    Tampilan Layar dan Background layar dapat Anda sesuaikan sendiri….!


    itu syntax program'a gmn yah?
    bisa bntu ga??

    ReplyDelete
    Replies
    1. Unknown10 July 2014 at 18:25

      Oh,,, pake "Delay"
      ini contoh programnya mas broo... ^_^
      -----------------------------------------

      program contoh_tampilan;
      uses crt;
      var A,B,C:STRING;
      Begin
      Clrscr;
      A:='SAYA BELAJAR PASCAL';
      B:='SAYA BISA MENGGUNAKAN PROSEDUR';
      C:='SAYA AKAN TERUS BERLATIH DALAM PEMROGRAMAN PASCAL';
      Writeln(A);
      Delay(2000);
      Writeln(A);
      Delay(2000);
      Writeln;

      Writeln(B);
      Delay(2000);
      Writeln(B);
      Delay(2000);
      Writeln(B);
      Delay(2000);
      Writeln;

      Writeln(C);
      Readln;
      end.

      Delete
    2. Unknown10 July 2014 at 18:44

      Tambahan.... angka 2000 = 2 detik jeda.

      Delete
  5. Unknown15 November 2014 at 18:47

    bang apa maksud dari syntax? mohon penjelasan....

    ReplyDelete
    Replies
    1. Unknown21 November 2014 at 19:37

      ohohoho... maksudnya itu coding atau script.

      Delete
  6. Unknown15 November 2014 at 18:48

    sama saya mau tanya bagaimana cara membuat " kalo mau keluar ketik Ari famuji" mohon di jelaskan juga ya.... ditunggu

    ReplyDelete
    Replies
    1. Unknown21 November 2014 at 19:54

      ini broo...
      ==============================

      program ARI_FAMUJI_(keluar_project_ari_famuji);
      USES CRT;
      VAR m:string;
      label awal,xxx;
      BEGIN
      awal:
      TEXTCOLOR(7);TEXTBACKGROUND(0);
      CLRSCR;
      writeln;
      write(' JIKA INGIN KELUAR, KETIKKAN ');TEXTCOLOR(11);WRITE('ARI FAMUJI');
      TEXTCOLOR(7);
      write(' DISINI ');

      textcolor(11);
      READ(m);
      IF m='ARI FAMUJI' then GOTO xxx;
      if m='Ari Famuji' then goto xxx;
      if m='ari famuji' then goto xxx;
      READLN;
      goto awal;

      xxx:
      END.

      ==============================

      Delete
  7. Unknown22 December 2015 at 20:18

    aku tanya donk, kalo buat ngatur posisi outputnya itu gimana ya?
    biar tampilan outputnya berwarna juga susunannya rapi gitu?
    thanks

    ReplyDelete
    Replies
    1. Unknown29 December 2015 at 07:03

      Untuk ngatur posisi bisa pakai "GOTOXY(angkaX,angkaY);"
      ada contohnya di cara buat tabel:
      http://arfaengkong.blogspot.co.id/p/blog-page_29.html
      Kalau caranya buat susunan yang rapi itu belajar, di otak-atik terus.
      Dan pahami dulu coding
      TEXTCOLOR();
      TEXTBACKGROUND(); dan
      GOTOXY(,);
      Contoh2 tampilannya bisa dilihat di:
      https://www.facebook.com/groups/turbo.pascal.indo/

      Delete
  8. Kyungsbilla1 February 2016 at 02:27

    Thankyu banget buat postingannya sangat membantu
    Mau nanya juga gan kalo saya menerapkan script "textcolor(warnaangka)" pada tpw 1.5 ko gabisa terus, kenapa ya?

    ReplyDelete
    Replies
    1. Unknown2 February 2016 at 07:50

      warnaangka ==> disitu maksutnya angka.
      coba lihat gambar paling atassss,,,, pada postingan ini.
      lihat dengan seksama, dan pahami.
      oh iya minta do'anya ya... moga skripsi ku lancar. :)

      Delete
  9. Admin12 April 2020 at 19:26

    Gan, saya mau nanya nih. Kan jikalau kita buat program kayak menghitung luas lingkaran, tuh kan kita harus ngetikin angka nya dlu. Kadang kita tuh suka kepencet enter jadinya kursornya tuh g sejajar sm posisi "sama dengan =" nya. Gimana bang cara supaya kalau mencet enter itu, dia kgk pindah ke bawah tulisan atau angkanya. Trims bang.

    ReplyDelete
  10. Shikamaru Nara13 July 2020 at 23:36

    infonya sangat bermanfaat bagi ane
    solder uap 2in1

    ReplyDelete

:) :( ;) :D ;;-) :-/ :x :P :-* =(( :-O X( :7 B-) :-S #:-S 7:) :(( :)) :| /:) =)) O:-) :-B =; :-c :)] ~X( :-h :-t 8-7 I-) 8-| L-) :-a :-$ [-( :O) 8-} 2:-P (:| =P~ #-o =D7 :-SS @-) :^o :-w 7:P 2):) X_X :!! \m/ :-q :-bd ^#(^ :ar!

Subscribe to: Posts (Atom)