PEMOGRAMAN VB.NET :CONTOH PROGRAM LISTVIEW GAJI PEGAWAI TELKOM

Public Class Form1

    Sub BuatTabel()

        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)

        LV.Columns.Add("gol", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Pinjaman", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Gaber", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isiTabel()

        Dim lst As New ListViewItem

        LV.GridLines = True

        LV.View = View.Details

        LV.FullRowSelect = True

        LV.Columns.Add("Nama")

        LV.Columns.Add("gol")

        LV.Columns.Add("gaji")

        LV.Columns.Add("pajak")

        LV.Columns.Add("pinjaman")

        LV.Columns.Add("gaber")

    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged

        If gol.Text = "IIIA" Then

            nama.Text = "adinda carla farelitha"

            gaji.Text = "1500000"

        ElseIf gol.Text = "IIIB" Then

            nama.Text = "Fitri Girsang"

            gaji.Text = "2500000"

        Else : gol.Text = "IIIC"

            nama.Text = "Ramadani"

            gaji.Text = "3500000"

        End If

    End Sub

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

        gol.Items.Add("IIIA")

        gol.Items.Add("IIIB")

        gol.Items.Add("IIIC")

        BuatTabel()

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        nama.Text = ""

        gol.Text = ""

        gaji.Text = ""

        pajak.Text = ""

        pinjaman.Text = ""

        gaber.Text = ""

    End Sub

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

        End

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        gaber.Text = gaji.Text - pinjaman.Text

        pajak.Text = 0.15 * gaji.Text

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Dim lst As New ListViewItem

        lst.Text = nama.Text

        lst.SubItems.Add(gol.Text)

        lst.SubItems.Add(gaji.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(pinjaman.Text)

        lst.SubItems.Add(gaber.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Btnhapuslv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapuslv.Click

        LV.Items.Clear()

    End Sub

    Private Sub Btnkeluarlv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluarlv.Click

        Me.Close()

    End Sub

End Class

Hasil akhir dengan ListView

Sekian Contoh Program Penggajian Pegawai TELKOM, Jawaban kuis No.2.  Belajar Pemrograman VB.NET

Author : Unknown

Share this

Related Posts