selamat datang

assalamu'alaikum selamat datang di blog saya.

Minggu, 29 Januari 2012

jawaban quiz online no 3 (ridho febrianto)



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: