program tabel mahasiswa

Public Class Form1

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

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        golongan.Items.Add("IIIA")

        golongan.Items.Add("IIIB")

        golongan.Items.Add("IIIC")

        status.Items.Add("Menikah")

        status.Items.Add("Belom Menikah")

        rancangtabel()

        Me.BackColor = Color.BlanchedAlmond

    End Sub

    Sub rancangtabel()

        With LV

            .Columns.Add("Nik", 50)

            .Columns.Add("Nama", 200)

            .Columns.Add("Golongan", 50)

            .Columns.Add("Gaji Pokok", 100)

            .Columns.Add("status", 200)

            .Columns.Add("Tunjangan Istri", 100)

            .Columns.Add("Tunjangan Anak", 100)

            .Columns.Add("Total Gaji", 100)

            LV.View = View.Details

            LV.GridLines = True

            LV.FullRowSelect = True

        End With

    End Sub

    Sub isi_tabel()

        Dim x As New ListViewItem

        With x

            .Text = (nik.Text)

            .SubItems.Add(nama.Text)

            .SubItems.Add(golongan.Text)

            .SubItems.Add(gaji_pokok.Text)

            .SubItems.Add(status.Text)

            .SubItems.Add(tunjangan_istri.Text)

            .SubItems.Add(tunjangan_anak.Text)

            .SubItems.Add(total_gaji.Text)

        End With

        LV.Items.Add(x)

    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged

        If golongan.Text = "IIIA" Then

            gaji_pokok.Text = "1800000"

        ElseIf golongan.Text = "IIIB" Then

            gaji_pokok.Text = "2000000"

        Else

            gaji_pokok.Text = "350000"

        End If

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        If nik.Text = "001" Then

            nama.Text = "Vanrio Andryan Sinaga"

        ElseIf nik.Text = "002" Then

            nama.Text = "Esra Handayani Silaban"

        Else

            nama.Text = "Andryan Sinaga"

        End If

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        Close()

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If jumlah_anak.Text <= 2 Then

            tunjangan_anak.Text = jumlah_anak.Text * gaji_pokok.Text * 0.1

        ElseIf jumlah_anak.Text > 2 Then

            tunjangan_anak.Text = 2 * gaji_pokok.Text * 0.1

        End If

        total_gaji.Text = Val(tunjangan_istri.Text) + Val(tunjangan_anak.Text) + Val(gaji_pokok.Text)

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "Menikah" Then

            tunjangan_istri.Text = "5000000"

        ElseIf status.Text = "Belom Menikah" Then

            jumlah_anak.Enabled = False

            tunjangan_istri.Enabled = False

            tunjangan_anak.Enabled = False

            total_gaji.Text = gaji_pokok.Text

        End If

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        isi_tabel()

    End Sub

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

        nik.Text = " "

        nama.Text = " "

        golongan.Text = " "

        gaji_pokok.Text = " "

        status.Text = " "

        tunjangan_istri.Text = " "

        tunjangan_anak.Text = " "

        jumlah_anak.Text = " "

        total_gaji.Text = " "

    End Sub

End Class

sumber : Esra handayani