Aplikasi Untuk Rental Musik
Langkah dalam pembuatan aplikasi
1. Jalankan softwere Microsoft Visual Studio 2010 ,Atau yang sering kita kenal dan tidak asing lagi yaitu VB10
Gambar 1.1
4. Maka akan tampil jendela form yang telah kita buat..
5. Untuk langkah selanjutnya kita menambahkan 4 label dengan cara double klik pada toolbox masing masing lebel kita ganti nama dengan mengklik propertis lalu pilih name laalu sesuaikan dengan gambar 1.2 dan ubah text pada bagian propertis menggunakan tanda (&) pada awal nama contoh: &Nama Band dst ,buat 4 textbox dengan cara double klik nama textbox pada toolbox dan ubah Name menjadi txtBand menyesuaikan dengan nama textbox , buat tiga tombol dengan cara double klik pada toolbox ubah name dan text pada propertis contoh name: btHitung text : &hitung dan seterusnya sampai pada tahap terakhir yaitu button keluar ,
6. Atur interface seperti pada gambar dibawah ini.....
7. Ketikan kode skrip dibawah ini kedalam form
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRental.TextChanged
End Sub
Private Sub btHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHitung.Click
Dim total As Double
Dim diskon As Double
total = (Val(txtHarga.Text) * Val(txtRental.Text)) - (Val(txtMember.Text) * (txtRental.Text))
diskon = Val(txtRental.Text) * Val(txtMember.Text)
MsgBox("Nama Band : " & txtband.Text & vbNewLine &
"Lama Rental : " & txtRental.Text & " Jam " & vbNewLine &
"Sewa /Jam : Rp." & txtHarga.Text & vbNewLine &
"Diskon Member : Rp." & diskon & vbNewLine &
"Total Bayar : Rp." & total)
End Sub
Private Sub Btbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btbersih.Click
txtband.Text = ""
txtHarga.Text = ""
txtMember.Text = ""
txtRental.Text = ""
txtband.Focus()
End Sub
Private Sub BtKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtKeluar.Click
End
End Sub
End Class
8. Setelah langkah tersebut diatas kemudian run /jalankan aplikasi tersebut dengan cara tekan F5 atau klik tombol yang ada pada bagian atas seperti pada gambar dibawah ini.......
9. kemudian aplikasi tersebut akan muncul pada gambar 1.2a seperti yang dibawah ini silahkan masukan Nama Band, Waktu Rental/Jam, Harga/Jam, iskon Member, lalu klik tombol hitung maka akan muncul total bayar seperti yang ditunjukan pada gambar 1.2b.
Gambar 1.2a
Gambar 1.2b
Demikian aplikasi sederhana rental alat musik yang telah saya buat, tak lupa rasa terimakasih saya untuk orang-orang yang telah banyak membantu mengajari saya, dan rasa terimakasih saya untuk kedua orang tua saya, wasalam..........