Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Pembelian Barang Flasdisk Belajar Pemograman VB NET

Anda Harus desain dulu seperti di bawah ini...

Gambar. 1.1

Lalu anda ketikan coding di bawah ini...

Public Class Form1

    Sub BuatTabel()
        LV.Columns.Add("No Pembeli", 55, HorizontalAlignment.Left)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 65, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 75, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = NoPem.Text
        Lst.SubItems.Add(KdBrg.Text)
        Lst.SubItems.Add(NmBrg.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Hrg.Text)
        Lst.SubItems.Add(JlhBl.Text)
        Lst.SubItems.Add(TtlHrg.Text)
        LV.Items.Add(Lst)
    End Sub


    Private Sub Form1_Load()
        BuatTabel()
        KdBrg.Items.Add("TS001")
        KdBrg.Items.Add("TS002")
        KdBrg.Items.Add("VG001")
        KdBrg.Items.Add("VG002")
       
    End Sub

    Private Sub KdBrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdBrg.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(KdBrg.Text, 2)
        Select Case X
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-Gen"
        End Select
        Dim X2 As String
        X2 = Microsoft.VisualBasic.Right(KdBrg.Text, 3)
        Select Case X2
            Case "001" : NmBrg.Text = "Flasdisk 4Gb"
            Case "002" : NmBrg.Text = "Flasdisk 2Gb"
        End Select
        If X = "TS" And X2 = "001" Then
            Hrg.Text = "105000"
        ElseIf X = "TS" And X2 = "002" Then
            Hrg.Text = "75000"
        ElseIf X = "VG" And X2 = "001" Then
            Hrg.Text = "90000"
        ElseIf X = "VG" And X2 = "002" Then
            Hrg.Text = "60000"
        End If
    End Sub
    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub
    Private Sub BtnHapus_Click()
        LV.Items.Clear()
    End Sub
    Private Sub btnhapuspilih_Click()
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
    Private Sub BtnSimpan_Click()
        IsiTabel()
    End Sub

    Private Sub JlhBl_KeyPress()
        TtlHrg.Text = Val(Hrg.Text) * Val(JlhBl.Text)
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            BtnSimpan_Click(sender, e)
        End If
    End Sub
End Class

Lalu Anda tekan F5
Ini lah hasilnya...

Gambar 1.2

Selamat Belajar Pemograman VB NET

Demikian lah postingan saya
NAMA : DEDI IRWANSYAH
NPM : 1111833