ANGGUN HOTEL

FORM1

sintaks program :
Private Sub Command1_Click()
Form2.Show
Unload Me

End Sub

Private Sub Command2_Click()
Form4.Show
Unload Me
End Sub

Private Sub Command3_Click()
Form7.Show
Unload Me
End Sub

Private Sub Image1_Click()
Label1.FontSize = 28
Label1.Caption = "ANGGUN HOTEL"
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
    If (Label1.Left + Label1.Width) <= 0 Then
        Label1.Left = Me.Width
    End If
    Label1.Left = Label1.Left - 200
End Sub

Private Sub Timer2_Timer()
Label2.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
 If (Label2.Left + Label2.Width) <= o Then
 Label2.Left = Me.Width
Label2.Left = Label.Left - 100
End If
End Sub

FORM 2

sintaks program :
Private Sub Command1_Click()
Text1.FontSize = 12
Text1.Text = "Jalan.Malam bintang,no.17 Depok,Jawa Barat no.tlp:081320004926(layanan 24 jam)"
End Sub

Private Sub Command2_Click()
Form3.Show
Unload Me
End Sub

Private Sub Command3_Click()
Form1.Show
Unload Me
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
    If (Label1.Left + Label1.Width) <= 0 Then
        Label1.Left = Me.Width
    End If
    Label1.Left = Label1.Left - 400

End Sub

FORM 3

Sintaks program :
Private Sub Command1_Click()
Form2.Show
Unload Me

End Sub

FORM 4

Sintaks Program :
Private Sub Command3_Click()
MsgBox " PESANAN DI PROSES ! ", vbInformation, "SUKSES"
Form5.Show
Form5.Label9 = Text1.Text
Form5.Label10 = DTPicker1
Form5.Label11 = Text2.Text
Form5.Label12 = Combo1.Text
Form5.Label13 = Combo2.Text
Form5.Label14 = Text6.Text
Form5.Label15 = Text7.Text
Form5.Label17 = Text5.Text
Form5.Label19 = DTPicker2

End Sub

Private Sub Command4_Click()
Form6.Show
Unload Me

End Sub

Private Sub Form_Load()
'untuk menambahkan kode kamar di combo 1
Combo1.AddItem "ONE01"
Combo1.AddItem "TWO01"
Combo2.AddItem "BULAN"
Combo2.AddItem "BINTANG"
Combo2.AddItem "LANGIT"

End Sub



Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

End Sub

Private Sub Option1_Click()
If Combo1.Text = "ONE01" Then
sewa = 1200000
ElseIf Combo1.Text = "TWO01" Then
sewa = 1500000
Else
sewa = 0
End If
Text3.Text = Format(sewa, "standard")
End Sub

Private Sub Option2_Click()
If Combo1.Text = "ONE01" Then
sewa = 900000
ElseIf Combo1.Text = "TWO01" Then
sewa = 1000000
Else
sewa = 0
End If
Text3.Text = Format(sewa, "standard")
End Sub

Private Sub Option3_Click()
If Combo1.Text = "ONE01" Then
sewa = 550000
ElseIf Combo1.Text = "TWO01" Then
sewa = 700000
Else
sewa = 0
End If
Text3.Text = Format(sewa, "standard")
End Sub
Sub hitung()
fasilitas = tv + internet + minikulkas + bed
Text4.Text = Format(fasilitas, "standard")
total = fasilitas + sewa
Text5.Text = Format(total, "standard")
Text6.SetFocus
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'apabila ditekan enter otomatis akan melakukan perhitungan pembayaran
bayar = Text6.Text
Text6.Text = Format(bayar, "standard")
kembali = bayar - total
Text7.Text = Format(kembali, "standard")
End If
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
 If (Label1.Left + Label1.Width) <= o Then
 Label1.Left = Me.Width
Label1.Left = Label1.Left - 100
End If
End Sub

Private Sub Timer2_Timer()
Label11.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
 If (Label11.Left + Label11.Width) <= o Then
 Label11.Left = Me.Width
Label11.Left = Label11.Left - 400
End If

End Sub

FORM 5

form 5 di tampilkan atas perintah dari form 4 , maka form 5 hanya di tampilkan ketika mendapat perintah dari command button dari form 4 .

FORM 6

tampilan ini menggunakan image dan label , hanya untuk menampilkan gambar dari kamar hotel dan hanya akan tampil jika mendapat perintah lihat gambar dari form 4 

Private Sub Command1_Click()
Form4.Show
Unload Me

End Sub

FORM 7

form 7 hanya akan tampil jika mendapat perintah dari commond button yang ada di form 1 , tampilan ini hanya menggunakan image , label dan commond button 
Private Sub Command1_Click()
Form1.Show
Unload Me

End Sub

Sekian program hotel yang saya buat , semoga bermanfaat bagi kalian yang  ingin mencobanya . jika terjadi kesalahan saat run coba diperhatikan codingan mungkin ada yang salah dalam pengetikan atau yang lainnya . selebihnya anda bisa lebih berkreasi lagi karna saya juga masih banyak belajar dalam membuat program ini 

Terima Kasih kepada Ibu Ito Riris Immasari selaku dosen Algoritma dan Pemogramman 2B di kelas saya , beliau telah memberikan dan membimbimng saya untuk lebih beraksi dalam dunia pemograman , karena jika hanya belajar namun tidak mencoba itu tidak akan membantu kita di dunia kerja nanti , beliau mengajarkan saya agar bisa banyak belajar dari berbagai sumber agar pengetahuan saya lebih luas . sekali lagi terima kasih untuk Ibu Ito Riris Immasari 💗