Minggu, 29 Januari 2012

TUGAS 3 (PESTA ULI DAMERIA)

KASUS : KLIK DISINI

FORM LOGIN


LISTING PROGRAM




Public Class Form1

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        If USERNAME.Text = "PESTA" And PASSWORD.Text = "12345" Then
            FormMenu.Show()
            Me.Hide()
        Else
            MsgBox("MAAF! 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


FORM MENU
  

 LISTING PROGRAM

Public Class FormMenu

    Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click
        End
    End Sub

    Private Sub DATAPENGGAJIANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPENGGAJIANToolStripMenuItem.Click
        karyawan.show()
    End Sub

End Class



FORM PENGGAJIAN KARYAWAN



LISTING PROGRAM


Public Class karyawan
    Sub TdkAktif()
        ISTRI.Visible = False
        TUNJA.Visible = False
        ANAK.Visible = False
    End Sub
    Sub Aktif()
        ISTRI.Visible = True
        TUNJA.Visible = True
        ANAK.Visible = True
    End Sub
    Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TdkAktif()
        BUATTABEL()
        ISITABEL()

        JABATAN.Items.Add("KABAG")
        JABATAN.Items.Add("MANDOR")
        JABATAN.Items.Add("STAF")

        STATUS.Items.Add("Menikah")
        STATUS.Items.Add("Belum Menikah")
    End Sub
    Sub BUATTABEL()
        LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)
        LV.Columns.Add("GOL", 80, HorizontalAlignment.Left)
        LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Left)
        LV.Columns.Add("ISTRI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TUNJA", 80, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

        LV.Columns.Add("JAM KERJA", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL LEMBUR", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub ISITABEL()
        For i = 1 To 3
            NIP.Items.Add("000" & i)
        Next
       
    End Sub

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
        If NIP.Text = "0001" Then
            NAMA.Text = "DEDE"
        ElseIf NIP.Text = "0002" Then
            NAMA.Text = "SUSI"
        ElseIf NIP.Text = "0003" Then
            NAMA.Text = "DIDI"
        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

            GAJI.Text = 1750000


        ElseIf JABATAN.Text = "KABAG" Then

            GAJI.Text = 2500000

        ElseIf JABATAN.Text = "STAF" Then

            GAJI.Text = 1250000

        End If
        PAJAK.Text = GAJI.Text * 0.015
    End Sub

   
    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged

        If STATUS.Text = "Menikah" Then
            ISTRI.Text = GAJI.Text * 0.9
            Aktif()

        ElseIf STATUS.Text = "Belum Menikah" Then
            TdkAktif()
        Else
            ISTRI.Text = 0
        End If


    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        Dim sublv As New ListViewItem
        sublv.Text = NIP.Text
        sublv.SubItems.Add(NAMA.Text)
        sublv.SubItems.Add(JABATAN.Text)
        sublv.SubItems.Add("RP. " & GAJI.Text)
        sublv.SubItems.Add(STATUS.Text)
        sublv.SubItems.Add("RP. " & ISTRI.Text)
        sublv.SubItems.Add(" RP. " & TUNJA.Text)
        sublv.SubItems.Add(ANAK.Text)
        sublv.SubItems.Add("RP. " & PAJAK.Text)
        sublv.SubItems.Add(JAM.Text)
        sublv.SubItems.Add("RP. " & TLEMBUR.Text)
        sublv.SubItems.Add("RP. " & TOTAL.Text)
        LV.Items.Add(sublv)
    End Sub

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

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        NIP.Text = ""
        NAMA.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        ISTRI.Text = ""
        TUNJA.Text = ""
        ANAK.Text = ""
        PAJAK.Text = ""
        TOTAL.Text = ""
        NIP.Focus()
    End Sub

    Private Sub TUNJA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ISTRI.TextChanged
        ISTRI.Text = GAJI.Text * 0.9
    End Sub

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

    End Sub

    Private Sub ANAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANAK.TextChanged
        If ANAK.Text = "1" Then
            TUNJA.Text = GAJI.Text * 0.3
        ElseIf ANAK.Text = "2" Then
            TUNJA.Text = GAJI.Text * 0.7
        ElseIf ANAK.Text >= 2 Then
            TUNJA.Text = GAJI.Text * 0.7

        End If
    End Sub

    Private Sub JAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAM.TextChanged
        If JABATAN.Text = "STAF" Then
            TLEMBUR.Text = JAM.Text * 5000
        ElseIf JABATAN.Text = "KABAG" Then
            TLEMBUR.Text = JAM.Text * 10000
        ElseIf JABATAN.Text = "MANDOR" Then
            TLEMBUR.Text = JAM.Text * 7500


        Else
            TLEMBUR.Text = 0
        End If
        TOTAL.Text = Val(GAJI.Text) + Val(ISTRI.Text) + Val(TUNJA.Text) + Val(TLEMBUR.Text) - Val(PAJAK.Text)
    End Sub

 
End Class



TUGAS 2 (PESTA ULI DAMERIA)

Kasus: KLIK DISINI
FORM MENYIMPAN DAN MENGHAPUS DATA DI LIST VIEW

LISTING PROGRAM


Public Class Form1

    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 160, HorizontalAlignment.Left)
        LV.Columns.Add("TAHUN", 80, 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 proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        ISITABEL()
        NPM.Text = ""
        nama.Text = ""
        tahun.Text = ""
    End Sub

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

    End Sub

    Private Sub HAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUSSEMUA.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
End Class