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

Hasil Program




Code Program :

Public Class Form1

    Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()

        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "VGEN"
        End Select
        x = Microsoft.VisualBasic.Right(kode.Text, 3)
        Select Case x
            Case "001" : nama.Text = "Flashdisk 4GB"
            Case "002" : nama.Text = "Flashdisk 2GB"

        End Select
        Select Case kode.Text
            Case "TS001" : harga.Text = "105000"
            Case "TS002" : harga.Text = "75000"
            Case "VG001" : harga.Text = "90000"
            Case "VG002" : harga.Text = "60000"
        End Select
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            total.Text = jumlah.Text * harga.Text
        End If

    End Sub
    Sub buattabel()
        lv.Columns.Add("No Pembelian", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Pembelian", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Total Harga", 120, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = no.Text()
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nama.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 btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        lv.Items.Clear()
    End Sub

    Private Sub btn_hapusd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusd.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

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

    Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
        isitabel()
    End Sub
End Class

Demikilahlah postingan saya  Nama : (SANDI SETIAWAN)  NPM : (13110268)
Selamat Belajar Pemrograman VB NET (Mesran.net)