Minggu, 03 Februari 2013

Contoh Penggunaan Fungsi Case pada VB Net 2008

Artikel ini akan membahas tentang Contoh Penggunaan Fungsi Case VB Net 2008
Desain form :


Source Code :



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kd_barang.Items.Add("001")
        kd_barang.Items.Add("002")
        kd_barang.Items.Add("003")
        kd_barang.Items.Add("004")
        kd_barang.Items.Add("005")
    End Sub

    Private Sub kd_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_barang.SelectedIndexChanged
        Select Case kd_barang.Text
            Case "001"
                nm_barang.Text = "Laptop"
                harga.Text = 4500000
            Case "002"
                nm_barang.Text = "Tablet"
                harga.Text = 3000000
            Case "003"
                nm_barang.Text = "PC"
                harga.Text = 2500000
            Case "004"
                nm_barang.Text = "printer"
                harga.Text = 500000
            Case "005"
                nm_barang.Text = "Mouse"
                harga.Text = 45000
        End Select
    End Sub

  
    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        tot_harga.Text = Val(harga.Text) * Val(jumlah.Text)
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        kd_barang.Text = ""
        nm_barang.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        tot_harga.Text = ""
    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
        Close()

    End Sub
End Class

Penjelasan singkat coding :
 

Ketika program tersebut dijalankan, maka akan seperti berikut :
 

Sekian untuk pembahasan kali ini mengenai VB Net 2008,
Semoga bermanfaat..!! :) 

Tidak ada komentar:
Write komentar