Tugas Mahasiswa

Public Class Form1

    Sub addnik()

        With CNik

            .Items.Add("001")

            .Items.Add("002")

            .Items.Add("003")

        End With

    End Sub

    Sub rancangtabel()

        With LV

            .Columns.Add("NIK", 100, HorizontalAlignment.Center)

            .Columns.Add("Nama", 100, HorizontalAlignment.Center)

            .Columns.Add("Jabatan", 100, HorizontalAlignment.Center)

            .Columns.Add("Gaji", 100, HorizontalAlignment.Center)

            .Columns.Add("Status", 100, HorizontalAlignment.Center)

            .Columns.Add("Tunj Istri", 100, HorizontalAlignment.Center)

            .Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)

            .Columns.Add("Tunj Anak", 100, HorizontalAlignment.Center)

            .Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)

            .Columns.Add("Honor Lembur", 100, HorizontalAlignment.Center)

            .Columns.Add("Pajak", 100, HorizontalAlignment.Center)

            .Columns.Add("Total", 100, HorizontalAlignment.Center)

            .GridLines = True

            .View = View.Details

            .FullRowSelect = True

        End With

    End Sub

    Sub isitabel()

        Dim x As New ListViewItem

        x.Text = CNik.Text

        x.SubItems.Add(TNama.Text)

        x.SubItems.Add(CJabatan.Text)

        x.SubItems.Add(TGaji.Text)

        x.SubItems.Add(CStatus.Text)

        x.SubItems.Add(Ttunjistri.Text)

        x.SubItems.Add(CJmlhAnk.Text)

        x.SubItems.Add(TTunjAnk.Text)

        x.SubItems.Add(CJmLmbur.Text)

        x.SubItems.Add(THnorLmbur.Text)

        x.SubItems.Add(TPajak.Text)

        x.SubItems.Add(TTotal.Text)

        LV.Items.Add(x)

    End Sub

    Sub addjabatan()

        With CJabatan

            .Items.Add("Mandor")

            .Items.Add("Kepala Bagian")

            .Items.Add("Staf")

        End With

    End Sub

    Sub addstatus()

        With CStatus

            .Items.Add("menikah")

            .Items.Add("Belum menikah")

        End With

    End Sub

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

        rancangtabel()

        CNik.Items.Add("001")

        CNik.Items.Add("002")

        CNik.Items.Add("003")

        CJabatan.Items.Add("Mandor")

        CJabatan.Items.Add("Kepala Bagian")

        CJabatan.Items.Add("Staf")

        CStatus.Items.Add("Menikah")

        CStatus.Items.Add("Belum Menikah")

        For i = 1 To 4

            CJmlhAnk.Items.Add(i)

        Next i

        For i = 1 To 10

            CJmLmbur.Items.Add(i)

        Next i

    End Sub

    Private Sub CJabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CJabatan.SelectedIndexChanged

        Select Case CJabatan.Text

            Case "Mandor" : TGaji.Text = 1750000

            Case "Kepala Bagian" : TGaji.Text = 2500000

            Case "Staf" : TGaji.Text = 1250000

        End Select

        TPajak.Text = 0.015 * TGaji.Text

    End Sub

    Private Sub CStatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CStatus.SelectedIndexChanged

        Select Case CStatus.Text

            Case "Menikah" : Ttunjistri.Text = 0.09 * TGaji.Text

            Case "Belum Menikah" : Ttunjistri.Text = 0

        End Select

    End Sub

    Private Sub CJmlhAnk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CJmlhAnk.SelectedIndexChanged

        If CJmlhAnk.Text >= 2 And CStatus.Text = "Menikah" Then

            TTunjAnk.Text = 0.07 * TGaji.Text

        ElseIf CJmlhAnk.Text = 1 And CStatus.Text = "Menikah" Then

            TTunjAnk.Text = 0.03 * TGaji.Text

        Else

            TTunjAnk.Text = 0

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If CJabatan.Text = "Mandor" Then

            THnorLmbur.Text = 7500

        ElseIf CJabatan.Text = "Kepala Bagian" Then

            THnorLmbur.Text = 10000

        ElseIf CJabatan.Text = "Staf" Then

            THnorLmbur.Text = 5000

        Else

            THnorLmbur.Text = 0

        End If

        TTotal.Text = Val(THnorLmbur.Text * CJmLmbur.Text) + Val(TGaji.Text) + Val(Ttunjistri.Text) + Val(TTunjAnk.Text) - Val(TPajak.Text)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        CNik.Text = ""

        TNama.Text = ""

        CJabatan.Text = ""

        TGaji.Text = ""

        CStatus.Text = ""

        Ttunjistri.Text = ""

        CJmlhAnk.Text = ""

        TTunjAnk.Text = ""

        CJmLmbur.Text = ""

        THnorLmbur.Text = ""

        TPajak.Text = ""

        TGaji.Text = ""

    End Sub

    Private Sub CNik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CNik.SelectedIndexChanged

        Select Case CNik.Text

            Case "001" : TNama.Text = "Desy"

            Case "002" : TNama.Text = "Tiwi"

            Case "003" : TNama.Text = "Dini"

        End Select

    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        isitabel()

    End Sub

End Class

Dan hasilnya adalah