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.!!!
Tidak ada komentar:
Posting Komentar