Nah kali ini, kita akan mencoba
berlatih membuat sebuah program yang sederhana yang bisa digunakan untuk
melihat daftar makanan dan minuman, harga makanan dan minumannya, serta
menghitung harga total jumlah pesanan kita. Saya kasih sedikit scrinsutnya nih mengenai program yang akan kita buat nanti :
Gimana sob? Programnya masih
sederhana banget yah? Yah memang sederhana sob, nanti bisa sobat
kembangkan sendiri programnya, sekarang buka VB.Net nya dan desain
programnya seperti ini :
Desain program diatas terdiri dari :
- 7 Label
- 2 ComboBox
- 1 CheckBox
- 1 GroupBox
- 2 TextBox
- 1 Button
- Kotak yang berwarna hijau adalah “ComboBox”.
- Kotak yang berwarna merah adalah “Label”.
- Kotak yang berwarna kuning adalah “Button”
- Kotak yang berwarna pink adalah “CheckBox”
- Kotak yang berwarna biru adalah “TextBox”
- Kotak yang berwarna hitam adalah “GroupBox”.
Kemudian ubah text nya dibagian
“properties” untuk semua control object, jika ingin terlihat lebih indah
bisa juga diwarna-warni kan seperti gambar dibawah ini :
Combobox1 digunakan untuk menampilkan daftar makanan nya dan combobox2 digunakan untuk menampilkan daftar minumannya.
Sedikit catatan mengenai Combobox,
combobox adalah sebuah control object yang digunakan untuk membuat menu
drop down serta combobox ini adalah salah satu control object yang
digunakan untuk membatasi pemilihan pengguna, jadi pengguna hanya dapat
memilih satu item dari beberapa item yang disediakan. Lho, terus kenapa
kita menggunakan combobox kalau fungsinya untuk membatasi pemilihan? Ya
jadi ini hanya untuk latihan saja sob, mungkin nanti bisa sobat ganti
sendiri, hehe.
Berikut adalah tampilan dari Combobox jika programnya sudah dijalankan :
Nah untuk membuat daftar pilihannya, carilah “items” dibagian properties.
Disebelah kanan ada tulisan
“Collection” yang berarti bahwa isi dari items tersebut adalah suatu
kumpulan data, nah untuk menambahkan datanya klik kotak titik tiga yang
ada disebelah kanan, kemudian nanti akan muncul sebuah tempat untuk
mengisikan datanya dan Setiap datanya dipisahkan oleh baris.
Diatas adalah contoh datanya, bisa sobat ganti atau sobat tambahkan.
Nah sekarang mari kita mulai membuat kodingannya, double klik pada Combobox1 dan koding seperti ini :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case "Nasi Uduk"
Label2.Text = "Rp. 3500"
hrgmakanan = 3500
Case "Bakso"
Label2.Text = "Rp. 6000"
hrgmakanan = 6000
Case "Mie Ayam"
Label2.Text = "Rp. 7000"
hrgmakanan = 7000
End Select
End Sub
Tapi sebelumnya sobat harus membuat
dua buah variable terlebih dahulu dengan nama “hrgmakanan” dan
“hrgminuman” yang bersifat global agar kedua variable tersebut dapat
digunakan disemua blok program, variable tersebut bertipe data integer
karena nantinya digunakan untuk menyimpan harga makanan dan harga
minuman.
Public Class Form1
Public hrgmakanan, hrgminuman As Integer
Pada listing program diatas jika
yang dipilih adalah “Nasi Uduk” maka “label2” akan menampilkan “Rp.
3500” dan variable “hrgmakanan” akan diisi dengan nilai 3500, begitu
seterusnya.
Sekarang double klik pada Combobox2 dan koding seperti ini :
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case "Es Jeruk"
Label4.Text = "Rp. 3000"
hrgminuman = 3000
Case "Jus Alpukat"
Label4.Text = "Rp. 7000"
hrgminuman = 7000
Case "Teh Manis"
Label4.Text = "Rp. 4000"
hrgminuman = 4000
End Select
End Sub
Pada listing program diatas jika
yang dipilih adalah “Es Jeruk” maka “Label4” akan menampilkan 3000 dan
variable “hrgminuman” nilainya akan diisi dengan 3000, begitu
seterusnya.
Tapi ComboBox2 ini akan
disembunyikan alias gak kelihatan ketika program pertama kali
dijalankan, nah untuk menyembunyikannya maka harus dikoding didalam
sub-routine public supaya ketika program dijalankan maka combobox2 ini
akan langsung tersembunyi, caranya kaya gini :
Pertama tempatkan kursor sobat di
sub-routine Public class form1 yaitu tempat dimana kita mendeklarasikan
variable hrgmakanan dan hrgminuman secara global, kemudian disebelah
kanan ada kotak menu drop-down, klik untuk meilhat opsinya dan pilih
new.
Dan nanti akan muncul sub-routine public yang baru, koding didalam sub-routine tersebut seperti dibawah ini :
Public Sub New()
' This call is required by the designer. InitializeComponent()
ComboBox2.Visible = False
Label3.Visible = False
' Add any initialization after the InitializeComponent() call.
End Sub
Maka “Combobox2” dan “Label3” akan
terus tersembunyi kecuali kalau kita mengaktifkan atau menceklis
checkbox1, untuk mengaturnya double klik pada CheckBox1 dan koding
seperti dibawah ini :
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Enabled = False Then
ComboBox2.Visible = False
End If
If CheckBox1.Enabled = True Then
ComboBox2.Visible = True
Label3.Visible = True
End If
End Sub
Nah kemudian double klik pada Button 1 dan koding seperti dibawah ini :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim porsimkn, porsimnm, jumlah As Integer
porsimkn = TextBox1.Text
porsimnm = TextBox2.Text
jumlah = (hrgmakanan * porsimkn) + (hrgminuman * porsimnm)
Label7.Text = "Rp. " & jumlah.ToString
End Sub
Disini kita membuat 3 buah variable
secara private yang berarti variable tersebut hanya bisa digunakan oleh
blok program ini saja, variable tersebut adalah “porsimkn”, “porsimnm”,
dan “jumlah”.
Nilai dari variable porsimkn akan
diambil dari yang diinput pada Textbox1, begitu juga dengan nilai dari
variable porsimnm akan dimabil dari yang diinput pada TextBox2.
Kemudian variable “jumlah” disini
adalah untuk menghitung total jumlah biaya yang telah kita pesan,
rumusnya sudah dituliskan diatas yah.
EmoticonEmoticon