Program Pegawai Dengan VB.Net 2008

Ini merupakan Contoh Program Pegawai Yg Saya Buat ....
Yach.....
Hanya sedikit belajar2 saja ....

Berikut Listing Program .... 

Public Class form_pegawai
    Dim x, y As String
    Dim a As String
    Dim c As String
    Dim b As MsgBoxResult

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

        For i = 1 To 8
            cmb_nip.Items.Add("10123300" & i)
        Next
    End Sub

    Sub seleksi()
        a = "Pak"
        c = "Gol"
        x = Microsoft.VisualBasic.Right(cmb_nip.Text, 3)
        Select Case x
            Case "001" : Txt_nama.Text = a & " " & "Mesran" : cmb_gol.Items.Add(c & " " & "IVA")
            Case "002" : Txt_nama.Text = a & " " & "Abdul" : cmb_gol.Items.Add(c & " " & "I")
            Case "003" : Txt_nama.Text = a & " " & "Berto" : cmb_gol.Items.Add(c & " " & "I")
            Case "004" : Txt_nama.Text = a & " " & "Paska" : cmb_gol.Items.Add(c & " " & "I")
            Case "005" : Txt_nama.Text = a & " " & "Toni" : cmb_gol.Items.Add(c & " " & "IIIB")
            Case "006" : Txt_nama.Text = a & " " & "Yasir" : cmb_gol.Items.Add(c & " " & "IIIC")
            Case "007" : Txt_nama.Text = a & " " & "Fahmy" : cmb_gol.Items.Add(c & " " & "I")
            Case "008" : Txt_nama.Text = a & " " & "Lambok" : cmb_gol.Items.Add(c & " " & "I")
        End Select
    End Sub
    Private Sub cmb_nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_nip.SelectedIndexChanged
        Call bersih()
        Call seleksi()
    End Sub
    Sub bersih()
        cmb_gol.Items.Clear()
        cmb_gol.Text = ""
        cmb_jabatan.Items.Clear()
        cmb_jabatan.Text = ""
        txt_tunjangan.Text = ""
        txt_gaji.Text = ""
    End Sub
    Sub bersih(ByVal f As Form)
        Dim x As Object
        For Each x In f.Controls
            If TypeOf x Is TextBox Then x.text = ""
            If TypeOf x Is ComboBox Then x.text = ""
        Next
    End Sub

    Private Sub Btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_bersih.Click
        Call bersih()
        Call bersih(Me)
    End Sub
    Private Sub cmb_gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_gol.SelectedIndexChanged
        x = Microsoft.VisualBasic.Right(cmb_gol.Text, 1)
        Select Case x
            Case "A" : txt_gaji.Text = 5000000 : cmb_jabatan.Items.Add("Ketua")
            Case "B" : txt_gaji.Text = 3500000 : cmb_jabatan.Items.Add("PuketI")
            Case "C" : txt_gaji.Text = 2500000 : cmb_jabatan.Items.Add("PuketII")
            Case "I" : txt_gaji.Text = 2000000 : cmb_jabatan.Items.Add("Dosen")
        End Select
    End Sub

    Private Sub cmb_jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_jabatan.SelectedIndexChanged
        y = Microsoft.VisualBasic.Left(cmb_jabatan.Text, 5)
        Select Case y
            Case "Ketua" : txt_tunjangan.Text = 1800000
            Case "Puket" : txt_tunjangan.Text = 1400000
            Case "Dosen" : txt_tunjangan.Text = 1000000
        End Select
    End Sub

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
        txt_tolgaji.Text = "Rp" & " " & Val(txt_gaji.Text) + Val(txt_tunjangan.Text)
    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        b = MsgBox("Apa anda Yakin keluar dari program ini?", MsgBoxStyle.Question + _
            MsgBoxStyle.YesNo, "Program Pegawai")
        If b = MsgBoxResult.Yes Then
            Close()
        End If
    End Sub

End Class

Ok ....
Semoga bermanfaat .....

Penulis : Technolgy On World ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Program Pegawai Dengan VB.Net 2008 ini dipublish oleh Technolgy On World pada hari Kamis, 21 Juni 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Program Pegawai Dengan VB.Net 2008