jawaban no. 3 sepdiarina

Public Class Login

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

    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click

        If Username.Text = "sepdiarina" And password.Text = "111" Then

            Pegawai.Show()

            Me.Hide()

        Else

            MsgBox("data username/password salah?")

            Username.Text = ""

            password.Text = ""

        End If

    End Sub

    Private Sub BTNKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKeluar.Click

        End

    End Sub

End Class

 

Public Class Pegawai

    Sub listjabatan()

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staff")

    End Sub

    Sub listjam()

        jam.Items.Add("1")

        jam.Items.Add("2")

        jam.Items.Add("3")

    End Sub

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

        buattabel()

        Call listjabatan()

        Call liststatus()

        Call listjam()

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click

        End

    End Sub

    Private Sub cmdproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdproses.Click

        pajak.Text = Val(1.5 / 100 * gapok.Text)

        tot.Text = Val(gapok.Text) + Val(tun_istri.Text) + Val(tun_anak.Text) + Val(gaji_lembur.Text) - Val(pajak.Text)

    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click

        nm.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        status.Text = ""

        anak.Text = ""

        tun_istri.Text = ""

        tun_anak.Text = ""

        pajak.Text = ""

        jam.Text = ""

        gaji_lembur.Text = ""

        tot.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

            tun_istri.Text = Val(9 / 100 * gapok.Text)

        End If

    End Sub

    Sub liststatus()

        status.Items.Add("menikah")

        status.Items.Add("lajang")

    End Sub

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

        If jabatan.Text = "Mandor" Then

            gapok.Text = "1750000"

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gapok.Text = "2500000"

        ElseIf jabatan.Text = "Staff" Then

            gapok.Text = "1250000"

        End If

    End Sub

    Private Sub anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anak.SelectedIndexChanged

        If status.Text = "menikah" And anak.Text = "1" Then

            tun_anak.Text = Val(3 / 100 * gapok.Text)

        ElseIf status.Text = "menikah" And anak.Text = "2" Then

            tun_anak.Text = Val(7 / 100 * gapok.Text)

        ElseIf status.Text = "menikah" And anak.Text = ">= 2" Then

            tun_anak.Text = Val(7 / 100 * gapok.Text)

        End If

    End Sub

    Private Sub jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.SelectedIndexChanged

        Select Case jabatan.Text

            Case "Mandor"

                Select Case jam.Text

                    Case "1" : gaji_lembur.Text = "7500"

                    Case "2" : gaji_lembur.Text = "15000"

                    Case "3" : gaji_lembur.Text = "22500"

                End Select

            Case "Bagian Kepala"

                Select Case jam.Text

                    Case "1" : gaji_lembur.Text = "10000"

                    Case "2" : gaji_lembur.Text = "20000"

                    Case "3" : gaji_lembur.Text = "30000"

                End Select

            Case "Staff"

                Select Case jam.Text

                    Case "1" : gaji_lembur.Text = "5000"

                    Case "2" : gaji_lembur.Text = "10000"

                    Case "3" : gaji_lembur.Text = "15000"

                End Select

        End Select

    End Sub

    Sub buattabel()

        lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Center)

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

        lv.Columns.Add("Status", 90, HorizontalAlignment.Center)

        lv.Columns.Add("Anak", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Tunjangan Istri", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Center)

        lv.Columns.Add("Pajak", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Jam Lembur", 120, HorizontalAlignment.Center)

        lv.Columns.Add("Gaji Lembur", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Total Gaji", 120, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = nm.Text

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(gapok.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(anak.Text)

        lst.SubItems.Add(tun_istri.Text)

        lst.SubItems.Add(tun_anak.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(jam.Text)

        lst.SubItems.Add(gaji_lembur.Text)

        lst.SubItems.Add(tot.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click

        isitabel()

        nm.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        status.Text = ""

        anak.Text = ""

        tun_istri.Text = ""

        tun_anak.Text = ""

        jam.Text = ""

        gaji_lembur.Text = ""

        tot.Text = ""

    End Sub

End Class

Jawaban No. 2 Quiz Online Sepdiarina

Public Class Form1

 

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click

        End

    End Sub

    Private Sub cmd_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_semua.Click

        lv.Items.Clear()

    End Sub

    Private Sub cmd_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_hapus.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub cmd_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_bersih.Click

        npm.Text = ""

        nm.Text = ""

        jur.Text = ""

        jenjang.Text = ""

        thn.Text = ""

        nilai_angka.Text = ""

        nilai_huruf.Text = ""

    End Sub

    Sub buattabel()

        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)

        lv.Columns.Add("Tahun Masuk", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Nilai Angka", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Nilai Huruf", 120, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = npm.Text

        lst.SubItems.Add(nm.Text)

        lst.SubItems.Add(jur.Text)

        lst.SubItems.Add(jenjang.Text)

        lst.SubItems.Add(thn.Text)

        lst.SubItems.Add(nilai_angka.Text)

        lst.SubItems.Add(nilai_huruf.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()

        Call listnpm()

        npm.Focus()

    End Sub

    Sub listnpm()

        npm.Items.Add("0911213")

        npm.Items.Add("0911319")

        npm.Items.Add("1009215")

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        If npm.Text = "0911213" Then

            nm.Text = " Tia"

        ElseIf npm.Text = "0890763" Then

            nm.Text = " lia"

        ElseIf npm.Text = "0911319" Then

            nm.Text = "tukiyem"

        End If

        Dim x As String

        thn.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "1" Then

            jenjang.Text = "Diploma I"

        ElseIf x = "3" Then

            jenjang.Text = "Diploma III"

        ElseIf x = "4" Then

            jenjang.Text = "Strata I"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If x = "12" Then

            jur.Text = "Manajemen Informatika"

        ElseIf x = "13" Then

            jur.Text = "Sistem Informatika"

        ElseIf x = "03" Then

            jur.Text = "Teknik Komputer"

        ElseIf x = "04" Then

            jur.Text = "Akutansi"

        End If

    End Sub

    Private Sub nilai_angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nilai_angka.KeyPress

        If e.KeyChar = Chr(13) Then

            If nilai_angka.Text >= 80 Then

                nilai_huruf.Text = "A"

            ElseIf nilai_angka.Text >= 70 Then

                nilai_huruf.Text = "B"

            ElseIf nilai_angka.Text >= 60 Then

                nilai_huruf.Text = "C"

            ElseIf nilai_angka.Text >= 40 Then

                nilai_huruf.Text = "D"

            ElseIf nilai_angka.Text < 40 Then

                nilai_huruf.Text = "E"

            End If

        End If

    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub cmd_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_simpan.Click

        isitabel()

        npm.Text = ""

        nm.Text = ""

        jur.Text = ""

        jenjang.Text = ""

        thn.Text = ""

        nilai_angka.Text = ""

        nilai_huruf.Text = ""

    End Sub

End Class