Modul Dbase Iii Plus Dos

MULAI DENGAN DBASE III PLUS

Create nilai ↵

Dari start kemudian klik all

Create siswa ↵

program kemudian klik dbase III plus dan tunggu beberapa saat.Pada

dbase

3

plus

terdapat 2 menu yaitu menu assist Buku

dan ini

menu

menu

command

atau

menu

titik.

Selain

itu

menu

dbase

dengan

jelasnya

record

Siswa

terdapat

terdiri

dari

data No, Nama, N1, N2 Dibuat sebagai berikut:

command.

menggunakan

dilengkapi

Lebih

menu

Create SISWA

tak

langsung yaitu menu program.

Kemudian

buatlah

recordnya

terdiri dari Field

type width Dec

Anda

tinggal

tekan

tombol

esc sampai menu ditampilkan seperti berikut:

NO

N

2

0

NAMA

C

10

0

N1

N

2

0

N2

N

2

0

Setelah

itu

berilah

perintah: Use SISWA APPEND Setelah

itu

Menu langsung atau menu

pada

command

table siswa

Sekarang

kita

mencoba

table

masukan

data

berikut

pada

NO

NAMA N1

menggunakan menu langsung

1

A

2

5

Untuk

2

B

5

3

3

C

7

8

4

D

9

9

5

E

2

3

6

F

2

2

membuat

perintahnya

:

table

CREATE

dimana NF yaitu nama file Contohnya:

NF

MODUL DBASE III PLUS - BACA – COBA - BISA

N2

:1

7

G

6

7

-

List

8

H

9

7

-

List off

9

I

2

8

-

List nama

10

J

4

9

-

List n1,n2

-

List for N1=2

Untuk

melihat

apakah

data

sudah masuk menggunakan: Untuk

menambah

data

lagi

Untuk benar-benar menghapus

gunakan perintah:

satu

Use siswa

perintah:

Append

Use siswa

Untuk

mengedit

mengganti

data

seperti menggunakan

perintah:

baris

gunakan

Delete record 4 Pack Untuk baru

Use siswa

record

menyisipkan pada

record

table

gunakan

perintah:

Edit 3 Nomor 3 berarti record ke-3

Use siswa

akan diganti.

3

Untuk menambah field N3 maka

Insert

gunakan perintah:

Artinya dari record nomor 3 akan

ditambah

data

Use siswa

sedangkan

Modify struk

akan mengikuti data masukan

Sehingga

tampilan

table

menjadi NO Untuk

NAMA

record

baru

nomor

4

baru. Setalah semua data dimasukan

N1

N2

menghapus

N3

kedalam

satu

baris

record gunakan perintah:

table

penyusunan besar

ke

sebaliknya, Use siswa

perintah:

Delete record 4

Penguruttan

Berarti akan menghapus satu

besar

diperlukan

data

baik

kecil

dari atau

maka

digunakan

dari

kecil

ke

baris record nomor 4 Untuk penghapusan

membatalkan record

perintah:

gunakan

Use siswa Sort on n1 to n1a Sort on n2 to n2a Sort on nama to nama1

Use siswa

Pengurutan

Delete record 4

kecil

Recall record 4

Atau menggunakan:

MODUL DBASE III PLUS - BACA – COBA - BISA

dari

besar

ke

:2

index on n1 to n1a

A

N

2

0

index on n2 to n2a

B

N

2

0

index on nama to nama1

C

N

2

0

Y1

N

2

0

Pada saat penyuntingan dbase

Setelah

III plus tempat penyimpanan

strukturnya kemudian berilah

data

perintahnya:

ada

pada

root

dbase

selesai

membuat

maka anda harus memindahkan ke

plofy

disk

dengan

perintah:

Use Y1 Append Kemudian

Set defa to A atau set defa

isilah

tabel

berikut kedalam databases

to B atau set defa to E Dalam keadaan standar dbase

A

B

C

menyimpan

dalam

3

2

5

format *.dbf sedangkan untuk

4

7

8

program *.prg , untuk index

5

5

6

dalam

6

6

3

7

5

3

8

7

6

database gunakan perintah:

9

8

3

Use siswa

8

7

9

7

5

6

6

3

3

data

format

table

*.ndx,

untuk

format memori *.mem Untuk

memperbanyak

file

Copy to siswa1 Untuk

memindahkan

Y1

struktur

databases dari file satu ke

Catatan : kolom Y1 jangan di

file lain gunakan perintah:

isi.

Use siswa Copy

structure

to

x

field

nama, n1

Kemudian

masukan

sebanyak

10

datanya

kali

dengan

catatan data Y1 jangan diisi dan biarkan kosong.

LATIHAN – LATIHAN

Setelah

selesai

buatlah

databases yang sama dari Y1 1. Diberikan

persamaan

matematika dibawah

anda

dengan

seperti

dibawah.

tinggal

Untuk

membuat databasesnya :

data

Y16

pada

seperti table

Y2

sampai dengan table Y16 data angkanya sembarang saja.

Create Y1 Field

sampai

type width dec

Y2 = ( A + B ) X C

MODUL DBASE III PLUS - BACA – COBA - BISA

:3

Create Y2 Field

Setelah type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y4

B

N

2

0

Append

C

N

2

0

Kemudian

Y2

N

2

0

berikut kedalam databases

Setelah

selesai

isilah

tabel

membuat

strukturnya kemudian berilah

Y5 = ( A - B ) + C

perintahnya:

Create Y5

Use Y2

Field

Append

type width dec

Kemudian

isilah

tabel

A

N

2

0

B

N

2

0

C

N

2

0

Y3 = ( A + B ) / C

Y5

N

2

0

Create Y3

Setelah

berikut kedalam databases

Field

type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y5

B

N

2

0

Append

C

N

2

0

Kemudian

Y3

N

2

0

berikut kedalam databases

Setelah

selesai

isilah

tabel

membuat

strukturnya kemudian berilah

Y6 = ( A - B ) / C

perintahnya:

Create Y6

Use Y3

Field

Append

type width dec

Kemudian

isilah

tabel

A

N

2

0

B

N

2

0

C

N

2

0

Y4 = ( A + B ) – C

Y6

N

2

0

Create Y4

Setelah

berikut kedalam databases

Field

type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y6

B

N

2

0

Append

C

N

2

0

Kemudian

Y4

N

2

0

berikut kedalam databases

isilah

tabel

Y7 = ( A - B ) X C MODUL DBASE III PLUS - BACA – COBA - BISA

:4

Create Y7 Field

Setelah type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y9

B

N

2

0

Append

C

N

2

0

Kemudian

Y7

N

2

0

berikut kedalam databases

Setelah

selesai

isilah

tabel

membuat

strukturnya kemudian berilah

Y10 = ( A / B ) X C

perintahnya:

Create Y10

Use Y7

Field

Append

type width dec

Kemudian

isilah

tabel

A

N

2

0

B

N

2

0

C

N

2

0

Y8 = ( A - B ) – C

Y10

N

2

0

Create Y8

Setelah

berikut kedalam databases

Field

type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y10

B

N

2

0

Append

C

N

2

0

Kemudian

Y8

N

2

0

berikut kedalam databases

Setelah

selesai

isilah

tabel

membuat

strukturnya kemudian berilah

Y11 = ( A / B ) – C

perintahnya:

Create Y11

Use Y8

Field

Append

type width dec

Kemudian

isilah

tabel

A

N

2

0

B

N

2

0

C

N

2

0

Y9 = ( A / B ) + C

Y11

N

2

0

Create Y9

Setelah

berikut kedalam databases

Field

type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y11

B

N

2

0

Append

C

N

2

0

Kemudian

Y9

N

2

0

berikut kedalam databases

isilah

tabel

Y12 = ( A / B ) / C MODUL DBASE III PLUS - BACA – COBA - BISA

:5

Create Y12 Field

Setelah type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y14

B

N

2

0

Append

C

N

2

0

Kemudian

Y12

N

2

0

berikut kedalam databases

Setelah

selesai

isilah

tabel

membuat

strukturnya kemudian berilah

Y15 = ( A X B ) / C

perintahnya:

Create Y15

Use Y12

Field

Append

type width dec

Kemudian

isilah

tabel

A

N

2

0

B

N

2

0

C

N

2

0

Y13 = ( A X B ) + C

Y1

N

2

0

Create Y13

Setelah

berikut kedalam databases

Field

type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y15

B

N

2

0

Append

C

N

2

0

Kemudian

Y13

N

2

0

berikut kedalam databases

Setelah

selesai

isilah

tabel

membuat

strukturnya kemudian berilah

Y16 = ( A X B ) X C

perintahnya:

Create Y16

Use Y13

Field

Append

type width dec

Kemudian

isilah

tabel

A

N

2

0

B

N

2

0

C

N

2

0

Y14 = ( A X B ) – C

Y16

N

2

0

Create Y14

Setelah

berikut kedalam databases

Field

type width

selesai

membuat

strukturnya kemudian berilah

dec

perintahnya:

A

N

2

0

Use Y16

B

N

2

0

Append

C

N

2

0

Kemudian

Y14

N

2

0

berikut kedalam databases

MODUL DBASE III PLUS - BACA – COBA - BISA

isilah

tabel

:6

2. Diberikan

data

sebagai

9

berikut:

3

J

3

8

NO, KODE, BARANG, HARGA,

10

JUMLAH, BAYAR NO

I

KODE

4 JUMLAH

1

A

3

Create nilai

2

B

2

Use Nilai

3

C

2

Append

4

A

3

5

A

5

6

C

2

7

C

4

8

A

2

NO,

9

B

3

KEMBALI

10

B

2

NO

4. Buatlah

data

seperti

table berikut: BUKU,

AWAL,

AKHIR,

BUKU

AWAL

AKHIR Create barang

1

A

Use Barang

10/04/06

Append

2

10/02/06

B

10/03/06

10/06/06 3. Buatlah

data

seperti

table berikut: NO,

NAMA,

N1,

NAMA

1

C

10/03/06

10/08/06 N2,

JUM,

RATA, KET1, KET2 NO

3

N1

4

A

10/02/06

10/03/06 N2

5

A

10/05/06

A

4

10/09/06

B

2

Create buku

5 2 4 3

Use Buku C

2

D

2

Append

6 4 4 5

F

2

7 G

2

9 8

H 6

seperti

6

8

7

data

table berikut: E

6

5. Buatlah

5

NO

T

APL

V

P

L

1

2

9

2

2

4

5

3

7

2

8

4

8

7

2

5

3

8

2

MODUL DBASE III PLUS - BACA – COBA - BISA

ATP

ATL

3

:7

B

6

8

3

Create bidang

C

3

8

3

Use Bidang

D

6

7

8

Append

E

6

3

8

6. Buatlah

data

seperti

Create ulangan

table berikut:

Use ulangan

BAR, HAR, DP, SISA, BLN1

Append

A

10000

3000

B

20000 3500

9. Dalam

pelajaran

C

30000 4000

matematika

D

40000 4500

persamaan Y=ax+b.

E

50000

5000

Dimana

F

60000

5500

sebagai berikut:

G

70000

6000

a

x

b

H

80000

6500

2

5

6

I

90000

7000

3

7

5

J

100000 7500

4

9

6

5

7

5

Create kredit

6

5

3

Use Kredit

7

4

2

Append

8

7

5

9

8

6

2

9

7

table berikut:

4

6

3

NAMA, GOL, STATUS, ANAK

Create mat

A

3

1

5

Use mat

B

3

1

2

Append

C

1

0

0

D

1

0

0

E

2

1

1

7. Buatlah

data

seperti

10.

terdapat

tabel

Dalam

diberikan

y

pelajaran

terdapat

fisika

materi

gerak

melingkar dimana terdapat Create pegawai

frekueansi,

Use pegawai

jarijari,

Append

sudut,

perioda, kecepatan

dan

kecepatan

linier. 8. Buatlah

data

seperti

T = 1/F

