Rabu, 16 Mei 2018
MessageBox
Bentuk perintah dari MsgBox ialah MsgBox("Isi Pesan", MsgBoxStyle,"Judul Pesan") hasilnya seperti gambar di bawah ini.
Keterangan
gambar:
ΠJudul Pesan
MsgBoxStyle
Ž Isi Pesan
Ada beberapa MsgBoxStyle, yaitu:
1. MsgBoxStyle.Critical (16) :
tombol OK dan gambar icon Critical
2. MsgBoxStyle.Question (32) :
tombol OK dan gambar icon Question
3. MsgBoxStyle.Exclamation (48) :
tombol OK dan gambar icon Exclamation
4. MsgBoxStyle.Information (64) : tombol OK dan gambar icon Information
5. MsgBoxStyle.AbortRetryIgnore (2) : tombol Abort, Retry dan Ignore.
6. MsgBoxStyle.OkCancel
(1) : tombol OK dan Cancel.
7. MsgBoxStyle.OkOnly
(0) : tombol OK.
8. MsgBoxStyle. RetryCancel
(5) : tombol Retry dan Cancel.
9. MsgBoxStyle.YesNo
(4) : tombol Yes dan No.
10. MsgBoxStyle. YesNoCancel (3) : tombol
Yes, No dan Cancel.Latihan 1 Membuat Form Login dengan Tampilan sbb:
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 kotak pesan (MessageBox) dengan tampilan sbb:
· Isi
pesan : Password yang Anda Masukkan Salah”
· Judul
Pesan : Info
Login
MsgBoxStyle : Tombol OK dengan gambar icon Critical.Kode Program:
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
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.
Perulangan
Perulangan digunakan untuk mengulang kode program (repetition, looping,
recursive). selama kondisi memenuhi, kode dalam statements akan diulang
terus-menerus hingga kondisi tidak lagi memenuhi. Jika terjadi kesalahan dalam
penulisan kode, looping tidak akan berhenti dan menimbulkan error.
Dalam visual Basic 2008 terdapat beberapa perintah yang dapat digunakan
untuk perulangan, yaitu:
a.
For … Next
b.
Do … Loop
c.
While…End While
Setiap perulangan mempunyai kelebihan masing-masing, sehingga dapat dipilih
sesuai dengan masalah yang dihadapi.
For … Next Statement
Loop dengan perintah For...Next cocok digunakan untuk perulangan dengan
jumlah yang pasti.
Bentuk Penulisan:
For Var = [Mulai]
to [Selesai] Step [Lompatan]
Statement
Next
Contoh:
Membuat Teks “Visual
Basic” sebanyak 10 pada Objek ListBox
Dim i As
Integer
listbox1.Items.Clear()
For i = 1 to TXTBIL.TEXT
listbox1.Items.Add(“Visual
Basic”)
Next
Membuat Deret angka 1
sampai 10
Dim i As
Integer
listbox1.Items.Clear()
For i = 1 to 10
listbox1.Items.Add(i)
Next
Do … Loop Statement
Perulangan Do…Loop digunakan untuk perulangan yang jumlah perulangannya
tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah
ditetapkan.
Pemeriksaan Kondisi pada Do…Loop dapat dilakukan diawal dan diakhir.
Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.
Do…Loop dengan Pemeriksaan diawal
1. Do Until … Loop
Perulangan akan dilakukan ketika
kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.
BP:
Do Until <kondisi>
statement
Loop
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do Until i > 10
listbox1.Items.Add(i)
i=i+1
Loop
2. Do While … Loop
Loop dengan do While cocok
digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat
(selama kondisi benar, statement akan dijalankan terus).
BP:
Do While <kondisi>
statement
Loop
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do While i <= 10
listbox1.Items.Add(i)
i=i+1
Loop
Do…Loop dengan Pemeriksaan diakhir
1. Do … Loop Until
Perulangan akan dilakukan ketika
kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.
BP:
Do
statement
Loop until <kondisi>
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i=i+1
Loop Until i > 10
2. Do … Loop While
Loop dengan do While cocok
digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat
(selama kondisi benar, statement akan dijalankan terus).
BP:
Do
statement
Loop While <kondisi>
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i = i + 1
Loop While i <= 10
While … End While
Perulangan While…End While tidak
jauh berbeda dengan perulangan do … loop digunakan untuk perulangan yang jumlah
perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi
yang telah ditetapkan.
BP:
While <kondisi>
statement
End While
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
ListBox1.Items.Clear()
While i <=
10
ListBox1.Items.Add(i)
i = i + 1
End While
Sekian yang dapat saya tuliskan semoga bermanfaat. Assalamualaikum wr wb.
