ini adalah jawaban quiz online untuk hari senin Dan untuk melihat soalnya klik disini
Public Class formlogin
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
If username.Text = "RIDHO" And password.Text = "FEBRIANTO" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("maaf user name dan password anda salah")
username.Text = ""
password.Text = ""
End If
End Sub
Private Sub formlogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
End Class
HASIL LOGIN:
Public Class menuutama
Private Sub KeluarProgramToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem1.Click
End
End Sub
Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
GAJIPEGAWAI.Show()
End Sub
Private Sub menuutama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
MENU UTAMA :
Public Class GAJIPEGAWAI
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nik.Items.Add("001")
nik.Items.Add("002")
nik.Items.Add("003")
jabatan.Items.Add("mandor")
jabatan.Items.Add("kepala bagian")
jabatan.Items.Add("staf")
status.Items.Add("LAJANG")
status.Items.Add("menikah")
jalem.Items.Add("1")
jalem.Items.Add("2")
jalem.Items.Add("3")
jalem.Items.Add("4")
jalem.Items.Add("5")
jalem.Items.Add("6")
jalem.Items.Add("7")
jalem.Items.Add("8")
jalem.Items.Add("9")
jalem.Items.Add("10")
jalem.Items.Add("11")
jalem.Items.Add("12")
jalem.Items.Add("13")
jalem.Items.Add("14")
jalem.Items.Add("15")
jalem.Items.Add("16")
jalem.Items.Add("17")
jalem.Items.Add("18")
jalem.Items.Add("19")
jalem.Items.Add("20")
jalem.Items.Add("21")
jalem.Items.Add("22")
jalem.Items.Add("23")
jalem.Items.Add("24")
End Sub
Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
If nik.Text = "400" Then
nama.Text = "Susan"
ElseIf nik.Text = "500" Then
nama.Text = "Ratna"
ElseIf nik.Text = "600" Then
nama.Text = "Lina"
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
gapok.Text = 17500000
ElseIf jabatan.Text = "kepala bagian" Then
gapok.Text = 25000000
ElseIf jabatan.Text = "staf" Then
gapok.Text = 12500000
Else
gapok.Text = 0
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
tunjanganistri.Text = 175000
ElseIf status.Text = "LAJANG" Then
tunjangananak.Text = 0
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(tunjanganistri.Text) + Val(tunjangananak.Text) + Val(gapok.Text) + Val(pajak.Text)
End Sub
Private Sub jlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.TextChanged
If jlhanak.Text = "1" Then
tunjangananak.Text = 1 * (0.3 * Val(gapok.Text))
ElseIf jlhanak.Text >= "2" Then
tunjangananak.Text = 2 * (0.7 * Val(gapok.Text))
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
nik.Text = ""
nama.Text = ""
jabatan.Text = ""
gapok.Text = ""
status.Text = ""
tunjangananak.Text = ""
tunjanganistri.Text = ""
total.Text = ""
pajak.Text = ""
jalem.Text = ""
lembur.Text = ""
jlhanak.Text = ""
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_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.TextChanged
If jabatan.Text = "mandor" Then
lembur.Text = Val(jalem.Text * 5000)
ElseIf jabatan.Text = "kepala bagian" Then
lembur.Text = Val(jalem.Text * 7500)
ElseIf jabatan.Text = "staf" Then
lembur.Text = Val(jalem.Text * 10000)
End If
End Sub
Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
If jabatan.Text = "mandor" Then
lembur.Text = Val(jalem.Text * 5000)
ElseIf jabatan.Text = "kepala bagian" Then
lembur.Text = Val(jalem.Text * 7500)
ElseIf jabatan.Text = "staf" Then
lembur.Text = Val(jalem.Text * 10000)
End If
End Sub
Private Sub jalem_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jalem.SelectedIndexChanged
pajak.Text = Val(gapok.Text * 0.015)
End Sub
End Class
hasil program penggajian pegawai: