Program sederhana pada DBASE III PLUS

bcara tentang program ada banyak bahasa pemograman dewasa ini yang sudah dikembangbangkan para ahli untuk sekarang gw masih baru memepelajari  bahasa program BASIC & PASKAL untuk DBASE sendiri merupakan program pengolahan data dimana perintah2nya pun tidak beda jauh dengan paskal..

berikt ada contoh buat program sederhana pada dbase.

Buat program sederhana untuk penjualan

terdiri dari :

PENJUALAN BARANG

================

Kode barang  :<INPUT>

Nama barang  :<INPUT>

Jumlah barang:<INPUT>

Harga barang :<INPUT>

Total harga  :<OUTPUT DARI JUMLAH * HARGA>

Diskon       :<OUTPUT 5% dari total harga>

Total bayar  :<OUTPUT total harga- diskon>\

dengan listing sebagai berikut 

SET TALK OFF

CLEAR

KB = SPACE(3)

NB = SPACE(9)

JB = 0

HRG= 0

TH = 0

DS = 0

TB = 0

@02,15 SAY "PENJUALAN BARANG"

@03,15 SAY "================"

@04,10 SAY "KODE BARANG   " GET KB PICT "@!"

@06,10 SAY "NAMA BARANG   " GET NB PICT "@!"

@09,10 SAY "JUMLAH BARANG " GET JB PICT  "99"

@011,10 SAY "HARGA BARANG  " GET HRG PICT "99999"

READ

TH=JB*HRG

DS=0.05*TH

TB=TH-DS

CLEAR

@02,10 SAY "PENJUALAN BARANG"

@03,10 SAY "================"

@05,10 SAY "KODE BARANG   :" +(KB) 

@07,10 SAY "NAMA BARANG   :" +(NB)

@09,10 SAY "JUMLAH BARANG :" +STR(JB)

@11,10 SAY "HARGA BARANG  :" +STR(HRG)

@13,10 SAY "TOTAL HARGA   :" +STR(TH)

@15,10 SAY "DISKON        :" +STR(DS)

@17,10 SAY "TOTAL BAYAR   :" +STR(TB)

READ

untuk aplikasi yang dipake listing ini bisa jalan pada DBASE III PLUS for DOS dengan terlebih dahulu di simpat dalam notepad++ atau notepad biasa.