Membuat Aplikasi Program Nilai Mahasiswa dengan Menggunakan Listview pada Vb.Net

Assalmu'alaikum........

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 = "Chanif Arvani"
            jenjang.Text = "S1"
            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

Demikianlah Artikel Membuat Aplikasi Program Nilai Mahasiswa dengan Menggunakan Listview pada Vb.Net semoga bermanfaat bagi teman teman sekalian.

Wassalmu'alikum,,,,,,,,,,,,,,,,,,,a