Kasus no 3 Penggajian Pegawai Menu Login

Kasusnya :

Http ://Mesran.wordpress.com/2012/01/26/Soal-Quiz-Online-Hari-Kamis/Comment-Page-5/#comments

 

 

Listing Menu Login

Public Class Form1

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

If Nama.Text = “Eriy” And Password.Text = “111” Then

MenuUtama.Show()

Pegawai.Show()

Me.Hide()

Else

MsgBox(“maaf username/password salah!”)

Nama.Text = “”

Password.Text = “”

End If

End Sub

listing program mennu

Public Class MenuUtama1

Private Sub DatapegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatapegawaiToolStripMenuItem.Click

Pegawai.Show()

End Sub

Private Sub KeluarprogramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarprogramToolStripMenuItem.Click

End

End Sub

End Class

End Class

listing  pegawai

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
Jabatan.Items.Add(“Mandor”)
Jabatan.Items.Add(“Kabag”)
Jabatan.Items.Add(“Staff”)
Status.Items.Add(“Menikah”)
Status.Items.Add(“Tidak Menikah”)
End Sub
Sub BuatTabel()
LV.Columns.Add(“Nama”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“Jabatan”, 100, HorizontalAlignment.Left)
LV.Columns.Add(“Gaji”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Status”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“JumlahAnak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“TnjAnak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“TnjIstri”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Lembur”, 50, HorizontalAlignment.Left)
LV.Columns.Add(“UphLembur”, 90, HorizontalAlignment.Left)
LV.Columns.Add(“Pajak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“TotGaji”, 80, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = nama.Text
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gaji.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(JumlahAnak.Text)
Lst.SubItems.Add(TnjAnak.Text)
Lst.SubItems.Add(TnjIstri.Text)
Lst.SubItems.Add(Lembur.Text)
Lst.SubItems.Add(UphLembur.Text)
Lst.SubItems.Add(pajak.Text)
Lst.SubItems.Add(TotGaji.Text)
LV.Items.Add(Lst)
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 = 175000
ElseIf Jabatan.Text = “Kabag” Then
Gaji.Text = 2500000
ElseIf Jabatan.Text = “Staff” Then
Gaji.Text = 1250000
Else
Gaji.Text = ” ”
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
TnjIstri.Text = 9 * Gaji.Text / 100
Pajak.Text = 1.5 * Gaji.Text / 100
ElseIf Status.Text = “Tidak Menikah” Then
TnjIstri.Text = 0
TnjAnak.Text = 0
Pajak.Text = 1.5 * Gaji.Text / 100
Else
Status.Text = ” ”
End If

End Sub

Private Sub JumlahAnak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.TextChanged
If Val(JumlahAnak.Text) = 1 Then
TnjAnak.Text = 3 * Gaji.Text / 100
ElseIf Val(JumlahAnak.Text) >= 2 Then
TnjAnak.Text = 7 * Gaji.Text / 100
End If
End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
IsiTabel()
Nama.Text = “”
Jabatan.Text = “”
Status.Text = “”
Gaji.Text = “”
JumlahAnak.Text = “”
TnjAnak.Text = “”
TnjIstri.Text = “”
Lembur.Text = “”
UphLembur.Text = “”
Pajak.Text = “”
TotGaji.Text = “”

End Sub

Private Sub BtnGBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGBersih.Click
LV.Items.Clear()
End Sub

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

Hasil program pegawai :