Rabu, 09 Mei 2012

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

0 komentar:

Posting Komentar

Please Leave Your Comment :)