Program Listview pada Pembelian Barang

Public Class Form1

    Sub BuatTabel()

        Storage.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Jumlah Pembelian", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        Storage.View = View.Details

        Storage.GridLines = True

        Storage.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = Kd_Barang.Text

        Lst.SubItems.Add(Nm_Barang.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(Merk.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Total.Text)

        Storage.Items.Add(Lst)

Pembayaran TV

Public Class Form1

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

        Nm_Barang.Items.Add("Sony Lcd 18")

        Nm_Barang.Items.Add("Sony Lcd 24")

        Nm_Barang.Items.Add("Sony Lcd 32")

        Nm_Barang.Items.Add("Sony Lcd 40")

        Nm_Barang.Items.Add("Sony Lcd 60")

        Nm_Barang.Items.Add("Sony Lcd 80")

    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nm_Barang.SelectedIndexChanged

        Select Case (Nm_Barang.Text)

            Case " Sony Lcd 18"

                Harga.Text = "10000000"

            Case " Sony Lcd 24"

                Harga.Text = "20000000"

            Case " Sony Lcd 32"

                Harga.Text = "30000000"

            Case " Sony Lcd 40"

                Harga.Text = "30000000"

            Case " Sony Lcd 60"

                Harga.Text = "50000000"

            Case " Sony Lcd 80"

                Harga.Text = "70000000"

        End Select

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Total_Harga.Text = Val(Harga.Text * Jumlah.Text)

            If Total_Harga.Text > 25000000 Then

                Discount.Text = Val(Harga.Text * 0.1)

            Else

                Discount.Text = "0"

            End If

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Total_Bayar.Text = Val(Total_Harga.Text - Discount.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Nm_Barang.Text = ""

        Harga.Text = ""

        Jumlah.Text = ""

        Total_Harga.Text = ""

        Total_Bayar.Text = ""

        Discount.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

Gaji Pegawai

Berikut ini  PerintahNYA

Public Class Form1

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

        Nik.Items.Add("PM010")

        Nik.Items.Add("PS111")

        Nik.Items.Add("KU101")

        Nik.Items.Add("GD100")

        Nik.Items.Add("PM011")

        Jabatan.Items.Add("Kepala Devisi")

        Jabatan.Items.Add("Staff")

        Jabatan.Items.Add("Wakil Kepala")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        jumlah_anak.Items.Add("0")

        jumlah_anak.Items.Add("1")

        jumlah_anak.Items.Add("2")

    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(Nik.Text, 2)

        If x = "PM" Then

            bg.Text = "Pemasaran"

        ElseIf x = "PS" Then

            bg.Text = "Personalia"

        ElseIf x = "KU" Then

            bg.Text = "Keuangan"

        ElseIf x = "GD" Then

            bg.Text = "Gudang"

        End If

        If Nik.Text = "PM010" Then

            Nama.Text = "Luis"

        ElseIf Nik.Text = "PS111" Then

            Nama.Text = "Steven"

        ElseIf Nik.Text = "KU101" Then

            Nama.Text = "lioni"

        ElseIf Nik.Text = "GD100" Then

            Nama.Text = "Diamon"

        ElseIf Nik.Text = "PM011" Then

            Nama.Text = "Joe"

        End If

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

                Select Jabatan.Text

            Case "Kepala Devisi"

                gp.Text = "5000000"

            Case "Staff"

                gp.Text = "2000000"

            Case "Wakil Kepala"

                gp.Text = "3500000"

        End Select

        Pajak.Text = gp.Text * 0.1

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        tk.Text = gp.Text * 0.15

        If Status.Text = "Menikah" Then

            tk.Text = 0.15 * gp.Text

        ElseIf Status.Text = "Tidak Menikah" Then

            tk.Text = 0

        End If

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Select Case jumlah_anak.Text

                Case "0"

                    ta.Text = 0

                Case "1"

                    ta.Text = gp.Text * 0.05

                Case "2"

                    ta.Text = gp.Text * 0.1

                Case Else

                    ta.Text = gp.Text * 0.5

            End Select

        End If

        tg.Text = (gp.Text) + Val(ta.Text) + Val(tk.Text) - Pajak.Text

        tg.Enabled = False

    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_anak.SelectedIndexChanged

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Nik.Text = ""

        Nama.Text = ""

        bg.Text = ""

        Jabatan.Text = ""

        gp.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        jumlah_anak.Text = ""

        tk.Text = ""

        ta.Text = ""

        tg.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

SEMOGA Bermanfaat 

Kunjungi Belajar Bahasa Pemograman