Tugas praktikum Basis Data1

Buat program untuk penjualan barang, dengan data-data sebagai berikut  :

Kode barang

Nama barang

Jenis barang

Harga satuan

Jumlah barang

Jumlah harga

Diskon

Pajak

Total harga

Ketentuan proses:

1.        Kode barang di input terdiri dari B1,B2, dan B3

2.        Nama barang dan harga satuan tentukan sendiri berdasarkan kode barang :

Jika B1 nama barang= …? harga satuan=…?

Jika B2 nama barang= …? harga satuan=…?

Jika B3 nama barang= …? harga satuan=…?

3.        Jenis barang di input terdiri dari LOKAL dan IMPORT

4.        Jumlah barang di input

5.        Jumlah harga = jumlah barang * harga satuan

6.        Diskon diberikan 10% dari jumlah harga jika jumlah barang >10

7.        Pajak ditentukan dari jenis barang, jika IMPORT dikenakan pajak 5% dari jumlah harga

8.        Total harga = jumlah harga + pajak – diskon

Listing program nya ==>>>

SET TALK OFF
CLEAR
@02,15 SAY "Penjualan Barang"
@03,15 SAY "================"
KDBRG=SPACE(2)
NMBRG=SPACE(15)
JNSBRG=SPACE(6)
HRGSATUAN=0
JMLBRG=0
DISKON=0
PAJAK=0
TOTHRG=0
@05,10 SAY "Kode Barang [B1/B2/B3]              :" GET KDBRG PICT "@!"
@06,10 SAY "Jenis Barang [LOKAL/IMPORT]  :" GET JNSBRG PICT "@!"
@07,10 SAY "Jumlah Barang                                 :" GET JMLBRG PICT "9999"
READ
DO CASE
    CASE KDBRG="B1"
        NMBRG="Baju"
        HRGSATUAN=50000
    CASE KDBRG="B2"
        NMBRG="Topi"
        HRGSATUAN=20000
    CASE KDBRG="B3"
        NMBRG="Celana"
        HRGSATUAN=40000
ENDCASE

JMLHRG=JMLBRG*HRGSATUAN

IF JMLBRG>10
    DISKON=0.1*JMLHRG
ELSE
    DISKON=0
ENDIF       

IF JNSBRG="IMPORT"
    PAJAK=0.05*JMLHRG
ELSE
    PAJAK=0
ENDIF

TOTHRG=JMLHRG+PAJAK-DISKON

@08,10 SAY "Nama Barang                 :" GET NMBRG PICT "@!"
@09,10 SAY "Harga Satuan                  :" GET HRGSATUAN PICT "9999999"
@10,10 SAY "Jumlah Harga                 :" GET JMLHRG PICT "9999999"
@11,10 SAY "DISKON                        :" GET DISKON PICT "9999999"
@12,10 SAY "PAJAK                           :" GET PAJAK PICT "9999999"
@13,10 SAY "Total Harga                    :" GET TOTHRG PICT "9999999"
READ