artikel tentang Mesran.net

 Mesran.net adalah salah satu website tempat belajar bahasa pemrograman. Di mesran.net teman-teman dapat menemukan berbagai macam artikel tentang bahasa pemrograman mulai dari VB.NET, Prog. Java, Visual Basic, Prog. Pascal dll. Di mesran.net teman-teman juga dapat langsung bertanya dengan berkomentar, pasti setiap pertanyaan sobat akan di jawab.

Mesran.net merupakan salah satu dari sekian banyak website tempat belajar bahasa pemrograman yang menurut saya cukup lengkap. Di mesran.net teman-teman juga dapat menemukan berbagai macam informasi yang tentunya berguna buat sobat, dan mesran.net merupakan tempat mahasiswa/I Budidarma belajar bahasa pemrograman. Apalagi di Akhir semester mesran.net akan menjadi tempat yang ramai di kunjungi mahasiswa/I Budidarma, untuk melihat Nilai atau IP selama belajar satu semester.

Program Pembelian Barang

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KB.Items.Add("TS0001")
        KB.Items.Add("TS0002")
        KB.Items.Add("VG0001")
        KB.Items.Add("VG0002")

        Call BuatTabel()

    End Sub
    Sub BuatTabel()
        LV.Columns.Add("No. Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 180, HorizontalAlignment.Center)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = NP.Text
        Lst.SubItems.Add(KB.Text)
        Lst.SubItems.Add(NB.Text)
        Lst.SubItems.Add(merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(JB.Text)
        Lst.SubItems.Add(TH.Text)

        LV.Items.Add(Lst)
    End Sub

       Private Sub SkL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SkL.Click
        Call isitabel()
    End Sub

    Private Sub KB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(KB.Text, 2)
        If x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(KB.Text, 3)
        If x = "001" Then
            NB.Text = "Flashdisk 4 GB"
        ElseIf x = "TS" Then
            NB.Text = "Flashdisk 2 GB"
        ElseIf x = "VG" Then
            NB.Text = "Flashdisk 4 GB"
        ElseIf x = "VG" Then
            NB.Text = "Flashdisk 2 GB"
        End If
    End Sub

    Private Sub TH_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TH.KeyPress
        TH.Text = Harga.Text * JB.Text

    End Sub

       Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        NP.Text = ""
        KB.Text = ""
        NB.Text = ""
        merk.Text = ""
        Harga.Text = ""
        JB.Text = ""
        TH.Text = ""

    End Sub

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

    Private Sub HDP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HDP.Click
        LV.Items.Clear()
    End Sub
End Class