Visual Basic - Penggajian Karyawan

Silahkan design tampilan program seperti dibawah ini :




Berikut listing program penggajian karyawan.

Dim lembur As Double
Private Sub cmdBaru_Click()
    NIK.Text = ""
    Nama.Text = ""
    Status.Text = ""
    Jabatan.Text = ""
    Pajak.Text = ""
    Total.Text = ""
    Gaji.Text = ""
    TunjIstri.Text = ""
    TunjAnak.Text = ""
    JAnak.Text = ""
    Honor.Text = ""
    JLembur.Text = ""
    TunjAnak.Text = ""

End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdProses_Click()
    Total.Text = Val(Gaji.Text) + Val(TunjIstri.Text) + Val(TunjAnak.Text) + Val(Honor.Text) - Val(Pajak.Text)
End Sub

Private Sub Form_Load()
    NIK.AddItem "001"
    NIK.AddItem "002"
    NIK.AddItem "003"
    Jabatan.AddItem "Mandor"
    Jabatan.AddItem "Kepala Bagian"
    Jabatan.AddItem "Staf"
    Status.AddItem "Menikah"
    Status.AddItem "Tidak Menikah"
  
    For i = 1 To 5
        JAnak.AddItem i
    Next i
  
    For i = 1 To 15
        JLembur.AddItem i
    Next i
  
    Call cmdBaru_Click
End Sub

Private Sub Jabatan_Click()
    Select Case Jabatan.Text
    Case "Mandor":
        Gaji.Text = 1750000
        lembur = 7500
    Case "Kepala Bagian": Gaji.Text = 2500000
        lembur = 10000
    Case "Staf": Gaji.Text = 1250000
        lembur = 5000
    End Select
    Pajak.Text = 0.015 * Gaji.Text
End Sub

Private Sub JAnak_Click()
    If JAnak.Text >= 2 Then
        TunjAnak.Text = 0.07 * Gaji.Text
    ElseIf JAnak.Text = 1 Then
        TunjAnak.Text = 0.03 * Gaji.Text
    Else
        TunjAnak.Text = 0
    End If
End Sub

Private Sub JLembur_Click()
    Honor.Text = JLembur.Text * lembur
End Sub

Private Sub NIK_Click()
    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_Click()
    Select Case Status.Text
    Case "Menikah":
        TunjIstri.Text = 0.09 * Gaji.Text
        JAnak.Enabled = True
    Case "Tidak Menikah":
        JAnak.Text = 0
        JAnak.Enabled = False
        TunjIstri.Text = 0
        TunjAnak.Text = 0
    End Select
  
End Sub

Untuk hasilnya silahkan aja lihat tampilan berikut ini :






Selamat belajar bahasa pemrograman yaa

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

 Selesaikanlah Kasus Berikut :

PENJUALAN KREDIT MOBIL

Berikut Jawaban Program :

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call BuatTabel()
        kode.Items.Add("MB1")
        kode.Items.Add("MB2")
        kode.Items.Add("MB3")
        kode.Items.Add("MB4")
        tahun.Items.Add("2012")
        tahun.Items.Add("2013")
        tahun.Items.Add("2014")
        kondisi.Items.Add("Baru")
        kondisi.Items.Add("Bekas")
        lkredit.Items.Add("12")
        lkredit.Items.Add("24")
        lkredit.Items.Add("36")
        lkredit.Items.Add("48")

        For i = 1 To 20
            jumlah.Items.Add(i)
        Next
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "MB1"
                nama.Text = ("Avanza Veloz")
            Case "MB2"
                nama.Text = ("Avanza G")
            Case "MB3"
                nama.Text = ("Xenia G")
            Case "MB4"
                nama.Text = ("Yaris")
        End Select
  


    End Sub

    Private Sub harga_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles harga.MouseClick
       
    End Sub

    Private Sub lkredit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lkredit.SelectedIndexChanged
        angsuran.Text = ((totalk.Text) * (0.03 * lkredit.Text))
    End Sub

    Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
        Call IsiTabel()
        kode.Text = ""
        nama.Text = ""
        tahun.Text = ""
        kondisi.Text = ""
        jumlah.Text = ""
        harga.Text = ""
        tharga.Text = ""
        dp.Text = ""
        komisi.Text = ""
        totalk.Text = ""
        lkredit.Text = ""
        angsuran.Text = ""
    End Sub
    Sub BuatTabel()
        Lv.Columns.Add("Kode", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Tahun Keluaran", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Kondisi", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Harga", 150, HorizontalAlignment.Left)
        Lv.Columns.Add("Uang Muka", 120, HorizontalAlignment.Left)
        Lv.Columns.Add("Komisi Sales", 90, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Komisi", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Lama Kredit", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Angsuran / Bulan", 120, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = kode.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(tahun.Text)
        Lst.SubItems.Add(kondisi.Text)
        Lst.SubItems.Add(jumlah.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(tharga.Text)
        Lst.SubItems.Add(dp.Text)
        Lst.SubItems.Add(komisi.Text)
        Lst.SubItems.Add(totalk.Text)
        Lst.SubItems.Add(lkredit.Text)
        Lst.SubItems.Add(angsuran.Text)
        Lv.Items.Add(Lst)
    End Sub

    Private Sub BtnHapusList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusList.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub BtnData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnData.Click
        kode.Text = ""
        nama.Text = ""
        tahun.Text = ""
        kondisi.Text = ""
        jumlah.Text = ""
        harga.Text = ""
        tharga.Text = ""
        dp.Text = ""
        komisi.Text = ""
        totalk.Text = ""
        lkredit.Text = ""
        angsuran.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Dim Tanya As String
        Tanya = MsgBox("Are You Sure Close Program ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If Tanya = vbYes Then

        End If
        Me.Close()
    End Sub

    Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged
        If kode.Text = "MB1" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = "175000000"
        ElseIf kode.Text = "MB1" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = "120000000"
        ElseIf kode.Text = "MB1" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = "195000000"
        ElseIf kode.Text = "MB1" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = "130000000"
        ElseIf kode.Text = "MB1" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = "208000000"
        ElseIf kode.Text = "MB1" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = "170000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = "165000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = "100000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = "190000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = "125000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = "205000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = "180000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = "176000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = "130000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = "196000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = "210000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = "200000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = "205000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = "135000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = "215000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = "147000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = "225000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = "180000000"
        End If

    End Sub

    Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged
        tharga.Text = jumlah.Text * harga.Text
        dp.Text = (0.3 * tharga.Text)
        komisi.Text = (0.02 * jumlah.Text * dp.Text)
        totalk.Text = Val(tharga.Text) - Val(dp.Text)
    End Sub
End Class











Nah,,, Akan muncul Hasilnya Seperti Gambar di Bawah ini..

Demikilahlah postingan saya 
Nama : Sinema Waruwu
NPM : 13110066
Selamat Belajar Pemrograman VB NET Pemrograman VB NET

Friendly Of Mesran.Net

<a onmouseover='window.location=this.href' href='http://www.mesran.net/' target='_blank'><img src='http://mesran.net/file/mesrannet.jpg' width='77%'></a>

Tentang Saya

Saya adalah mahasiswa STMIK Budidarma Jurusan Information Technology specialis programmer design. Hoby saya adalah bermain gitar.