Membuat Program Perhitungan Biaya Sewa Kamar Hotel
Diposting oleh Dhamar Arif Rahman | Label: program, tugas | Posted On Sabtu, 15 Oktober 2011 at 00.15
Membuat program sederhana menggunakan
VB 2008
Bagi anda yang sudah expert di dunia pemrograman, pasti
sudah sangat mengenal Visual Basic 2008, pemrograman berbasis object ini,
adalah salah satu bahasa pemrograman yang paling diminati oleh programmer
expert, atau programmer newbie seperti saya. Visual Basic adalah bahasa
pemrograman keluaran Microsoft Corp , relative mudah dipelajari untuk mereka
yang baru mengenal bahasa pemrograman .
Kali ini saya akan berbagi ilmu mengenai VB 2008, yaitu
bagaiman membuat program perhitungan biaya hotel J
1.
Yang pertama kali anda lakukan adalah klik
shortcut VB 2008.
2.
Lalu setelah muncul, program VB 2008, pilih “New
Project”
3.
Pilih windows forms application, dan klik
OK
4.
Anda akan dibawa menuju form, dimana anda bisa
mendesain user interface dari program anda
Atur desain form anda sesuai dengan gambar
diatas, disini saya menggunakan
·
2 buah groupbox
·
6 buah label
·
5 buah textbox
·
2 buah button
·
Dan 1 buah timer
6.
Lalu rubah properties dari object diatas,
·
groupbox1; text = Hotel ,
·
groupbox2; text = Command,
·
label1; text = Lama Menginap
·
label2; text = Harga Sewa Perhari
·
label3; text = Biaya Sewa Kamar
·
label4; text = Jumlah Bayar
·
label5; text = kembali
·
label6; name = lblCreated, text = Created By : (isi terserah anda)
, Font : Monotype Corsiva, 16pt, style=Italic
·
textbox1 ; name = txtLama
·
textbox2; name = txtHarga
·
textbox3; name = txtBiaya
·
textbox4; name = txtBayar
·
textbox5; name = txtKembali
·
button1; text = New, name = btnNew
·
button2; text = Close, name = btnClose
7.
Tampilan dari form tadi akan berubah menjadi
seperti gambar dibawah ini
8.
Klik pada form, dan ketikkan koding berikut
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: This
line of code loads data into the 'HotelDataSet.Hotel' table. You can move, or
remove it, as needed.
Me.HotelTableAdapter.Fill(Me.HotelDataSet.Hotel)
Me.Text
= "Menghitung Biaya Sewa Kamar Sebuah
Hotel"
Me.StartPosition
= FormStartPosition.CenterScreen
Me.txtBiaya.Enabled
= False
Me.txtKembali.Enabled = False
End Sub
9.
Lalu, klik pada txtHarga, dan ketikkan koding
berikut
Private Sub Harga_sewa_perhariTextBox_TextChanged(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles txtHarga.TextChanged
Dim
lama, harga, biaya, bayar, kembali As New Long
lama = Val(Me.txtLama.Text)
harga = Val(Me.txtHarga.Text)
biaya = Val(Me.txtBiaya.Text)
bayar = Val(Me.txtBayar.Text)
kembali = Val(Me.txtKembali.Text)
biaya = lama * harga
kembali = bayar - biaya
Me.txtBiaya.Text
= Format(biaya, "RP###,###")
Me.txtKembali.Text
= Format(kembali, "RP###,###")
End Sub
10.
Setelah itu klik dua kali pada txtBayar, dan
masukkan koding berikut
Private Sub txtBayar_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles txtBayar.TextChanged
Dim
lama, harga, biaya, bayar, kembali As New Long
lama = Val(Me.txtLama.Text)
harga = Val(Me.txtHarga.Text)
biaya = Val(Me.txtBiaya.Text)
bayar = Val(Me.txtBayar.Text)
kembali = Val(Me.txtKembali.Text)
biaya = lama * harga
kembali = bayar - biaya
Me.txtBiaya.Text
= Format(biaya, "RP###,###")
Me.txtKembali.Text
= Format(kembali, "RP###,###")
End Sub
11.
Lalu, pada btnNew masukkan koding berikut
Private Sub btnNew_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnNew.Click
Dim answer =
MsgBox("Apakah anda ingin memasukkan input
baru, dan menghapus data yang baru di input ?", vbExclamation +
vbYesNo)
If
answer = vbYes Then
Me.txtBayar.Clear()
Me.txtBiaya.Clear()
Me.txtHarga.Clear()
Me.txtKembali.Clear()
Me.txtLama.Clear()
End if
End Sub
End Class
12.
Pada btnClose masukkan koding berikut
Dim answer =
MsgBox("Apakah anda ingin keluar ?",
vbExclamation + vbYesNo)
If
answer = vbYes Then
End
End If
13.
Dan terakhir pada timer1, masukkan koding
berikut
Private Sub Timer1_Tick(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If Me.lblCreated.Visible = True
Then
Me.lblCreated.Visible
= False
Else
Me.lblCreated.Visible
= True
End If
End Sub
Save dan, coba anda run. Selamat anda sudah berhasil membuat
program penghitungan biaya sewa kamar !!! :D
Terima Kasih Atas Ilmunya :D
yang terakhir codingnya di masukin ke mana ya mas?