skip to main | skip to sidebar

Muhammad Teguh Pratama

  • Entries (RSS)
  • Comments (RSS)
  • Home
  • About Us
  • Archives
  • Contact Us

Minggu, 02 Juni 2013

quis online

Diposting oleh Muhammad Teguh Pratama di 04.05
Public Class Form1
    Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        kbarang.Items.Add("Ts001")
        kbarang.Items.Add("Ts002")
        kbarang.Items.Add("VG001")
        kbarang.Items.Add("VG002")


    End Sub
    Sub buattabel()
        lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        npembelian.Text = ""
        kbarang.Text = ""
        nbarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jbeli.Text = ""
        tharga.Text = ""
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npembelian.Text
        lst.SubItems.Add(kbarang.Text)
        lst.SubItems.Add(nbarang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jbeli.Text)
        lst.SubItems.Add(tharga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub kbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kbarang.SelectedIndexChanged
        Select Case kbarang.Text
            Case "Ts001" : nbarang.Text = "Flashdisk 4GB"
            Case "Ts002" : nbarang.Text = "Flashdisk 2GB"
            Case "Vg001" : nbarang.Text = "Flashdisk 4GB"
            Case "Vg002" : nbarang.Text = "Flashdisk 2GB"
        End Select

        Select Case kbarang.Text

            Case "Ts001" : merk.Text = "toshiba"
            Case "Ts002" : merk.Text = "toshiba"
            Case "Vg001" : merk.Text = "V-GEN"
            Case "Vg002" : merk.Text = "V-GEN"
        End Select

        Select Case kbarang.Text
            Case "Ts001" : harga.Text = "105000"
            Case "Ts002" : harga.Text = "75000"
            Case "Vg001" : harga.Text = "90000"
            Case "Vg002" : merk.Text = "60000"

        End Select
    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        lv.Items.Clear()
    End Sub
End Class

Kirimkan Ini lewat Email BlogThis! Bagikan ke X Berbagi ke Facebook

0 komentar:

Posting Komentar

Posting Lebih Baru Posting Lama Beranda
Langganan: Posting Komentar (Atom)

Sponsored

  • banners
  • banners
  • banners
  • banners

Blog Archive

  • â–º  2014 (3)
    • â–º  Juni (1)
    • â–º  Mei (2)
  • â–¼  2013 (28)
    • â–¼  Juni (7)
      • Tugas
      • Cache Memory
      • Samsung Perkenalkan TV LED Layar Lebar Terbaru di ...
      • Kopassus Pasukan Elite Indonesia Terkuat Di Dunia
      • 3 Spy Camera Tercanggih di Dunia
      • Kamera Digital Terbaru Dan Tercanggih
      • quis online
    • â–º  Mei (4)
    • â–º  April (17)
  • â–º  2012 (11)
    • â–º  Maret (11)

Followers

Mengenai Saya

Foto saya
Muhammad Teguh Pratama
Lihat profil lengkapku
Diberdayakan oleh Blogger.

Arsip Blog

  • â–º  2014 (3)
    • â–º  Juni (1)
    • â–º  Mei (2)
  • â–¼  2013 (28)
    • â–¼  Juni (7)
      • Tugas
      • Cache Memory
      • Samsung Perkenalkan TV LED Layar Lebar Terbaru di ...
      • Kopassus Pasukan Elite Indonesia Terkuat Di Dunia
      • 3 Spy Camera Tercanggih di Dunia
      • Kamera Digital Terbaru Dan Tercanggih
      • quis online
    • â–º  Mei (4)
    • â–º  April (17)
  • â–º  2012 (11)
    • â–º  Maret (11)
http://www.mesran.net/me/index.php
 

© 2010 My Web Blog
designed by DT Website Templates | Bloggerized by Agus Ramadhani | Zoomtemplate.com