Jawaban
Soal No.3
Nama :LAHUDDIN
NPM :0911062
-
Listing Program Form
Login
Public Class Form1
Private Sub Process_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Process.Click
If
UserName.Text = "Lahuddin Lubis" And Pasword.Text = "Lubis"
Then
Form_karyawan.Show()
Me.Hide()
Else
MsgBox("Pasord
Anda Salah...Tray Agai")
UserName.Text = ""
Pasword.Text = ""
End If
End Sub
End Class
-
Listing Program Form
Karyawan
Private Sub Nip_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Nip.SelectedIndexChanged
If
Nip.Text = "000011" Then
Nama.Text = "Lahuddin Lubis"
ElseIf
Nip.Text = "000012" Then
Nama.Text = "Ikbal Lubis"
Else
Nama.Text = "Andri Agasi Lubis"
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
GajiPokok.Text = "1750000"
Pajak.Text = (0.015 *
Val(GajiPokok.Text))
ElseIf
Jabatan.Text = "Kepala Bagian" Then
GajiPokok.Text = "2500000"
Pajak.Text = (0.015 *
Val(GajiPokok.Text))
Else
GajiPokok.Text = "1250000"
Pajak.Text = (0.015 *
Val(GajiPokok.Text))
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
Tistri.Text = (0.09 *
Val(GajiPokok.Text))
Else
Tistri.Text = "0"
End If
End Sub
Private Sub JumlahAnak_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
JumlahAnak.TextChanged
If
JumlahAnak.Text = "1" Then
Tanak.Text = (0.03 *
Val(GajiPokok.Text))
ElseIf
JumlahAnak.Text = "2" Then
Tanak.Text = (0.07 *
Val(GajiPokok.Text))
Else
Tanak.Text = (0.07 *
Val(GajiPokok.Text))
End If
End Sub
Private Sub JumlahJam_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
JumlahJam.SelectedIndexChanged
If
JumlahJam.Text = "1" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "7500"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "5000"
Else
GajiLembur.Text = "10000"
End
If
ElseIf
JumlahJam.Text = "2" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "15000"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "10000"
Else
GajiLembur.Text = "20000"
End
If
ElseIf
JumlahJam.Text = "3" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "22500"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "15000"
Else
GajiLembur.Text = "30000"
End
If
ElseIf
JumlahJam.Text = "4" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "30000"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "20000"
Else
GajiLembur.Text = "40000"
End
If
ElseIf
JumlahJam.Text = "5" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "37500"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "25000"
Else
GajiLembur.Text = "50000"
End
If
ElseIf
JumlahJam.Text = "6" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "45000"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "30000"
Else
GajiLembur.Text = "60000"
End
If
ElseIf
JumlahJam.Text = "7" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "52500"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "35000-"
Else
GajiLembur.Text = "70000"
End
If
ElseIf
JumlahJam.Text = "8" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "60000"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "40000"
Else
GajiLembur.Text = "80000"
End
If
ElseIf
JumlahJam.Text = "9" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "67500"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "45000"
Else
GajiLembur.Text = "90000"
End
If
ElseIf
JumlahJam.Text = "10" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "75000"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "50000"
Else
GajiLembur.Text = "100000"
End
If
ElseIf
JumlahJam.Text = "11" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "82500"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "55000"
Else
GajiLembur.Text = "110000"
End
If
ElseIf
JumlahJam.Text = "12" Then
If
Jabatan.Text = "Mandor" Then
GajiLembur.Text = "90000"
ElseIf
Jabatan.Text = "Staf" Then
GajiLembur.Text = "60000"
Else
GajiLembur.Text = "120000"
End
If
End If
End Sub
Private Sub Hitung_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hitung.Click
Total.Text = Val(GajiPokok.Text) +
Val(Tistri.Text) + Val(Tanak.Text) + Val(GajiLembur.Text) - Val(Pajak.Text)
End Sub
Private Sub Form_karyawan_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Buattabel()
End Sub
Sub
Buattabel()
Lv.Columns.Add("Nip",
40, HorizontalAlignment.Center)
Lv.Columns.Add("Nama",
60, HorizontalAlignment.Left)
Lv.Columns.Add("Jabatan",
50, HorizontalAlignment.Center)
Lv.Columns.Add("GaPok",
70, HorizontalAlignment.Center)
Lv.Columns.Add("Status",
60, HorizontalAlignment.Center)
Lv.Columns.Add("T.istri",
70, HorizontalAlignment.Center)
Lv.Columns.Add("J.Ank",
40, HorizontalAlignment.Center)
Lv.Columns.Add("T.Ank",
70, HorizontalAlignment.Center)
Lv.Columns.Add("Pajak",
50, HorizontalAlignment.Center)
Lv.Columns.Add("Gj
Lembur", 60, HorizontalAlignment.Center)
Lv.Columns.Add("J.Jam",
40, HorizontalAlignment.Center)
Lv.Columns.Add("Total",
70, HorizontalAlignment.Center)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = Nip.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Jabatan.Text)
lst.SubItems.Add(GajiPokok.Text)
lst.SubItems.Add(Status.Text)
lst.SubItems.Add(Tistri.Text)
lst.SubItems.Add(JumlahAnak.Text)
lst.SubItems.Add(Tanak.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(GajiLembur.Text)
lst.SubItems.Add(JumlahJam.Text)
lst.SubItems.Add(Total.Text)
Lv.Items.Add(lst)
End Sub
Private Sub Proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Proses.Click
isitabel()
Nip.Text = ""
Nama.Text = ""
Jabatan.Text = ""
GajiPokok.Text = ""
Status.Text = ""
Tistri.Text = ""
JumlahAnak.Text = ""
Tanak.Text = ""
Pajak.Text = ""
GajiLembur.Text = ""
JumlahJam.Text = ""
Total.Text = ""
Nip.Focus()
End Sub
Private Sub HSD_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HSD.Click
Lv.Items.Clear()
End Sub
Private Sub HDYD_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HDYD.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
Private Sub Keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Keluar.Click
Me.Close()
End Sub
End Class
-
Tampilan Hasil Program
Karyawan
Tidak ada komentar:
Posting Komentar