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 , lalu ketik : *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# 2 5 6 8 9
KD_POS 16123 17134 17132 16921 15144
NAMA KIRANA SITI NURBAYA ERWIN GUNAWAN DEASY KURNIASARY ONCE R PEACESSON
Perintah STORE digunakan untuk menaruh data ke variabel memori. Ex: STORE “amir” TO nama STORE 5 TO jum STORE jum*brg_sat TO harga Perintah INPUT digunakan untuk mengisikan data numerik ke suatu variabel. Ex : SET TALK OFF Hrg_sat=2500 INPUT “Jumlah barang =” TO jum Harga=hrg_sat*jum ?”Harga Total=”,harga
1
Perintah ACCEPT untuk memasukkan data string karakter ke suatu variabel langsung di dalm program itu sendiri. Ex : 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. Ex : 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 ‘1DB22”
Jika program dijalankan hasilnya : 2
HALLO, APA KABAR! 1DB22
Bentuk perintahnya adalah : .SET COLOR TO standar, enhanced, border, background Sebagai 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 ‘1DB22’ 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 3
@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 : SET TALK OFF Hasilnya : CLEAR X = 5029.75 5029.75 50,030 NM = ‘doyok’ 5,029.75 @5,10 SAY X $$$$5030 ****5,029.75 @6,10 SAY X PICTURE ’99,999’ doyok @7,10 SAY X PICTURE ‘9,999,999,99’ DO @8,10 SAY X PICTURE ‘$$$$$$$$’ DOYOK @9,10 SAY X PICTURE ‘*,***,***,**’ @10,10 SAY NM @11,10 SAY NM PICTURE ‘!!’ @12,10 SAY NM PICTURE ‘!!!!!!!’
SET TALK OFF
4
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 Hasilnya : A=1 1 B=1 1 N=1 2 @5,10 SAY A 3 @6,10 SAY B 5 @BRS = 7 8 DO WHILE N < 10 13 C=A+B 21 @BRS,10 SAY C 34 A=B 55 B=C 89 BRS = BRS + 1 N=N+1 ENDDO
Contoh2 : 5
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 …………….. …………….. ENDIF
IF kondisi …………… …………… ELSE …………… …………… ENDIF
6
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
Hasilnya : ---------------------------NAMA KELAS ---------------------------DEBBY.P 51B09 MARTI 5KA07 ----------------------------
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 ………………. ……………… 7
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
8
