Jawaban soal 3 (Parningotan Sinaga)

-          Listing Program

Public Class Form1

    Private Sub process_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles process.Click

        If user.Text = "parningotan" And pasword.Text = "sinaga" Then

            FormKaryawan.Show()

            Me.Hide()

        Else

            MsgBox("Password Anda Salah...!!")

            user.Text = ""

            pasword.Text = ""

        End If

    End Sub

End Class

-          Hasil Form Login

 

-          Listing Program form karyawan

Public Class FormKaryawan

  

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged

        If nip.Text = "008" Then

            nama.Text = "parningotan"

        ElseIf nip.Text = "009" Then

            nama.Text = "sinaga"

        Else

            nama.Text = "rian"

        End If

    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"

            pajak.Text = (0.015 * Val(gapok.Text))

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gapok.Text = "2500000"

            pajak.Text = (0.015 * Val(gapok.Text))

        ElseIf jabatan.Text = "Staff" Then

            gapok.Text = "1250000"

            pajak.Text = (0.015 * Val(gapok.Text))

        Else

            jabatan.Text = "0"

        End If

    End Sub

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

        If status.Text = "Menikah" Then

            tistri.Text = (0.09 * Val(gapok.Text))

        Else

            tistri.Text = "0"

            jmlanak.Text = "0"

            tanak.Text = "0"

        End If

    End Sub

    Private Sub jmlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.TextChanged

        If jmlanak.Text = "1" Then

            tanak.Text = (0.03 * Val(gapok.Text))

        ElseIf jmlanak.Text = "2" Then

            tanak.Text = (0.07 * Val(gapok.Text))

        Else

            tanak.Text = (0.07 * Val(gapok.Text))

        End If

    End Sub

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

        If jam.Text = "1" Then

Parningotan Sinaga

Jawaban soal 2 (Parningotan Sinaga) NPM (0911941)

-          Listing Program

Public Class Form1

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

        buattabel()

    End Sub

    Sub buattabel()

        LV.Columns.Add("NPM", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Nama", 120, HorizontalAlignment.Left)

        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(Nama.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        isitabel()

        NPM.Text = ""

        Nama.Text = ""

        NPM.Focus()

    End Sub

    Private Sub BTNHapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub BTNHapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapuspilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click

        Dim x As String

        x = MsgBox("Anda yakin akan keluar..?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Keluar")

        If x = vbYes Then

            End

        End If

    End Sub

End Class

-          Hasil Program

 Klik Disini