Welcome to my blog..Enjoy here..Don't forget to follow me :D..!!! :p

Sabtu, 05 Desember 2015

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

Selesaikanlah Kasus Berikut :
JUDUL SOAL Kasus Pemrograman : Informasi Penjualan Produk

Berikut Jawaban Program :


Public Class Form1


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

        Kode.Items.Add("1")
        Kode.Items.Add("2")
        Kode.Items.Add("3")
        LV.Columns.Add("No", 40, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Produk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Total Pembayaran", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub