MATERI KSI B (PERTEMUAN 9)

PROGRAM DALAM DBASE

 Untuk membuat dan menyunting suatu file program ( ext.prg ) diberikan perintah :

                                   MODI COMM nama_file

Untuk menjalankan program menggunakan perintah :

      DO nama_file

     

Contoh :

.MODI COMM Cth1

*Program Cth1.PRG            => sebagai komentar

USE MIDTEST

LIST KD_POS, NAMA FOR KOTA <> JAKARTA

Setelah selesai, gunakan perintah CtrI-W dan untuk menjalankannya,

.do Cth1

Record#	KD_POS	NAMA
5	17134	SITI NURBAYA
6	17132	ERWIN GUNAWAN
8	16921	DEASY KURNIASARY
9	15144	ONCE R PEACESSON

Perintah STORE digunakan untuk menaruh data  ke variabel memori.

Contoh :

                STORE “amir” TO nama

                STORE 5 TO jum

STORE jum*brg_sat TO harga

                 

Perintah INPUT digunakan untuk mengisikan data numerik ke suatu variabel.

Contoh :

                SET TALK OFF

                Hrg_sat=2500

                INPUT “Jumlah barang =” TO jum

                Harga=hrg_sat*jum

                ?”Harga Total=”,harga

Perintah ACCEPT untuk memasukkan data string karakter ke suatu variabel langsung di dalm program itu sendiri.

Contoh :

                SET TALK OFF

                USE  mhs

                ACCEPT “Nama mahasiswa :” TO mnama

                LIST FOR nama=mnama

Perintah WAIT digunakan untuk memasukkan data ke suatu variabel memori di mana pada perintah ini yang dimasukkan hanya satu karakter saja.

Contoh :

          WAIT  “Masih ada data lain? (Y/T) : TO Jawab

          WAIT           

          WAIT “Tekan Enter untuk melanjutkan !”

Perintah @….SAY digunakan untuk menampilkan suatu teks / data string pada baris dan kolom tertentu pada layar. Fungsi ROW() dan COL() digunakan untuk memberikan nomor baris dan kolom kedudukan kursor.

Contoh :

                SET TALK OFF

                CLEAR

                @3,10 SAY ‘*****************************************’

                @5,10 SAY ‘      SELAMAT DATANG DI’

                @7,10 SAY ‘   UNIVERSITAS GUNADARMA  ‘

                @9,10 SAY ‘*****************************************’

Untuk membuat bingkai kotak

Contoh :

                SET TALK OFF

                CLEAR

                @3,10 TO 15,50

                @5,15 SAY ‘HALO, APA KABAR !’

                @9,20 TO 12,40

                @10,25 SAY ‘1KA02”

Jika program dijalankan hasilnya :

 

Untuk membuat warna pada output program

Bentuk perintahnya adalah :

.SET COLOR TO standar, enhanced, border, background

Standar                                 : mengatur teks normal (terang/gelap)

Enchanced                           : mengatur teks reverse

Border                                  : mengatur area sekitar tepi layar

Background                         : mengatur warna latar belakang dari area   

layar utama

Contoh :

                SET STAT OFF

                SET TALK OFF

                CLEAR

                SET COLOR TO W/G

                @3,10 TO 15,50

                @5,15 SAY ‘HALO,APA KABAR!’

                @9,20 TO 12,40

                SET COLOR TO  W*

                @10,25 SAY ‘1KA02’

Untuk memasukkan data ke variabel memori, dapat pula menggunakan perintah @……GET.

Contoh :

                SET TALK OFF

                NM=SPACE(15)

                NPM=SPACE(8)

                ALM=SPACE(20)

                BAYAR=0

                @5,10 TO 15,50 DOUBLE

@7,15 SAY ‘NAMA MHS :’

@7,25 GET NM

@9,15 SAY ‘NPM     :’

@9,25 GET NPM

@11,15 SAY ‘ALAMAT  :’

@11,25 SAY GET ALM

@13,15 SAY ‘JUMLAH   :’

@13,25 GET JUMLAH

@13,25 GET BAYAR

READ

Contoh yang menggunakan file database yang sudah ada :

SET TALK OFF

CLEAR

USE  D:\PPNC\MHS1

INPUT ‘NOMOR RECORD YANG MAU DIEDIT =’ TO no

GO no

CLEAR

@5,10 TO 10,65 DOUBLE

SET COLOR TO GR+/R

@6,12 SAY ‘NAMA MAHASISWA : ‘GET nama

@8,12 SAY ‘ALAMAT    :’ GET alamat

READ

USE

