Perhitungan biaya hotel

Data yang di input:

·        Nomor  transaksi

·        Tanggal transaksi

·        Nama tamu

·        Lama inap

·        Harga sewa perhari

Data yang di proses:

·        Biaya sewa  = lama inap X harga sewa perhari/

·         Jika (Discount)

     Jika biaya sewa >500000  maka discount 5%

     Jika biaya sewa >1000000  maka discount 10%

     Jika biaya sewa<500000 maka discount 0%

·        Total biaya = jumlah biaya sewa - discount

Data yang diprint:

·        Biaya sewa

·        Discount

·        Total biaya

Berdasarkan soal diatas buatlah ilustrasi , dan kode program menggunakan  VB,

ILUSTRASI

Ilustrasi dari soal diatas

No transaksi               :  12345

Tanggal transaksi   : 11-11-2011

Nama tamu              : T.TRY A.M

Lama inap                 :  3 hari         

Harga sewa perhari : 200000

Biaya sewa  =  3 X 200000

                      = 600000

Discount = 0,05 X 250000

              =30000

Total biaya = 600000 – 30000

                   = 570000

VB

KODE PROGRAM VB

Private Sub text1_click()

Text1 = Clear

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text5 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Text1.SetFocus

End Sub

Private Sub Text6_click()

cost = 0.05

cost1 = 0.1

Cost2 = 0

Text6 = Val(Text4) * Val(Text5)

If Val(Text6) > 500000 Then

Text7 = Text6 * cost

Else

If Val(Text6) > 1000000 Then

Text7 = Text6 * cost1

Else

Text7 = Text6 = 0

End If

End If

Text8 = Val(Text6) - Val(Text7)

End Sub.