Gaji Karyawan dengan If Majemuk

Postingan kali ini masih membahas metode penggunaan If pada VB 2008 dan yang akan saya posting yaitu tentang GAJI KARYAWAN. Masih seperti If yang di bahas sebelumnya If yang digunakan adalah If Majemuk.
Langsung saya kita buat form designya seperti gambar di bawah ini
ToolBox yang digunakan yaitu: Label, ListBox, TextBox, and Button 

 

Kemudian masukkan codding seperti di bawah ini:

Public Class Form1

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

        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")

        jab.Items.Add("Kabag")
        jab.Items.Add("Staff")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        janak.Items.Add("1")
        janak.Items.Add("2")
        janak.Items.Add("3")

        nama.Enabled = False
        gaji.Enabled = False
        tanak.Enabled = False
        tistri.Enabled = False
        tgaji.Enabled = False
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        If nik.Text = "001" Then
            nama.Text = "Aldiyan"
        ElseIf nik.Text = "002" Then
            nama.Text = "Andi"
        ElseIf nik.Text = "003" Then
            nama.Text = "Joko"
        Else
            nik.Text = ""
            nama.Text = ""

        End If

    End Sub

    Private Sub jab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jab.SelectedIndexChanged

        If jab.Text = "Kabag" Then
            gaji.Text = 3500000
        ElseIf jab.Text = "Staff" Then
            gaji.Text = 2000000
        End If
    End Sub

    Private Sub btnha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnha.Click
        nik.Text = ""
        nama.Text = ""
        jab.Text = ""
        gaji.Text = ""
        status.Text = ""
        janak.Text = ""
        tanak.Text = ""
        tistri.Text = ""
        tgaji.Text = ""
    End Sub

    Private Sub btnpro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpro.Click
      
        If status.Text = "Menikah" Then
            tistri.Text = 0.1 * Val(gaji.Text)
        ElseIf status.Text = "Tidak Menikah" Then
            tistri.Text = "0"
        End If
        tanak.Text = 0.02 * Val(gaji.Text) * Val(janak.Text)
        tgaji.Text = Val(gaji.Text) + Val(tistri.Text) + Val(tanak.Text)

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "Tidak Menikah" Then
            janak.Text = 0
        End If
    End Sub

    Private Sub btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkel.Click

        End
 

    End Sub
End Class
 

Hasilnya akan seperti gambar berikut:

 

Gambar di atas membuktikan bahwa program yang kita buat dapat berjalan dengan baik.

Postingan ini hanyalah contoh kecil bagaimana membuat program dengan menggunakan VB 2008 dan masih jauh dari kata sempurna.

Selamat mencoba dan jangan menyerah

Good Luck........!!! 

Related Posts:

Tweet