MODIFIKASI LATIHAN FORM NILAI MAHASISWA MENGGUNAKAN LISTVIEW

 Modifikasi kasus program berikut inihttp://www.mesran.blogspot.com/2013/10/latihan-form-nilai-mahasiswa.html dengan menggunakan LISTVIEW

Public Class Nilai_Mahasiswa

    Sub buattable()

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

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

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

        LV.Columns.Add("Jurusan", 140, HorizontalAlignment.Center)

        LV.Columns.Add("Matakuliah", 140, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lsi As New ListViewItem

        lsi.Text = npm.Text

        lsi.SubItems.Add(nama.Text)

        lsi.SubItems.Add(jenjang.Text)

        lsi.SubItems.Add(jurusan.Text)

        lsi.SubItems.Add(nm_matkul.Text)

        lsi.SubItems.Add(nilaiakhir.Text)

        LV.Items.Add(lsi)

    End Sub

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

        buattable()

        npm.Items.Add("12110028")

        npm.Items.Add("12110006")

        npm.Items.Add("12110106")

        nm_matkul.Items.Add("Pemograman Visual")

        nm_matkul.Items.Add("Struktur Data")

        nm_matkul.Items.Add("Sistem Basis Data")

        Dim i As Integer

        For i = 100 To 1 Step -1

            nilahadir.Items.Add(i)

            niaiquis.Items.Add(i)

            nilaiuts.Items.Add(i)

            nilaiuas.Items.Add(i)

        Next i

    End Sub

    Private Sub nilaiuas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilaiuas.SelectedIndexChanged

        nilaiakhir.Text = Val(0.1 * nilahadir.Text) + Val(0.15 * niaiquis.Text) + Val(0.3 * nilaiuts.Text) + Val(0.45 * nilaiuas.Text)

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        If npm.Text = "12110028" Then

            nama.Text = "Halima Tusa'diah .P"

            jenjang.Text = "S1"

            jurusan.Text = "Teknik Informatika"

        ElseIf npm.Text = "12110006" Then

            nama.Text = "Tri Desy Novita L"

            jenjang.Text = "D3"

            jurusan.Text = "Manajemen Informatika"

        Else

            nama.Text = "Siska Juli yanti R"

            jenjang.Text = "D3"

            jurusan.Text = "Akutansi Informatika"

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        isitable()

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        nm_matkul.Text = ""

        nilahadir.Text = ""

        niaiquis.Text = ""

        nilaiakhir.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        npm.Focus()

    End Sub

 

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        LV.Items.Remove(LV.Items(0))

    End Sub

End Class

Berikut program listing listview