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 : Asro Pohan

NPM : 1111424

Chord Dadali - Disaat aku mencintaimu

Intro : Em F C Dm

         Am F E

               F                           Am
Mengapa kau pergi, mengapa kau pergi
    F                              C
Disaat aku mulai mencintaimu
      Dm                                  Am
Berharap engkau jadi kekasih hatiku
            F                                Em
Malah kau pergi jauh dari hidupku

             Am                  Em
Menyendiri lagi, menyendiri lagi
    F                              C
Disaat kau tinggalkan diriku pergi
                   Dm                      Am
Tak pernah ada yang menghiasi hariku
     F                                  E
Disaat aku terbangun dari tidurku

  Am               Dm       G              C
Aku inginkan dirimu datang dan temui aku
       F                  Dm               Em           C
Kan ku katakan padamu aku sangat mencintai dirimu
    F                 Dm        G              C
Aku inginkan dirimu datang dan temui aku
        F               Dm                Em               B  A  E
Kan ku katakan padamu, aku sangat mencinta

Int : Am Em F C
      Dm Am F E

           Am                    Em
Menyendiri lagi, menyendiri lagi
     F                             C
Disaat kau tinggalkan diriku pergi
                   Dm                     Am
Tak pernah ada yang menghiasi hariku
     F                                   E
Disaat aku terbangun dari tidurku

   Am             Dm         G              C
Aku inginkan dirimu datang dan temui aku
       F                  Dm              Em            C
Kan ku katakan padamu aku sangat mencintai dirimu
   F                  Dm      G               C
Aku inginkan dirimu datang dan temui aku
        F               Dm                Bm           A C B
Kan ku katakan padamu, aku sangat mencinta

C#m                          F#
Smoga engkau kan mengerti
B                      E
Tentang perasaan ini
A                   F#
Maaf ku telah terbuai
         G#
Akan indahnya cinta

F#                    C#
Maaf sungguh ku tak bisa
    B                  Em
Untuk kembali padamu
A                  F#m
Maaf ku telah terbuai basic-chord.blogspot.com
         G#
Akan indahnya cinta..

   Am             Dm        G             C
Aku inginkan dirimu datang dan temui aku
       F                  Dm              Em          C
Kan ku katakan padamu aku sangat mencintai dirimu
   F                  Dm        G             C
Aku inginkan dirimu datang dan temui aku
        F               Dm                 Am        E  Am
Kan ku katakan padamu, aku sangat mencinta

Chord Dadali - Cinta bersemi kembali

Intro : C

C                             Em
Kenangan indah saat bersamamu
F                      G
Saat kau ada disampingku
C                         Em
Kini semua terulang kembali
    F                          C     G
Masa-masa terindah bersamamu

C               Em
Aku jatuh cinta lagi
     Am                  F        G
Cinta yang dulu bersemi kembali
C                 Em
Aku jatuh cinta lagi
    Am                 F     G
Cinta pada mantan kekasihku

C                            Em
Cinta yang pernah ada di hatiku
F                               C     G
Kini t’lah hadir kembali di jiwaku
C basic-chord.blogspot.comEm
Mungkin semua terulang kembali
F                     Fm
Ku ingin engkau seperti dulu

Em Am Em        Am
Ku rasa ku t’lah jatuh cinta
    F          G
Kepada dirimu

C               Em
Aku jatuh cinta lagi
     Am                  F        G
Cinta yang dulu bersemi kembali
C                 Em
Aku jatuh cinta lagi
    Am                 F     G
Cinta pada mantan kekasihku

Am Em F C G

Am Em F Fm

Em Am Em        Am
Ku rasa ku t’lah jatuh cinta
    F          G
Kepada dirimu

C               Em
Aku jatuh cinta lagi
     Am                  F        G
Cinta yang dulu bersemi kembali
C                 Em  basic-chord.blogspot.com
Aku jatuh cinta lagi
    Am                 F     G
Cinta pada mantan kekasihku

Outro : C F Am G

           C F Am G C

Chord Dadali - Ku tak pantas di surga

Intro : Dm G F A

Dm                                          Bb
Sudah terlalu banyak dosa yang aku lakukan
      F          A
Tuhan ampuni aku
Dm                                 G
Berlinang air mata bila ku sebut namaMu
     F                A
Tuhan bergetar hatiku

Dm   Gm                     F
Ku telah lama lupakanMu
    Gm  basic-chord.blogspot.com
Gelap hati gelap jiwa
    A
Gelapnya hidupku

Dm                 Gm
Ku tak pantas di surga
                 C               F
Namun ku takut pada neraka
Bb             Gm          A
Aku hanya manusia penuh dosa

Dm                Gm
Tuntunlah dan bimbinglah
     C               F
Di jalan ridhoMu
   Gm
Beri aku kesempatan
        A                         Dm
Tuk menjadi yang lebih baik

Solo : Bb F A

Dm
Andaikan saja waktu
              Bb
Dapat ku putar kembali
    F              A
Aku ingin di dekatMu

Dm
Betapa pedih siksa
                 Bb
Yang telah Engkau janjikan
   Dm              A
Tuhan maafkanlah aku

Dm   Gm                     F
Ku telah lama lupakanMu
    Gm
Gelap hati gelap jiwa
     A
Gelapnya hidupku

Dm                 Gm
Ku tak pantas di surga
                 C               F
Namun ku takut pada neraka
Bb             Gm          A
Aku hanya manusia penuh dosa

Dm                     Gm
Tuntunlah dan bimbinglah
     C              F
Di jalan ridhoMu
   Gm
Berikan kasihMu
    A            Am
Berikan cintaMu

Int : Dm Gm C F
      Gm Am

Dm                 Gm
Ku tak pantas di surga
                 C              F
Namun ku takut pada neraka
Bb              Gm          A
Aku hanya manusia penuh dosa

Dm                 Gm
Tuntunlah dan bimbinglah
     C              F
Di jalan ridhoMu
    Gm
Berikan kasihMu
     A
Berikan cintaMu

Outro : Dm Bb Dm Bb