Senin, 13 Mei 2013

Form Gaji Karyawan dengan Menggunakan VB.Net


                Inilah adalah soal UTS saya pada tanggal 6 Mei 2013, hehehe J yang berjudul Membuat Form Gaji Karyawan dengan VB.Net

Buat Desain seperti gambar dibawah ini !

Masukkan Listing program dibawah 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")
        Jabatan.Items.Add("Mandor")
        Jabatan.Items.Add("Kepala Bagian")
        Jabatan.Items.Add("Staf")
        Status.Items.Add("Menikah")
        Status.Items.Add("Belum Menikah")
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        Select Case Jabatan.Text
            Case "Mandor" : Gaji.Text = 1750000
            Case "Kepala Bagian" : Gaji.Text = 2500000
            Case "Staf" : Gaji.Text = 1250000
        End Select
        pajak.Text = 0.15 * Gaji.Text
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "001" : nama.Text = "Oncom"
            Case "002" : nama.Text = "Udin"
            Case "003" : nama.Text = "Ujang"
        End Select
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        Select Case Status.Text
            Case "Menikah" : Tunjangan.Text = 0.15 * Gaji.Text
            Case "Tidak Menikah" : Tunjangan.Text = 0
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) - Val(pajak.Text)
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class

Jalankan dengan tekan f5, maka hasilnya akan seperti gambar dibawah ini!

Selamat belajar J

Tidak ada komentar:

Posting Komentar