Halo teman-teman, kali ini admin akan share tentang program sederhana bagaimana cara menampilkan harga barang otomatik menggunakan select case dan if pada visual basic 2008.
Gambar disamping adalah tampilan dari contoh program sederhana menampilkan harga dan total harga secara otomatis.
Ketika combobox ukuran dan merek terseleksi maka secara otomatis harga akan muncul didalam textbox harga sesuai dengan kondisi yang telah dicantumkan didalam kode program
kemudian setelah diisi jumlah beli dengan anka kemudian tekan tombol enter maka total harga akan muncul. total harga didapat dari harga dikali dengan jumlah beli.
Dibawah ini penulis melampirkan source code dari program ini :
Public Class Form1
Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
nama.Text = ""
merk.Text = ""
ukuran.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
merk.Items.Add("LG")
merk.Items.Add("Toshiba")
merk.Items.Add("Samsung")
ukuran.Items.Add("21 inch")
ukuran.Items.Add("32 inch")
ukuran.Items.Add("40 inch")
End Sub
Private Sub ukuran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ukuran.SelectedIndexChanged
If merk.Text = "LG" Then
If ukuran.Text = "21 inch" Then
harga.Text = 2100000
ElseIf ukuran.Text = "32 inch" Then
harga.Text = 3200000
ElseIf ukuran.Text = "40 inch" Then
harga.Text = 4300000
End If
ElseIf merk.Text = "Toshiba" Then
If ukuran.Text = "21 inch" Then
harga.Text = 2200000
ElseIf ukuran.Text = "32 inch" Then
harga.Text = 3300000
ElseIf ukuran.Text = "40 inch" Then
harga.Text = 4450000
End If
ElseIf merk.Text = "Samsung" Then
If ukuran.Text = "21 inch" Then
harga.Text = 1950000
ElseIf ukuran.Text = "32 inch" Then
harga.Text = 3150000
ElseIf ukuran.Text = "40 inch" Then
harga.Text = 4200000
End If
End If
End Sub
Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
total.Text = Val(jumlah.Text) * Val(harga.Text)
End If
End Sub
End Class
dan apabila anda malas untuk mengetiknya dan mecoba kode diatas penulis juga melampirkan link dowload program diatas.
Comments
Post a Comment