table berikut:

W = 6.28 R

V = W R

NAMA MAT

FIS

KIM

A

3

5

Diberikan data berikut: 7

R

MODUL DBASE III PLUS - BACA – COBA - BISA

F

T

W

V

:8

3

5

dilewatkan pada dua celah

4

6

yang berjarak d sehingga

5

5

terbentuk

6

8

interferensi terang gelap

7

9

dilayar

8

6

dari

9

3

terang n berjarak y dari

8

7

terang

7

3

panjang

6

8

tersebut? ( y d / n L )

pola

yang

celah.

berjarak Bila

pusat

titik

tentukan

gelombang

cahaya

Create fis1

Diberikan data verikut:

Use fis1

Y

D

N

L

Append

2

6

5

7

3

3

5

7

11.

Dalam

pelajaran

fisika

5

8

6

2

materi

efek

7

7

8

6

pengamat

9

4

6

2

4

7

2

4

7

3

6

7

Diberikan data berikut: ( FP

9

8

6

2

= FS(V+VP)/(V-VS)

8

8

6

3

6

7

6

2

terdapat dopler. dan

Dimana

sumber

bunyi

saling

mendekat.

G

V

VP

VS

FS

2

9

6

5

CREATE FIS3

3

5

3

7

USE FIS3

4

7

5

8

APPEND

5

6

8

3

6

8

6

5

7

9

4

6

terdapat materi gelombang

8

7

8

9

dalam tabung terbuka. ( 4

9

5

6

7

L / (2n-1)) = g

7

6

2

8

Diberikan data berikut:

6

3

7

8

L

n

3

6

CREATE FIS2

8

5

USE FIS2

5

6

APPEND

8

3

6

7

fisika

4

9

materi

9

6

gelombang.

6

7

cahaya

3

6

12.

Dalam

13.

pelajaran

terdapat interferensi Seberkas

FP

L

MODUL DBASE III PLUS - BACA – COBA - BISA

Dalam

pelajaran

fisika

g

:9

8

6

USE FIS5 APPEND

14.

Dalam

pelajaran

terdapat pelayangan

fisika materi

bunyi

fp

=

(f1+f2)/2. Diberikan data berikut: F1

F2

FP

5

6

MENU TAK LANGSUNG

7

6

( PEMROGRAMAN )

9

8

Menu

3

8

merupakan fasilitas dbase

6

9

untuk

mengolah

database

8

7

secara

tak

langsung

7

6

dimana

2

8

memberikan

6

3

perintah

9

8

oleh

tak

lngsung

anda

perintahyang

dbase

CREATE FIS4

dbase

USE FIS4

perintah

APPEND

membuat

harus

akan

dikenal

setelah

menjalankan anda.

Untuk

pemrograman

terlebih 15. Dalam

pelajaran

terdapat intensitas

fisika

itu

dahulu

memberikan perintah:

pelajaran bunyi

MODIFY COMMAND NF

pada

suatu tempat. ( I2 = I1 NF merupakan nama file

R12 / R22 ) Diberikan data berikut:

Sedangkan

I1

R1

R2

menjalankan/run

2

8

7

dalam

6

9

8

DO NF

8

6

7

7

7

9

Berikut

4

6

7

beberapa contoh:

5

8

6

7

7

6

16.Program

8

8

6

numeric.

6

7

3

4

8

3

I2

untuk perintah

pemrograman

yaitu:

diberikan

masukan

data

Y1 = ( A + B ) + C Y2 = ( A + B ) X C

CREATE FIS5

Y3 = ( A + B ) / C

MODUL DBASE III PLUS - BACA – COBA - BISA

:10

Y4 = ( A + B ) - C

INPUT “ B = “ TO B

Y5 = ( A - B ) + C

INPUT “ C = “ TO C

Y6 = ( A - B ) / C

Y = ( A + B ) + C

Y7 = ( A - B ) X C

?’ HASIL DARI Y = ( A + B )

Y8 = ( A - B ) - C

+ C ’

Y9 = ( A / B ) + C

?’ DIMANA ‘

Y10 = ( A / B ) X C

? ‘ A = ‘ , A

Y11 = ( A / B ) - C

? ‘ B = ‘ , B

Y12 = ( A / B ) / C

? ‘ C = ‘ , C

Y13 = ( A X B ) + C

? ‘ Y = ‘ , Y

Y14 = ( A X B ) - C Y15 = ( A X B ) / C

Modify command Y2

Y16 = ( A X B ) X C

Set talk off CLEAR

Modify command Y1

INPUT “ A = “ TO A

Set talk off

INPUT “ B = “ TO B

CLEAR

INPUT “ C = “ TO C

INPUT “ A = “ TO A

Y = ( A + B ) + C

INPUT “ B = “ TO B

?’ HASIL DARI Y = ( A + B )

INPUT “ C = “ TO C

+ C ’

Y = ( A + B ) + C

?’ DIMANA ‘

?’ HASIL DARI Y = ( A + B )

? ‘ A = ‘ , A

+ C ’

? ‘ B = ‘ , B

?’ DIMANA ‘

? ‘ C = ‘ , C

? ‘ A = ‘ , A

? ‘ Y = ‘ , Y

? ‘ B = ‘ , B ? ‘ C = ‘ , C

Modify command Y3

? ‘ Y = ‘ , Y

Set talk off CLEAR

Buatlah

Y1

INPUT “ A = “ TO A

sampai dengan Y16 dengan

INPUT “ B = “ TO B

cara seperti diatas hanya

INPUT “ C = “ TO C

saja

Y = ( A + B ) + C

berbeda dengan

program

nama

file

dari Y16

dari

Y1

dan

yang berbeda.

yang sampai

rumusnya

?’ HASIL DARI Y = ( A + B ) + C ’ ?’ DIMANA ‘ ? ‘ A = ‘ , A

Modify command Y1

? ‘ B = ‘ , B

Set talk off

? ‘ C = ‘ , C

CLEAR

? ‘ Y = ‘ , Y

INPUT “ A = “ TO A MODUL DBASE III PLUS - BACA – COBA - BISA

:11

Modify command Y4

? ‘ B = ‘ , B

Set talk off

? ‘ C = ‘ , C

CLEAR

? ‘ Y = ‘ , Y

INPUT “ A = “ TO A INPUT “ B = “ TO B

Modify command Y7

INPUT “ C = “ TO C

Set talk off

Y = ( A + B ) + C

CLEAR

?’ HASIL DARI Y = ( A + B )

INPUT “ A = “ TO A

+ C ’

INPUT “ B = “ TO B

?’ DIMANA ‘

INPUT “ C = “ TO C

? ‘ A = ‘ , A

Y = ( A + B ) + C

? ‘ B = ‘ , B

?’ HASIL DARI Y = ( A + B )

? ‘ C = ‘ , C

+ C ’

? ‘ Y = ‘ , Y

?’ DIMANA ‘ ? ‘ A = ‘ , A

Modify command Y5

? ‘ B = ‘ , B

Set talk off

? ‘ C = ‘ , C

CLEAR

? ‘ Y = ‘ , Y

INPUT “ A = “ TO A INPUT “ B = “ TO B

Modify command Y8

INPUT “ C = “ TO C

Set talk off

Y = ( A + B ) + C

CLEAR

?’ HASIL DARI Y = ( A + B )

INPUT “ A = “ TO A

+ C ’

INPUT “ B = “ TO B

?’ DIMANA ‘

INPUT “ C = “ TO C

? ‘ A = ‘ , A

Y = ( A + B ) + C

? ‘ B = ‘ , B

?’ HASIL DARI Y = ( A + B )

? ‘ C = ‘ , C

+ C ’

? ‘ Y = ‘ , Y

?’ DIMANA ‘ ? ‘ A = ‘ , A

Modify command Y6

? ‘ B = ‘ , B

Set talk off

? ‘ C = ‘ , C

CLEAR

? ‘ Y = ‘ , Y

INPUT “ A = “ TO A INPUT “ B = “ TO B

Modify command Y9

INPUT “ C = “ TO C

Set talk off

Y = ( A + B ) + C

CLEAR

?’ HASIL DARI Y = ( A + B )

INPUT “ A = “ TO A

+ C ’

INPUT “ B = “ TO B

?’ DIMANA ‘

INPUT “ C = “ TO C

? ‘ A = ‘ , A

Y = ( A + B ) + C

MODUL DBASE III PLUS - BACA – COBA - BISA

:12

?’ HASIL DARI Y = ( A + B )

INPUT “ A = “ TO A

+ C ’

INPUT “ B = “ TO B

?’ DIMANA ‘

INPUT “ C = “ TO C

? ‘ A = ‘ , A

Y = ( A + B ) + C

? ‘ B = ‘ , B

?’ HASIL DARI Y = ( A + B )

? ‘ C = ‘ , C

+ C ’

? ‘ Y = ‘ , Y

?’ DIMANA ‘ ? ‘ A = ‘ , A

Modify command Y10

? ‘ B = ‘ , B

Set talk off

? ‘ C = ‘ , C

CLEAR

? ‘ Y = ‘ , Y

INPUT “ A = “ TO A INPUT “ B = “ TO B

Modify command Y13

INPUT “ C = “ TO C

Set talk off

Y = ( A + B ) + C

CLEAR

?’ HASIL DARI Y = ( A + B )

INPUT “ A = “ TO A

+ C ’

INPUT “ B = “ TO B

?’ DIMANA ‘

INPUT “ C = “ TO C

? ‘ A = ‘ , A

Y = ( A + B ) + C

? ‘ B = ‘ , B

?’ HASIL DARI Y = ( A + B )

? ‘ C = ‘ , C

+ C ’

? ‘ Y = ‘ , Y

?’ DIMANA ‘ ? ‘ A = ‘ , A

Modify command Y11

? ‘ B = ‘ , B

Set talk off

? ‘ C = ‘ , C

CLEAR

? ‘ Y = ‘ , Y

INPUT “ A = “ TO A INPUT “ B = “ TO B

Modify command Y14

INPUT “ C = “ TO C

Set talk off

Y = ( A + B ) + C

CLEAR

?’ HASIL DARI Y = ( A + B )

INPUT “ A = “ TO A

+ C ’

INPUT “ B = “ TO B

?’ DIMANA ‘

INPUT “ C = “ TO C

? ‘ A = ‘ , A

Y = ( A + B ) + C

? ‘ B = ‘ , B

?’ HASIL DARI Y = ( A + B )

? ‘ C = ‘ , C

+ C ’

? ‘ Y = ‘ , Y

?’ DIMANA ‘ ? ‘ A = ‘ , A

Modify command Y12

? ‘ B = ‘ , B

Set talk off

? ‘ C = ‘ , C

CLEAR

? ‘ Y = ‘ , Y

MODUL DBASE III PLUS - BACA – COBA - BISA

:13

7h = ( A X B ) X C Modify command Y15

Y11h = ( A / B ) X C

Set talk off

Y4h = ( A + B ) – C

CLEAR

Y8h = ( A X B ) – C

INPUT “ A = “ TO A

Y12h = ( A / B ) - C

INPUT “ B = “ TO B

Y13h = ( A - B ) + C

INPUT “ C = “ TO C

Y14h = ( A - B ) / C

Y = ( A + B ) + C

Y15h = ( A - B ) X C

?’ HASIL DARI Y = ( A + B )

Y16h = ( A - B ) - C

+ C ’ ?’ DIMANA ‘

Modify command y1h

? ‘ A = ‘ , A

SET TALK OFF

? ‘ B = ‘ , B

CLEAR

? ‘ C = ‘ , C

ACCEPT “ A = “ TO A

? ‘ Y = ‘ , Y

ACCEPT “ B = “ TO B ACCEPT “ C = “ TO C

Modify command Y16 Set talk off

Y = ( CHR( A ) + CHR( B ) )

CLEAR

+ CHR( C )

INPUT “ A = “ TO A

?’ HASIL DARI Y = ( A + B )

INPUT “ B = “ TO B

+ C ’

INPUT “ C = “ TO C

?’ DIMANA ‘

Y = ( A + B ) + C

? ‘ A = ‘ , A,’ANGKANYA =

?’ HASIL DARI Y = ( A + B )

‘,CHR(A)

+ C ’

? ‘ B = ‘ , B’,ANGKANYA =

?’ DIMANA ‘

‘,CHR(B)

? ‘ A = ‘ , A

? ‘ C = ‘ , C,’ANGKANYA =

? ‘ B = ‘ , B

‘,CHR(C)

? ‘ C = ‘ , C

? ‘ Y = ‘ , Y

? ‘ Y = ‘ , Y Buatlah 17.

Masukan

data

character.

berupa

sampai cara

program dengan

seperti

dari

Y16h diatas

Y1h

dengan hanya

saja nama file yang berbeda Y1h = ( A + B ) + C

dari Y1h sampai dengan Y16h

Y5h = ( A X B ) + C

dan rumusnya yang berbeda.

Y9h = ( A / B ) + C

Modify command y2h

Y2h = ( A + B ) / C

SET TALK OFF

Y6h = ( A X B ) / C

CLEAR

Y10h = ( A / B ) / C

ACCEPT “ A = “ TO A

Y3h = ( A + B ) X C

ACCEPT “ B = “ TO B

MODUL DBASE III PLUS - BACA – COBA - BISA

:14

ACCEPT “ C = “ TO C Y = ( CHR( A ) + CHR( B ) ) Y = ( CHR( A ) + CHR( B ) )

+ CHR( C )

+ CHR( C )

?’ HASIL DARI Y = ( A + B )

?’ HASIL DARI Y = ( A + B )

+ C ’

+ C ’

?’ DIMANA ‘

?’ DIMANA ‘

? ‘ A = ‘ , A,’ANGKANYA =

? ‘ A = ‘ , A,’ANGKANYA =

‘,CHR(A)

‘,CHR(A)

? ‘ B = ‘ , B’,ANGKANYA =

? ‘ B = ‘ , B’,ANGKANYA =

‘,CHR(B)

‘,CHR(B)

? ‘ C = ‘ , C,’ANGKANYA =

? ‘ C = ‘ , C,’ANGKANYA =

‘,CHR(C)

‘,CHR(C)

? ‘ Y = ‘ , Y

? ‘ Y = ‘ , Y Modify command y5h Modify command y3h

SET TALK OFF

SET TALK OFF

CLEAR

CLEAR

ACCEPT “ A = “ TO A

ACCEPT “ A = “ TO A

ACCEPT “ B = “ TO B

ACCEPT “ B = “ TO B

ACCEPT “ C = “ TO C

ACCEPT “ C = “ TO C Y = ( CHR( A ) + CHR( B ) ) Y = ( CHR( A ) + CHR( B ) )

+ CHR( C )

+ CHR( C )

?’ HASIL DARI Y = ( A + B )

?’ HASIL DARI Y = ( A + B )

+ C ’

+ C ’

?’ DIMANA ‘

?’ DIMANA ‘

? ‘ A = ‘ , A,’ANGKANYA =

? ‘ A = ‘ , A,’ANGKANYA =

‘,CHR(A)

‘,CHR(A)

? ‘ B = ‘ , B’,ANGKANYA =

? ‘ B = ‘ , B’,ANGKANYA =

‘,CHR(B)

‘,CHR(B)

? ‘ C = ‘ , C,’ANGKANYA =

? ‘ C = ‘ , C,’ANGKANYA =

‘,CHR(C)

‘,CHR(C)

? ‘ Y = ‘ , Y

? ‘ Y = ‘ , Y Modify command y6h Modify command y4h

SET TALK OFF

SET TALK OFF

CLEAR

CLEAR

ACCEPT “ A = “ TO A

ACCEPT “ A = “ TO A

ACCEPT “ B = “ TO B

ACCEPT “ B = “ TO B

ACCEPT “ C = “ TO C

ACCEPT “ C = “ TO C MODUL DBASE III PLUS - BACA – COBA - BISA

:15

Y = ( CHR( A ) + CHR( B ) )

Y = ( CHR( A ) + CHR( B ) )

+ CHR( C )

+ CHR( C )

?’ HASIL DARI Y = ( A + B )

?’ HASIL DARI Y = ( A + B )

+ C ’

+ C ’

?’ DIMANA ‘

?’ DIMANA ‘

? ‘ A = ‘ , A,’ANGKANYA =

? ‘ A = ‘ , A,’ANGKANYA =

‘,CHR(A)

‘,CHR(A)

? ‘ B = ‘ , B’,ANGKANYA =

? ‘ B = ‘ , B’,ANGKANYA =

‘,CHR(B)

‘,CHR(B)

? ‘ C = ‘ , C,’ANGKANYA =

? ‘ C = ‘ , C,’ANGKANYA =

‘,CHR(C)

‘,CHR(C)

? ‘ Y = ‘ , Y

? ‘ Y = ‘ , Y

Modify command y7h

Modify command y9h

SET TALK OFF

SET TALK OFF

CLEAR

CLEAR

ACCEPT “ A = “ TO A

ACCEPT “ A = “ TO A

ACCEPT “ B = “ TO B

ACCEPT “ B = “ TO B

ACCEPT “ C = “ TO C

ACCEPT “ C = “ TO C

Y = ( CHR( A ) + CHR( B ) )

Y = ( CHR( A ) + CHR( B ) )

+ CHR( C )

+ CHR( C )

?’ HASIL DARI Y = ( A + B )

?’ HASIL DARI Y = ( A + B )

+ C ’

+ C ’

?’ DIMANA ‘

?’ DIMANA ‘

? ‘ A = ‘ , A,’ANGKANYA =

? ‘ A = ‘ , A,’ANGKANYA =

‘,CHR(A)

‘,CHR(A)

? ‘ B = ‘ , B’,ANGKANYA =

? ‘ B = ‘ , B’,ANGKANYA =

‘,CHR(B)

‘,CHR(B)

? ‘ C = ‘ , C,’ANGKANYA =

? ‘ C = ‘ , C,’ANGKANYA =

‘,CHR(C)

‘,CHR(C)

? ‘ Y = ‘ , Y

? ‘ Y = ‘ , Y

Modify command y8h SET TALK OFF

Modify command y10h

CLEAR

SET TALK OFF

ACCEPT “ A = “ TO A

CLEAR

ACCEPT “ B = “ TO B

ACCEPT “ A = “ TO A

ACCEPT “ C = “ TO C

ACCEPT “ B = “ TO B ACCEPT “ C = “ TO C

MODUL DBASE III PLUS - BACA – COBA - BISA

:16

Y = ( CHR( A ) + CHR( B ) )

?’ HASIL DARI Y = ( A + B )

+ CHR( C )

+ C ’

?’ HASIL DARI Y = ( A + B )

?’ DIMANA ‘

+ C ’

? ‘ A = ‘ , A,’ANGKANYA =

?’ DIMANA ‘

‘,CHR(A)

? ‘ A = ‘ , A,’ANGKANYA =

? ‘ B = ‘ , B’,ANGKANYA =

‘,CHR(A)

‘,CHR(B)

? ‘ B = ‘ , B’,ANGKANYA =

? ‘ C = ‘ , C,’ANGKANYA =

‘,CHR(B)

‘,CHR(C)

? ‘ C = ‘ , C,’ANGKANYA =

? ‘ Y = ‘ , Y

‘,CHR(C) ? ‘ Y = ‘ , Y

Modify command y13h SET TALK OFF

Modify command y11h

CLEAR

SET TALK OFF

ACCEPT “ A = “ TO A

CLEAR

ACCEPT “ B = “ TO B

ACCEPT “ A = “ TO A

ACCEPT “ C = “ TO C

ACCEPT “ B = “ TO B ACCEPT “ C = “ TO C

Y = ( CHR( A ) + CHR( B ) ) + CHR( C )

Y = ( CHR( A ) + CHR( B ) )

?’ HASIL DARI Y = ( A + B )

+ CHR( C )

+ C ’

?’ HASIL DARI Y = ( A + B )

?’ DIMANA ‘

+ C ’

? ‘ A = ‘ , A,’ANGKANYA =

?’ DIMANA ‘

‘,CHR(A)

? ‘ A = ‘ , A,’ANGKANYA =

? ‘ B = ‘ , B’,ANGKANYA =

‘,CHR(A)

‘,CHR(B)

? ‘ B = ‘ , B’,ANGKANYA =

? ‘ C = ‘ , C,’ANGKANYA =

‘,CHR(B)

‘,CHR(C)

? ‘ C = ‘ , C,’ANGKANYA =

? ‘ Y = ‘ , Y

‘,CHR(C) ? ‘ Y = ‘ , Y

Modify command y14h SET TALK OFF

Modify command y12h

CLEAR

SET TALK OFF

ACCEPT “ A = “ TO A

CLEAR

ACCEPT “ B = “ TO B

ACCEPT “ A = “ TO A

ACCEPT “ C = “ TO C

ACCEPT “ B = “ TO B ACCEPT “ C = “ TO C

Y = ( CHR( A ) + CHR( B ) )

Y = ( CHR( A ) + CHR( B ) )

+ CHR( C )

+ CHR( C ) MODUL DBASE III PLUS - BACA – COBA - BISA

:17

?’ HASIL DARI Y = ( A + B )

?’ HASIL DARI Y = ( A + B )

+ C ’

+ C ’

?’ DIMANA ‘

?’ DIMANA ‘

? ‘ A = ‘ , A,’ANGKANYA =

? ‘ A = ‘ , A,’ANGKANYA =

‘,CHR(A)

‘,CHR(A)

? ‘ B = ‘ , B’,ANGKANYA =

? ‘ B = ‘ , B’,ANGKANYA =

‘,CHR(B)

‘,CHR(B)

? ‘ C = ‘ , C,’ANGKANYA =

? ‘ C = ‘ , C,’ANGKANYA =

‘,CHR(C)

‘,CHR(C)

? ‘ Y = ‘ , Y

? ‘ Y = ‘ , Y

Modify command y15h SET TALK OFF CLEAR

18.Pada

pelajaran

ACCEPT “ A = “ TO A

terdapat

ACCEPT “ B = “ TO B

perpindahan,

ACCEPT “ C = “ TO C

percepatan

fisika

konsep

jarak,

kecepatan, yang

dinyatakan oleh persamaan Y = ( CHR( A ) + CHR( B ) )

gerak.

+ CHR( C )

Sebuah

benda

bergerak

?’ HASIL DARI Y = ( A + B )

dengan persamaan:

+ C ’

Rx = 2t2

?’ DIMANA ‘

Ry = 4t2

? ‘ A = ‘ , A,’ANGKANYA =

Rz = 6t2

‘,CHR(A)

Setelah bergerak 2 dan

? ‘ B = ‘ , B’,ANGKANYA =

4 detik tentukan jarak,

‘,CHR(B)

perpindahan,

? ‘ C = ‘ , C,’ANGKANYA =

dan

‘,CHR(C)

tiap detik.

kecepatan

percepatan

pada

? ‘ Y = ‘ , Y MODIFY COMMAND FIS Modify command y16h

SET TALK OFF

SET TALK OFF

CLEAR

CLEAR

T1 = 2

ACCEPT “ A = “ TO A

T2 = 4

ACCEPT “ B = “ TO B

RX1 = 2 * T1 * T1

ACCEPT “ C = “ TO C

RX2 = 2 * T2 * T2 RY1 = 4 * T1 * T1

Y = ( CHR( A ) + CHR( B ) )

RY2 = 4 * T2 * T2

+ CHR( C )

RZ1 = 6 * T1 * T1 RZ2 = 6 * T2 * T2

MODUL DBASE III PLUS - BACA – COBA - BISA

:18

JX = RX1 + RX2

?’ KECEPATAN

JY = RY1 + RY2

KE-1 = ‘, VY1

JZ = RZ1 + RZ2

?’ KECEPATAN Y

PX = RX2 – RX1

KE-2 = ‘, VY2

PY = RX2 – RX1

?’ KECEPATAN

PZ = RX2 – RX1

KE-1 = ‘, VZ1

VX 1= RX1 / T1

?’ KECEPATAN Z

VX 2= RX2 / T2

KE-2 = ‘, VZ2

VY 1= RY1 / T1

?’

VY 2= RY2 / T2

KE-1 = ‘, aX1

VZ 1= RZ1 / T1

?’ PERCEPATAN X

VZ 2= RZ2 / T2

KE-2 = ‘, aX2

aX1= VX1 / T1

?’ PERCEPATAN

aX2= VX2 / T2

KE-1 = ‘, aY1

aY1= VY1 / T1

?’ PERCEPATAN Y

aY2= VY2 / T2

KE-2 = ‘, aY2

aZ1= VZ1 / T1

?’ PERCEPATAN

aZ2= VZ2 / T2

KE-1 = ‘, aZ1

?’ JARAK X DETIK KE-1 =

?’ PERCEPATAN Z

‘, RX1

KE-2 = ‘, aZ2

?’ JARAK X DETIK KE-2 =

19.

Y DETIK

Z DETIK

PERCEPATAN

Pada

DETIK

DETIK X

DETIK DETIK

Y DETIK DETIK Z DETIK

pelajaran

DETIK fisika

‘, RX2

mungkin anda masih ingat

?’ JARAK Y DETIK KE-1 =

gerak melingkar. Terdapat

‘, RY1

3 buah roda A, B, dan C.

?’ JARAK Y DETIK KE-2 =

Masing-masing

‘, RY2

jari-jari

?’ JARAK Z DETIK KE-1 =

meter.

‘, RZ1

dalam

?’ JARAK Z DETIK KE-2 =

Roda

‘, RZ2

dengan roda A. Jika roda

?’ PERPINDAHAN X

= ‘,

PX = ‘,

C

B

4,

dan

6

A

berada

sedangkan

disambungkan

berputar

dengan 10

Hz.

Tentukan?

PY

a. Perioda roda B

?’ PERPINDAHAN Z

= ‘,

PY

b. Kecepatan sudut roda B

X DETIK

KE-1 = ‘, VX1 ?’ KECEPATAN X

Roda

frekuensi

?’ PERPINDAHAN Y

?’ KECEPATAN

2,

roda

B

memiliki

c. Kecepatan

linier

roda B DETIK

KE-2 = ‘, VX2

MODUL DBASE III PLUS - BACA – COBA - BISA

d. Kecepatan sudut roda A

:19

e. Kecepatan

linier

?perioda a = ‘, ta

roda A

?’kecepatan linier c =

f. Frekuensi roda A

‘,vc

g. Perioda roda A

?;kecepatan

h. Kecepatan

linier

sudut

c

=

‘,wc

roda C

?’frekuensi c = ‘,fc

i. Kecepatan sudut roda

?’perioda c = ‘, tc

C j. Frekuensi roda C

20.

k. Perioda roda C

Bukalah

kembali

file

barang.dbf, dengan cara: USE BARANG

Modi comm gerak;

LIST

Set talk off

Setelah

table

Clear

seperti berikut:

Ra=2

KOD, BAR, HAR, JUM, BAY

Rb=4

Anda

Rc=6

pada kolom barang dan harga

Fb=10

dengan

harus

terlihat

memasukan

perintah

data

APPEND,

seperti berikut: Tb = 1/fb Wb = 2 * 3.14 * fb

KOD

BAR

HAR

JUM

Vb = wb * rb

A

E

100

2

wa = wb

B

F

200

3

va = wa * ra

C

S

300

5

fa = wa / 2 * 3.14

A

E

100

2

ta = 1 / fa

B

F

200

1

vc = va

C

S

300

4

BAYAR

wc = vc / rc fc = wc / 2 * 3.14

Setelah

itu

buatlah

tc = 1 / fc

programnya untuk menghitung

?’Perioda b = ‘ , tb

besarnya

?’kecepatan sudut b = ‘

setiap barang.

pembataran

untuk

, wb ?’ kecepatan linier b =

MODIFY COMMAND BARANG

‘ , vb

SET TALK OFF

?’ kecepatan sudut a =

CLEAR

‘ , wa

USE BARANG

?’kecepatan linier a =

DO WHILE .NOT. EOF( )

‘,va

BAYAR1 = HARGA * JUMLAH

?’frekuensi a = ‘, fa

REPLACE BAYAR WITH BAYAR1

MODUL DBASE III PLUS - BACA – COBA - BISA

:20

?KODE,

BARANG,

HARGA,

JUMLAH, BAYAR1

22.

Bukalah

kembali

bidang.dbf dengan cara:

SKIP

Use bidang

ENDDO

List

21.

Bukalah

file

kembali

nilai.dbf

file

Setelah

dengan

table

diperlihatkan

perintah:

sebagai

berikut:

Use nilai List

T P L ATP ATL

APL

V

2 9 3 Setelah data tampak seperti

2 4 5

table berikut:

7 2 8

NAMA,

N1, N2,

4 8 7

A

4

5

5 3 8

B

2

4

6 8 9

C

2

6

7 9 2

D

2

4

Buatlah

E

6

8

menghitung ATP, ATL, APL,

F

2

7

V

G

2

9

H

5

6

I

3

8

SET TALK OFF

J

3

4

CLEAR

programnya

untuk

USE BIDANG Buatlah

program

untuk

menghitung jum dan rata.

DO WHILE .NOT. EOF ( ) ATP1 = T * P ATL1 = T * L

SET TALK OFF

APL1 = P * L

CLEAR

V1 = P * T * L

USE NILAI

REPLACE

ATP WITH ATP1

DO WHILE .NOT. EOF ( )

REPLACE

ATL WITH ATL1

JUM1 = N1 + N2

REPLACE

APL WITH APL1

RATA1 = JUM1/2

REPLACE

V WITH V1

REPLACE JUM WITH JUM1

?

REPLACE RATA WITH RATA1

APL1

T,

P,

L,

ATP1,

ATL1,

?NO, NAMA, N1, N2, JUM, RATA SKIP

SKIP

ENDDO

ENDDO

MODUL DBASE III PLUS - BACA – COBA - BISA

:21

23.

Bukalah

kembali

file

kredit.dbf dengan cara :

Use pegawai List

Use kredit List

NAMA, GOL, STATUS, ANAK A

3

1

5

table

B

2

0

0

seperti

C

1

0

0

berikut:

D

3

1

2

BAR, HAR, DP, SISA

E

1

1

1

A

10000 3000

F

2

1

3

B

20000 3500

G

3

0

0

C

30000 4000

D

40000 4500

E

50000 5000

Buatlah

program

Setelah diperlihatkan

untuk

mencari data alamat Buatlah

programnya

menghitung dan

untuk

sisa,

bln2

bln1, dengan

ketentuan:

MODIFY COMMAND CARPEG SET TALK OFF CLEAR USE PEGAWAI

Sisa = harga – dp

ACCEPT

Bln1 = sisa x 15%

MALAMAT

Bln2 = sisa x 85%

LIST FOR ALAMAT=MALAMAT

SET TALK OFF

25. Bukalah

CLEAR

“

ALAMAT

kembali

=

“

TO

file

fis1.dbf dengan cara :

USE KREDIT

Use fis1

DO WHILE .NOT. EOF ( )

List

SISA1 = HARGA – DP

Kemudian

BLN11 = SISA * 15/100

untuk

BLN22 = SISA * 85/100

diminta

buat

programnya

menentukan

yang

REPLACE SISA WITH SISA1 REPLACE BLN1 WITH BLN11 REPLACE BLN2 WITH BLN22 ?

BARANG,

HARGA,

DP,

26. Bukalah

kembali

file

fis2.dbf dengan cara : Use fis2

SISA1, BLN11, BLN22

List

SKIP

Kemudian

ENDDO

untuk

buat

programnya

menentukan

yang

diminta 24. Bukalah

kembali

file

pegawai.dbf dengan cara : MODUL DBASE III PLUS - BACA – COBA - BISA

:22

27. Bukalah

kembali

file

fis3.dbf dengan cara :

Buatlah harga

program

500,

dimana

600,

dan

700

Use fis3

berubah menjadi 550, 650,

List

dan 750.

Kemudian untuk

buat

programnya

menentukan

yang

MODIFY COMMAND RUBAH

diminta SET TALK OFF 28. Bukalah

kembali

file

fis4.dbf dengan cara :

CLEAR USE RUBAH

Use fis4 ACCEPT “ NAMA BARANG = “

List Kemudian untuk

buat

programnya

menentukan

yang

TO MBARANG INPUT “ KENAIKAN = “ TO NAIK

diminta

LOCATE 29. Bukalah

kembali

file

fis5.dbf dengan cara :

FOR

UPPER(BARANG)

= UPPER(MBARANG) REPLACE

HARHA

WITH

HARGA+NAIK

Use fis5 List Kemudian untuk

buat

programnya

menentukan

yang

diminta 30.

Diberikan seperti

database

berikut

dalam

BARANG

oleh

garis

horizontal

vertical,

setiap

perpotongan

garis

dan

horizontal

dan titik

vertical merupakan

tempat karakter atau posisi karakter.

file rubah.dbf: NO

Pada layar monitor dibatasi

Monitor

HARGA

memiliki

1

A

100

minimum

2

B

200

80,25

3

C

300

4

D

400

5

E

500

6

F

600

SELAMAT

7

G

700

BEKERJA

8

H

800

11,25

9

I

900

DBASE

10

J

1000

posisi 12,25

31.

0,0

dan

Buatlah

titik maksimum

program

yang

menampilkan tulisan DATANG dengan

III

PLUS

DAN posisi dengan

MODI COMM POSI MODUL DBASE III PLUS - BACA – COBA - BISA

:23

@ 11,25 SET TALK OFF

@ 12,25

CLEAR

@ 13,25

@

10,25

SAY

“

-----------------------

Atau

menggunakan

-----------------------

perintah berikut:

“ @ 11,15 SAY “ SELAMAT

MODI COMM POSI2

DATANG DAN BEKERJA” @

12,25

---------

SAY DBASE

“

SET TALK OFF

III

CLEAR

PLUS ---------------- “

@

@

“

-----------------------

-----------------------

-----------------------

-----------------------

“

- “

@ 11,15 SAY “ SELAMAT

13,25

SAY

10,25

SAY

“

DATANG DAN BEKERJA” 32. Seperti nomor 18, bila tulisan tepat

akan di

@

dihapus

12,25

---------

titik-titiknya

SAY

“

DBASE

III

PLUS ---------------- “

maka perintahnya:

@

13,25

SAY

“

----------------------MODI COMM POSI1

----------------------- “

SET TALK OFF

@ 10,25 clear to 13,25

CLEAR @

10,25

SAY

“

-----------------------

33.

Seperti

soal

-----------------------

tetapi

“

ditambah

@ 11,15 SAY “ SELAMAT

atau ganda:

nomor

tampilan bingkai

18

program tunggal

DATANG DAN BEKERJA” @

12,25

---------

SAY DBASE

“

MODI COMM POSI3

III

PLUS ---------------- “

SET TALK OFF

@

CLEAR

13,25

SAY

“

-----------------------

@ 10,25 to 13,25 double

-----------------------

@ 11,15 SAY “ SELAMAT

- “

DATANG DAN BEKERJA”

@ 10,25 MODUL DBASE III PLUS - BACA – COBA - BISA

:24

@

12,25

---------

SAY DBASE

“ III

PLUS ---------------- “ @

13,25

SAY

SET

COLOR

TO

STANDAR,

ENHANCED,

BORDER,

BACKGROUND

“

---------------------------------------------

MODI COMM WAR

- “ SET STATUS OFF Atau

menggunakan

bingkai tunggal

SET TALK OFF CLEAR SET COLOR TO W/G

@ 10,25 to 13,25

@ 6,15 TO 15,65 DOUBLE

@ 11,15 SAY “ SELAMAT

SET COLOR TO

DATANG DAN BEKERJA”

@ 10,22 TO 12,58

@

12,25

---------

SAY DBASE

“ III

RB

SET COLOR TO B/GR+ @

9,32

SAY

PLUS ---------------- “

DATANG”

@

SET COLOR TO W*

13,25

SAY

“

“

SELAMAT

-----------------------

@ 11,32 SAY “ DBASE III

-----------------------

PLUS ”

- “

SET COLOR TO WAIT “ TEKAN ENTER “

34.Seperti tetapi

soal

nomor

18

tampilan

program

warna

supaya

ditambah

tanpak semarak.

SET STATUS ON 35. Program menggunakan GET dan READ

Warna

Kode

Diberikan

Hitam

N

berikut:

Biru

B

Hijau Biru muda

data

seperti

CREATE GETREAD G

BG

NO

A

B

C

Kosong

X

1

2

4

Merah

R

2

1

9

Magenta

RB

3

3

5

Coklat

GR

4

2

6

Kuning

GR+

5

8

9

Putih

W

6

3

7

7

2

7

Cara menggunakan perintah

8

2

8

warna yaitu:

9

5

7

10

2

9

MODUL DBASE III PLUS - BACA – COBA - BISA

D

:25

Diberikan Dimana

data

diinput

C

dan

menggunakan

D

data

sebagai

berikut:

get

dan read

Create ulang1

MODI COMM GETREAD

NO NAMA MASSA TINGGI 1

A

55

150

SET TALK OFF

2

B

60

165

CLEAR

3

C

70

170

USE GETREAD

4

D

80

150

MC = 0

5

E

85

165

MD = 0 @ 5,10 SAY “ C = “

MODI COMM CARI

@ 5,20 GET MC @ 6,10 SAY “ D = “

SET TALK OFF

@ 6,20 GET MD

CLEAR

READ

USE ULANG1 JAWAB = “ Y ”

ATAU

DO WHILE JAWAB = “ Y “ ACCEPT

MODI COMM GETREAD1

“

NAMA

=

“

TO

MNAMA LIST FOR NAMA=MNAMA

SET TALK OFF

WAIT

“

CARI

DATA

CLEAR

(Y/T) “ TO JAWAB

USE GETREAD

ENDDO

LAGI

MC = 0 MD = 0

ATAU

@ 5,10 SAY “ C = “

GET

MC

MODI COMM CARI1

@ 6,10 SAY “ D = “

GET

MD

SET TALK OFF

READ

CLEAR USE ULANG1

36. Adakalanya anda mencari data maka

dalam

program

digunakan data

suatu untuk

tertentu

penambahan pengulangan.

table,

ULANG = . T . DO WHILE ULANG

berikut

ACCEPT

mencari

MNAMA

dengan program

“

NAMA

=

“

TO

LIST FOR NAMA=MNAMA WAIT

“

CARI

DATA

LAGI

(Y/T) “ TO JAWAB IF UPPER(JAWAB) = “T”

MODUL DBASE III PLUS - BACA – COBA - BISA

:26

ULANG = .F.

SKIP

ENDIF

ENDDO

ENDDO 39.

Program

untuk

mencetak

isi table ke printer 37. Program bertumpuk Data

dari

file

MODI COMM TUMPUK

pegawai.dbf

SET TALK OFF

NAMA

CLEAR

A

3

1

5

A=0

B

3

1

2

DO WHILE A<100

C

1

0

0

A=A+1

D

1

0

0

B=0

E

2

1

1

DO WHILE B<100

F

2

1

0

B=B+1

G

1

0

1

C=A*B

Maka kalau ditampilkan ke

?STR(A,2)+’

X

’

+STR(B,2)+’ = ‘ +STR(C,2)

GOL

printer

STATUS

ikuti

ANAK

perintah

sederhana berikut:

ENDDO ?

MODI COMM CETAK

ENDDO SET TALK OFF 38.

Program

semua

untuk

isi

table

membaca dalam

CLEAR USE PEGAWAI

file tertentu. ACCEPT “ CETAK KE PRINTER Buka

kembali

file

(Y/T) ? “ TO JAWAB

pegawai.dbf

IF JAWAB = “ Y “

Use pegawai

SET PRINTER ON

List

ENDIF

Kemudian buat programnya

DO WHILE .NOT. EOF ( ) ?NAMA,

MODI COMM LIHAT

ALAMAT,

GOL,

STATUS, ANAK SKIP

SET TALK OFF

ENDDO

CLEAR

SET PRINTER OFF

DO WHILE .NOT. EOF ( ) ? NAMA, ALAMAT MODUL DBASE III PLUS - BACA – COBA - BISA

:27

40.

Bukalah

kembali

file

KET11 = “LULUS”

nilai.dbf atau anda buka

ENDIF

kembali program nilai.prg

IF RATA1< 6

yang

KET22 = “E”

ditampilkan

sebagai

berikut:

ENDIF IF RATA1>=6 .AND. RATA1 < 7

NO

NAMA N1

N2

JUM

RATA KET1 KET2 1

A

ENDIF 4

5 2

2

4 2

6 2

4 6

8 2

7 2

9

REPLACE KET2 WITH KET22 ?NO,

H

5

6 9

REPLACE RATA WITH RATA1 REPLACE KET1 WITH KET11

G

8

ENDIF REPLACE JUM WITH JUM1

F

7

IF RATA1>=9 KET22 = “A”

E

6

KET22 = “B” ENDIF

D

5

ENDIF IF RATA1>=8 .AND. RATA1 < 9

C

4

IF RATA1>=7 .AND. RATA1 < 8 KET22 = “C”

B

3

KET22 = “D”

NAMA,

N1,

N2,

JUM,

RATA,KET11,KET22 SKIP

I

3

ENDDO

J

3

41. Suatu perusahaan menerima

8 10 4

pegawai antara

yang 20

dan

umurnya 30

tahun.

SET TALK OFF

File

CLEAR

berikut ini berisi daftar

USE NILAI

calon pegwai:

database

calon.dbf

DO WHILE .NOT. EOF ( ) JUM1 = N1 + N2

NO

RATA1 = JUM1/2

1

A

18

2

B

20

IF RATA1< 6

3

C

21

KET11 = “HER”

4

D

17

ENDIF

5

E

19

6

F

22

7

G

23

IF RATA1>= 6

MODUL DBASE III PLUS - BACA – COBA - BISA

NAMA

UMUR

KET

:28

8

H

25

7

S

80000

9

I

30

8

K

20000

10

J

31

9

L

100000

10

N

200000

MODI COMM TERIMA MODI COMM DISKON SET TALK OFF CLEAR

SET TALK OFF

USE CALON

CLEAR

DO WHILE .NOT. EOF ( )

USE LANGGA

IF UMUR >= 20 .AND. UMUR

DO WHILE .NOT. EOF ( )

<= 30

IF JUMLAH < 50000

KET=”TERIMA”

HARGA = JUMLAH

ENDIF

ELSE

IF UMUR < 20 .AND. UMUR >

HARGA = JUMLAH * 10

30

/ 100

KET=”TIDAK TERIMA”

ENDIF

ENDIF

REPLACE HARGA WITH HARGA

REPLACE

KETERANGAN

WITH

?NO, NAMA, JUMLAH, HARGA

KET

SKIP

?NO, NAMA, UMUR, KET

ENDDO

SKIP ENDDO 42.

ATAU

Suatu

took

potongan pembeli

harga yang

memberikan 10%

bagi

SET TALK OFF CLEAR

berbelanja

atau

lebih.

?

langga.dbf

berisi

-------------------------

data langganan dan jumlah

-------------------------

pembeliannya.

--------------- “

Rp. File

50000

“

? “ NO NO

NAMA JUMLAH

HARGA

NAMA JUMLAH

“

?”

HARGA

-------------------------

1

Q

10000

2

F

20000

3

E

70000

4

Y

100000

USE LANGGA

5

A

300000

JUM = 0

6

J

50000

DO WHILE .NOT. EOF ( )

--------------------------------------- “

MODUL DBASE III PLUS - BACA – COBA - BISA

:29

IF JUMLAH < 50000

B

BB

HARGA = JUMLAH

06/10/06

ELSE

C

CC

HARGA = JUMLAH * 10 / 100 ?NO,

06/01/06

NAMA,

JUMLAH,

06/01/06

06/03/06 D

DD

STR(HARGA,7)

06/02/06

06/13/06

JUM=JUM+HARGA

E

EE

SKIP

06/02/06

06/05/06

ENDDO ?

“

MODI COMM PUS

-------------------------------------------------

SET TALK OFF

--------------- “

CLEAR

?

“

HARGA

TOTAL

“

+

USE PUS

“

DO WHILE .NOT. EOF ()

STR(JUM,7) ?

-------------------------

IF DTOC(AKHIR) < > “

-------------------------

/

--------------- “

LEWAT = AKHIR – AWAL

43.

Perpustakaan

SMAN

Cikembar

1

membuat

administrasi peminjam

bagi

buku

sebagai

berikut:

terdapat

database

pus.dbf

yang

/

“

IF LEWAT <= 7 DENDA = 0 ELSE DENDA

=

(

LEWAT

-7)

*

1000 ENDIF

berisi NO, NAMA, ALAMAT, JUDUL, AWAL, AKHIR. Untuk

?NAMA,

setiap

AKHIR, LEWAT, DENDA

waktu hari,

siswa pinjam bila

hari

selama

lebih

dari

maka

kelebihan Rp.

diberikan

hari

1000.

diberikan

AWAL,

7 7

jumlah di

JUDUL,

denda

ENDIF SKIP ENDDO

Berikut table

44.

Suatu

file

database

jmkerja1.dbf terdiri dari

peminjaman siswa.

nama dan jam_kerja. Upah NAMA JUDUL AWAL AKHIR

perjam Rp. 500,- karyawan

A

yang bekerja lebih dari 8

AA 06/02/06

06/01/06

jam dianggap kerja lembur

MODUL DBASE III PLUS - BACA – COBA - BISA

:30

dengan tariff lembur 1.5

C

7.15

15.00

kali upah normal

D

7.02

16.00

E

7.00

16.00

F

7.15

15.30

NAMA

JAM_KERJA

A

3

G

7.10

17.00

B

5

H

7.12

14.00

C

6

I

7.10

12.00

D

9

J

7.00

13.00

E

8

F

14

SET TALK OFF

G

10

CLEAR

H

2

UPAHJAM=500

I

6

USE JAMKERJA2

J

9

DO WHILE .NOT. EOF () JAMKERJA=(INT(JM_PL)+(JM_

MODI COMM JMKERJA1

PL-INT(JM_PL))/0.6(INT(JM_MS)+(JM_MSINT(JM_MS))/0.6)

SET TALK OFF

IF JAMKERJA>8

CLEAR

UPAH=8*UPAHJAM+(JAMKERJA-

USE JMKERJA1

8)*1.5*UPAHJAM

DO WHILE .NOT. EOF ()

ELSE

IF JAM_KERJA>8

UPAH=JAMKERJA*UPAHJAM

UPAH

ENDIF

=

8*500+(JAM_KERJA-

8)*1.5*500

?NAMA,

JM_MS,

JM_PL,

ELSE

JAMKERJA, ROUND(UPAH,-1)

UPAH=JAM_KERJA*500

SKIP

ENDIF

ENDDO

?NAMA,JAM_KERJA,ROUND(UPA H,-1)

46.

File

jmkerja2.dbf

kita

SKIP

kembangkan dengan masukan

ENDDO

field

gol

pada

file

jmkerja1.dbf 45.

Seperti

tetapi

soal

nomor

dikembangkan

31 ada

NAMA, GOL, JM_MS, JM_PL

jam masuk dan jam pulang

A

1

7.00

15.00

sebagai berikut:

B

2

7.05

21.00

C

3

7.15

15.00

D

1

7.02

16.00

NAMA JM_MS

JM_PL

A

7.00

15.00

E

2

7.00

16.00

B

7.05

21.00

F

3

7.15

15.30

MODUL DBASE III PLUS - BACA – COBA - BISA

:31

G

2

7.10

17.00

47.

Sebuah

akademi

H

2

7.12

14.00

mengadakan

I

1

7.10

12.00

pertama

J

2

7.00

13.00

calon

militer saringan

dalam

penerimaan

mahasiswa

Syarat

baru.

yang

Untuk gol = 1 upah perjam =

dipenuhi

500

mahasiswa

Untuk gol = 2 upah perjam =

untuk

600

minimal

Untuk gol = 3 upah perjam =

minimal

700

sedangkan

seorang baru

pria

tinggi

harus adalah

tinggi

165

cm

umur

tahun,

untuk

badan

badan

dan

18

:

160

wanita cm

dan

SET TALK OFF

umur 17 tahun. Diberikan

CLEAR

file

database

camhs.dbf

seperti berikut: USE JAMKERJA2 DO WHILE .NOT. EOF ()

NAMA

KEL TINGGI UMUR

JAMKERJA=(INT(JM_PL)+(JM_

A

L

150

17

PL-INT(JM_PL))/0.6-

B

P

160

18

(INT(JM_MS)+(JM_MS-

C

P

165

19

INT(JM_MS))/0.6)

D

L

155

20

IF GOL=1

E

L

150

17

UPAHJAM=500

F

P

165

18

ELSE

G

P

170

20

IF GOL=2

H

L

165

17

UPAHJAM=600

I

L

165

18

ELSE

J

P

170

19

UPAHJAM=700 ENDIF

MODI COMM CAMHS

ENDIF IF JAMKERJA>8

SET TALK OFF

UPAH=8*UPAHJAM+(JAMKERJA-

CLEAR

8)*1.5*UPAHJAM

USE CAMHS

ELSE

DO WHILE .NOT. EOF()

UPAH=JAMKERJA*UPAHJAM

IF KELAMIN=”P”

ENDIF

IF

?NAMA,

JM_MS,

JM_PL,

TINGGI

>=

165

.AND.

UMUR >=18

JAMKERJA, ROUND(UPAH,-1)

STATUS = “DITERIMA”

SKIP

ELSE

ENDDO

STATUS=”DITOLAK” ENDIF

MODUL DBASE III PLUS - BACA – COBA - BISA

:32

ELSE IF

SET TALK OFF

TINGGI

>=

160

.AND.

CLEAR

UMUR >=17

USE KYW

STATUS = “DITERIMA”

DO WHILE .NOT. EOF()

ELSE

GAJI=POKOK

STATUS=”DITOLAK”

IF STATUS=”S”

ENDIF

IF JM_ANAK>3

ENDIF

GAJI=POKOK+(0.05+3*0.01)*

?NAMA,

KELAMIN,

TINGGI,

POKOK

UMUR, STATUS

ELSE GAJI=POKOK+(0.05+JM_ANAK*

SKIP

0.01)*POKOK

ENDDO

ENDIF ENDIF

48.

Suatu

memiliki

perusahaan file

database

kyw.dbf karyawan.

menikah(B)

diberikan

gaji

JM_ANAK,

SKIP

gaji Pegawai

STATUS,

POKOK, GAJI

berisi

perhitungan belum

?NAMA,

ENDDO

yang hanya pokok

49.

Toko baju memiliki file database,

jika

jumlah

saja. Pegawai yang sudah

kemeja yang dibeli lebih

menikah

dari 5 lusin maka diberi

(S)

diberikan

tunjangan

untuk

anak

sebesar

untuk

setiap

1%

potongan 20%. Jika jumlah kemeja

kurang

dari

5

anak dan tunjangan istri

lusin

sebesar

merk “nyaman” kualitas A

5%

dari

gaji

pokok.

tidak

maka

untuk

diberi

kualitas NAMA ,

STAT,

ANAK,

POKOK

kemeja

potongan,

B

diberi

potongan 5%, untuk kemeja merk

lainnya

maka

A

0

0

10000

kualitas

B

1

4

20000

potongan 5% dan kualitas

C

1

2

30000

B diberi potongan 10%.

D

0

0

40000

E

0

0

10000

NO

F

1

1

20000

1

G

1

2

30000

KYW

MODUL DBASE III PLUS - BACA – COBA - BISA

diberi

HAR

KUA

MERK

2

100000

A

100000

B

NYAMAN 2

MODI COMM

JUM

A

4 NYAMIN

:33

3

6

100000

A

NYAMAN 4

4

100000

B

NYAMIN 5

6 2

Terdapat file database langgan.dbf

yang

menghitung

jumlah

harus 100000

A

NYAMAN 6

50.

pembeli

berisi

dibayar dengan

yang oleh

ketentuan

sebagai berikut: 100000

A

Bila jumlah tidak lebih

NYAMIN

dari

50000

potongan MODI COMM BELIKMJ

dari

SET TALK OFF

bila

dari

kelebihan

tidak 50000 dari

ada lebih maka 50000

diberikan potongan 10%.

CLEAR USE BELIKMJ

NAMA

DO WHILE .NOT. EOF()

A

100000

IF JUMLAH > 5

B

60000

BAYAR=0.8*HARGA_SAT*JUMLA

C

80000

H

D

200000

ELSE

E

150000

IF MERK=”NYAMAN”

F

50000

IF KUALITAS=”B”

G

60000

BAYAR=0.95*HARGA_SAT*JUML

H

40000

AH

I

30000

ELSE

J

80000

JUMLAH

BAYAR=HARGA_SAT*JUMLAH ENDIF

MODI COMM LANGGAN1

ELSE IF KUALITAS=”B”

SET TALK OFF

BAYAR=0.9*HARGA_SAT*JUMLA

CLEAR

H

USE LANGGAN

ELSE

DO WHILE .NOT. EOF()

BAYAR=0.95*HARGA_SAT*JUML

IF JUMLAH<50000

AH

HARGA=JUMLAH

ENDIF

ELSE

ENDIF

HARGA=50000+(JUMLAH-

ENDIF

50000(*0.9

?JUMLAH,HARGA_SAT,

ENDIF

KUALITAS, MERK, BAYAR

?NAMA, JUMLAH, HARGA

SKIP

SKIP

ENDDO

ENDDO

MODUL DBASE III PLUS - BACA – COBA - BISA

:34

51.

Terdapat

file

langgan.dbf

yang

menghitung

jumlah

harus pembeli

HARGA=50000+50000*0.9+(JU

berisi yang

MLAH-100000(*0.85

oleh

ENDIF

ketentuan

ENDIF

dibayar dengan

ELSE

database

?NAMA,JUMLAH,HARGA

sebagai berikut: Bila jumlah tidak lebih

SKIP

dari

ENDDO

50000

potongan dari

tidak bila

dari

kelebihan

ada lebih

50000

maka

dari

50000

52.

Terdapat

file

database

wjbpajak.dbf

berisi

diberikan potongan 10%.

pemberitahuan

Yang

berbelanja

karyawan dengan ketentuan

dari

100000

kelebihan

lebih maka

dari

pajak

bagi

sebagai berikut:

100000

mendapat potongan 15%.

Pendapat

Tidak

Kena

Pajak (PTKP) adalah: Rp. 960000 untuk wajib

NAMA

JUMLAH

pajak

A

100000

Rp. 480000 untuk wajib

B

60000

pajak yang menikah

C

80000

Rp. 960000 untuk wajib

D

200000

pajak

E

150000

masimum 3 anak

F

50000

G

60000

Penghasilan Kena Pajak

H

40000

(PKP)

I

30000

PKP

J

80000

PTKP

MODI COMM BAYAR2

yang

=

punya

anak

penghasilan

Prosentase

–

pajak

penghasilan: SET TALK OFF

PKP <= Rp. 10.000.000,-

CLEAR

dikenai 15%

USE LANGGAN

PKP

DO WHILE .NOT. EOF()

Rp.10.000.000

IF JUMLAH<50000

50.000.000,-

HARGA=JUMLAH

25%

ELSE

PKP >= Rp. 50.000.000,-

IF JUMLAH<100000

dikenai 35 %

antara s.d

Rp.

dikenai

HARGA=50000+(JUMLAH50000)*0.9 MODUL DBASE III PLUS - BACA – COBA - BISA

NAMA

STA

ANAK

HASIL

:35

A

Y

4

5000000

ATAU

B

T

0

5100000

C

Y

1

5400000

SET TALK OFF

D

Y

2

5200000

CLEAR

E

T

0

5100000

USE WJBPAJAK

F

Y

1

5500000

G

Y

3

5500000

@1,25

SAY

“PERHITUNGAN

PAJAK PENGHASILAN” @

2,10

SAY

“

SET TALK OFF

-------------------------

CLEAR

-------------------------

USE WJBPAJAK

----------------“

DO WHILE .NOT. EOF()

@

PTKP=960000

WJBPAJAK”

IF STATUS=”Y”

@ 3,25 SAY “ STATUS”

PTKP=PTKP+480000

@ 3,25 SAY “ JML ANAK”

IF JM_ANAK<=

@ 3,45 SAY “ PENGHASILAN”

PTKP=PTKP+JM_ANAK*480000

@ 3,60 SAY “ PAJAK”

ELSE

@

PTKP=PTKP+3*480000

-------------------------

ENDIF

-------------------------

ENDIF

----------------”

3,10

SAY

4,10

“

NAMA

SAY

“

PKP=HASIL-PTKP IF PKP<=0

DO WHILE .NOT. EOF()

PAJAK=0

PTKP=960000

ELSE

IF STATUS=”Y”

IF PKP<=10000000

PTKP=PTKP+480000

PAJAK=0.15*PKP

IF JM_ANAK<=

ELSE

PTKP=PTKP+JM_ANAK*480000

IF PKP <=50000000

ELSE

PAJAK=0.15*10000000+0.25*

PTKP=PTKP+3*480000

40000000+0.35*(PKP-

ENDIF

50000000)

ENDIF

ENDIF

PKP=HASIL-PTKP

ENDIF

IF PKP<=0

ENDIF

PAJAK=0

?NAMA,

STATUS,

ELSE

JM_ANAK,HASIL,PAJAK

IF PKP<=10000000

SKIP

PAJAK=0.15*PKP

ENDDO

ELSE IF PKP <=50000000

MODUL DBASE III PLUS - BACA – COBA - BISA

:36

PAJAK=0.15*10000000+0.25* 40000000+0.35*(PKP-

NAMA NILAI

50000000)

A

50

ENDIF

B

55

ENDIF

C

60

ENDIF

D

65

E

95

@ROW()+1,10 SAY NAMA

F

100

@ROW(),29 SAY STATUS

G

80

@ROW(),39 SAY JM_ANAK

H

85

@ROW(),45

I

75

J

60

SAY

HASIL

PICTURE “RP ##,###,###” @ROW(),60

SAY

PAJAK

PICTURE “RP ##,###,###”

MODI COMM TEST

SKIP

SET TALK OFF

ENDDO

CLEAR USE TEST

@ROW()+1,10

SAY

“

DO WHILE .NOT. EOF()

-------------------------

IF NILAI < 60

-------------------------

KETE=”TIDAK LULUS”

------- “

ELSE IF NILAI < 70

53.

terdapat

test.dbf

file

database

berisi

nilai

siswa

daftar

ELSE

dengan

IF NILAI < 80

criteria: nilai

KETE = “CUKUP”

KETE = “BAIK” <

60

maka

kete

ELSE

tidak lulus

IF NILAI < 90

nilai >= 60 maka kete

KETE = “BAIK SEKALI”

lulus

ELSE

nilai >= 60 dan nilai

KETE = “PINTER PISAN”

<70 maka kete cukup

ENDIF

nilai >= 70 dan nilai

ENDIF

<80 maka kete baik

ENDIF

nilai >= 80 dan nilai

ENDIF

<90

?NAMA, NILAI, KETE

maka

kete

baik

sekali

SKIP

nilai >= 90 maka kete

ENDDO

pinter pisan

MODUL DBASE III PLUS - BACA – COBA - BISA

:37

54.

Suatu

toko

menjual

barang secara kredit pada

WAKTU

langgananya.

TG_TRANS

Waktu

pembayaran hari,

bila

lewat

tempo

ada;ah

keterlambatan didenda

1%

–

IF WAKTU <=30 BAYAR = HARGA

setiap

satu dari

TG_BAYAR

30

pembayaran maka

=

ELSE

hari

BAYAR

jumlah

=

HARGA+(WAKTU-

30)*HARGA*0.01

pembeliannya

ENDIF MODI COMM TAGIH1 @12,15

SAY

“

WAKTU

SET TALK OFF

PEMBAYARAN = “

CLEAR

@12,43

NAMA = SPACE(15)

PICTURE “999 HARI “

ALAMAT=SPACE(15)

@13,15 SAY “ DIBAYAR =

NO_BARANG=SPACE(8)

“

HARGA=0

@13,43

TG_TRANS=CTOD(‘

/

/

/

/

SAY

WAKTU

SAY

BAYAR

PICTURE “RP 9,999,999 “

‘) TG_BAYAR=CTOD(‘

55. Seperti program nomor 41

‘)

tetapi

diberikan

@5,15 SAY “NAMA = “ GET

databasenya

NAMA

seperti berikut:

PICTURE

DAFGAJI.DBF

“AAAAAAAAAAAAAAA” @6,15 SAY “ALAMAT = “ GET

ALAMAT

Field

type width

PICTURE

dec

“XXXXXXXXXXXXXXX”

NIP

C 4

@7,15 SAY “NO.BARANG= “

NAMA

C 15

GET

ALAMAT C

NO_BARANG

PICTURE

“AAA-9999”

STATUS

@8,15

SAY

“HARGA

GET

HARGA

=

N 1

“

ANAK

N

PICTURE

TGLL

D

TGLM

D 8

GOL

N 1

“9,999,999” @9,15

15

SAY

“TGL.TRANSAKSI = “ GET

GAJI

N

2 8

7

TG_TRNS @10,15 SAY “TGL.BAYAR=

GAJI POKOK

“ GET TG_BAYAR

GOL = 1

RP. 1000000

READ

GOL = 2

RP. 2000000

MODUL DBASE III PLUS - BACA – COBA - BISA

:38

GOL = 3

RP. 3000000 DO CASE

TUNJANGAN

ISTRI

10%

DARI GAJI POKOK TUNJANGAN

CASE GOL = 1 POKOK = 1000000

ANAK

5%

CASE GOL = 2

(MAKSIMUM 3 ANAK) DARI

POKOK = 2000000

GAJI POKOK

CASE GOL = 3

TUNJANGAN MASA KERJA 2%

POKOK = 3000000

DARI GAJI POKOK

ENDCASE

MODI COMM DAFGAJI

IF STATUS = 1 TJ_ISTRI = 0.1*POKOK

SET TALK OFF USE

ENDIF

DAFGAJI

TERUS = .T.

IF ANAK <= 3 TJ_ANAK=0.05*ANAK*POKOK

DO WHILE

TERUS

ELSE

APPEND BLANK

TJ_ANAK=*.15*POKOK ENDIF

@5,20 SAY “NIP : “ GET NIP PICTURE “9999”

TH_INI = YEAR(DATE())

@6,20 SAY “NAMA : “ GET

TH_MULAI=YEAR(TGL_MULAI

NAMA PICTURE “@”

)

@7,20 SAY “ALAMAT : “

TH_KERJA=TH_INI-

GET ALAMAT PICTURE “@”

TH_MULAI

@5,20

TJ_MSKERJA=TH_KERJA*0.0

SAY

“STATUS(1=KAWIN

2*POKOK

0=TIDAK) : “ GET STATUS PICTURE “9999”

M_GAJI=POKOK

+

@5,20 SAY “JUMLAH ANAK

TJ_ISTRI+TJ_ANAK

+

: “ GET ANAK

TJ_MSKERJA

@5,20

SAY

“TGL.

LAHIR(DD/MM/YY) : “ GET

@14,20 SAY “GAJI : “

TGL_LAHIR PICTURE “@E”

@

@5,20

PICTURE “RP 9,999,999”

“TGL.MULAI(DD/MM/YY)

SAY

14,35

SAY

M_GAJI

:

“ GET TGL_MULAI PICTURE

REPLACE

“@E”

M_GAJI

GAJI

WITH

@5,20 SAY “GOL : “ GET GOL

JW = “T”

READ MODUL DBASE III PLUS - BACA – COBA - BISA

:39

@ 15,20 SAY “ ADA DATA

CLEAR

LAGI (Y/T) ? “ GET JW

INPUT 'BILANGAN A = '

PICTURE “@!”

TO A

READ

INPUT 'BILANGAN B = '

IF JW=”T”

TO B

TERUS = .F.

INPUT 'BILANGAN C = '

ENDDO

TO C Y = (A+B)+C ?'A = ',A SUB PROGRAM

?'B = ',B ?'C = ',C

56. Terdapat pilihan program dimana bila menekan salah satu

menu

tersebut

?'Y = (A+B)+C',Y WAIT ' TEKAN ENTER '

maka

program akan dijalankan :

CASE PIL = '2'

MODI COMM SUB1

CLEAR

SET TALK OFF

INPUT 'BILANGAN A = '

CLEAR

TO A INPUT 'BILANGAN B = '

PIL= ' '

TO B

@10,25

SAY

'

INPUT 'BILANGAN C = '

-----------------------

TO C

-----------------------

Y = (A+B)-C

-- '

?'A = ',A

@

11,

25

SAY

'

1.

Y=(A+B)+C ' @

12,

25

?'C = ',C SAY

'

2.

Y=(A+B)-C ' @

13,

25

14,

?'Y = (A+B)-C',Y WAIT ' TEKAN ENTER '

SAY

'

3.

Y=(A+B)/C ' @

?'B = ',B

25

CASE PIL = '3' SAY

'

CLEAR

-----------------------

INPUT 'BILANGAN A = '

-----------------------

TO A

- '

INPUT 'BILANGAN B = '

@ 16, 25 SAY ' TEKAN

TO B

[ 1/2/3 ] ' GET PIL

INPUT 'BILANGAN C = '

READ

TO C Y = (A+B)/C

CLEAR

?'A = ',A

DO CASE

?'B = ',B

CASE PIL = '1'

?'C = ',C

MODUL DBASE III PLUS - BACA – COBA - BISA

:40

?'Y = (A+B)/C',Y

?'Alas = ',a ?'Tinggi = ',t

WAIT ' TEKAN ENTER '

?'Luas Segi tiga = ',ls3

OTHERWISE

WAIT ' TEKAN ENTER '

?CHR(7) @10,25 SAY ' ANDA SALAH

CASE PIL = '2'

TEKAN '

CLEAR

@11,25

SAY

'

HARUS

TEKAN 1/2/3 '

INPUT 'Jari-jari = ' TO r ll = 3.14*r*r ?'Jari-jari = ',r

ENDCASE 57.

?'Luas lingkaran = ',ll

Terdapat

pilihan

untuk

WAIT ' TEKAN ENTER '

meghitung luas bidang CASE PIL = '3' SET TALK OFF

CLEAR

CLEAR

INPUT 'Panjang = ' TO P INPUT 'Lebar = ' TO L

PIL= ' '

l4p = p*l

@10,25

SAY

'

---------------------- ' @

11,

25

SAY

'

1.

?'Lebar = ',l Luas

Segitiga ' @

12,

25

?'Panjang = ',p

WAIT ' TEKAN ENTER ' SAY

'

2.

Luas

Lingkaran '

OTHERWISE

@ 13, 25 SAY ' 3. Luas Empat

?CHR(7)

persegi panjang '

@10,25

@

14,

25

SAY

'

SAY

'

ANDA

SALAH

HARUS

TEKAN

beberapa

file

TEKAN '

--------------------- '

@11,25

@ 16, 25 SAY ' TEKAN [ 1/2/3

1/2/3 '

SAY

'

] ' GET PIL READ

ENDCASE

CLEAR

58.Terdapat

DO CASE

databse yaitu :

CASE PIL = '1' CLEAR

-

INPUT 'Alas = ' TO a INPUT 'Tinggi = ' TO t

inputdat.prg ( program untuk masukan data)

-

ls3 = 0.5*a*t MODUL DBASE III PLUS - BACA – COBA - BISA

editdat.prg

(program

untuk mengedit data)

:41

-

-

hapusdat.prg

(program

@6,18

SAY

“

ALAMAT

:

“

untuk menghapus data)

GET ALAMAT

mendat.prg

@7,18 SAY “ GOLONGAN : “

(program

untuk merangkum 3 file

GET GOL

diatas)

@8,18 SAY “ STATUS( 0/1)

pegawai.dbf

: “ GET STATUS

( database )

@9,18 SAY “ JUMLAH ANAK : “ GET ANAK

NAMA GOL STATUS A

1

ANAK 0

JW = “T”

0 B

2

1

@12,18

SAY

“

ADA

LAGI

(Y/T) ? “ GET JW

5 C

READ

3

1

READ

1

1

IF JW = “ T “

1 D

EXIT

2 E

2

1

ENDDO

3 F

ENDIF

3

0

RETURN

1

0

MODI COMM EDITDAT

2

0

SET TALK OFF

0 G 0 H

CLEAR

0 I

3

1

DO WHILE .T.

2 J

USE PEGAWAI

1

1

3

CLEAR MNAMA = SPACE(15) @14,18 SAY “ NAMA PEGAWAI : “ GET MNAMA

MODI COMM INPUTDAT

READ CLEAR

SET TALK OFF

?” CATAT NOMOR RECORDNYA

CLEAR

“

USE PEGAWAI

LIST

DO WHILE .T.

TRIM(MNAMA)

APPEND BLANK

?

CLEAR

INPUT “ NOMOR RECORD : “

@5,18 SAY “ NAMA : “ GET

TO NOMOR

NAMA

IF NOMOR = 0

MODUL DBASE III PLUS - BACA – COBA - BISA

FOR

NAMA

=

:42

RETURN

?

ENDIF

INPUT “ NOMOR RECORD : “

GO NOMOR

TO NOMOR

CLEAR

IF NOMOR = 0

@5,18 SAY “ NAMA : “ GET

RETURN

NAMA

ENDIF

@6,18

SAY

“

ALAMAT

:

“

GO NOMOR

GET ALAMAT

CLEAR

@7,18 SAY “ GOLONGAN : “

@5,18

GET GOL

+NAMA

@8,18 SAY “ STATUS( 0/1)

@6,18

: “ GET STATUS

+ALAMAT

@9,18 SAY “ JUMLAH ANAK :

@7,18 SAY “ GOLONGAN : “

“ GET ANAK

+STR(GOL,1)

READ

@8,18 SAY “ STATUS( 0/1)

JW=” T ”

: “ +STR(STATUS,1)

@

12,18

SAY

“

ADA

DATA

SAY SAY

“ “

NAMA

:

“

ALAMAT

:

“

@9,18 SAY “ JUMLAH ANAK :

LAGI (Y/T ) ? “ GET JW

“ +STR(ANAK,2)

READ

@ 12,18 SAY “ APAKAH DATA

IF JW = “ T “

AKAN

EXIT

GET JW

ENDIF

READ

ENDDO

IF UPPER(JW) = “ Y “

RETURN

DELETE

DIHAPUS

(Y/T)

:

“

ENDIF MODI COMM HAPUSDAT

JW = “ T “ @13,18

SAY

“

ADA

SET TALK OFF

LAIN (Y/T) : “ GET JW

CLEAR

READ

USE PEGAWAI

IF UPPER(JW) = “ T “

DO WHILE .T.

RACK

CLEAR

EXIT

MNAMA = SPACE(15)

ENDIF

@15,18 SAY “ NAMA PEGAWAI

ENDDO

: “ GET MNAMA

RETURN

READ

EXIT

CLEAR

ENDIF

?” CATAT NOMOR RECORDNYA

ENDDO

“

RETURN

LIST

FOR

TRIM(MNAMA)

NAMA

DATA

= MODI COMM MENDAT

MODUL DBASE III PLUS - BACA – COBA - BISA

:43

SET TALK OFF

59.Terdapat

beberapa

CLEAR

program

yang

DO WHILE .T.

dalam PROCEDURE

sub

disimpan

PIL = “ “ CLEAR

MODI COMM SUB2

@10,25 SAY “ 1. MENAMBAH

SET TALK OFF

DATA “

CLEAR

@11,25 SAY “ 2. MENGEDIT

SET PROCEDURE TO PRO

DATA “

?

@12,25 SAY “ 3. MENGHAPUS

INTI”

DATA “

DO PRO1

@13,25

SAY

“

4.

LIHAT

“

INI

MASIH

PROGRAM

DO PRO2

DATA “

DO PRO3

@14,25 SAY “ 0. SELESAI “

DO PRO4

@15,25 SAY “ PILIH [ 0 /

?

1 / 2 / 3 / 4 ] “

INTI “

@16,25 GET PIL

CLOSE PROCEDURE

“

KEMBALI

KE

PROGRAM

READ CLEAR

MODI COMM PRO

DO CASE

PROCEDURE PRO1

CASE PIL = “0”

? “ INI PROGRAM PROCEDURE

EXIT

KE – 1 “

CASE PIL = “1”

PROCEDURE PRO2

DO INPUTDAT

? “ INI PROGRAM PROCEDURE

CASE PIL = “2”

KE – 2 “

DO EDITDAT

PROCEDURE PRO3

CASE PIL = “3”

? “ INI PROGRAM PROCEDURE

DO HAPUSDAT

KE – 3 “

CASE PIL = “4”

PROCEDURE PRO4

USE PEGAWAI

? “ INI PROGRAM PROCEDURE

DISPLAY ALL

KE – 4 “

WAIT “ TEKAN ENTER “ OTHERWISE

60.

?CHR(7) @17,25

Bukalah kembali program inputdat.prg

SAY

“

TEKAN ! “

ANDA

SALAH

tetapi

sedikit perubahan seperti berikut:

WAIT ENDCASE

MODI COMM INPUTDAT

ENDDO CLOSEDATABSES

SET TALK OFF CLEAR

MODUL DBASE III PLUS - BACA – COBA - BISA

:44

USE PEGAWAI

1

2

3

4

DO WHILE .T.

2

4

5

6

@5,10 SAY “ NAMA : “

3

6

7

8

@5,22 GET PEGAWAI - >

4

8

9

10

NAMA

5

10

11

12

@5,45 SAY “ ALAMAT : “

6

12

13

14

@5,55 GET PEGAWAI - >

7

14

15

16

ALAMAT

8

16

17

18

@7,10 SAY “ GOLONGAN :

9

18

19

20

“

10

20

21

22

@7,22

GET PEGAWAI - >

GOL

FILE2.DBF

@9,10 SAY “ STATUS : “

NO

A1

D

E

1

2

4

6

2

4

6

8

3

6

8

10

4

8

10

12

5

10

12

14

ANAK

6

12

14

16

@2,6 TO 13,74 DOUBLE

7

14

16

18

READ

8

16

18

20

JW= “ T “

9

18

20

22

@12,18 SAY “ ADA LAGI

10

20

22

24

@9,22

GET

PEGAWAI-

>

STATUS @11,10

SAY

“

JUMLAH

ANAK : “ @11,30

GET

PEGAWAI-

>

(Y/T) ? “ GET JW READ

ANDA

IF JW = “ T “

BISA

MENAMPILKAN

SEPERTI BERIKUT:

EXIT

NO A1

ENDIF

B

C

D

E

ENDDO RETURN

Sebelumnya

anda

perhatikan bahwa dalam HUBUNGAN 2 FILE ATAU LEBIH 61.

terdapat

database dan

file1.dbf dan file2,dbf terdapat

dua

file

yaitu

file1.dbf

file2.dbf

seperti

berikut:

data

field

sama

yaitu

filed

maka

field

A1

A1

harus

diindex terlebih dahulu Use file1 Index on A1 to AA

FILE1.dbf NO

A1

B

C

MODUL DBASE III PLUS - BACA – COBA - BISA

MODI COMM GABUNG

:45

JAFICI2=0 SET TALK OFF

DO WHILE .NOT.EOF()

CLEAR

X=(N1+N2)/2

SELECT A

CIK=CI*CI

USE FILE2

FC=FI*CI

SELECT B

FC2=FC*FC

USE FILE1 INDEX AA

REPLACE XI WITH X

SELECT A

REPLACE CI2 WITH CIK

SET RELATION TO A1 INTO

REPLACE FICI WITH FC

B

REPLACE FICI2 WITH FC2 LIST A1,B->B,B->C,D,E

JAFI=JAFI+FI JAXI=JAXI+XI

62.

Terdapat

file

JACI=JACI2+CI2

database

JAFICI=JAFICI+FICI

STA1.DBF seperti dibawah: NO

N1

N2

FI

XI2

CI

CI2

JAFICI2=JAFICI2+FICI2

XI

SKIP ENDDO

FICI FICI2 1

2

10

4

XO=51

2

11

21

6

P= …..

3

22

32

8

B= …..

4

33

43

6

B1= ….

5

44

54

7

B2= ….

6

55

65

6

F= ….

7

66

76

3

f= ….

8

77

87

7

RATA2=XO+P*(JAFICI/JAFI

9

88

98

9

)

10

99

109

6

ME=B+P*(FI/2-F)/f MO=B+P*(B1/B1+B2)

Dari table diatas anda

?"MEDIAN=",ME

harus menentukan nilai

?"MODUS=",MO

rata-rata, median, dan

?"RATA2=",RATA2

modusnya. SET TALK OFF CLEAR

63. Terdapat

file

database

STA2.DBF seperti dibawah:

USE STA1

NO

X1

X2

JAFI=0

1

2

12

JAXI=0

2

13

23

JACI=0

3

24

34

JACI2=0

4

35

45

JAFICI=0

5

46

56

MODUL DBASE III PLUS - BACA – COBA - BISA

:46

6

57

67

X1101=X110*X110

7

68

78

JUMGE1=X12+X14+X16+X18+X1

8

79

89

10

9

90

100

LIST OFF

10

101

111 GO 1

Dari

data

N1

tentukan:

hubungan ganjil dan genap

CLEAR @ROW(),COL() SAY " " GET X1

SET TALK OFF

X11=X1

CLEAR

X111=X11*X11

USE STA2

GO 3

GO 2

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X1

X1

X13=X1

X12=X1

X133=X13*X13

X122=X12*X12

GO 5

GO 4

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X1

X1

X15=X1

X14=X1

X155=X15*X15

X144=X14*X14

GO 7

GO 6

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X1

X1

X17=X1

X16=X1

X177=X17*X17

X166=X16*X16

GO 9

GO 8

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X1

X1

X19=X1

X18=X1

X199=X19*X19

X188=X18*X18

JUMGA1=X11+X13+X15+X17+X1

GO 10

9

CLEAR

LIST OFF

@ROW(),COL() SAY " " GET X1

GO 2

X110=X1

CLEAR

MODUL DBASE III PLUS - BACA – COBA - BISA

:47

USE STA1

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X2

X2

X23=X2

X22=X2

X233=X23*X23

X222=X22*X22

GO 5

GO 4

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X2

X2

X25=X2

X24=X2

X255=X25*X25

X244=X24*X24

GO 7

GO 6

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X2

X2

X27=X2

X26=X2

X277=X27*X27

X266=X26*X26

GO 9

xGO 8

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X2

X2

X29=X2

X28=X2

X299=X29*X29

X288=X28*X28

JUMGA2=X21+X23+X25+X27+X2

GO 10

9

CLEAR

LIST OFF

@ROW(),COL() SAY " " GET X2

GO 1

X210=X2

CLEAR

X2101=X210*X210

USE STA1

JUMGE2=X22+X24+X26+X28+X2

@ROW(),COL() SAY " " GET

10

X3

LIST OFF

X31=X3 X311=X31*X31

GO 1

GO 3

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X2

X3

X21=X2

X33=X3

X211=X21*X21

X333=X33*X33

GO 3

GO 5

CLEAR

CLEAR

MODUL DBASE III PLUS - BACA – COBA - BISA

:48

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X3

X3

X35=X3

X38=X3

X355=X35*X35

X388=X38*X38

GO 7

GO 10

CLEAR

CLEAR

@ROW(),COL() SAY " " GET

@ROW(),COL() SAY " " GET

X3

X3

X37=X3

X310=X3

X377=X37*X37

X3101=X310*X310

GO 9

JUMGE3=X32+X34+X36+X38+X3

CLEAR

10

@ROW(),COL() SAY " " GET

LIST OFF

X3 X39=X3

X1211=X12*X11

X399=X39*X39

X1413=X14*X13

JUMGA3=X31+X33+X35+X37+X3

X1615=X16*X15

9

X1817=X18*X17

LIST OFF

X11019=X110*X19 JUM1=X1211+X1413+X1615+X1

GO 2

817+X11019

CLEAR

A=10*JUM1

@ROW(),COL() SAY " " GET

B=JUMGE1*JUMGA1

X3

JUMKU=X122+X144+X166+X188

X32=X3

+X1101

X322=X32*X32

JUMKU1=JUMGE1*JUMGE1

GO 4

C=10*JUMKU-JUMKU1

CLEAR

JUMKI=X111+X133+X155+X177

@ROW(),COL() SAY " " GET

+X199

X3

JUMKI1=JUMGA1*JUMGA1

X34=X3

D=10*JUMKI-JUMKI1

X344=X34*X34

E=SQRT(C*D)

GO 6

F=(A-B)/E

CLEAR

?F,A,B,C,D,E

@ROW(),COL() SAY " " GET

X2221=X22*X21

X3

X2423=X24*X23

X36=X3

X2625=X26*X25

X366=X36*X36

X2827=X28*X27

GO 8

X21029=X210*X29

CLEAR

JUM2=X2221+X2423+X2625+X2 827+X21029

MODUL DBASE III PLUS - BACA – COBA - BISA

:49

A=10*JUM2 B=JUMGE2*JUMGA2 JUMKU2=X222+X244+X266+X28 8+X2101 JUMKU21=JUMGE2*JUMGE2 C=10*JUMKU2-JUMKU21 JUMKI2=X211+X233+X255+X27 7+X299 JUMKI21=JUMGA2*JUMGA2 D=10*JUMKI2-JUMKI21 E=SQRT(C*D) F=(A-B)/E ?F,A,B,C,D,E X3231=X32*X31 X3433=X34*X31 X3635=X36*X35 X3837=X38*X37 X31039=X310*X39 JUM3=X3231+X3433+X3635+X3 837+X31039 A=10*JUM3 B=JUMGE3*JUMGA3 JUMKU3=X322+X344+X366+X38 8+X3101 JUMKU31=JUMGA3*JUMGA3 C=10*JUMKU3-JUMKU31 JUMKI3=X311+X333+X355+X37 7+X399 JUMKI31=JUMGA3*JUMGA3 D=10*JUMKI3-JUMKI31 E=SQRT(C*D) F=(A-B)/E ?A,B,C,D,E,F

MODUL DBASE III PLUS - BACA – COBA - BISA

:50