Fungsi If, List Dan Combo Box - Aktivitas Sajian Makan Visual Basic

Hai teman Routeros Mikrotik, pada tutorial dasar visual basic kali ini kita akan berguru mengenai List Box, Combo Box, dan fungsi IF, kita akan menggabungkanya dalam satu agenda dasar, aku namai agenda "Menu Makan", dimana akan ada daftar hidangan makanan di combo box, saat memilih, maka di kolom list box dan akan muncul harganya, sepakat berikut tutorialnya :

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

2. Tambahkan 1 combo box, 1 label, dan 1 list box, kemudian sesuaikan luasnya, contohnya menyerupai ini :

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

4. kalau 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 saat kita anda menentukan hidangan di combo maka otomatis akan muncul keteranganya, dan saat anda menentukan 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 abjad saja / kapital atau tidaknya, maka script tidak akan berkerja dengan baik.

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

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