MessageBox(MSGBOX)

KHAIRIL MUFLIH NASUTION<*_^>.....

BAB 6

MESSAGEBOX (MSGBOX)

       

Tujuan

Memberikan pemahaman tentang penggunaan MessageBox.

MsgBox (Kotak Pesan)

Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

Bentuk Perintah

MsgBox(“Isi Pesan“, MsgBoxStyle, “Judul Pesan“)

Keterangan gambar: 
1.Judul Pesan

2.MsgBoxStyle
3.Isi Pesan

 

Contoh 1:

Membuat Form Login dengan tampilan sebagai berikut:

                                                                                              

  Atur Propertiesnya sbb:

Alur Program:

-    Input Password.

-    Klik Proses

-    Jika Password benar maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:

·    Isi pesan         :  Password yang Anda Masukkan Benar

·    Judul Pesan  :  Info Login

·    MsgBoxStyle  :  Tombol OK dengan gambar icon Information.

-    Jika Password salah maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:

·    Isi pesan         :  Password yang Anda Masukkan Salah”

·    Judul Pesan  : Info Login

·    MsgBoxStyle  :  Tombol OK dengan gambar icon Critical.

Jalankan Program, kemudian inilah hasilnya:

Kode Program:

Kode program diketik pada Objek BtnProses (Tombol Proses)  sbb:

Private Sub BtnProses_Click(ByVal sender As System.Object, ...

    If TxtPas.Text = "rahasia" Then

        MsgBox("Password yang Anda Masukkan Benar",

               MsgBoxStyle.Information, "Info Login")

    Else

        MsgBox("Password yang Anda Masukkan Salah", 16, "Info")

    End If  

End Sub

Contoh 2:

Tambah tombol Tutup pada form Login, sehingga tampilan form menjadi seperti berikut:

Buat Perintah untuk Tombol Tutup menggunakan MessageBox dengan tampilan sbb:

-    Isi Pesan         :   “Apakah Anda ingin menutup Form Login ini?“

-    MsgBoxStyle   :   Yes dan No dengan icon Question.

-    Judul                :   “Tutup Form Login“

Alur Program:

Jika diklik tombol Yes, maka Program akan ditutup. Jika diklik tombol No, maka Program tidak akan ditutup.

Perintah Program:

Private Sub BtnTutup_Click(ByVal sender As System.Object, ...

    Dim pesan As String

    pesan = MsgBox("Apakah Anda ingin menutup Program ini?", MsgBoxStyle.YesNo + 32, "Tutup Program")

    If pesan = vbYes Then

        End

    Else

        Exit Sub

    End If

End Sub

Latihan:

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

1. Desain Program sbb:

 

2. Atur Properties nya seperti tabel dibawah ini sobat:

3. Alur Program

       ➾ Input Jumlah Point Reward.

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

                

    Tabel Hadiah sebagai berikut:

4. Jalankan Program ketika sudah selesai ngoding:

Ini adalah contoh jika saya ketikkan "1001" di Point Reward Maka otomatis yang akan muncul ketika tombol proses diklik adalah "Boneka Cantik"

-     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.

Berikut adalah contoh kode program untuk button tutupnya:
Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
        Dim pesan As String
        pesan = MSGBOX("Apakah Anda Ingin Menutup Program Ini?", MsgBoxStyle.YesNo + 32, "Tutup Program")
        If pesan = vbYes Then
            End
        Else
            Exit Sub
        End If
    End Sub