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

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

Cara Merawat Layar Sentuh Ponsel Agar Lebih Awet Tahan Lama

Menjaga dan merawat layar sentuh pada smartphone kesayangan kita memang sangat penting. Sebenarnya layar sentuh pada kebanyakan smartphone sangatlah rapuh, tapi berkat perkembangan teknologi, hal itu bisa diatasi. Misalnya dengan ditambahkannya layar Anti gores kaca dengan berbagai macam merk dan harga tujuannya yakni menjaga menjadi pelindung layar sentuh smartpone. Berikut ini beberapa cara dalam merawat layar sentuh smartphone yang mudah untuk dilakukan : 1. Hindari Sinar Matahari Langsung Saya menyarankan agar jangan menggunakan smartphone anda disaat berada dibawah sinar matahari langsung, karena kontak langsung sinar matahari pada layar sentuh smartphone bisa mengakibatkan kerusakan pada smartphone, dan dapat menurunkan kualitas layar LCD nya. Selain itu, pada layar sentuh terdapat komponen tipis berupa gel yang akan rusak jika terkena paparan sinar matahari langsung. 2. Matikan Layar Jika Tidak Digunakan Ada baiknya anda menonaktifkan layar sentuh pada smartphone and...
Read more

Program Netbeans Membuat Biodata

Source Coding package kelas1; public class Mahasiswa {     private String nim;     private String nama;     private String group;     public String getNama(){         return nama;     }     public void setNama(String nama){         this.nama=nama;     }    public String getNim(){        return nim;}    public void setNim(String nim){        this.nim=nim;      }     public String getGroup(){        return group;}    public void setGroup(String group){        this.group=group;    }     public static void main(String[] args) {           } } Link Bab I Sistem Pendukung Keputusan Penyeleksian Nasabah klik DISINI LANGKAH KE 2: lalu klik new file pada pojok kiri bagian atas ...
Post a Comment
Read more