Minggu, 29 Januari 2012

JAWABAN QUIS VISUAL BASIC
 NOMOR  : 2

 NAMA  : RISMAWATI
  NPM    : 0911602
KELAS  : SI-P0905

kasus


Public Class btnhapus

    Sub buattabel()
        LV.Columns().Add("NPM", 90, HorizontalAlignment.Center)
        LV.Columns().Add("Nama", 95, HorizontalAlignment.Left)
        LV.Columns().Add("Tahun", 95, HorizontalAlignment.Right)
        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)
        lst.SubItems.Add(tahun.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()

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""
        tahun.Text = ""
    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    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 Btnhapuss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapuss.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class




JAWABAN SOAL NOMOR 3


Public Class fromKaryawan


    Private Sub Nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nip.SelectedIndexChanged
        If NIP.Text = "114432" Then
            Nama.Text = "RIZAL EFFENDI"
        ElseIf NIP.Text = "115539" Then
            Nama.Text = "RISMAWATI"
        ElseIf NIP.Text = "112437" Then
            Nama.Text = "ANANDA REZA"
        ElseIf NIP.Text = "116231" Then
            Nama.Text = "AYUNDA PRATIWI"



        End If
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        If Golongan.Text = "290C" Then
            Gaji.Text = "3000000"
        ElseIf Golongan.Text = "291D" Then
            Gaji.Text = "2500000"
        ElseIf Golongan.Text = "292E" Then
            Gaji.Text = "2000000"
        ElseIf Golongan.Text = "293F" Then
            Gaji.Text = "1500000"

        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
            tunjangankeluarga.Text = 16% * Gaji.Text
        ElseIf Status.Text = " TIDAK MENIKAH" Then
            tunjangankeluarga.Text = 0
        End If
    End Sub

    Private Sub jumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahAnak.SelectedIndexChanged
        If jumlahAnak.Text = "1" Then
            Tunjangananak.Text = 10% * Gaji.Text
        ElseIf jumlahAnak.Text = "2" Then
            Tunjangananak.Text = 19% * Gaji.Text
        End If
    End Sub

    Sub Buattabel1()
        LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Golongan", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji", 120, HorizontalAlignment.Center)
        LV.Columns.Add("status", 120, HorizontalAlignment.Center)
        LV.Columns.Add("tunjangan keluarga", 150, HorizontalAlignment.Center)
        LV.Columns.Add("jumlah anak", 120, HorizontalAlignment.Center)
        LV.Columns.Add("tunjangan anank", 150, HorizontalAlignment.Center)
  LV.Columns.Add("pajak", 120, HorizontalAlignment.Center)
        LV.Columns.Add("total", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = Nip.Text
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Golongan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(tunjangankeluarga.Text)
        Lst.SubItems.Add(jumlahAnak.Text)
        Lst.SubItems.Add(Tunjangananak.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(Total.Text)

        LV.Items.Add(Lst)
    End Sub

    Private Sub fromKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Buattabel1()
        NIP.Items.Add("114432")
        NIP.Items.Add("115539")
        NIP.Items.Add("112437")
        NIP.Items.Add("116231")

        Golongan.Items.Add("290C")
        Golongan.Items.Add("291D")
        Golongan.Items.Add("292E")
        Golongan.Items.Add("293F")


        Status.Items.Add("MENIKAH")
        Status.Items.Add("BELUM MENIKAH")


        jumlahAnak.Items.Add("1")
        jumlahAnak.Items.Add("2")


    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        IsiTabel()


        Total.Text = Val(Gaji.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) + Val(Pajak.Text)
    End Sub


    Private Sub Tunjangananak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tunjangananak.TextChanged
        Total.Text = Val(Gaji.Text) + Val(Tunjangananak.Text)
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        IsiTabel()
        NIP.Text = ""
        Nama.Text = ""
        Golongan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        TunjanganKeluarga.Text = ""
        TunjanganAnak.Text = ""
        Total.Text = ""
        Pajak.Text = ""
        NIP.Focus()
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub
End Class