Review Tentang Mesran[ dot ]Net

Dalam dunia informasi sekarang ini banyak sekali program-program yang dibuat untuk mempermudah pekerjaan seorang user. kali ini admin ingin berbagi tentang Website yang menyediakan pembelajaran tentang berbagai mcam bahasa Pemrograman seperti VB, Vb.Net, Pascal, C++.

    Nah langsung saja ini dia alamatnya mesran.blogspot.com  dan  di mesran.net. Dalam situs itu nanti anda akan mendapatkan banyak ilmu yang berharga khususnya bagi anda yang hobi dengan dunia informasi, dan pastinya mudah untuk dipelajari karena situs tersebut berasal dari orang yang terpercaya yang memang ahli di bidang tersebut,  Di dalam situs itu kita juga bisa mendownload program, ebook dan software.

Latihan Listview Perhitungan Penjualan

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CbKode.Items.Add("TS001")
        CbKode.Items.Add("TS002")
        CbKode.Items.Add("VG001")
        CbKode.Items.Add("VG002")

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

    End Sub

    Private Sub CbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbKode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(CbKode.Text, 2)
        If x = "TS" Then
            TxtMerk.Text = "Toshiba"
        ElseIf x = "VG" Then
            TxtMerk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(CbKode.Text, 3)
        If x = "001" Then
            TxtNama.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            TxtNama.Text = "Flashdisk 2GB"
        End If
        If CbKode.Text = "TS001" Then
            TxtHarga.Text = 105000
        ElseIf CbKode.Text = "TS002" Then
            TxtHarga.Text = 75000
        ElseIf CbKode.Text = "VG001" Then
            TxtHarga.Text = 90000
        ElseIf CbKode.Text = "VG002" Then
            TxtHarga.Text = 60000
        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 = TxtNo.Text
        simpan.SubItems.Add(CbKode.Text)
        simpan.SubItems.Add(TxtNama.Text)
        simpan.SubItems.Add(TxtMerk.Text)
        simpan.SubItems.Add(TxtHarga.Text)
        simpan.SubItems.Add(TxtJumlah.Text)
        simpan.SubItems.Add(TxtTotal.Text)
        LV.Items.Add(simpan)

        BtnBersih_Click(sender, e)
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtNo.Text = ""
        CbKode.Text = ""
        TxtNama.Text = ""
        TxtMerk.Text = ""
        TxtHarga.Text = ""
        TxtJumlah.Text = ""
        TxtTotal.Text = ""
    End Sub

    Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub BtnHapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusPilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub TxtJumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TxtTotal.Text = Val(TxtJumlah.Text) * Val(TxtHarga.Text)
        End If
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class

Nama : Erma Novida

NPM : 13110561

Kelas : TIM-1310