Latihan MessageBox

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 senderAs System.Object, ByVal e AsSystem.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 AsSystem.Object, ByVal e AsSystem.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

Komentar

Posting Komentar

Postingan populer dari blog ini

Keputusan Case Pada Microsoft Visual Studio 2008

Gambar
Struktur Keputusan Struktur keputusan adalah struktur program yang   melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok   instruksi akan diproses atau tidak. Pengujian kondisi ini   dilakukan untuk memilih salah satu dari beberapa alternatif   yang  tersedia. Select Case  Statement Digunakan untuk pengambilan keputusan dari beberapa pilihan. Jika dalam perintah IF pengecekan dilakukan berdasarkan kondisi, namum dalam Select Case pengecekan dilakukan berdasarkan nilai Ekspresi. Bentuk Penulisan: Select Case [Kondisi] ​ Case [Ekspresi1] ​ [Statement1] ​ Case [Ekspresi2] ​ [Statement2] ​ ... ​ Case Else ​ [Statement n] End Select Contoh 1: 1. Desain  Program   Objek Name TextBox1 TxtJPR TextBox2 TxtHadiah Button1 BtnProses Button2 BtnBersih Button 3 BtnTutup 2 .  Alur Program ​ - ​ Input Jumlah Poi...
Baca selengkapnya

Keputusan If Pada Microsoft Visual Studio 2008

Gambar
Assalamualaikum teman-teman semua.. Kali ini saya akan membahas tentang Keputusan If pada Microsoft Visual Basic 2008 STRUKTUR KEPUTUSAN   Struktur Keputusan Struktur keputusan adalah struktur program yang   melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok   instruksi akan diproses atau tidak. Pengujian kondisi ini   dilakukan untuk memilih salah satu dari beberapa alternatif   yang  tersedia. I F  … T HEN  … E LSE   S TATEMENT A.   Pengambilan Keputusan Antara 2 (Dua)  Pilihan Bentuk Penulisan: If [Ekspresi Logika] Then ​ [ Statement 1] Else ​ [Statement 2] End if Struktur keputusan ini akan menguji  Ekspresi Logika ( kondisi ) yang ditentukan, jika kondisi bernilai  True   (benar)  maka Statement1   akan diproses, tetapi jika kondisi bernilai  False (Salah)  maka  Statement2    yang  akan diproses. ...
Baca selengkapnya

Visual Basic Messagebox

Gambar
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 sbb: Objek Name TextBox1 TxtPas Button1 BtnProses 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 ...
Baca selengkapnya