Latihan MassageBox (Msgbox)

Latihan :

Buat Program Untuk Menampilkan Informasi Hadiah sesuai Point Reward dengan Menggunakan MessageBox.

1. Desain Program sbb:

Objek	Name
TextBox1	TxtJPR
Button1	BtnProses
Button2	BtnTutup

 

2. Alur Program

     -    Input Jumlah Point Reward.

     -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward pada MessageBox.         

          Tabel Hadiah sebagai berikut:                    

Point Reward	Hadiah
500 – 1000	Mug Cantik
1001 – 1500	Boneka Cantik
1501 – 2000	Kipas Angin
2001 – 2500	Dispenser

-     Klik Tutup, maka akan tampil MessageBox dengan dengan tampilan sbb:

·       Isi Pesan          :    Anda ingin menutup Program ini?

·       MsgBoxStyle   :    OK dan Cancel dengan icon Question.

·       Judul                :    Tutup Program

Jika diklik tombol OK, maka Program akan ditutup. Jika diklik tombol Cancel, maka Program tidak akan ditutup.

Ayook Kita Jawab,!!

Disain dulu Formnya seperti gambar latihan diatas,

setelah itu Input Kode Programnya untuk Button Proses (BtnProses)

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Select Case Val(TxtJPR.Text)

            Case 500 To 1000

                MsgBox("Mug Cantik", MsgBoxStyle.Information, "Hadiah")

            Case 1001 To 1500

                MsgBox("Boneka Cantik", MsgBoxStyle.Information, "Hadiah")

            Case 1051 To 2000

                MsgBox("Kipas Angin", MsgBoxStyle.Information, "Hadiah")

            Case 2001 To 2500

                MsgBox("Dispenser", MsgBoxStyle.Information, "Hadiah")

            Case Else

                MsgBox("Tidak Ada", 16, "Hadiah")

        End Select

    End Sub

  

Input Lagi Kode Program untuk Button tutup (BtnTutup)

Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click

        Dim Pesan As String

        MsgBox("Anda Ingin Menutup Program Ini", MsgBoxStyle.OkCancel + 32, "Tutup Program")

        If Pesan = vbOK Then

            End

        Else

            Exit Sub

        End If

    End Sub

End Class

  

Jika semua kode Program sudah terinput, maka jalankanlah kodenya,

Input Nilainya dan klik Proses, maka akan muncul seperti Gambar diatas

  Klik tutup Maka akan muncul Pesan seperti gambar diatas

Selesai.!!!