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.
Semoga dengan menuliskan cara membuat program sederhana ini bermanfaat untuk anda.
0 komentar:
Posting Komentar
Terima kasih atas kunjungan, Jangan lupa komentarnya