SELAMAT DATANG DIBLOGSPOT SAYA, NAMA SAYA ETIELI GULO DARI NIAS INSLAND

Minggu, 02 Juni 2013

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

Judul Soal : Latihan Listview Perhitungan Penjualan Barang

Tampilan Sebelum Dijalan kan 
LIsting Programnya : 
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RancangTabel()
        KBarang.Items.Add("TSF001")
        KBarang.Items.Add("TSF002")
        KBarang.Items.Add("VGR001")
        KBarang.Items.Add("VGR002")
        KBarang.Items.Add("VGR003")
        NPembeli.Focus()
    End Sub
    Sub RancangTabel()
        lv.Columns.Add("No.Pembelian", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Merek", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub hapus()
        NPembeli.Text = ""
        KBarang.Text = ""
        NBarang.Text = ""
        merek.Text = ""
        Harga.Text = ""
        JBeli.Text = ""
        Total.Text = ""
    End Sub
    Sub MasukTabel()
        Dim Etieligulo As New ListViewItem
        With Etieligulo
            .Text = NPembeli.Text
            .SubItems.Add(KBarang.Text)
            .SubItems.Add(NBarang.Text)
            .SubItems.Add(merek.Text)
            .SubItems.Add(Harga.Text)
            .SubItems.Add(JBeli.Text)
            .SubItems.Add(Total.Text)
            lv.Items.Add(Etieligulo)


        End With
    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KBarang.SelectedIndexChanged

        Dim x As String
        Dim x2 As String
        x = Microsoft.VisualBasic.Mid(KBarang.Text, 3, 1)
        x = Microsoft.VisualBasic.Left(KBarang.Text, 2)
        If x = "TS" Then
            merek.Text = "TOSHIBA"
        ElseIf x = "VG" Then
            merek.Text = "V-Gen"
        End If


        x2 = Microsoft.VisualBasic.Right(KBarang.Text, 3)
        If x2 = "001" Then
            NBarang.Text = "Leptop"
        ElseIf x2 = "002" Then
            NBarang.Text = "Flashdisk"
        End If

        If x = "TS" And x2 = "001" Then
            Harga.Text = 105000
        ElseIf x = "TS" And x2 = "002" Then
            Harga.Text = 75000
        ElseIf x = "VG" And x2 = "001" Then
            Harga.Text = 90000
        ElseIf x = "VG" And x2 = "002" Then
            Harga.Text = 60000
        Else
            Harga.Text = 0
        End If
    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JBeli.KeyPress
        If e.KeyChar = Chr(13) Then
            Total.Text = Val(Harga.Text) * JBeli.Text
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JBeli.TextChanged

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        MasukTabel()
        hapus()
        NPembeli.Focus()
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        hapus()
        NPembeli.Focus()
    End Sub

    Private Sub hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click
        If lv.SelectedItems.Count <> 0 Then
            lv.Items.Remove(lv.SelectedItems(0))
        Else
            MsgBox("Pilih Dulu Bro yang Mau Dihapus..!")
        End If
    End Sub

    Private Sub hapus_satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_satu.Click
        lv.Items.Clear()
    End Sub

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

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

    End Sub
End Class




Inilah tampilan setelah dijalankan.


Demikianlah postingan saya hari ini..
Nama : Etieli Gulo
NPM  : 1111423
Kelas  : TI-M1112

Ya'ahowu

Tidak ada komentar:

Posting Komentar