Pemakaian PICTURE digunakan untuk memberikan wadah pada waktu menampilkan data atau memasukkan data.

Contoh :

CLEAR

X = 5029.75

NM = ‘doyok’

@5,10 SAY X

@6,10 SAY X PICTURE ’99,999’

@7,10 SAY X PICTURE ‘9,999,999,99’

@8,10 SAY X PICTURE ‘$$$$$$$$’

@10,10 SAY NM

@11,10 SAY NM PICTURE ‘!!’

@12,10 SAY NM PICTURE ‘!!!!!!!’

SET TALK OFF

NM=SPACE(15)

NPM=SPACE(8)

ALM=SPACE(20)

TGL_MASUK=CTOD(‘  /  /   ‘)

BAYAR=0

@5,10 TO 15,50 DOUBLE

@7,15 SAY ‘NAMA MHS :GET NM PICTURE ‘!!!!!!!!!!!!!!!’

@9,15 SAY ‘NPM   :’GET NPM PICTURE ‘99999999’

@11,15 SAY ‘ALAMAT :’GET ALM PICTURE ‘xxxxxxxxxxxxxxxxxxxx’

@13,15 SAY ‘ TANGGAL : ‘ GET TGL_MASUK RANGE CTOD(‘09/01/98’),CTOD(‘08/31/99’)

@15,15 SAY ‘JUMLAH :’ GET BAYAR PICTURE ‘9,999,999,9’

READ

Looping Dan Decision

a.       Do While ……EndDo

Digunakan untuk melakukan proses pengulangan dalam suatu program (loop). Bentuk umumnya :

Contoh 1

        SET TALK OFF

        CLEAR

        A = 1

        B = 1

        N = 1

        @5,10 SAY A

        @6,10 SAY B

        @BRS = 7

        DO WHILE N < 10

                        C = A + B

                        @BRS,10 SAY C

                        A = B

                        B = C

                        BRS = BRS + 1

                        N = N + 1

    ENDDO

Contoh2 :

SET TALK OFF

CLEAR

USE C:\PPNC\MHS1

Ulang=.T.

DO WHILE ulang

                ACCEPT ‘NAMA MHS = ‘TO NM

                LIST FOR NAMA=NM

WAIT ‘Mencari data yang lain ?

[Y/T] : ‘TO JW

IF UPPE(JW)=’T’

                Ulang=.F.

                USE

ENDIF

ENDDO

Contoh program yang melakukan pencetakan ke printer.

SET TALK OFF

CLEAR

USE C:\PPNC\MHS1

?’-------------------------------------------------------‘

?’ NAMA                               ALAMAT

?’-------------------------------------------------------‘

DO WHILE .NOT.EOF()

                SET PRINT ON

                ?NAMA,ALAMAT

                SKIP

ENDDO

?’------------------------------------------------------‘

SET PRINT OFF

USE

b.       IF…..ELSE…..ENDIF

IF kondisi

                ……………

IF Kondisi                                                                       ……………

        ……………..                                                                  ELSE

                ……………..                                                                                 ……………

     ENDIF                                                                                                              ……………

                                                                                                        ENDIF

SET TALK OFF

CLEAR

GRS=REPL(‘-‘,30)

USE C:\PPNC\MHS

?GRS

?NAMA        KELAS’

?GRS

DO WHILE .NOT. EOF()

    IF KELAS=’5’

 ?NAMA,SPACE(5),KELAS

    ENDIF

SKIP

ENDDO

?GRS

USE

c.        Perintah LOOP dan EXIT dalam DO-WHILE

SET TALK OFF

n = 0

DO WHILE.T.

   n = n + 1

   IF MOD(n,2) = 0

      LOOP

        ENDIF

   IF n > 10

      EXIT

      ENDIF

 ENDDO

?Selesai

d.       DO CASE…..ENDCASE

Memiliki bentuk umum sbb:

DO CASE

                CASE syarat 1

                                ……………….

                CASE syarat 2

                                ……………….

                CASE syarat 3

                                ………………

                OTHERWISE

                                ………………

ENDCASE

Contoh :

SET TALK OFF

CLEAR

n   = 1

DO WHILE n <= 5

        INPUT “Masukkan sebuah nilai = “ TO nilai

        DO CASE

                        CASE nilai < 60

                        Ket = “Buruk”

                        CASE nlai < 70

                        Ket = “Lumayan”

                        CASE nilai < 80

                        Ket =”Baik”

                        OTHERWISE

                        Ket =”Baik Sekali”

        ENDCASE

        n   = n + 1

                ?nilai,ket

                ?

     ENDDO