Skip to main content

Program VB2008 Sederhana



Artikel berikutnya »

Desain Form





Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("Nama Barng", 80, HorizontalAlignment.Center)
LV.Columns.Add("Harga Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Barang", 90, HorizontalAlignment.Center)
LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details

End Sub

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

If Asc(e.KeyChar) = 13 Then

Tharga.Text = Val(Jbarang.Text) * Val(Hbarang.Text)
End If
End Sub

Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
Dim simpan As New ListViewItem

simpan.Text = Nbarang.Text

simpan.SubItems.Add(Hbarang.Text)
simpan.SubItems.Add(Jbarang.Text)
simpan.SubItems.Add(Tharga.Text)
LV.Items.Add(simpan)


End Sub

Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
Nbarang.Text = ""
Hbarang.Text = ""
Jbarang.Text = ""
Tharga.Text = ""
LV.Clear()

End Sub

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

End Sub
End Class





Hasil Form
Selamat Mencoba
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