tugas belajar bahasa pemograman

tampilan desain form gaji karyawan

tugas gaji karyawan

list codink vb nya

Public Class Form1
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.No Then
            e.Cancel = True
        End If
    End Sub

    Sub BuatTabel1()
        lv.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        lv.Columns.Add("BAGIAN", 80, HorizontalAlignment.Center)
        lv.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
        lv.Columns.Add("GAJI POKOK", 180, HorizontalAlignment.Center)
        lv.Columns.Add("PAJAK", 60, HorizontalAlignment.Center)
        lv.Columns.Add("STATUS", 60, HorizontalAlignment.Center)
        lv.Columns.Add("JUMLAH ANAK", 180, HorizontalAlignment.Center)
        lv.Columns.Add("TUNJANGAN KELUARGA", 180, HorizontalAlignment.Center)
        lv.Columns.Add("TUNJANGAN ANAK", 180, HorizontalAlignment.Center)
        lv.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.MultiSelect = True


    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = nik.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(bagian.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gaji_pokok.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(jlh_anak.Text)
        lst.SubItems.Add(t_keluarga.Text)
        lst.SubItems.Add(t_anak.Text)
        lst.SubItems.Add(t_gaji.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        nik.Items.Add("PM011")



        jabatan.Items.Add("Kepala Divisi")
        jabatan.Items.Add("Wakil Kepala")
        jabatan.Items.Add("Staff")


        status.Items.Add("Menikah")
        status.Items.Add("Belum_Menikah")

        For i = 20 To 1 Step -1
            jlh_anak.Items.Add(i)

        Next i

        BuatTabel1()
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        IsiTabel()
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gaji_pokok.Text = ""
        jlh_anak.Text = ""
        pajak.Text = ""
        status.Text = ""
        t_keluarga.Text = ""
        t_anak.Text = ""
        t_gaji.Text = ""
    End Sub

    Private Sub Hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_semua.Click
        lv.Items.Clear()
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

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

            Case "PM010"
                nama.Text = "Hattory Hanzo"


            Case "PS111"
                nama.Text = "Keji Maeda"


            Case "KU101"
                nama.Text = "Tsubasa Ozora"


            Case "GD100"
                nama.Text = "Taro Misaki"


            Case "PM011"
                nama.Text = "Nobunaga Oda"

        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Left(nik.Text, 2)

        Select Case x

            Case "PM"
                bagian.Text = "Pemasaran"

            Case "PS"
                bagian.Text = "Personalia"
            Case "KU"
                bagian.Text = "Keuangan"
            Case Else

                bagian.Text = "Gudang"


        End Select
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text

            Case "Kepala Divisi"
                gaji_pokok.Text = "5000000"

            Case "Wakil Kepala"
                gaji_pokok.Text = "3500000"

            Case "Staff"
                gaji_pokok.Text = "2000000"




        End Select

        pajak.Text = 0.1 * Val(gaji_pokok.Text)

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        t_keluarga.Text = 0.15 * gaji_pokok.Text
    End Sub

    Private Sub jlh_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_anak.SelectedIndexChanged
        Select Case jlh_anak.Text

            Case "1"
                t_anak.Text = 0.05 * gaji_pokok.Text

            Case Else

                t_anak.Text = 0.1 * gaji_pokok.Text

        End Select

        t_gaji.Text = Val(gaji_pokok.Text) + Val(t_keluarga.Text) + Val(t_anak.Text) - Val(pajak.Text)
    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gaji_pokok.Text = ""
        jlh_anak.Text = ""
        pajak.Text = ""
        status.Text = ""
        t_keluarga.Text = ""
        t_anak.Text = ""
        t_gaji.Text = ""
    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
        Me.Close()
    End Sub
End Class


tampilan hasil setelah di compile