Form Nilai Mahasiswa dengan menggunakan LISTVIEW

Listing Programnya :

Public Class Form4

    Sub buattabel()

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

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

        LV.Columns.Add("Jenjang", 50, HorizontalAlignment.Left)

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

        LV.Columns.Add("Nama Dosen", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Mata Kuliah", 100, 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)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = NPM.Text

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(Jenjang.Text)

        lst.SubItems.Add(Jurusan.Text)

        lst.SubItems.Add(NamaDosen.Text)

        lst.SubItems.Add(MataKuliah.Text)

        lst.SubItems.Add(NilaiAkhir.Text)

        lst.SubItems.Add(NIlaiHuruf.Text)

        lst.SubItems.Add(Keterangan.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

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

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110695"

                Nama.Text = "Munawar Khalil"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110741"

                Nama.Text = "Rinaldi Jambak"

                Jenjang.Text = "D3"

                Jurusan.Text = "MI"

            Case "12110574"

                Nama.Text = "Rinaldi Kurniawan"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110927"

                Nama.Text = "Buyung Alamsyah Saputra"

                Jenjang.Text = "S1"

                Jurusan.Text = "SI"

            Case "1202208"

                Nama.Text = "Melly Fersi Fera"

                Jenjang.Text = "D3"

                Jurusan.Text = "KA"

        End Select

    End Sub

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

        buattabel()

        NPM.Items.Add("12110574")

        NPM.Items.Add("12110695")

        NPM.Items.Add("12110741")

        NPM.Items.Add("12110927")

        NPM.Items.Add("1202208")

        Dim i As Integer

        For i = 100 To 1 Step -5

            NilaiKehadiran.Items.Add(i)

        Next

        For i = 100 To 1 Step -5

            NilaiTugas.Items.Add(i)

        Next

        For i = 100 To 1 Step -5

            NilaiUTS.Items.Add(i)

        Next

        For i = 100 To 1 Step -5

            NilaiUAS.Items.Add(i)

        Next i

        KodeMataKuliah.Items.Add("123")

        KodeMataKuliah.Items.Add("456")

        KodeMataKuliah.Items.Add("789")

        KodeMataKuliah.Items.Add("012")

        KodeDosen.Items.Add("012")

        KodeDosen.Items.Add("345")

        KodeDosen.Items.Add("678")

        KodeDosen.Items.Add("901")

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text

        Select Case NilaiAkhir.Text

            Case Is >= 80

                NIlaiHuruf.Text = "A"

                Keterangan.Text = "LULUS"

            Case 70 To 79

                NIlaiHuruf.Text = "B"

                Keterangan.Text = "LULUS"

            Case 60 To 69

                NIlaiHuruf.Text = "C"

                Keterangan.Text = "GAGAL"

            Case 50 To 59

                NIlaiHuruf.Text = "D"

                Keterangan.Text = "GAGAL"

            Case Is <= 49

                NIlaiHuruf.Text = "E"

                Keterangan.Text = "GAGAL"

        End Select

        NilaiAkhir.Enabled = False

        isitabel()

        NIlaiHuruf.Text = ""

        Keterangan.Text = ""

        Nama.Text = ""

        NPM.Text = ""

        Jurusan.Text = ""

        Jenjang.Text = ""

        NamaDosen.Text = ""

        NilaiAkhir.Text = ""

        MataKuliah.Text = ""

        NilaiKehadiran.Text = ""

        NilaiTugas.Text = ""

        NilaiUTS.Text = ""

        NilaiUAS.Text = ""

        KodeDosen.Text = ""

        KodeMataKuliah.Text = ""

    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged

        Select Case KodeMataKuliah.Text

            Case "123"

                MataKuliah.Text = "Visual Basic"

            Case "456"

                MataKuliah.Text = "Matriks"

            Case "789"

                MataKuliah.Text = "arsitektur dan organisasi kom"

            Case "012"

                MataKuliah.Text = "struktur data"

        End Select

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged

        Select Case KodeDosen.Text

            Case "012"

                NamaDosen.Text = "Mesran"

            Case "345"

                NamaDosen.Text = "Kennedi Tampubolon"

            Case "678"

                NamaDosen.Text = "Pilipus tarigan."

            Case "901"

                NamaDosen.Text = "alex riki s."

        End Select

    End Sub

    Private Sub NilaiAkhir_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiAkhir.KeyPress

        If Asc(e.KeyChar) = 13 Then

            NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text

            NilaiAkhir.Enabled = False

        End If

    End Sub

End Class