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

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.Left(Kode.Text, 3)

        If x = "PAB" Then

            Tipe.Text = "Pabrik"

        ElseIf x = "SWA" Then

            Tipe.Text = "Swalayan"

        ElseIf x = "TOK" Then

            Tipe.Text = "Toko"

        ElseIf x = "SWA" Then

            Tipe.Text = "Swalayan"

        ElseIf x = "RUM" Then

            Tipe.Text = "Rumah"

        End If

        Dim x2 As String

        x2 = Microsoft.VisualBasic.Mid(Kode.Text, 5, 3)

        If x2 = "MED" Then

            Daerah.Text = "Medan"

        ElseIf x2 = "MAR" Then

            Daerah.Text = "Marelan"

        ElseIf x2 = "BEL" Then

            Daerah.Text = "Belawan"

        ElseIf x2 = "BIN" Then

            Daerah.Text = "Binjai"

        ElseIf x2 = "PAK" Then

            Daerah.Text = "Lubuk Pakam"

        ElseIf x2 = "TEM" Then

            Daerah.Text = "Aksara"

        End If

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

    End Sub

    Private Sub Tipe_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.TextChanged

        If Tipe.Text = "Toko" Then

            Biayabeban.Text = 150000

            Hargaperkw.Text = 500

        ElseIf Tipe.Text = "Rumah" Then

            Biayabeban.Text = 50000

            Hargaperkw.Text = 200

        ElseIf Tipe.Text = "Swalayan" Then

            Biayabeban.Text = 400000

            Hargaperkw.Text = 1500

        Else

            Biayabeban.Text = 1000000

            Hargaperkw.Text = 10000

        End If

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        Selisih.Text = Val(Bulansekarang.Text) - Val(Bulanlalu.Text)

        Total.Text = Val(Biayabeban.Text) + Val(Hargaperkw.Text * Selisih.Text)

        Pajak.Text = Val(Total.Text * 0.015)

        Totalyangdibayar.Text = Val(Total.Text) + Val(Pajak.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 Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub Btnhapusdataygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdataygdipilih.Click

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

    End Sub

     Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Kode.Text = ""

        Tipe.Text = ""

        Daerah.Text = ""

        nourut.Text = ""

        Biayabeban.Text = ""

        Hargaperkw.Text = ""

        Bulanlalu.Text = ""

        Bulansekarang.Text = ""

        Selisih.Text = ""

        Total.Text = ""

        Pajak.Text = ""

        Totalyangdibayar.Text = ""

    End Sub

    Sub buattable()

        LV.Columns.Add("Kode", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Tipe", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)

        LV.Columns.Add("No Urut", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Harga/Kw", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Bulan Lalu", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Bulan Sekarang", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Selisih", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Yang Dibayar", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(Daerah.Text)

        lst.SubItems.Add(nourut.Text)

        lst.SubItems.Add(Biayabeban.Text)

        lst.SubItems.Add(Hargaperkw.Text)

        lst.SubItems.Add(Bulanlalu.Text)

        lst.SubItems.Add(Bulansekarang.Text)

        lst.SubItems.Add(Selisih.Text)

        lst.SubItems.Add(Total.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(Totalyangdibayar.Text)

        LV.Items.Add(lst)

    End Sub

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

        buattable()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitable()

        Kode.Text = ""

        Tipe.Text = ""

        Daerah.Text = ""

        nourut.Text = ""

        Biayabeban.Text = ""

        Hargaperkw.Text = ""

        Bulanlalu.Text = ""

        Bulansekarang.Text = ""

        Selisih.Text = ""

        Total.Text = ""

        Pajak.Text = ""

        Totalyangdibayar.Text = ""

    End Sub

End Class

 Nama : Kardi Hartono NPM ( 1111408 )