![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiF-bejsO5fhyCSs7U6WzXIfL3Fyl0uhdl-aNL8pshu8fWikSWOmaAAwX7NoEU7mDPn-6QEtpgAgE4mj6AtP9l95Thyl7-BZ7QELF6Njlru-xk-e6SO46RVsOU4EcE1Xo6jb7iRDCAJGGvU/s400/hoteel.png)
Setelah selesai dibuat langsung aja masukkan Codex ini...
Private Sub Command1_Click()
Text3.Text = Text1.Text * Text7.Text
If Option1.Value Then
Text6.Text = Text3.Text * 0.3
Else
If Option2.Value Then
Text6.Text = Text3.Text * 0.2
Else
If Option3.Value Then
Text6.Text = Text3.Text * 0.1
End If
End If
End If
Text5.Text = Text3.Text - Text6.Text
End Sub
Private Sub Command2_Click()
MsgBox "terima kasih telah menginap di hotel Ervand S , Anda Yakin Akan Keluar?", vbYesNoCancel, "HOTEL SEEUNGOEV"
End
End Sub
Private Sub Command3_Click()
MsgBox "Nama : Ervanda Saputra Alamat : Jl Iskandar Mida No. 2 Pulau Balai, Kecamatan Pulau Banyak Indonesia Pelerjaan: Mahasiswa Status: Lajang Hobby: Berenang", vbInformation, "TENTANG"
End Sub
Private Sub Command4_Click()
Text9.Text = Text8.Text - Text5.Text
End Sub
Private Sub Option1_Click()
Text4.Text = "diskon 30%"
End Sub
Private Sub Option10_Click()
Text2.Text = "225000"
End Sub
Private Sub Option11_Click()
Text2.Text = "250000"
End Sub
Private Sub Option2_Click()
Text4.Text = "diskon 20%"
End Sub
Private Sub Option3_Click()
Text4.Text = "diskon 10%"
End Sub
Private Sub Option4_Click()
Text2.Text = "VIP"
Text7.Text = "250000"
End Sub
Private Sub Option5_Click()
Text2.Text = "EKONOMI"
Text7.Text = "200000"
End Sub
Private Sub Option6_Click()
Text2.Text = "STANDAR"
Text7.Text = "150000"
End Sub
Private Sub Option7_Click()
Text2.Text = "MINI AC"
Text7.Text = "125000"
End Sub
Private Sub Option8_Click()
Text2.Text = "MINI"
Text7.Text = "200000"
End Sub
Setela selesai semuanya langsung di RUN, semoga Membantu.
kk ajarin saya donk...mohon bimbingannya
BalasHapusiya diajarin... makanya sering mampir sini biar diajarin hehhee.
Hapusaq sering mampir kq kk... help donk kk
Hapusbang mau tanya itu di capture option nya cuma ada 8 tp di source code nya ada 10 option 2 nya lg kmna bang?
BalasHapus