It's Me Yunita: listview

Desain dulu formnya seperti di bawah ini..

Listing Program

Public Class Form3

    Sub bersih()
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        nidn.Text = ""
        namadosen.Text = ""
        kodematkul.Text = ""
        matkul.Text = ""
        nilaihdr.Text = ""
        ntgs.Text = ""
        ntus.Text = ""
        nahir.Text = ""
        nuas.Text = ""
        nhruf.Text = ""
        keterangan.Text = ""
    End Sub
    Sub buattabel()
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.Columns.Add("NPM", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        lv.Columns.Add("jenjang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("jurusan", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kd Dosen", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Dosen", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Kode MK", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Mata Kuliah", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Hadir", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Tugas", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UAS", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Keterangan", 80, HorizontalAlignment.Center)
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        With lst
            .Text = npm.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(jenjang.Text)
            .SubItems.Add(jurusan.Text)
            .SubItems.Add(nidn.Text)
            .SubItems.Add(namadosen.Text)
            .SubItems.Add(kodematkul.Text)
            .SubItems.Add(matkul.Text)
            .SubItems.Add(nilaihdr.Text)
            .SubItems.Add(ntgs.Text)
            .SubItems.Add(ntus.Text)
            .SubItems.Add(nuas.Text)
            .SubItems.Add(nahir.Text)
            .SubItems.Add(nhruf.Text)
            .SubItems.Add(keterangan.Text)
        End With
        lv.Items.Add(lst)
        bersih()
    End Sub
    Sub ANPM()
        npm.Items.Add("12110167")
        npm.Items.Add("12110168")
        npm.Items.Add("12021234")
        npm.Items.Add("12021235")
    End Sub
    Sub matakuliah()
        kodematkul.Items.Add("KM001")
        kodematkul.Items.Add("KM002")
        kodematkul.Items.Add("KM003")
        kodematkul.Items.Add("KM004")
        kodematkul.Items.Add("KM005")
    End Sub
    Sub kodedosen()
        nidn.Items.Add("DS001")
        nidn.Items.Add("DS002")
        nidn.Items.Add("DS003")
        nidn.Items.Add("DS004")
        nidn.Items.Add("DS005")
    End Sub
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ANPM()
        matakuliah()
        kodedosen()
    End Sub
    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 2, 2)
        If jurusan.Text = "S1" Then
            jurusan.Items.Add("Tekinik Informatiaka")
            jurusan.Items.Add("Sistem Informatika")
        ElseIf jenjang.Text = "D3" Then
            jurusan.Items.Add("Manajemen Informatika")
            jurusan.Items.Add("Akutansi")
        Else
            jurusan.Items.Add("Teknik Komputer")
            jurusan.Items.Add("Desain Grafis")
        End If

        Select Case npm.Text
            Case "12021234"
                nama.Text = "Mahmudin"
                jenjang.Text = "D3"

            Case "12110168"
                nama.Text = "Ririn Andriani"
                jenjang.Text = "S1"

            Case "12110167"
                nama.Text = "Sartika Aini"
                jenjang.Text = "S1"
        End Select
    End Sub
    Private Sub nidn_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nidn.SelectedIndexChanged
        Select Case nidn.Text
            Case Is = "DS001"
                namadosen.Text = "Mesran S.kom"
            Case Is = "DS002"
                namadosen.Text = "Syahrizal S.kom"
            Case Is = "DS003"
                namadosen.Text = "Sinar Sinurat"
            Case Is = "DS004"
                namadosen.Text = "Iqbal Batubara"
            Case Is = "DS005"
                namadosen.Text = "Soni Bahagia"
        End Select
    End Sub
    Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematkul.SelectedIndexChanged
        If kodematkul.Text = "KM001" Then
            matkul.Text = "Pemrograman Visual"
        ElseIf kodematkul.Text = "KM002" Then
            matkul.Text = "Teknik Digital"
        ElseIf kodematkul.Text = "KM003" Then
            matkul.Text = "Logika & Algoritma"
        ElseIf kodematkul.Text = "KM004" Then
            matkul.Text = "Basis Data"
        Else
            matkul.Text = "Struktur Data"
        End If
    End Sub
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nahir.Text = nilaihdr.Text * 0.1 + ntgs.Text * 0.15 + ntus.Text * 0.25 + nuas.Text * 0.4
        If nahir.Text >= 81 Then
            nhruf.Text = "A"
            keterangan.Text = "Lulus"
        ElseIf nahir.Text >= 75 Then
            nhruf.Text = "B+"
            keterangan.Text = "Lulus"
        ElseIf nahir.Text >= 70 Then
            nhruf.Text = "B"
            keterangan.Text = "Lulus"
        ElseIf nhruf.Text >= 65 Then
            nhruf.Text = "C+"
            keterangan.Text = "Lulus"
        ElseIf nhruf.Text >= 60 Then
            nhruf.Text = "C"
            keterangan.Text = "Lulus"
        ElseIf nahir.Text >= 50 Then
            nhruf.Text = "D"
            keterangan.Text = "Lulus"
        Else
            nhruf.Text = "E"
            keterangan.Text = "Gagal"
        End If
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        bersih()
    End Sub

    Private Sub btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuspilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        lv.Items.Clear()
    End Sub
End Class

Hasil Program setelah penginputan