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

Selesaikanlah Kasus Berikut Ini : Program Menampilkan Listview Untuk Kasus Pemrograman Pemakaian Listrik

Berikut Jawabannya terlihat seperti dibawah ini :
Desain Program seperti berikut

Ketikkan Script Code berikut :

Public Class Form1

    Private Sub Kode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.TextChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(Kode.Text, 3)

        If x = "TOK" Then

            Biaya.Text = "150000"

            Harga.Text = "500"

        ElseIf x = "RUM" Then

            Biaya.Text = "50000"

            Harga.Text = "200"

        ElseIf x = "SWA" Then

            Biaya.Text = "400000"

            Harga.Text = "1500"

        ElseIf x = "PAB" Then

            Biaya.Text = "1000000"

            Harga.Text = "10000"

        End If

        x = Microsoft.VisualBasic.Mid(Kode.Text, 4, 3)

        If x = "MED" Then

            Daerah.Text = "Medan"

        ElseIf x = "BEL" Then

            Daerah.Text = "Belawan"

        ElseIf x = "TEM" Then

            Daerah.Text = "Aksara"

        ElseIf x = "MAR" Then

            Daerah.Text = "Merendal"

        ElseIf x = "BIN" Then

            Daerah.Text = "Binjai"

        ElseIf x = "PAK" Then

            Daerah.Text = "Lubuk Pakam"

        End If

        No.Text = Microsoft.VisualBasic.Right(Kode.Text, 3)

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Besar.Text = (BulanIni.Text - BulanLalu.Text)

        Total.Text = Biaya.Text + Harga.Text * Besar.Text

        Pajak.Text = (1.5 / 100) * Total.Text

        Pembayaran.Text = Total.Text + Pajak.Text

    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

        Kode.Text = ""

        No.Text = ""

        Daerah.Text = ""

        Harga.Text = ""

        Biaya.Text = ""

        Harga.Text = ""

        BulanIni.Text = ""

        BulanLalu.Text = ""

        Besar.Text = ""

        Total.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        Call isitabel()

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(No.Text)

        lst.SubItems.Add(Daerah.Text)

        lst.SubItems.Add(Biaya.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(BulanIni.Text)

        lst.SubItems.Add(BulanLalu.Text)

        lst.SubItems.Add(Besar.Text)

        lst.SubItems.Add(Total.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(Pembayaran.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusPilih.Click

        If LV.SelectedItems.Count <> 0 Then

            LV.Items.Remove(LV.SelectedItems(0))

        Else

            MsgBox("pilih data yang akan dihapus")

        End If

    End Sub

End Class

Tekan F5 untuk menjalankan program, maka hasilnya seperti dibawah ini

Demikilahlah postingan saya  (NAMA : BASYIAH  NPM : 1111055)
Selamat Belajar Pemrograman VB Net