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

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

JAWABAN 1

NAMA:BUDIANTO

NPM:1111626

KELAS:SI 1106

JAWABAN 2

Public Class Form1

    Sub buatTabel()

        LV.Columns.Add("NIK", 150, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA PEGAWAI", 150, HorizontalAlignment.Center)

        LV.Columns.Add("GOL", 150, HorizontalAlignment.Center)

        LV.Columns.Add("GAJI", 150, HorizontalAlignment.Center)

        LV.Columns.Add("PAJAK", 150, HorizontalAlignment.Center)

        LV.Columns.Add("PINJAMAN", 150, HorizontalAlignment.Center)

        LV.Columns.Add("GAJI BERSIH", 150, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = NIK.Text

        Lst.SubItems.Add(NAMAPEGAWAI.Text)

        Lst.SubItems.Add(GOL.Text)

        Lst.SubItems.Add(GAJI.Text)

        Lst.SubItems.Add(PAJAK.Text)

        Lst.SubItems.Add(PINJAMAN.Text)

        Lst.SubItems.Add(GAJIBERSIH.Text)

        LV.Items.Add(Lst)

    End Sub

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

        buatTabel()

        NIK.Items.Add("001")

        NIK.Items.Add("002")

        NIK.Items.Add("003")

        GOL.Items.Add("IIIA")

        GOL.Items.Add("IIIB")

        GOL.Items.Add("IIIC")

    End Sub

    Private Sub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged

        Select GOL.Text

            Case "IIIA" : GAJI.Text = 1500000

            Case "IIIB" : GAJI.Text = 2500000

            Case "IIIC" : GAJI.Text = 3500000

        End Select

        PAJAK.Text = 0.15 * GAJI.Text

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select NIK.Text

            Case "001" : NAMAPEGAWAI.Text = "ANDI LUBIS"

            Case "002" : NAMAPEGAWAI.Text = "CANDRA"

            Case "003" : NAMAPEGAWAI.Text = "HARYADI"

        End Select

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

        GAJIBERSIH.Text = Val(GAJI.Text) - Val(PINJAMAN.Text) - Val(PAJAK.Text)

    End Sub

    Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click

        IsiTabel()

        NIK.Text = ""

        NAMAPEGAWAI.Text = ""

        GOL.Text = ""

        GAJI.Text = ""

        PAJAK.Text = ""

        PINJAMAN.Text = ""

        GAJIBERSIH.Text = ""

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        LV.Items.Clear()

    End Sub

End Class