Skip to main content

vb6 Penjualan Barang

Public Class Form1

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

        Kode.Items.Add("G001")
        Kode.Items.Add("G002")
        Kode.Items.Add("G003")
        Kode.Items.Add("G004")
        Kode.Items.Add("G005")
        Kode.Items.Add("G006")

        For i = 1 To 100
            Jumlah.Items.Add(i)

        Next

        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Harga Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Stok", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah", 100, HorizontalAlignment.Center)
        LV.Columns.Add("tHarga", 100, HorizontalAlignment.Center)
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details


    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Select Case Kode.Text
            Case "G001"
                Nama.Text = "Laptop"
                Harga.Text = 6000000
                Stok.Text = 6
            Case "G002"
                Nama.Text = "VCD"
                Harga.Text = 450000
                Stok.Text = 8
            Case "G003"
                Nama.Text = "KULKAS"
                Harga.Text = 4500000
                Stok.Text = 5
            Case "G004"
                Nama.Text = "MODEM XL"
                Harga.Text = 250000
                Stok.Text = 9
            Case "G005"
                Nama.Text = "FLASDISK"
                Harga.Text = 80000
                Stok.Text = 10
            Case "G005"
                Nama.Text = "KIPAS ANGIN"
                Harga.Text = 350000
                Stok.Text = 4
            Case "G006"
                Nama.Text = "SPEAKER"
                Harga.Text = 250000
                Stok.Text = 7
            Case Else
                Nama.Text = "CARGER"
                Harga.Text = 60000
                Stok.Text = 10



        End Select
    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If e.KeyChar = Chr(13) Then
            If Val(Jumlah.Text) > Val(Stok.Text) Then
                MsgBox("stok Tidak Cukup")
            Else
                Tharga.Text = Val(Jumlah.Text)

            End If

        End If
    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Dim simpan As New ListViewItem
        simpan.Text = Kode.Text
        simpan.SubItems.Add(Nama.Text)
        simpan.SubItems.Add(Harga.Text)
        simpan.SubItems.Add(Stok.Text)
        simpan.SubItems.Add(Jumlah.Text)
        simpan.SubItems.Add(Tharga.Text)
        LV.Items.Add(simpan)


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        
        'LV.Items.Remove(LV.SelectedItems(0))
        Kode.Text = ""
        Nama.Text = ""
        Harga.Text = ""

        Stok.Text = ""
        Jumlah.Text = ""
        Tharga.Text = ""

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()

    End Sub

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

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Tharga.Text = Val(Harga.Text * Jumlah.Text)

    End Sub
End Class


Hasil Outputnya :

















Labels:

Popular posts from this blog

Cntoh lamaran kerja Biasa

Cntoh lamaran kerja Biasa 09 Januari 2018 Perihal : Lamaran Pekerjaan Kepada Yth. HRD Manager PT.  ALAM SEJAHTERA Di Tempat------ Dengan hormat, Saya yang bertanda tangan dibawah ini : Nama                                  : Sabam Tumanggor Alamat                                : T. Morawa Psr 7 Tempat/Tanggal Lahir        : Sinar Kemenangan, 23 Desember ---- Jenis Kelamin                     : Laki-laki Kebangsaan                 ...
Post a Comment
Read more

Cara meninggalkan/menghapus group BBM

Kali ini akan saya bahas bagaimana meninggalkan/ menghapus grup di BBM (blackberry masanger) Langsung saja : Disi saya mau meninggalkan group bbm, sperti gambar dibawah ini : Dan terus saya cari bagaimana meninggalkan group BBM pada Gambar Screnshots dibawah : Diatas adalah gambar bagaimana saya maw meninggalkan Group BBM pada android, paada awalnya saya ganti hp dan menginstal ulang BBM pada android saya dan login dengan akun yang lama, pasti kontak-kontak Bbm dan group masih ada dan disitu saya mw meninggal kan Group BBM tidak bisa dengan berbagai cara saya seting tidak dapat juga, dan pada saat ada pemberitahuan ada teman saya baru saja meninggalkan Gruop Bbm tersebut, Nah disitu baru bisa saya meninggalkan/menghapus Gruop BBM dari kontak saya. Sekian Trims....
Post a Comment
Read more

Program Vb2008 Penjualan Barang

Desain Form Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Kode.Items.Add("G001") Kode.Items.Add("G002") Kode.Items.Add("G003") Kode.Items.Add("G004") Kode.Items.Add("G005") Kode.Items.Add("G006") For i = 1 To 1000 Jumlah.Items.Add(i) Next LV.Columns.Add("No.Pembeli", 80, HorizontalAlignment.Center) LV.Columns.Add("Kode Barang", 50, HorizontalAlignment.Center) LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center) LV.Columns.Add("Harga Barang", 100, HorizontalAlignment.Center) LV.Columns.Add("merk", 100, HorizontalAlignment.Center) LV.Columns.Add("Jumlah", 50, HorizontalAlignment.Center) LV.Columns.Add("tHarga", 100, HorizontalAlignment.Center) LV.Columns.Add("tanggal", 150, HorizontalAlignment.Center) LV.GridLines = True LV.FullRowSelect...
Read more