KODE WARNA DBASE III PLUS

Untuk mengembalikan ke keadaan default berikan perintah SET COLOR TO

Kode warna yang diberikan adalah sebagai berikut :

Warna                                                Kode Huruf

Biru              (blue)                     B

Biru muda      (cyan)                    BG

Coklat           (brown)                  GR

Hijau             (green)                   G

Hitam            (black)                    N

Kuning          (yellow)                  GR+

Merah           (red)                      R

Merah muda   (magenta)               RB

Putih             (white)                   W

Kosong          (blank)                   X

Berkedip        (blinking)                 *

Terang                                       +

Contoh :

                   SET COLOR TO B, R/BG, GR, G

Artinya bagian baku berwarna biru, bagian yang ditonjolkan berwarna merah di atas biru muda, bagian tepi layar berwarna coklat dan bagian latar belakang berwarna hijau.

Source kode program EDIT dbaseIII PLUS

set talk off
use pas126
set color to BG
do while .T.
clear
set color to GR+/R++
@2,14 clear to 16,61
@2,14 to 16,61 double
set color to B**
@3,15 to 15,60 double
@14,16 to 14,59 double
set color to G+
@5,27 say "PROGRAM DATA PASIEN"
set color to B**/RB
@7,16 say "@#%@$%#$%^%#%*^&#$*%&^*&*&(*#$%&%&@^&#&$^%^@"
set color to RB+
@5,18 clear to 5,18
@5,18 say "(^_^)"
@5,48 say "(^_^)"
mnorm=space(6)
set color to BG
@10,20 say "MASUKKAN NO RM PASIEN ="GET mnorm
read
clear
?"DAFTAR PASIEN YANG DIMAKSUD"
list for no_rm=trim(mnorm)
input"MASUKKAN NOMOR RECORD YANG AKAN DIEDIT="TO NOMOR
if nomor=0
return
endif
go nomor
clear
set color to BG/N
@4,20 clear to 15,60
@4,20 to 15,60 double
set color to B/G**
@4,19 to 18,19 double
@4,61 to 18,61 double
@18,20 to 18,60 double
set color to GR++
@5,28 say  "DATA PASIEN YANG DIEDIT"
set color to B++
@6,21 to 6,59 double
@8,25 say  "NAMA PASIEN  ="GET nama
@9,25 say  "JENKEL       ="GET jenkel
@10,25 say "UMUR         ="GET umur
@11,25 say "ALAMAT       ="GET alamat
@12,25 say "NOMOR HP     ="GET no_tlp
read
jw="T"
set color to GR++
@14,35 say "MASIH ADA DATA LAIN" GET jw
read
if jw="T"
ket="AriGatO gOzAIMasu....!! "
else
ket="SILAHKAN LANJUTKAN..!!"
endif
set color to R++
@17,30 say ket
read
if jw="T"
exit
endif
enddo
return