Penggunaan IF.....THEN......ELSE

Buat tampilan Form Seperti Ini :                                                   

Add caption

Berikut Listing Programnya :

Public Class FrmBpc_Dasar1

    Private Sub FrmBpc_Dasar1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call tampil()

    End Sub

    Sub tampil()

        Dim i As Byte

        kode.Items.Clear()

        For i = 1 To 5

            kode.Items.Add("B00" & i.ToString)

        Next

    End Sub

    Private Sub kode_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode.Click

        If kode.Text = "B001" Then

            nama_barang.Text = "Kulkas"

            harga.Text = 1200000

        ElseIf kode.Text = "B002" Then

            nama_barang.Text = "Tv"

            harga.Text = 2500000

        ElseIf kode.Text = "B003" Then

            nama_barang.Text = "Laptop"

            harga.Text = 3400000

        ElseIf kode.Text = "B004" Then

            nama_barang.Text = "Mesin Cuci"

            harga.Text = 1100000

        Else

            nama_barang.Text = "Sabun"

            harga.Text = 25000

        End If

    End Sub

Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        call bersih()

            End Sub

    Sub bersih()

        jumlah.Text = ""

        total_harga.Text = ""

        total_bayar.Text = ""

        diskon.Text = ""

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        If Asc(e.KeyChar) = Keys.Enter Then

            SendKeys.Send("{tab}")

            total_harga.Text = Val(harga.Text) * Val(jumlah.Text)

            diskon.Text = 0.1 * CDec(total_harga.Text)

            total_bayar.Text = CDec(total_harga.Text) - CDec(diskon.Text)

        End If

    End Sub

Private Sub cmdhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhitung.Click

        total_harga.Text = Val(harga.Text) * Val(jumlah.Text)

        diskon.Text = 0.1 * CDec(total_harga.Text)

        total_bayar.Text = CDec(total_harga.Text) - CDec(diskon.Text)

    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click

        Call hapus()

    End Sub

    Sub hapus()

        kode.Text = ""

        nama_barang.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total_harga.Text = ""

        total_bayar.Text = ""

        diskon.Text = ""

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click

        Dim Tanya As String

        Tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If Tanya = vbYes Then

        Me.Close()

        Else

        Exit Sub

        End If

       

    End Sub