HOME
HEADLINE NEWS :
 

Sabtu

MEMBUAT PROGRAM ADMIN HOTEL DENGAN STATMEN PERULANGAN IF

0 komentar
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.
Semoga dengan menuliskan cara membuat program sederhana ini bermanfaat untuk anda.
Unduh Adobe Flash player
Patut saya ucapkan terima kasih kepada sobat, atas kunjungannya ke Jago Copy Blogspot
  • Oya Sobat Qu, Jangan lupa Komentarnya, Like Facebook Jago Copy dan Follow Twitter saya ya.. dibawa ini

    0 komentar:

    Posting Komentar

    Terima kasih atas kunjungan, Jangan lupa komentarnya

    Lintas Islam

    Selengkapnya »

    Informasi

    Selengkapnya »

    Lintas Budaya

    Selengkapnya »

    Lintas Makalah

    Selengkapnya »
     

    About Me

    Foto saya

    Ervanda Saputra / Ungo
    Pemilik Webblog ini Ervanda Saputra atau lebih dikenal dengan gelar Ungo, ungo mulai terjun didunia bloging sejak
    pertengahan tahun 2007, awalnya ungo memag tidak mengenal yang namanya internet apalagi dengan bloging ini..! Selengkapnya

    Followers

    Pengikut G+

    Copyright © JAGO COPY BLOGSPOT | All Right Reserved.
    Template By Ervanda.info
    Bloggers - Meet Millions of BloggersHosting Gratis