UAS TAKE HOME FATHAN MUBINA

PENJELASAN PROGAM APLIKASI BESERTA SCREEN SHOOT dan SOURCE CODING

FORM GAJI KARYAWAN

Untuk mengisi form gaji karyawan pertama kita harus membuka pada menu strip file

Lalu setelah membuka menu strip file pilih “new” setelah itu akan muncul form seperti berikut

 


Setelah muncul lalu isi form NIP dan Nama pegawai   


Setelah mengisi NAMA dan NIP lanjut kita isi golongan

 

Ketika kita mengisi golongan contoh mengisi no 1 maka jabatan,gaji pokok,dan tunjangan jabatan akan otomatis terisi sendiri. Setelah mengisi golongan mari kita lanjut mengisi status. Di Combo box status terdapat dua pilihan yaitu Single atau married

 
 


Contoh kita mengisi pilihan single maka otomatis tunjangan istri akan muncul dengan sendirinya 










Lalu lanjut mengisi jenis kelamin dan tunjangan yang dimiliki

 

Contoh kita mengisi laki laki dan memilih check box single maka jumlah pph kita akan muncul dan total gaji bersih kita juga akan otomatis terhitung.

 

Setelah itu kita save form gaji kita

Lalu kita membuka menu strip file lagi 

 

Setelah buka menu strip file pilih open 

Klik button open untuk memanggil data form gaji kita kembali

Maka akan muncul form seperti dibawah ini 

 

Setelah muncul form yang telah kita buat tadi berarti form yang telah kita isi telah masuk ke database perusahaan.

Berikut juga saya lampirkan Source Coding dari Program Aplikasi yang saya buat

Source code Progam Aplikasi Menghitung Form Gaji Karyawan

Public Class Form1

    Dim x As New System.Windows.Forms.TextBox()

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

        Dim frm2 As New Form2

        frm2.MdiParent = Me

        frm2.Show()

    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click

        Dim frm3 As New Form3

        frm3.MdiParent = Me

        frm3.Show()

        On Error GoTo tidakadafile

        Exit Sub

tidakadafile:

        MsgBox("Tidak Ada File", MsgBoxStyle.Information, "Informasi")

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        Dim x As String

        x = MsgBox("Anda yakin akan keluar", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If x = vbYes Then

            Application.Exit()

        End If

    End Sub

    Private Sub FileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.Click

    End Sub

Public Class Form2

    Function total(ByVal gaji As Integer, ByVal jabatan As Integer, ByVal istri As Integer) As Integer

        total = gaji + jabatan + istri

    End Function

    Function Istri(ByVal status As String, ByVal jkelamin As String, ByVal gaji As Integer) As Integer

        If status = "Married" And jkelamin = "Laki-Laki" Then

            Istri = 0.1 * gaji

        Else

            Istri = 0

        End If

    End Function

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        GolCmb.Items.Add(1)

        GolCmb.Items.Add(2)

        GolCmb.Items.Add(3)

        GolCmb.Items.Add(4)

        GolCmb.Items.Add(5)

        StatusCmb.Items.Add("Married")

        StatusCmb.Items.Add("Single")

        JKelaminCmb.Items.Add("Laki-Laki")

        JKelaminCmb.Items.Add("Perempuan")

    End Sub

    Function Tjabatan(ByVal golongan As String, ByVal gaji As Integer) As Integer

        Select Case golongan

            Case 1, 2

                Tjabatan = 0.15 * gaji

            Case 3

                Tjabatan = 0.05 * gaji

        End Select

    End Function

    Private Sub GolCmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GolCmb.SelectedIndexChanged

        Select Case GolCmb.Text

            Case 1

                JabatanTxt.Text = "MANAGER"

                GajiTxt.Text = 2000000

            Case 2

                JabatanTxt.Text = "SUPERVISOR"

                GajiTxt.Text = 1500000

            Case 3

                JabatanTxt.Text = "STAFF"

                GajiTxt.Text = 1000000

            Case 4

                JabatanTxt.Text = "ASSISTANT STAFF"

                GajiTxt.Text = 750000

            Case 5

                JabatanTxt.Text = "JUNIOR STAFF"

                GajiTxt.Text = 500000

        End Select

        TJabatanTxt.Text = Tjabatan(GolCmb.Text, GajiTxt.Text)

    End Sub

    Sub clear()

        Dim t As Control

        For Each t In Me.Controls

            If TypeOf t Is TextBox Then

                t.Text = ""

            ElseIf TypeOf t Is ComboBox Then

                t.Text = ""

            ElseIf CheckBox1.Checked = True Then

                CheckBox1.Checked = False

            ElseIf CheckBox2.Checked = True Then

                CheckBox1.Checked = False

                CheckBox2.Checked = False

                CheckBox3.Checked = False

            ElseIf CheckBox3.Checked = True Then

                CheckBox1.Checked = False

                CheckBox2.Checked = False

                CheckBox3.Checked = False

            End If

        Next

    End Sub

    Private Sub EntryBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntryBtn.Click

        Call clear()

    End Sub

    Function pph(ByVal total As Integer) As Integer

        If total >= 100000 Then

            pph = 0.03 * total

        Else

            pph = 0

        End If

    End Function

    Function neto(ByVal total As Integer, ByVal pph As Integer) As Integer

        neto = total - pph

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        SaveFileDialog1.Filter = "Text File|*.txt|CSV File|*.CSV"

        SaveFileDialog1.DefaultExt = "*.txt"

        SaveFileDialog1.ShowDialog()

    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

        Dim SaveF As New System.IO.StreamWriter(SaveFileDialog1.FileName)

        SaveF.WriteLine("GAJI KARYAWAN")

        SaveF.WriteLine(" ")

        SaveF.WriteLine("NIP                        : " + TextBox1.Text)

        SaveF.WriteLine("NAMA                       : " + TextBox2.Text)

        SaveF.WriteLine("JENIS KELAMIN              : " + JKelaminCmb.Text)

        SaveF.WriteLine("STATUS                     : " + StatusCmb.Text)

        SaveF.WriteLine("JABATAN                    : " + JabatanTxt.Text)

        If CheckBox1.Checked And CheckBox2.Checked = False And CheckBox3.Checked = False Or CheckBox2.Checked And CheckBox1.Checked = False And CheckBox3.Checked = False Or CheckBox3.Checked And CheckBox1.Checked = False And CheckBox2.Checked = False Then

            SaveF.WriteLine("TUNJANGAN YANG DIMILIKI    : " + CheckBox1.Text)

        ElseIf CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked = False Then

            SaveF.WriteLine("TUNJANGAN YANG DIMILIKI    : " + CheckBox1.Text + " , " + CheckBox2.Text)

        ElseIf CheckBox1.Checked And CheckBox3.Checked And CheckBox2.Checked = False Then

            SaveF.WriteLine("TUNJANGAN YANG DIMILIKI    : " + CheckBox1.Text + " , " + CheckBox3.Text)

        ElseIf CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked Then

            SaveF.WriteLine("TUNJANGAN YANG DIMILIKI    : " + CheckBox1.Text + " , " + CheckBox2.Text + " , " + CheckBox3.Text)

        ElseIf CheckBox2.Checked And CheckBox3.Checked And CheckBox1.Checked = False Then

            SaveF.WriteLine("TUNJANGAN YANG DIMILIKI    : " + CheckBox2.Text + " , " + CheckBox3.Text)

        Else

            SaveF.WriteLine("TUNJANGAN YANG DIMILIKI    : Tidak Memiliki Tunjangan")

        End If

        SaveF.WriteLine(" ")

        SaveF.WriteLine("GAJI POKOK                 : " + GajiTxt.Text)

        SaveF.WriteLine("TUNJANGAN JABATAN          : " + TJabatanTxt.Text)

        SaveF.WriteLine("TUNJANGAN ISTRI            : " + IstriTxt.Text)

        SaveF.WriteLine(" ")

        SaveF.WriteLine("TOTAL                      : " + TotalTxt.Text)

        SaveF.WriteLine("PPh                        : " + PphTxt.Text)

        SaveF.WriteLine(" ")

        SaveF.WriteLine("TOTAL BERSIH               : " + NetoTxt.Text)

        SaveF.Close()

    End Sub

    Private Sub StatusCmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusCmb.SelectedIndexChanged

        IstriTxt.Text = Istri(StatusCmb.Text, JKelaminCmb.Text, GajiTxt.Text)

    End Sub

    Private Sub JKelaminCmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JKelaminCmb.SelectedIndexChanged

        IstriTxt.Text = Istri(StatusCmb.Text, JKelaminCmb.Text, GajiTxt.Text)

    End Sub

    Private Sub IstriTxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IstriTxt.TextChanged

        If IstriTxt.Text = "" Then

            TotalTxt.Text = ""

            PphTxt.Text = ""

            NetoTxt.Text = ""

        Else

            TotalTxt.Text = total(GajiTxt.Text, TJabatanTxt.Text, IstriTxt.Text)

            PphTxt.Text = pph(TotalTxt.Text)

            NetoTxt.Text = neto(TotalTxt.Text, PphTxt.Text)

        End If

    End Sub

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        OpenFileDialog1.Filter = "Text File|*.txt|All Files|*.*|Document File|*.Doc"

        OpenFileDialog1.DefaultExt = "*.txt"

        OpenFileDialog1.ShowDialog()

        Label1.Text = OpenFileDialog1.FileName

        Dim noFile As Integer

        noFile = FreeFile()

        FileOpen(noFile, Label1.Text, OpenMode.Input)

        Label2.Text = InputString(noFile, LOF(noFile))

        FileClose(noFile)

        On Error GoTo tidakadafile

        Exit Sub

tidakadafile:

        MsgBox("Tidak Ada File", MsgBoxStyle.Information, "Informasi")

    End Sub

End Class

End Class

 

Sekian penjelasan saya mengenai langkah-langkah membuat aplikasi sederhana ini dan semoga bermanfaat. terima kasih