VISUAL BASIC : MEMBUAT PROGRAM SEDERHANA
MEMBUAT PROGRAM ADMIN HOTEL DENGAN
STATMEN PERULANGAN IF
PERTAMA-TAMA BUATLAH PROGRAM MEMAKAI
VB.06
Pada
tombol start anda klik 2x.
Masukan
codingan di bawah ini :
Private Sub Command1_Click()
Text3.Text = Text1.Text * Text2.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.2
End If
End If
End If
Text5.Text = Text3.Text – Text6.Text
End Sub
Pada
tombol END anda klik 2x
Masukan
codingan di bawah ini :
Private Sub Command2_Click()
MsgBox “terima kasih telah menginap
di hotel kesya”, vbInformation, “hotel kesya”
End
End Sub
Pada
tombol option 30% anda klik 2x
Masukan
codingan di bawah ini :
Private Sub Option1_Click()
Text4.Text = “diskon 30%”
End Sub
Pada
tombol option 20% anda klik 2x
Masukan
codingan di bawah ini :
Private Sub Option2_Click()
Text4.Text = “diskon 20%”
End Sub
Pada
tombol option 10% anda klik 2x
Masukan
codingan di bawah ini :
Private Sub Option3_Click()
Text4.Text = “diskon 10%”
End Sub
SETELAH ANDA SELESAI MEMBUAT PROGRAM
MAKA JALANKAN PROGRAM MAKA AKAN MUNCUL :
SETELAH SELESAI ANDA BISA MEMASUKAN
JUMLAH ANGKA JIKA MENDAPATKAN DISKON KLIK SALAH SATU DISKON UMUMNYA.



nice post gan....:D
ReplyDeletethank you gan... :D
Delete