TUGAS CARA PENGGUNAAN LISTVIEW

Pemrograman Visual Basic dot Net Di Mesran.Net 

 

Judul : Penggunaan Listview

 

Tampilan sebelum dijalankan

Listing Program ;

Public Class Form1
    Sub rancangTabel()
        lv.Columns.Add("NIK", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Jabatan", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Gaji", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Status", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Tiunj Istri", 100, HorizontalAlignment.Center)
        lv.Columns.Add("jumlah anak", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Tunj Anak", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Honor Lembur", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Pajak", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Total", 50, HorizontalAlignment.Center)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub masukTabel()
        Dim eti As New ListViewItem
        eti.Text = Nik.Text
        eti.SubItems.Add(Nama.Text)
        eti.SubItems.Add(Jabatan.Text)
        eti.SubItems.Add(Gaji.Text)
        eti.SubItems.Add(Status.Text)
        eti.SubItems.Add(TIstri.Text)
        eti.SubItems.Add(JAnak.Text)
        eti.SubItems.Add(TAnak.Text)
        eti.SubItems.Add(JLembur.Text)
        eti.SubItems.Add(HLembur.Text)
        eti.SubItems.Add(Pajak.Text)
        eti.SubItems.Add(Total.Text)
        lv.Items.Add(eti)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rancangTabel()
        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("Tidak Menikah")

        For i = 1 To 4
            JAnak.Items.Add(i)
        Next i

        For i = 1 To 10
            JLembur.Items.Add(i)
        Next i
    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.015 * Gaji.Text
    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" : TIstri.Text = 0.07 * Gaji.Text
            Case "Tidak Menikah" : TIstri.Text = 0
        End Select
    End Sub

    Private Sub JAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAnak.SelectedIndexChanged

        If JAnak.Text >= 2 And Status.Text = "Menikah" Then
            TAnak.Text = 0.07 * Gaji.Text
        ElseIf JAnak.Text = 1 And Status.Text = "Menikah" Then
            TAnak.Text = 0.03 * Gaji.Text
        Else
            TAnak.Text = 0
        End If
    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(TIstri.Text) + Val(TAnak.Text) + Val(HLembur.Text) - Val(Pajak.Text)
    End Sub
    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        If Nik.Text = "001" Then
            Nama.Text = "Eti"
        ElseIf Nik.Text = "002" Then
            Nama.Text = "ely"
        Else
            Nama.Text = "Gulo"
        End If
    End Sub

    Private Sub JLembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JLembur.SelectedIndexChanged
        Dim ulembur As Double
        If Jabatan.Text = "Mandor" Then
            ulembur = JLembur.Text * 7500
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            ulembur = JLembur.Text * 1000
        ElseIf Jabatan.Text = "Staf" Then
            ulembur = JLembur.Text * 5000
        Else
            ulembur = 0
        End If
        HLembur.Text = ulembur
    End Sub



    Private Sub nik2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik2.TextChanged
        If nik2.Text = "001" Then
            Nama.Text = "Eti"
        ElseIf nik2.Text = "002" Then
            Nama.Text = "Ely"
        ElseIf nik2.Text = "003" Then
            Nama.Text = "Gulo"
        Else
            Nama.Text = "Belum terdaftar"
        End If
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        masukTabel()
        Bersih()
    End Sub

    Private Sub BtnKeliuar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeliuar.Click
        End
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        Bersih()
    End Sub
    Sub Bersih()
        Nik.Text = ""
        nik2.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        TIstri.Text = ""
        JAnak.Text = ""
        TAnak.Text = ""
        JLembur.Text = ""
        HLembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub
End Class

 

                                       Tampilan setelah dijalankan

Nama : ETIELI GULO

NPM : 1111423

KELAS : TI-M1112

                       Maaf atas Keterlambatan Saya........? 

http://mesran.net/