Yuk! Belajar Pemrograman VB.Net di Mesran .Net

Hasil

Coding Program

Public Class Form1

    Private Sub Kode_Brg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Brg.SelectedIndexChanged
        Dim h As String
        h = Microsoft.VisualBasic.Left(Kode_Brg.Text, 2)
        Select Case h
            Case "TS" : Merk.Text = "TOSHIBA"
            Case "VG" : Merk.Text = "V-GEN"
        End Select

        Dim r As String
        r = Microsoft.VisualBasic.Right(Kode_Brg.Text, 3)
        Select Case r
            Case "001" : Nama_Brg.Text = "FLASHDISK 4GB"
            Case "002" : Nama_Brg.Text = "FLASHDISK 2GB"
        End Select

        If h = "TS" And r = "001" Then
            Harga.Text = 105000
        ElseIf h = "TS" And r = "002" Then
            Harga.Text = 75000
        ElseIf h = "VG" And r = "001" Then
            Harga.Text = 90000
        ElseIf h = "VG" And r = "002" Then
            Harga.Text = 60000

        End If
    End Sub
    Sub buattabel()
        LV.Columns.Add("No.Pembelian", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 90, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim LST As New ListViewItem
        Lst.Text = No_Pembelian.Text
        Lst.SubItems.Add(Kode_Brg.Text)
        Lst.SubItems.Add(Nama_Brg.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(Jumlah.Text)
        Lst.SubItems.Add(Total.Text)
        LV.Items.Add(LST)
    End Sub

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

        buattabel()
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        IsiTabel()
       
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        No_Pembelian.Text = ""
        Kode_Brg.Text = ""
        Nama_Brg.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

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

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

    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Total.Text = Harga.Text * Jumlah.Text
        End If
    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

    End Sub

End Class

Nama : Ade tribowo
NPM : 1111428
Kelas : TIP1105
SELAMAT  Pemrograman VB.Net