Listing Program
Halaman Login
Public Class Form1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If username.Text = "Dal Fendry" And password.Text = "1234567" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("Username / Password SALAH")
username.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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
username.Focus()
End Sub
End Class
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If username.Text = "Dal Fendry" And password.Text = "1234567" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("Username / Password SALAH")
username.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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
username.Focus()
End Sub
End Class
Halaman Menu
Public Class menuutama
Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
End
End Sub
Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
pegawai.show()
End Sub
End Class
Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
End
End Sub
Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
pegawai.show()
End Sub
End Class
Halaman Program Hasil
Public Class pegawai
Private Sub pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nip.Items.Add("00007")
nip.Items.Add("00231")
nip.Items.Add("98765")
jabatan.Items.Add("Staf")
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
status.Items.Add("Belum Menikah")
status.Items.Add("Menikah")
lembur.Items.Add("Ya")
nip.Focus()
Call buattabel()
End Sub
Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
If nip.Text = "00007" Then
nama.Text = "Saprol"
ElseIf nip.Text = "00231" Then
nama.Text = "Sweet Cat"
ElseIf nip.Text = "98765" Then
nama.Text = "asri"
End If
End Sub
Private Sub jabatan_SelectedIndexChaenged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "Staf" Then
gaji.Text = 1250000
ElseIf jabatan.Text = "Mandor" Then
gaji.Text = 1750000
ElseIf jabatan.Text = "Kepala Bagian" Then
gaji.Text = 2500000
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
tjgistri.Text = gaji.Text * 9 / 100
jlhanak.Enabled = True
ElseIf status.Text = "Belum Menikah" Then
jlhanak.Text = ""
tjgistri.Text = 0
jlhanak.Enabled = False
pajak.Text = gaji.Text * 1.5 / 100
total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)
End If
End Sub
Private Sub jlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.TextChanged
If jlhanak.Text <> "" Then
If jlhanak.Text = 0 Then
tjganak.Text = 0
ElseIf jlhanak.Text = 1 Then
tjganak.Text = gaji.Text * 3 / 100
ElseIf jlhanak.Text >= 2 Then
tjganak.Text = gaji.Text * 7 / 100
End If
End If
pajak.Text = gaji.Text * 1.5 / 100
total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)
End Sub
Sub buattabel()
ListView1.Columns.Add("N.I.P", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("jabatan", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Status", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Gaji", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Gaji Lembur", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tunjangan Keluarga", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub isitabel()
Dim isi As New ListViewItem
isi.Text = nip.Text
isi.SubItems.Add(nama.Text)
isi.SubItems.Add(jabatan.Text)
isi.SubItems.Add(status.Text)
isi.SubItems.Add(jlhanak.Text)
isi.SubItems.Add(gaji.Text)
isi.SubItems.Add(gjlmbr.Text)
isi.SubItems.Add(tjganak.Text)
isi.SubItems.Add(tjgistri.Text)
isi.SubItems.Add(pajak.Text)
isi.SubItems.Add(total.Text)
ListView1.Items.Add(isi)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call isitabel()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
nip.Text = ""
nama.Text = ""
jabatan.Text = ""
status.Text = ""
jlhanak.Text = ""
gaji.Text = ""
tjganak.Text = ""
tjgistri.Text = ""
pajak.Text = ""
total.Text = ""
lembur.Text = ""
jmljam.Text = 0
perjam.Text = ""
gjlmbr.Text = 0
jmljam.Enabled = False
perjam.Enabled = False
gjlmbr.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
nip.Text = ""
nama.Text = ""
jabatan.Text = ""
status.Text = ""
jlhanak.Text = ""
gaji.Text = ""
tjganak.Text = ""
tjgistri.Text = ""
pajak.Text = ""
total.Text = ""
lembur.Text = ""
jmljam.Text = 0
perjam.Text = ""
gjlmbr.Text = ""
jmljam.Enabled = False
perjam.Enabled = False
gjlmbr.Enabled = False
ListView1.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If ListView1.SelectedItems.Count <> 0 Then
ListView1.Items.Remove(ListView1.SelectedItems(0))
Else
MsgBox("Tidak Ada Pilihan Yang Akan di hapus, Harap pilih data yang akan dihapus", MsgBoxStyle.Exclamation, "Peringatan")
End If
End Sub
Private Sub lembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.SelectedIndexChanged
If lembur.Text = "Ya" Then
jmljam.Enabled = True
perjam.Enabled = True
gjlmbr.Enabled = True
If jabatan.Text = "Staf" Then
If perjam.Text = "" Then
perjam.Text = 5000
End If
ElseIf jabatan.Text = "Mandor" Then
If perjam.Text = "" Then
perjam.Text = 7500
End If
ElseIf jabatan.Text = "Kepala Bagian" Then
If perjam.Text = "" Then
perjam.Text = 10000
End If
End If
End If
If lembur.Text = "Tidak" Then
gjlmbr.Text = 0
jmljam.Text = 0
jmljam.Enabled = False
perjam.Enabled = False
gjlmbr.Enabled = False
If jabatan.Text = "Staf" Then
If perjam.Text <> 0 Then
perjam.Text = ""
End If
ElseIf jabatan.Text = "Mandor" Then
If perjam.Text <> 0 Then
perjam.Text = ""
End If
ElseIf jabatan.Text = "Kepala Bagian" Then
If perjam.Text <> 0 Then
perjam.Text = ""
End If
End If
End If
End Sub
Private Sub jmljam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmljam.TextChanged
gjlmbr.Text = perjam.Text * jmljam.Text
End Sub
End Class
Private Sub pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nip.Items.Add("00007")
nip.Items.Add("00231")
nip.Items.Add("98765")
jabatan.Items.Add("Staf")
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
status.Items.Add("Belum Menikah")
status.Items.Add("Menikah")
lembur.Items.Add("Ya")
nip.Focus()
Call buattabel()
End Sub
Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
If nip.Text = "00007" Then
nama.Text = "Saprol"
ElseIf nip.Text = "00231" Then
nama.Text = "Sweet Cat"
ElseIf nip.Text = "98765" Then
nama.Text = "asri"
End If
End Sub
Private Sub jabatan_SelectedIndexChaenged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "Staf" Then
gaji.Text = 1250000
ElseIf jabatan.Text = "Mandor" Then
gaji.Text = 1750000
ElseIf jabatan.Text = "Kepala Bagian" Then
gaji.Text = 2500000
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
tjgistri.Text = gaji.Text * 9 / 100
jlhanak.Enabled = True
ElseIf status.Text = "Belum Menikah" Then
jlhanak.Text = ""
tjgistri.Text = 0
jlhanak.Enabled = False
pajak.Text = gaji.Text * 1.5 / 100
total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)
End If
End Sub
Private Sub jlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.TextChanged
If jlhanak.Text <> "" Then
If jlhanak.Text = 0 Then
tjganak.Text = 0
ElseIf jlhanak.Text = 1 Then
tjganak.Text = gaji.Text * 3 / 100
ElseIf jlhanak.Text >= 2 Then
tjganak.Text = gaji.Text * 7 / 100
End If
End If
pajak.Text = gaji.Text * 1.5 / 100
total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)
End Sub
Sub buattabel()
ListView1.Columns.Add("N.I.P", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("jabatan", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Status", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Gaji", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Gaji Lembur", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tunjangan Keluarga", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub isitabel()
Dim isi As New ListViewItem
isi.Text = nip.Text
isi.SubItems.Add(nama.Text)
isi.SubItems.Add(jabatan.Text)
isi.SubItems.Add(status.Text)
isi.SubItems.Add(jlhanak.Text)
isi.SubItems.Add(gaji.Text)
isi.SubItems.Add(gjlmbr.Text)
isi.SubItems.Add(tjganak.Text)
isi.SubItems.Add(tjgistri.Text)
isi.SubItems.Add(pajak.Text)
isi.SubItems.Add(total.Text)
ListView1.Items.Add(isi)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call isitabel()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
nip.Text = ""
nama.Text = ""
jabatan.Text = ""
status.Text = ""
jlhanak.Text = ""
gaji.Text = ""
tjganak.Text = ""
tjgistri.Text = ""
pajak.Text = ""
total.Text = ""
lembur.Text = ""
jmljam.Text = 0
perjam.Text = ""
gjlmbr.Text = 0
jmljam.Enabled = False
perjam.Enabled = False
gjlmbr.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
nip.Text = ""
nama.Text = ""
jabatan.Text = ""
status.Text = ""
jlhanak.Text = ""
gaji.Text = ""
tjganak.Text = ""
tjgistri.Text = ""
pajak.Text = ""
total.Text = ""
lembur.Text = ""
jmljam.Text = 0
perjam.Text = ""
gjlmbr.Text = ""
jmljam.Enabled = False
perjam.Enabled = False
gjlmbr.Enabled = False
ListView1.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If ListView1.SelectedItems.Count <> 0 Then
ListView1.Items.Remove(ListView1.SelectedItems(0))
Else
MsgBox("Tidak Ada Pilihan Yang Akan di hapus, Harap pilih data yang akan dihapus", MsgBoxStyle.Exclamation, "Peringatan")
End If
End Sub
Private Sub lembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.SelectedIndexChanged
If lembur.Text = "Ya" Then
jmljam.Enabled = True
perjam.Enabled = True
gjlmbr.Enabled = True
If jabatan.Text = "Staf" Then
If perjam.Text = "" Then
perjam.Text = 5000
End If
ElseIf jabatan.Text = "Mandor" Then
If perjam.Text = "" Then
perjam.Text = 7500
End If
ElseIf jabatan.Text = "Kepala Bagian" Then
If perjam.Text = "" Then
perjam.Text = 10000
End If
End If
End If
If lembur.Text = "Tidak" Then
gjlmbr.Text = 0
jmljam.Text = 0
jmljam.Enabled = False
perjam.Enabled = False
gjlmbr.Enabled = False
If jabatan.Text = "Staf" Then
If perjam.Text <> 0 Then
perjam.Text = ""
End If
ElseIf jabatan.Text = "Mandor" Then
If perjam.Text <> 0 Then
perjam.Text = ""
End If
ElseIf jabatan.Text = "Kepala Bagian" Then
If perjam.Text <> 0 Then
perjam.Text = ""
End If
End If
End If
End Sub
Private Sub jmljam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmljam.TextChanged
gjlmbr.Text = perjam.Text * jmljam.Text
End Sub
End Class
Gambar Hasil Program
Login
Menu
Hasil
Tidak ada komentar:
Posting Komentar