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

SOAL MATAKULIAH VISUAL (SEMESTER IV) :

Selesaikanlah Kasus Berikut ini

 Buatlah program untuk menampilkan hasil ke listview untuk kasus latihan perhitungan penjualan barang 

CARA MENJAWAB SOAL 1 INI BACA POSTINGAN INI Cara Menjawab Quiz Online Pemrograman Visual Basic dot Net ( S1 )
dan JANGAN LUPA UNTUK MEMBERIKAN KOMENT ANDA DENGAN MENYERTAKAN NAMA, NPM, KELAS DAN LINK JAWABANNYA KE CARA MENJAWAB QUIZ ONLINE PEMROGRAMAN VISUAL BASIC DOT NET (S1)

http://warungshinobi.blogspot.com/2013/06/yuk-belajar-pemrograman-visual-basic.html

Berikut jawabannya terlihat seperti dibawah ini :

Public Class Form1

    Sub BuatTabel()

        lv.Columns.Add("kode", 50, HorizontalAlignment.Left)

        lv.Columns.Add("nama barang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("satuan", 60, HorizontalAlignment.Left)

        lv.Columns.Add("harga barang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("total", 50, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = kd.Text

        Lst.SubItems.Add(kd.Text)

        Lst.SubItems.Add(nb.Text)

        Lst.SubItems.Add(sa.Text)

        Lst.SubItems.Add(hb.Text)

        Lst.SubItems.Add(tot.Text)

        LV.Items.Add(Lst)

    End Sub

   

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

        BuatTabel()

        kd.Items.Add("a001")

        kd.Items.Add("a002")

        kd.Items.Add("a003")

        sa.Items.Add("12")

        sa.Items.Add("13")

        sa.Items.Add("14")

    End Sub

    Private Sub kd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged

        Select Case kd.Text

            Case "a001" : nb.Text = "susu"

            Case "a002" : nb.Text = "telur"

            Case "a003" : nb.Text = "daging"

        End Select

    End Sub

    Private Sub sa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sa.SelectedIndexChanged

        Select Case sa.Text

            Case "12" : hb.Text = 7000

            Case "13" : hb.Text = 1500

            Case "14" : hb.Text = 30000

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tot.Text = Val(sa.Text) * Val(hb.Text)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        IsiTabel()

        kd.Text = ""

        nb.Text = ""

        sa.Text = ""

        hb.Text = ""

        tot.Text = ""

       

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        kd.Text = ""

        nb.Text = ""

        sa.Text = ""

        hb.Text = ""

        tot.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

End Class


Demikilahlah postingan saya  Nama : fikri nur hakim NPM : 1111590

Selamat Belajar Pemrograman VB Net ( Pemrograman VB Net di LINK ke http://mesran.net )