Jawaban Soal 3(Jemmy Sihombing)

jawaban untuk kasuss yang di sini 1.listing  form login

Public Class form_login

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
If username.Text = "jemmy" And password.Text = "hombing" Then
menu_utama.Show()
Me.Hide()
Else
MsgBox("maaf user name dan password anda salah")
username.Text = ""
password.Text = ""

End If
End Sub
End Class

2.Tampilan Form Login

 

3.Listin code form Menu

Public Class menu_utama

Private Sub DataGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGajiToolStripMenuItem.Click
form_gaji.Show()
Me.Hide()
End Sub
End Class

4.Tampilan form Menu

Public Class form_gaji

Sub Isitable()
Dim lst As New ListViewItem
lst.Text = Nama.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gajipokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(Tuistri.Text)
lst.SubItems.Add(TunjAnak.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(jumlahlembur.Text)
lst.SubItems.Add(Lembur.Text)
lst.SubItems.Add(totalgaji.Text)
lv.Items.Add(lst)
End Sub

Sub CreateTable()
lv.Columns.Add("Nama", 120, HorizontalAlignment.Center)
lv.Columns.Add("Jabatan", 90, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Pokok", 70, HorizontalAlignment.Center)
lv.Columns.Add("Status", 70, HorizontalAlignment.Center)
lv.Columns.Add("Tunj. Istri", 70, HorizontalAlignment.Center)
lv.Columns.Add("Tunj. jlhanak", 70, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 70, HorizontalAlignment.Center)
lv.Columns.Add("Lembur (jam)", 80, HorizontalAlignment.Center)
lv.Columns.Add("Upah Lembur", 80, HorizontalAlignment.Center)
lv.Columns.Add("Total Gaji", 70, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub

Private Sub form_gaji_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Staff")
status.Items.Add("Menikah")
status.Items.Add("Belum Nikah")
End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "Mandor" Then
gajipokok.Text = 1750000
ElseIf jabatan.Text = "Kepala Bagian" Then
gajipokok.Text = 2500000
ElseIf jabatan.Text = "Staff" Then
gajipokok.Text = 1250000
End If
pajak.Text = Val(gajipokok.Text) * 0.015
End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
Tuistri.Text = Val(gajipokok.Text) * 0.09
ElseIf status.Text = "Belum Menikah" Then
Tuistri.Text = 0
End If
End Sub

Private Sub jlhanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.SelectedIndexChanged
If jlhanak.Text = 1 Then
TunjAnak.Text = Val(gajipokok.Text) * 0.03
ElseIf jlhanak.Text >= 2 Then
TunjAnak.Text = Val(gajipokok.Text) * 0.07
End If
End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
Tuistri.Text = ""
TunjAnak.Text = ""
pajak.Text = ""
jumlahlembur.Text = ""
Lembur.Text = ""
totalgaji.Text = ""
End Sub

Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
Isitable()
Nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
Tuistri.Text = ""
TunjAnak.Text = ""
pajak.Text = ""
jumlahlembur.Text = ""
Lembur.Text = ""
totalgaji.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
totalgaji.Text = Val(gajipokok.Text) + Val(Tuistri.Text) + Val(TunjAnak.Text) + Val(Lembur.Text) + Val(pajak.Text)

End Sub

Private Sub jumlahlembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Jumlahlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlahlembur.SelectedIndexChanged
If jabatan.Text = "Mandor" Then
Lembur.Text = Val(Jumlahlembur.Text) * 7500
ElseIf jabatan.Text = "Kepala Bagian" Then
Lembur.Text = Val(Jumlahlembur.Text) * 10000
ElseIf jabatan.Text = "Staff" Then
Lembur.Text = Val(Jumlahlembur.Text) * 5000
End If

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End

End Sub
End Class                                                                                                                                



5.Tampilan Form Penggajian

 

6.Hasil Akhir setelah program d inputkan data