Daftar Gaji Pegawai Pada Vb.net 2008

Posted by Sabtu, 29 Juni 2013







 Listing Programnya :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Nik.Items.Add("K1001")
        Nik.Items.Add("K2003")
        Nik.Items.Add("S1001")
        Nik.Items.Add("S2002")
        Nik.Items.Add("S3003")
        Nik.Items.Add("A1001")
        Nik.Items.Add("A2002")
        Nik.Items.Add("A3003")
        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IIIB")
        Golongan.Items.Add("IIIC")
    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Nik.Text, 1)
        Select Case X
            Case "K"
                Bagian.Text = "Keuangan"
                Nama.Text = "Muhammad Syahril"

            Case "A"
                Bagian.Text = "Administrasi"
                Nama.Text = "Rina Miranda"

            Case "S"
                Bagian.Text = "Pengamanan"
                Nama.Text = "Soni sugiarto"
        End Select
        X = Microsoft.VisualBasic.Mid(Nik.Text, 2, 1)
        Select Case X
            Case "1"
                Jabatan.Text = "bedahara"
            Case "2"
                Jabatan.Text = "Serkertaris"
            Case "3"
                Jabatan.Text = "Security"
        End Select
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Golongan.Text, 4)
        Select Case X
            Case "IIIA"
                Gaji.Text = "2500000"
            Case "IIIB"
                Gaji.Text = "3000000"
            Case "IIIC"
                Gaji.Text = "3500000"
        End Select
    End Sub
End Class


Berikut Hasilnya :


 

Tidak ada komentar

Leave a Reply