1. Ketik secara manual nama Anda sebagai bagian dari PT Sejahtera pada kotak berlabel "nama"
2. Pilih jabatan yang saat ini sedang Anda jabat di PT Sejahtera
3. Klik button "Check Gaji Pokok" untuk mengetahui besar gaji pokok Anda per bulan
4. Klik button "Check Pajak" untuk mengetahui besar PPH 21 yang dikenakan terhadap gaji pokok Anda
5. Klik button "Proses Gaji Akhir" untuk mengetahui besar gaji yang akan Anda terima setelah gaji pokok Anda dikurangi dengan PPH 21 yang dikenakan terhadap gaji pokok Anda
7. Klik "Ok" untuk mengakhiri
Penjelasan Aplikasi :
Pada form ini saya membuat aplikasi form pengambilan gaji PT Sejahtera. Jadi sebelum para pekerja di PT Sejahtera mengambil langsung gaji mereka, mereka harus mengisi form tersebut untuk mengetahui besar gaji yang akan diterima mereka setelah dipotong pajak. Setelah mereka mengisi form tersebut, mereka baru akan bisa mengambil gaji mereka per bulan ke akuntan bagian keuangan yang ada di perusahaan tersebut.
Pada form tersebut, saya menggunakan background berwarna biru untuk memperindah tampilan form. Pada bagian awal terdapat judul yang saya buat menggunakan label. Berikut rinciannya :
Form Pengambilan Gaji PT Sejahtera = Label1
Lalu, dibawah judul terdapat nama yang juga saya buat menggunakan label. Disebelah label terdapat kotak untuk mengisi nama lengkap kita yang terdata di PT Sejahtera menggunakan textbox. Berikut rinciannya :
Nama = Label2 = TextBox1
Dibawah nama, terdapat jabatan yang juga dibuat menggunakan label. Disamping jabatan terdapat pilihan jabatan. Jabatan tersebut dipilih sesuai diri Anda menjabat sekarang di perusahaan tersebut. Lalu, dibawah jabatan terdapat Gaji Pokok, PPH 21, dan Gaji Yang Diterima, yang juga dibuat menggunakan label. Disamping Gaji Pokok, PPH 21, dan Gaji Yang Diterima, terdapat kotak untuk menampilkan besar gaji pokok, besar pph 21 yang dikenakan, dan besar gaji yang akan diterima. Berikut rinciannya :
Gaji Pokok = Label3 =TextBox2
Pph 21 = Label4 = TextBox3
Gaji Yang Diterima = Label5 = TextBox4
Selain itu, pada bagian bawah terdapat 4 tombol yang dibuat menggunakan button. 4 tombol tersebut adalah tombol "Check Gaji Pokok", tombol "Check Pajak", tombol "Proses Gaji Akhir", dan tombol "Selesai". Fungsi masing-masing dari tombol tersebut adalah
1. Tombol "Check Gaji Pokok" digunakan untuk mengcheck besar gaji pokok per bulan yang akan diterima pekerja PT Sejahtera
2. Tombol "Check Pajak" digunakan untuk mengcheck besar pajak pph 21 yang akan dikenakan terhadap gaji pokok per bulan para pekerja PT Sejahtera
3. Tombol "Proses Gaji Akhir" digunakan untuk memproses besar gaji yang akan Anda terima setelah gaji pokok dikurangi dengan pajak pph 21
4. Tombol "Selesai" digunakan untuk menutup aplikasi
Dan berikut rinciannya :
Check Gaji Pokok = Button1
Check Pajak = Button2
Check Gaji Yang Diterima = Button3
Selesai = Button4
Disamping itu untuk mempersingkat coding yang digunakan, saya menggunakan class.
Source Coding :
Code Untuk Class :
Public Class Class1
Dim CEO, General_Manager, Supervisor, Staff, Staff_Magang As Integer
Public Function jabatan(ByVal karakter As Integer)
jabatan = StrConv(karakter, CEO)
jabatan = StrConv(karakter, General_Manager)
jabatan = StrConv(karakter, Supervisor)
jabatan = StrConv(karakter, Staff)
jabatan = StrConv(karakter, Staff_Magang)
End Function
End Class
Code Untuk Form1 :
Public Class Form1
Dim vgol As String
Dim gaji As New Class1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
vgol = ComboBox1.Text
Select Case vgol
Case "CEO"
TextBox2.Text = gaji.jabatan(25000000)
Case "General Manager"
TextBox2.Text = gaji.jabatan(15000000)
Case "Supervisor"
TextBox2.Text = gaji.jabatan(10000000)
Case "Staff"
TextBox2.Text = gaji.jabatan(8000000)
Case "Staff Magang"
TextBox2.Text = gaji.jabatan(2000000)
End Select
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox3.Text = TextBox2.Text * 5 / 100
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox4.Text = TextBox2.Text - TextBox3.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button4.Text = MsgBox("Gaji anda akan segera dicairkan, silahkan mengambil gaji anda di ruangan akuntan bagian keuangan. Terima Kasih :)")
Me.Close()
End Sub
