Kasus : Lihat disini kasus
Soal 3 (Husni Tamrin)
Soal 3 (Husni Tamrin)
1. Program Login
Listing Program
Public Class Login
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Sub masuk()
If username.Text = "Husni" And Password.Text = "husnialbara" Then
Menu_Utama.Show()
Me.Hide()
Else : MsgBox(" Masukkan semua data yang diminta...!", MsgBoxStyle.Critical, "Gagal")
End If
End Sub
Private Sub Password_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
If e.KeyChar = Chr(13) Then
masuk()
End If
End Sub
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
masuk()
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
End
End Sub
End Class
2. Menu Utama
Listing Program
Public Class Menu_Utama
Private Sub Menu_Utama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Data_pegawai.Show()
End Sub
Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
Data_pegawai.Show()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
stttanggal.Text = Format(Now.Date, "dddd, MMMM dd, yyyy")
sttjam.Text = Format(Now, "h:mm:ss tt")
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
End Class
3. Program Data Pegawai
Listing Program
Public Class Data_pegawai
Private Sub Data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Nik.Items.Add("09111")
Nik.Items.Add("09112")
Nik.Items.Add("09113")
Nik.Items.Add("09114")
Nik.Items.Add("09115")
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Staf")
Status.Items.Add("Menikah")
Status.Items.Add("Belum Menikah")
lembur.Items.Add("Ya")
lembur.Items.Add("Tidak")
BuatTabel()
Addjumlah()
End Sub
Sub BuatTabel()
With (LV)
.Columns.Add("NIK", 70, HorizontalAlignment.Center)
.Columns.Add("Nama", 70, HorizontalAlignment.Left)
.Columns.Add("Jabatan", 70, HorizontalAlignment.Left)
.Columns.Add("Gaji", 70, HorizontalAlignment.Left)
.Columns.Add("Status", 95, HorizontalAlignment.Left)
.Columns.Add("Jlh_Anak", 70, HorizontalAlignment.Center)
.Columns.Add("Lembur", 70, HorizontalAlignment.Center)
.Columns.Add("Jlh_Jam_Lembur", 60, HorizontalAlignment.Center)
.Columns.Add("Tjng_Istri", 60, HorizontalAlignment.Center)
.Columns.Add("Tjng_Anak", 70, HorizontalAlignment.Center)
.Columns.Add("Bonus Lembur", 90, HorizontalAlignment.Center)
.Columns.Add("Pajak", 70, HorizontalAlignment.Center)
.Columns.Add("Ttl_Gaji", 70, HorizontalAlignment.Center)
.GridLines = True
.FullRowSelect = True
.View = View.Details
End With
End Sub
Sub IsiTable()
Dim lst As New ListViewItem
With lst
.Text = Nik.Text
.SubItems.Add(Nama.Text)
.SubItems.Add(jabatan.Text)
.SubItems.Add(GajiPokok.Text)
.SubItems.Add(Status.Text)
.SubItems.Add(jmlhanak.Text)
.SubItems.Add(lembur.Text)
.SubItems.Add(jmlhjamlembur.Text)
.SubItems.Add(Tunjanganistri.Text)
.SubItems.Add(TunjanganAnak.Text)
.SubItems.Add(BonusLembur.Text)
.SubItems.Add(Pajak.Text)
.SubItems.Add(TotalGaji.Text)
LV.Items.Add(Lst)
End With
End Sub
Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
Select Case Nik.Text
Case "09111"
Nama.Text = "Amir"
Case "09112"
Nama.Text = "Andra"
Case "09113"
Nama.Text = "Reza"
Case "09114"
Nama.Text = "Sara"
Case "09115"
Nama.Text = "Riza"
End Select
End Sub
Sub Addjumlah()
Dim i As Integer
For i = 1 To 10
jmlhanak.Items.Add(i)
Next
End Sub
Sub OK()
Dim xGaji, xPajak, xTotal, xIstri, xAnak, xlembur As Double
If Status.Text = "Belum Menikah" Then
jmlhanak.Text = 0
TunjanganAnak.Text = 0
Tunjanganistri.Text = 0
Pajak.Text = 0.15 * GajiPokok.Text
TotalGaji.Text = Val(Tunjanganistri.Text) + Val(TunjanganAnak.Text) + Val(GajiPokok.Text) - Pajak.Text
TunjanganAnak.Text = 0
Tunjanganistri.Text = 0
End If
Select Case jabatan.Text
Case "Mandor"
xGaji = 1750000
Case "Kepala Bagian"
xGaji = 2500000
Case "Staf"
xGaji = 1250000
End Select
GajiPokok.Text = Format(xGaji, "###,##,#")
Select Case Status.Text
Case "Menikah"
xIstri = 0.09 * xGaji
If jmlhanak.Text = 1 Then
xAnak = 0 = 0.03 * xGaji
ElseIf jmlhanak.Text >= 2 Then
xAnak = 0.07 * xGaji
Else
xAnak = 0
End If
End Select
Select Case lembur.Text
Case "Tidak"
jmlhjamlembur.Text = 0
jmlhjamlembur.Enabled = False
bonuslembur.Text = 0
bonuslembur.Enabled = False
Case "Ya"
jmlhjamlembur.Enabled = True
If Not jmlhjamlembur.Text = "" Then
Select Case jabatan.Text
Case "Mandor"
bonuslembur.Text = 7500 * jmlhjamlembur.Text
Case "Staff"
bonuslembur.Text = 5000 * jmlhjamlembur.Text
Case "Kepala Bagian"
bonuslembur.Text = 10000 * jmlhjamlembur.Text
End Select
End If
End Select
If Not GajiPokok.Text = "" Then
Pajak.Text = GajiPokok.Text * 0.015
Pajak.Text = Format(xPajak, "###,##,#")
End If
TunjanganAnak.Text = Format(xAnak, "###,##,#")
Tunjanganistri.Text = Format(xIstri, "###,##,#")
xTotal = Val(xGaji) + Val(Tunjanganistri.Text) + Val(TunjanganAnak.Text) + Val(lembur.Text) - xPajak
TotalGaji.Text = Format(xTotal, "###,##,#")
End Sub
Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
IsiTable()
Nik.Text = ""
Nama.Text = ""
jabatan.Text = ""
GajiPokok.Text = ""
Status.Text = ""
jmlhanak.Text = ""
lembur.Text = ""
jmlhjamlembur.Text = ""
bonuslembur.Text = ""
TunjanganAnak.Text = ""
Tunjanganistri.Text = ""
Pajak.Text = ""
TotalGaji.Text = ""
End Sub
Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
OK()
End Sub
Sub Hapus()
Nik.Text = ""
Nama.Text = ""
jabatan.Text = ""
GajiPokok.Text = ""
Status.Text = ""
jmlhanak.Text = ""
jmlhjamlembur.Text = ""
bonuslembur.Text = ""
Pajak.Text = ""
TunjanganAnak.Text = ""
Tunjanganistri.Text = ""
TotalGaji.Text = ""
lembur.Text = ""
jmlhanak.Enabled = True
Nik.Focus()
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
If Not jmlhanak.Text = "" Then
Call OK()
End If
If Status.Text = "Belum Menikah" Then
jmlhanak.Text = 0
TunjanganAnak.Text = 0
Tunjanganistri.Text = 0
jmlhanak.Enabled = False
End If
If Status.Text = "Menikah" Then
jmlhanak.Enabled = True
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Call Proses()
Dim xpajak As Double
xPajak = 0.015 * GajiPokok.Text
Pajak.Text = Format(xPajak, "###,##,#")
End Sub
Sub Proses()
If Not jmlhanak.Text = "" Then
Call OK()
Else
TunjanganAnak.Text = 0
Tunjanganistri.Text = 0
End If
End Sub
Private Sub bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapus.Click
Call Hapus()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub lembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.SelectedIndexChanged
Call OK()
If Status.Text = "Ya" Then
bonuslembur.Enabled = True
End If
If Status.Text = "Tidak" Then
bonuslembur.Enabled = False
End If
End Sub
Private Sub bonuslembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bonuslembur.TextChanged
Call OK()
End Sub
Private Sub btnhapustabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapustabel.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
LV.Items.Clear()
End Sub
End Class