Fungsi IF, List dan Combo Box - Program Menu Makan Visual Basic

Hai sobat Blues Pedia, pada tutorial dasar visual basic kali ini kita akan belajar mengenai List Box, Combo Box, dan fungsi IF, kita akan menggabungkanya dalam satu program dasar, saya namai program "Menu Makan", dimana akan ada daftar menu makanan di combo box, ketika memilih, maka di kolom list box dan akan muncul harganya, baiklah berikut tutorialnya :

1. Pertama, jalankan visual basic & buat program standar EXE

2. Tambahkan 1 combo box, 1 label, dan 1 list box, lalu sesuaikan luasnya, misalnya seperti ini :

3. Ubahlah caption label menjadi "Menu Makan", untuk combo box kosongkan saja

4. jika sudah tuliskan script berikut :

Private Sub Combo1_Click
If Combo1.Text = "BASO MALANG COMPLETE" then
List1.clear
List1.AddItem "Nama Paket : " + Combo1.Text
List1.Additem "Harga : Rp. 15.000"
End If

If Combo1.Text = "MIE AYAM SPECIAL" then
List1.clear
List1.AddItem "Nama Paket : " + Combo1.Text
List1.Additem "Harga : Rp. 13.000"
End If

If Combo1.Text = "SIOMAY BANDUNG" then
List1.clear
List1.AddItem "Nama Paket : " + Combo1.Text
List1.Additem "Harga : Rp. 12.000"
End If

If Combo1.Text = "PEMPEK PALEMBANG" then
List1.clear
List1.AddItem "Nama Paket : " + Combo1.Text
List1.Additem "Harga : Rp. 12.000"
End If
End Sub

Private Sub Form_Load()
Combo1.Additem "BASO MALANG COMPLETE"
Combo1.Additem "MIE AYAM SPECIAL"
Combo1.Additem "SIOMAY BANDUNG"
Combo1.Additem "PEMPEK PALEMBANG"
End Sub

Private Sub Combo1_Click If Combo1.Text = "BASO MALANG COMPLETE" then List1.clear List1.AddItem "Nama Paket : " + Combo1.Text List1.Additem "Harga : Rp. 15.000" End If If Combo1.Text = "MIE AYAM SPECIAL" then List1.clear List1.AddItem "Nama Paket : " + Combo1.Text List1.Additem "Harga : Rp. 13.000" End If If Combo1.Text = "SIOMAY BANDUNG" then List1.clear List1.AddItem "Nama Paket : " + Combo1.Text List1.Additem "Harga : Rp. 12.000" End If If Combo1.Text = "PEMPEK PALEMBANG" then List1.clear List1.AddItem "Nama Paket : " + Combo1.Text List1.Additem "Harga : Rp. 12.000" End If End Sub Private Sub Form_Load() Combo1.Additem "BASO MALANG COMPLETE" Combo1.Additem "MIE AYAM SPECIAL" Combo1.Additem "SIOMAY BANDUNG" Combo1.Additem "PEMPEK PALEMBANG" End Sub

Penjelasan Script :

• Private Sub Combo1_Click (Ketika Combo1 di klik)
• If Combo1.Text = "BASO MALANG COMPLETE" then, Jika text combo1 = "BASO MALANG COMPLETE" maka
• List1.clear, Isi dari List akan di hapus semua, jelasnya ketika kita anda memilih menu di combo maka otomatis akan muncul keteranganya, dan ketika anda memilih kembali, maka keterangan sebelumnya akan hilang dan di gantikan dengan kerterangan baru
• List1.AddItem "Nama Paket : " + Combo1.Text, List box akan di tambahkan "Nama Paket : BASO MALANG COMPLETE", sesuai dari kata yang ada di combo
• List1.Additem "Harga : Rp. 15.000", List box akan di tambahkan "Harga : Rp. 15.000"
• Combo1.Additem : untuk menambahkan item di combo box

Catatan :
Kata yang di tuliskan di Private Sub Combo1_Click harus sama dengan kata yang di tuliskan di Private Sub Form_Load, beda satu huruf saja / kapital atau tidaknya, maka script tidak akan berkerja dengan baik.

5. Langkah terakhir, jalankan kan programnya
lalu coba semua item yang ada ada di Combo box, patikan semuanya seperti ini :

Itulah tutorial mengenai Fungsi If, Combo Box dan List Box,
terus kunjungi Blues Pedia Untuk Tutorial Menarik Lainya
Sekian tutorial kali ini, Selamat mencoba