Skip to main content

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 = 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
Merk.Text = "ACER"
Case "G002"
Nama.Text = "DVD"
Harga.Text = 450000
Merk.Text = "LG"
Case "G003"
Nama.Text = "KULKAS"
Harga.Text = 4500000
Merk.Text = "POLITRON"
Case "G004"
Nama.Text = "MODEM "
Harga.Text = 250000
Merk.Text = "TELKOMSEL"
Case "G005"
Nama.Text = "FLASDISK"
Harga.Text = 80000
Merk.Text = "KINGSTON"
Case "G005"
Nama.Text = "KIPAS ANGIN"
Harga.Text = 350000
Merk.Text = "COSMOS"
Case "G006"
Nama.Text = "SPEAKER"
Harga.Text = 250000
Merk.Text = "LG"
Case Else
Nama.Text = "CARGER"
Harga.Text = 60000
Merk.Text = "SAMSUNG"



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
If Val(Jumlah.Text) > Val(Merk.Text) Then
MsgBox("stok Tidak Cukup")
Else
Tharga.Text = Val(Jumlah.Text)

End If
End If
End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
Dim simpan As New ListViewItem
simpan.Text = No.Text
simpan.SubItems.Add(Kode.Text)

simpan.SubItems.Add(Nama.Text)
simpan.SubItems.Add(Harga.Text)
simpan.SubItems.Add(Merk.Text)
simpan.SubItems.Add(Jumlah.Text)
simpan.SubItems.Add(Tharga.Text)
simpan.SubItems.Add(tanggal.Text)
LV.Items.Add(simpan)
End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
No.Text = ""
Kode.Text = ""
Nama.Text = ""
Harga.Text = ""

Merk.Text = ""
Jumlah.Text = ""
Tharga.Text = ""

End Sub

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

End Sub

Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
Tharga.Text = Val(Harga.Text * Jumlah.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

Keterangan form : No.Pembeli bisa di ganti dengan combobox dan
Jumlah beli : bisa di ganti juga dengan textbox



Hasil form
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