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

JAWABAN NO 2:

LISTING PROGRAM PT TELKOM

Public Class Form1

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

        lv.Columns.Add("Hari", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Jumlah Watt Yang Dipakai", 100, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

       
Dim lst As New ListViewItem

        lst.Text = hari.Text

        lst.SubItems.Add(jlh.Text)

        lv.Items.Add(lst)

        hari.Items.Add("Senin")

        hari.Items.Add("Selasa")

        hari.Items.Add("Rabu")

        hari.Items.Add("Kamis")

        hari.Items.Add("Jum'at")

        hari.Items.Add("Sabtu")

        hari.Items.Add("Minggu")

    End Sub

    Private Sub kdpelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hari.SelectedIndexChanged

        Select Case hari.Text

            Case "Senin" : jlh.Text = "100"

            Case "Selasa" : jlh.Text = "50"

            Case "Rabu" : jlh.Text = "85"

            Case "Kamis" : jlh.Text = "40"

            Case "Jum'at" : jlh.Text = "100"

            Case "Sabtu" : jlh.Text = "70"

        End Select

    End Sub

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

        End

    End Sub

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

        Dim lst As New ListViewItem

        lst.Text = hari.Text

        lst.SubItems.Add(jlh.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        hari.Text = ""

        jlh.Text = ""

    End Sub

End Class

Demikilahlah postingan saya
Nama : (DESI MAHLIZA TANJUNG)
NPM : (1111865)
Selamat Pemrograman VB NET