Dalam kali ini tugasnya adalah membuat Background pada Pascal.Untuk tugas yang ke-4 adalah tentang background, kagak usah banyak cingcong kita mulai aja check it out!:
Temen** bisa meng-copy paste kan kode di bawah ini ke Notepad kemudian save-as dengan ektensi .PAS yang udah aku ajarin pada tugas pascal ke-3.Masukkan kode Pascal di bawah ini:
Uses crt;varwarna,warna1:byte;beginclrscr;writeln(‘ ’);window(1,1,80,25);textbackground(white);clrscr;warna:=0;writeln(‘ ’);window(5,3,75,23);textbackground(warna);textcolor(red);
clrscr;warna:=1;window(3,5,72,24);textbackground(warna1);clrscr;write(' ');gotoXY(30,10);writeln('STMIK DUTA BANGSA OK');Readkey;{full screen is 80x25}window(1,1,80,25);end.
Catatan Penting : Untuk warna RED temen-temen dapat menggantikannya dengan warna putih (white), kuning (yellow), hitam (black), atau yg lainnya lihat buku panduan Pascal pada halaman 48...Hasilnya akan nampak seperti di bawah ini:
Temen** bisa meng-copy paste kan kode di bawah ini ke Notepad kemudian save-as dengan ektensi .PAS yang udah aku ajarin pada tugas pascal ke-3.Masukkan kode Pascal di bawah ini:
Uses crt;varwarna,warna1:byte;beginclrscr;writeln(‘ ’);window(1,1,80,25);textbackground(white);clrscr;warna:=0;writeln(‘ ’);window(5,3,75,23);textbackground(warna);textcolor(red);
clrscr;warna:=1;window(3,5,72,24);textbackground(warna1);clrscr;write(' ');gotoXY(30,10);writeln('STMIK DUTA BANGSA OK');Readkey;{full screen is 80x25}window(1,1,80,25);end.
Catatan Penting : Untuk warna RED temen-temen dapat menggantikannya dengan warna putih (white), kuning (yellow), hitam (black), atau yg lainnya lihat buku panduan Pascal pada halaman 48...Hasilnya akan nampak seperti di bawah ini:
Komentar