SELAMAT DATANG

welcome to my first blog---

Kamis, 26 Januari 2012

JAWABAN QUIS NO.3

LISTING PROGRAM LOGIN

Public Class Form1

Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
If Nama.Text = "MUHAMMAD SUHAR" And Password.Text = "naruto" Then
formmenu.Show()
Me.Hide()
Else
MsgBox("Maaf! Password salah!")
Nama.Text = ""
Password.Text = ""
End If
End Sub

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

Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Masuk_Click(sender, e)
End If
End Sub
End Class



HASIL PROGRAM
 







LISTING PROGRAM FORMMENU

Public Class formmenu

Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
penggajian.show()
End Sub

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


HASIL PROGRAM








LISTING PROGRAM PENGGAJIAN KARYAWAN

Public Class penggajian
    Sub addno()
        Dim i As Integer
        For i = 0 To 9
            No.Items.Add(i)
        Next i
    End Sub
    Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 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()
        Dim Lst As New ListViewItem
        Lst.Text = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(Tistri.Text)
        Lst.SubItems.Add(Janak.Text)
        Lst.SubItems.Add(Tanak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub
    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call addno()
        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
        Jam.Items.Add("4")
        Jam.Items.Add("5")
        Jam.Items.Add("6")
    End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call clearisian()
    End Sub

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

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "Muhammad Suhar"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "Bayu Pratama"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "Juliana"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Nurhayati"
        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 = "KEPALA BAGIAN" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "STAF" Then
            Gaji.Text = 1250000
        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 * Gaji.Text)
        ElseIf Status.Text = "TIDAK MENIKAH" Then
            Tistri.Text = 0
        End If
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If


        If Jabatan.Text = "STAF" Then
            Lembur.Text = (Jam.Text * 5000)
        ElseIf Jabatan.Text = "MANDOR" Then
            Lembur.Text = (Jam.Text * 7500)
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Lembur.Text = (Jam.Text * 10000)
        End If


        Pajak.Text = (0.015 * Gaji.Text)

        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)

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


HASIL PROGRAM
 

10 komentar: