(VB.Net) Tutorial dan Source Code Penghitung Gaji Karyawan (Upah Kerja) yang "Sangat Simpel" / "Extremely" Simple Payroll

Ahhh... Lama tra nulis eh!!!

oke... mari...

Mulai....

Beserta "Analog Fish - Speed" (yang sedang saya dengarkan), saya akan menjelaskan secara singkat tentang "Tutorial Source Code Penghitung Gaji Karyawan yang "Sangat Simpel" / "Extremely" Simple Payroll" ini....

Pertama "Requirement"

• Visual Studio 2010
• Niat/Minat/Passion/Curiosity

Kedua "Buat Form"

Form yang dibuat dengan komponen:

• 1 Form
• 12 Label
• 9 TextBox

Seperti demikian:

Ketiga "The Code"

Untuk membuka "Code/Listing Program"-nya bisa klik kanan di Form lalu pilih "View Code" atau dengan tekan "F7". Setelah listing programnya terbuka langsung aja "CRTL+A" dan Paste Listing berikut:

Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedIndex = 0 Then

            Dim pok As Integer

            pok = 2500000

            TextBox3.Text = "Kepala Umum"

            TextBox5.Text = "2.500.000"

            TextBox6.Text = pok * 30 / 100

            TextBox7.Text = pok * 20 / 100

            TextBox8.Text = pok * 10 / 100

            TextBox9.Text = pok * 5 / 100

            Dim t6 As Integer

            Dim t7 As Integer

            Dim t8 As Integer

            Dim t9 As Integer

            t6 = Integer.Parse(TextBox6.Text)

            t7 = Integer.Parse(TextBox7.Text)

            t8 = Integer.Parse(TextBox8.Text)

            t9 = Integer.Parse(TextBox9.Text)

            Label12.Text = (pok + t6 + t7 + t8 + t9) - (pok * 10 / 100)

        Else

            Dim pok As Integer

            pok = 2000000

            TextBox3.Text = "Supervisor"

            TextBox5.Text = "2.000.000"

            TextBox6.Text = pok * 30 / 100

            TextBox7.Text = pok * 20 / 100

            TextBox8.Text = pok * 10 / 100

            TextBox9.Text = pok * 5 / 100

            Dim t6 As Integer

            Dim t7 As Integer

            Dim t8 As Integer

            Dim t9 As Integer

            t6 = Integer.Parse(TextBox6.Text)

            t7 = Integer.Parse(TextBox7.Text)

            t8 = Integer.Parse(TextBox8.Text)

            t9 = Integer.Parse(TextBox9.Text)

            Label12.Text = (pok + t6 + t7 + t8 + t9) - (pok * 10 / 100)

        End If

    End Sub

End Class

Selesai....

Males Ngetik? Jari lagi Keseleo?
yo wis, rapopo...
nih source nya:

Download Source -Upah Kerja.rar-