Mungkin Artikel MEMBUAT PROGRAM DAFTAR NILAI MAHASISWA DI VB.NET 2008 sudah banyak tersebar di Dunia Internet tapi saya akan mencoba membagikannya kembali untuk para pengunjung Blog saya :) . Yuk kita langsung saja ke Koding yah :) :)

Public Class Form1

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub
    Sub buattabel()
        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Mata Kuliah", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UTS", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UAS", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Angka", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Huruf", 150, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(makul.Text)

        lst.SubItems.Add(uts.Text)
        lst.SubItems.Add(uas.Text)
        lst.SubItems.Add(angka.Text)
        lst.SubItems.Add(huruf.Text)
        lv.Items.Add(lst)
    End Sub

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

        makul.Items.Add("C Sharp")
        makul.Items.Add("VB.NET")
        makul.Items.Add("Basis Data")

        For i = 100 To 50 Step -5
            uts.Items.Add(i)
            uas.Items.Add(i)

        Next i

        npm.Items.Add("13110126")
        npm.Items.Add("13110127")
        npm.Items.Add("13110128")

        makul.Items.Add("Konsep Pemograman")
        makul.Items.Add("Teknik Digital")
        makul.Items.Add("Visual Basic")
        makul.Items.Add("Komunikasi Data")
    End Sub

    Private Sub isilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isilist.Click
        Call isitable()
        npm.Text = ""
        nama.Text = ""
        makul.Text = ""
        uts.Text = ""
        uas.Text = ""
        angka.Text = ""
        huruf.Text = ""
    End Sub

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

    Private Sub hapuslis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuslis.Click
        lv.Items.Clear()
    End Sub

    Private Sub hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdata.Click
        npm.Text = ""
        nama.Text = ""
        makul.Text = ""
        uts.Text = ""
        uas.Text = ""
        angka.Text = ""
        huruf.Text = ""
    End Sub

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

        If npm.Text = "13110126" Then

            nama.Text = "Ucok"

        ElseIf npm.Text = "13110127" Then
            nama.Text = "Butet"
        Else
            nama.Text = " Rahayu"
        End If
    End Sub

    Private Sub uts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uts.SelectedIndexChanged
        uts.Text = uts.Text * "0.30"
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        angka.Text = 0.4 * uts.Text + 0.6 * uas.Text
        If angka.Text >= 80 Then
            huruf.Text = "A"
        ElseIf angka.Text >= 70 Then
            huruf.Text = "B"
        ElseIf angka.Text >= 60 Then
            huruf.Text = "C"
        ElseIf angka.Text >= 50 Then
            huruf.Text = "D"
        ElseIf angka.Text >= 40 Then
            huruf.Text = "E"
        End If

    End Sub
End Class

Oke terimakasih atas kunjungannya, Semoga Postingan MEMBUAT PROGRAM DAFTAR NILAI MAHASISWA DI VB.NET 2008 ini bermanfaat.
Selamat mencoba!!!