tugas program perhitungan biaya hotel tanpa fungsi if

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/

·        Discount 0.05 dari biaya sewa

·        Total biaya = biaya –discount

Data yang diprint

·        Biaya sewa

·        Discount

·        Total biaya

Berdasarkan soal diatas buatlah ilustrasi ,flowchart, dank ode program menggunakan  VB,

Ilustrasi dari soal diatas

No transaksi               :  0776

Tanggal transaksi   : 18 januari

Nama tamu              :  Rusdi

Lama inap                 :  5 hari         

Harga sewa perhari           : 50000

Biaya sewa  =  5 X 50000

                      = 250000

Discount = 0,05 X 250000

              =12500

Total biaya = 250000 – 12500

                   = 237500

 

Kode program VB

 

                                                                                                                                                         Data yang dprint.

Private sub text   1_ click ()

Text 1=clear

Text 2=clear

Text 3clear

Text 4=clear

Text 5=clear

Text 6clear

Text 7=clear

Text 8=clear

Private sub text 1_click ()

Text 1.setfocus

Private sub text6_click ()

Text 6=  val (text 4) X val (text5)

Text 7=5 % X val (text6)

Text 8=val (text 6) –  val (text7)

end sub