Cara Membuat Program Aplikasi Sewa Hotel + Free Script Part-1

 Cara Membuat "Program Aplikasi Sewa Hotel" Menggunakan VB.Net [Part-1]

Gambar : Aplikasi Hotel

Assalamualaikum WR.WB

Apa Kabar Teman-teman semua? Saya berharap Kabar kalian semua baik-baik saja ya,Amin.Pada Kesempatan Kali ini saya ingin membagikan Tutorial Cara Membuat Program Aplikasi Menggunakan Visual Studio 2010 Yaitu Aplikasi Sewa Hotel Part-1.

Oke, kita langsung saja ke tutorialnya ya.

Langkah-Langkah :

1. Silahkan anda buka terlebih dahulu Aplikasi Visual Studio 2010 di Laptop/PC anda.
2. Kemudian Klik New Project.
3. Setelah itu,Beri Nama pada File Name dan Klik Browse untuk memilih Lokasi Penyimpanan yang anda inginkan.
4. Kemudian akan diarahkan menuju Lembar Kerja Baru,silahkan pilih Tools-tools yang diperlukan dan rapikan sesuai gambar diatas/bisa anda modifikasi sendiri sesuai keinginan anda.
5. Setelah itu,Copy Pastekan Coding berikut ke dalam Codingan anda.


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 '---mengisi properti objek Form
Me.Text = "Program Aplikasi Menghitung Sewa Hotel"
Me.StartPosition = FormStartPosition.CenterScreen
End Sub


Private Sub txtHarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtHarga.TextChanged       
Dim Lama, Harga, Biaya, Jumlah, Kembali As New Long
Lama = Val(txtLama.Text)
Harga = Val(txtHarga.Text)
Biaya = Val(txtBiaya.Text)
Jumlah = Val(txtJumlah.Text)
Kembali = Val(txtKembali.Text)
Biaya = Lama * Harga
Kembali = Jumlah - Biaya
Me.txtBiaya.Text = Format(Biaya, "RP ###,###")
Me.txtKembali.Text = Format(Kembali, "RP ###,###")
End Sub


Private Sub txtJumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged   
Dim Lama, Harga, Biaya, Jumlah, Kembali As New Long
Lama = Val(txtLama.Text)
Harga = Val(txtHarga.Text)
Biaya = Val(txtBiaya.Text)
Jumlah = Val(txtJumlah.Text)
Kembali = Val(txtKembali.Text)
Biaya = Lama * Harga
Kembali = Jumlah - Biaya
Me.txtBiaya.Text = Format(Biaya, "RP ###,###")
Me.txtKembali.Text = Format(Kembali, "RP ###,###"
End Sub


Private Sub txtLama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtLama.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtHarga.Focus()
End If
End Sub


Private Sub txtBiaya_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBiaya.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtJumlah.Focus()
End If
End Sub


Private Sub btDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDelete.Click
Me.txtLama.Clear()
Me.txtHarga.Clear()
Me.txtBiaya.Clear()
Me.txtJumlah.Clear()
Me.txtKembali.Clear()
Me.txtLama.Focus()
End Sub
    
Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click
Me.Close()
End Sub
End Class


6. Lalu,Klik Run untuk melihat hasilnya.
7. Jika masih ada yang kurang paham anda bisa melihat Video Tutorial Penjelasan Berikut ini !
8. Jika ada pertanyaan anda bisa mengetikkannya di kolom komentar dibawah atau bisa juga via Live Chat di bagian pojok kanan bawah Klik tombol Icon Chat.

Jangan lupa follow Blog ku ini agar anda selalu Update serta tidak ketinggalan jika saya meng upload Postingan terbaru dan jika anda ingin melihat Postingan yang telah saya Upload sebelumnya,berikut link nya :
1. Cara menguji Rangkaian IC OP-AMP Sebagai Comparator 
2. Cara Menginstall Aplikasi Delphi 6 Borland di windows 7,8,10 + Gambar 
3. Cara membuat Usb Bootable menggunakan Rufus
   
4. Makalah PTI-1
5. Cara Menginstall Vmware Workstation 12 Pro + Gambar (Lengkap)
6. Cara Menginstall Proteus 8.12 Profesional 100% Work
7. Cara Menginstall Wampserver 3.2.0 x64 Bit di Windows 10 anti Error 100% Berhasil
8. Cyber Crime-2
9. Cyber Crime-1
10. UTS Komunikasi Data dan Jaringan-1
11. Cara Menginstall Ubuntu Server 16.04.4 di Vmware Workstation 12 Pro + Penjelasan secara lengkap
12. Cara Menginstall Visual Basic 2010/VB.Net+Lengkap dengan gambar dan Penjelasan
13. Cara Menginstall OBS Studio Versi Terbaru 26.1.1-2021
14. Cara Membuat Kalkulator Sederhana Menggunakan Visual Studio 2010 (VB.Net) + Free Script
15. Cara Menginstall Netbeans IDE 7.3.1 di WIndows 10 + Gambar (lengkap)
16. Cara Mengatasi "Activation Failed" Pada MS Office 2016 100% Work
17. Cara Menginstall FileZilla untuk Konfigurasi FTP Server + Lengkap dengan gambar 
18. Cara menginstall Aplikasi CBT-ANAExamBrowserInstaller di Windows 7,8,10 + Penjelasan Gambar Lengkap
Atau anda bisa melihatnya pada halaman sebelah pojok kanan disitu sudah saya kelompokkan menurut jenisnya masing-masing.




-----Thank u and Never Give Up-----