QUIS NO 3

Listing Program

Public Class Form1
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.ClickIf username.Text = "linda" And password.Text = "111" Then

formmenu.Show()Me.Hide()ElseMsgBox(
username.Text = "Maaf! Password salah!")""password.Text = ""End IfEnd Sub

Private Sub password_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles password.KeyPressDim tombol As Integer = Asc(e.KeyChar)If tombol = 13 Thenbtnok_Click(sender, e)
End IfEnd Sub
Private Sub password_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles password.TextChangedEnd Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.ClickEndEnd Sub

End

Hasil program

Listing program menu

Public Class formmenu

Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.ClickPenggajian.Show()End Sub

End

Listing Program Penggajian

Public Class Penggajian
No.Text = Sub clearisian()""Kode.Text = ""Nama.Text = ""Jabatan.Text = ""Gaji.Text = ""Status.Text = ""Tistri.Text = ""Janak.Text = ""Tanak.Text = ""Jam.Text = ""Lembur.Text = ""Pajak.Text = ""Total.Text = ""No.Focus()
End Sub
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.Columns.Add(
Lv.View =
Lv.GridLines = Sub buattabel()"No", 30, HorizontalAlignment.Center)"Kode Pegawai", 80, HorizontalAlignment.Left)"Nama Pegawai", 180, HorizontalAlignment.Left)"Jabatan", 80, HorizontalAlignment.Left)"Gaji", 80, HorizontalAlignment.Left)"Status", 80, HorizontalAlignment.Left)"Tunj Istri", 80, HorizontalAlignment.Left)"Jumlah Anak", 80, HorizontalAlignment.Left)"Tunj Anak", 80, HorizontalAlignment.Left)"Jam", 50, HorizontalAlignment.Left)"Lembur", 80, HorizontalAlignment.Left)"Pajak", 80, HorizontalAlignment.Left)"Total Gaji", 80, HorizontalAlignment.Left)View.DetailsTrueLv.FullRowSelect = TrueEnd Sub
Sub isitabel()Dim Lst As New ListViewItemLst.Text = No.Text
Lst.SubItems.Add(Kode.Text)
Lst.SubItems.Add(Nama.Text)
Lst.SubItems.Add(Jabatan.Text)
Lst.SubItems.Add(Gaji.Text)
Lst.SubItems.Add(Status.Text)
Lst.SubItems.Add(Tistri.Text)
Lst.SubItems.Add(Janak.Text)
Lst.SubItems.Add(Tanak.Text)
Lst.SubItems.Add(Jam.Text)
Lst.SubItems.Add(Lembur.Text)
Lst.SubItems.Add(Pajak.Text)
Lst.SubItems.Add(Total.Text)
Lv.Items.Add(Lst)
End Sub
buattabel()
Kode.Items.Add(
Kode.Items.Add(
Kode.Items.Add(
Kode.Items.Add(
Jabatan.Items.Add(
Jabatan.Items.Add(
Jabatan.Items.Add(
Status.Items.Add(
Status.Items.Add(
Jam.Items.Add(
Jam.Items.Add(
Jam.Items.Add(
Private Sub Penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load"A001")"A002")"B001")"B002")"MANDOR")"KEPALA BAGIAN")"STAF")"MENIKAH")"TIDAK MENIKAH")"1")"2")"3")End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.ClickMe.Close()End Sub

Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.ClickCall clearisian()End Sub
isitabel()
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.ClickEnd Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChangedIf Kode.Text = "A001" ThenNama.Text = "Rahmadhani arlinda"ElseIf Kode.Text = "A002" ThenNama.Text = "Nanda"ElseIf Kode.Text = "B001" ThenNama.Text = "Dika"ElseIf Kode.Text = "B002" ThenNama.Text = "nunun iswanti"End IfEnd Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChangedIf Jabatan.Text = "MANDOR" ThenGaji.Text = 1750000
ElseIf Jabatan.Text = "KEPALA BAGIAN" ThenGaji.Text = 2500000
ElseIf Jabatan.Text = "STAF" ThenGaji.Text = 1250000
End IfEnd Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChangedIf Status.Text = "MENIKAH" ThenTistri.Text = (0.09 * Gaji.Text)
ElseIf Status.Text = "TIDAK MENIKAH" ThenTistri.Text = 0
End IfEnd Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.ClickIf Janak.Text = 1 ThenTanak.Text = (0.03 * Gaji.Text)
ElseIf Janak.Text >= 2 ThenTanak.Text = (0.07 * Gaji.Text)
End If　
If Jabatan.Text = "STAF" And Jam.Text = 1 ThenLembur.Text = 5000
ElseIf Jabatan.Text = "STAF" And Jam.Text = 2 ThenLembur.Text = 10000
ElseIf Jabatan.Text = "STAF" And Jam.Text = 3 ThenLembur.Text = 15000
ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 1 ThenLembur.Text = 7500
ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 2 ThenLembur.Text = 15000
ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 3 ThenLembur.Text = 22500
ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 1 ThenLembur.Text = 10000
ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 2 ThenLembur.Text = 20000
ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 3 ThenLembur.Text = 30000
End If　
Pajak.Text = (0.015 * Gaji.Text)
Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)
End Sub
Lv.Items.Clear()
Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.ClickEnd Sub
Lv.Items.Remove(Lv.SelectedItems(0))

EndPrivate Sub Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.ClickEnd Sub Class

Hasil program

LINK SOAL





Private Sub formmenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd Sub ClassHasil programPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd Sub Class