Membuat Nilai Mahasiswa Di Vb.Net

Pada kali ini saya berkesempatan untuk membagikan ilmu yang saya dapat, yaitu pelajaran Pemograman Visual. Adapun materi tersebuat adalah tentang " Membuat Aplikasi Program Nilai Mahasiswa dengan Menggunakan Listview pada Vb.Net ". Adapun tampilan Aplikasi tersebuat adalah seperti dibawah ini :

Gambar diatas merupakan tampilan dari Aplikasi Program Nilai Mahasiswa

Dan berikut ini adalah Listing Program Nilai Mahasiswa :

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("12110044")
        npm.Items.Add("12110033")
        npm.Items.Add("12110022")

        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 = "12110044" Then
            nama.Text = "Devi afnita"
            jenjang.Text = "MI"
            jurusan.Text = "Teknik Informatika"
        ElseIf npm.Text = "12110033" Then
            nama.Text = "Erniyati Situmorang"
            jenjang.Text = "D3"
            jurusan.Text = "Manajemen Informatika"
        Else
            nama.Text = "Rini Astuti"
            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