KASIR

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

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

        Dim Arr(4, 1) As String

        Arr(0, 0) = "Kode Barang"

        Arr(0, 1) = "Nama Barang"

        Arr(1, 0) = "Jenis"

        Arr(1, 1) = "Satuan"

        Arr(2, 0) = "Sabun Mandi"

        Arr(2, 1) = "Pasta Gigi"

        Arr(3, 0) = "Pcs"

        Arr(3, 1) = "Box"

        Arr(4, 0) = "Lusin"

        Arr(4, 1) = "Kodi"

        ListView1.GridLines = True

        ListView1.View = View.Details

        For Baris = 0 To 1

            For kolom = 0 To 1

                ListView1.Columns.Add(Arr(Baris, kolom), 100)

            Next kolom

        Next Baris

        For Baris = 2 To 2

            For kolom = 0 To 1

                CmbJenis.Items.Add(Arr(Baris, kolom))

            Next kolom

        Next Baris

        For Baris = 3 To 4

            For kolom = 0 To 1

                CmbSatuan.Items.Add(Arr(Baris, kolom))

            Next kolom

        Next Baris

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        Dim Arr(4) As String

        Arr(1) = TxtKodeBarang.Text

        Arr(2) = TxtNamaBarang.Text

        Arr(3) = CmbJenis.Text

        Arr(4) = CmbSatuan.Text

        Dim listitem As ListViewItem

        listitem = New ListViewItem

        listitem = ListView1.Items.Add(Arr(1))

        listitem.SubItems.Add(Arr(2))

        listitem.SubItems.Add(Arr(3))

        listitem.SubItems.Add(Arr(4))

        TxtKodeBarang.Text = TxtKodeBarang.Text + 1

        TxtNamaBarang.Text = ""

        CmbJenis.Text = ""

        CmbSatuan.Text = ""

        TxtNamaBarang.Focus()

    End Sub

End Class