Nilai Mahasiswa dengan List View

Public Class Form1

    Sub BuatTabel()

        LV1.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        LV1.Columns.Add("Nama", 180, HorizontalAlignment.Left)

        LV1.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Right)

        LV1.Columns.Add("Nama Dosen", 180, HorizontalAlignment.Right)

        LV1.Columns.Add("Kode MataKuliah", 80, HorizontalAlignment.Right)

        LV1.Columns.Add("Matakuliah", 180, HorizontalAlignment.Right)

        LV1.Columns.Add("Nilai UAS", 50, HorizontalAlignment.Right)

        LV1.Columns.Add("Nilai Hadir", 50, HorizontalAlignment.Right)

        LV1.Columns.Add("Nilai UTS", 50, HorizontalAlignment.Right)

        LV1.Columns.Add("Nilai Tugas", 50, HorizontalAlignment.Right)

        LV1.Columns.Add("Nilai Akhir", 50, HorizontalAlignment.Right)

        LV1.Columns.Add("Nilai Huruf", 50, HorizontalAlignment.Right)

        LV1.Columns.Add("Keterangan", 50, HorizontalAlignment.Right)

        LV1.View = View.Details

        LV1.GridLines = True

        LV1.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = npm.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(Kd_dosen.Text)

        Lst.SubItems.Add(nama_dosen.Text)

        Lst.SubItems.Add(kd_makul.Text)

        Lst.SubItems.Add(makul.Text)

        Lst.SubItems.Add(hadir.Text)

        Lst.SubItems.Add(uas.Text)

        Lst.SubItems.Add(tugas.Text)

        Lst.SubItems.Add(uts.Text)

        Lst.SubItems.Add(akhir.Text)

        Lst.SubItems.Add(Huruf.Text)

        Lst.SubItems.Add(keterangan.Text)

        LV1.Items.Add(Lst)

    End Sub

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

        BuatTabel()

        npm.Items.Add("12110071")

        npm.Items.Add("12120019")

        npm.Items.Add("12130017")

        Kd_dosen.Items.Add("2011001")

        Kd_dosen.Items.Add("2011002")

        Kd_dosen.Items.Add("2011003")

        kd_makul.Items.Add("VB1213")

        kd_makul.Items.Add("BD1213")

        kd_makul.Items.Add("SD1213")

        Dim nilai As Integer

        nilai = 1

        Do While nilai <= 100

            hadir.Items.Add(nilai)

            tugas.Items.Add(nilai)

            uas.Items.Add(nilai)

            uts.Items.Add(nilai)

            nilai = nilai + 1

        Loop

    End Sub

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

        Select Case npm.Text

            Case "12110071"

                nama.Text = "Ihsanuddin"

            Case "12120019"

                nama.Text = "Ratna Kumala"

            Case Else

                nama.Text = "Denny Kurniawan"

        End Select

    End Sub

    Private Sub Kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_dosen.SelectedIndexChanged

        Select Case Kd_dosen.Text

            Case "2011001"

                nama_dosen.Text = "Mesran S.Kom M.Kom"

            Case "2011002"

                nama_dosen.Text = "Pilipus S.Kom"

            Case "2011003"

                nama_dosen.Text = "Alex Rikki S.Kom M.Kom"

        End Select

    End Sub

    Private Sub kd_makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_makul.SelectedIndexChanged

        Select Case kd_makul.Text

            Case "VB1213"

                makul.Text = "Visual Basic"

            Case "DB1213"

                makul.Text = "Data Base"

            Case "SD1213"

                makul.Text = "Struktur Data"

        End Select

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        npm.Text = " "

        nama.Text = " "

        jenjang.Text = " "

        nama_dosen.Text = " "

        Kd_dosen.Text = " "

        kd_makul.Text = " "

        makul.Text = " "

        hadir.Text = " "

        tugas.Text = " "

        uts.Text = " "

        uas.Text = " "

        akhir.Text = " "

        Huruf.Text = " "

        keterangan.Text = " "

        jurusan.Text = " "

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        akhir.Text = 0.1 * hadir.Text + 0.15 * tugas.Text + 0.3 * uts.Text + 0.45 * uas.Text

        If akhir.Text >= 50 Then

            keterangan.Text = "lulus"

        Else

            keterangan.Text = "gagal"

        End If

        If akhir.Text >= "80" Then

            Huruf.Text = "A"

        ElseIf akhir.Text = "70" Then

            Huruf.Text = "B"

        ElseIf akhir.Text = "60" Then

            Huruf.Text = "C"

        ElseIf akhir.Text = "50" Then

            Huruf.Text = "D"

        ElseIf akhir.Text <= "50" Then

            Huruf.Text = "E"

        End If

        Dim x As String

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jenjang.Text = "S1"

        ElseIf x = "12" Then

            jenjang.Text = "D3"

        ElseIf x = "13" Then

            jenjang.Text = "D1"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf x = "12" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "13" Then

            jurusan.Text = "Teknik Komputer"

        End If

    End Sub

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

        End

    End Sub

    Private Sub simpan_LV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_LV.Click

        IsiTabel()

        npm.Text = ""

        nama.Text = ""

        Kd_dosen.Text = ""

        nama_dosen.Text = ""

        makul.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        hadir.Text = ""

        uts.Text = ""

        uas.Text = ""

        tugas.Text = ""

        akhir.Text = ""

        Huruf.Text = ""

        keterangan.Text = ""

    End Sub

End Class

ABOUT MESRAN.NET

Assalamualaikum Wr.Wb

Hai teman",,
Dalam kesempatan kali ini saya mau recommended kan website yang berbau dengan pemrograman, dimana mesran.net memberikan kepada para pembacanya pelajaran yang sangat menarik untuk di ikuti dan di pelajari. Bagi kamu yang suka dengan Pemrograman, kamu bisa mempelajarinya semua disini,,, karena ehh karena, di mesran.net pembelajaran tentang program cukup LENGKAP loohh,, di dalam nya ada :
VB.NET
PASCAL
ALGORITMA
C++
bagi kamu yang belum bergabung dengan mesran.net buruan,,, ingat yea bagi KAMU yang SUKA dengan PEMROGRAMAN masuk aja ke situs ini dijamin deh kamu akan dapat apa yang kamu cari di situs ini,,, beliau adalah dosen saya di STMIK BUDIDARMA, saya cukup bangga dapat belajar dengannya,, uraian darinya gak rumit dan gak berbelit-belit,, ada lagi ni teman, didalamnya juga ada cerita lucu, kejadian di dalam kampus,, bagi kamu, kamu, dan kamu, jangan tunggu lagi yea,,, God Luck Guys,,,,

Wassalam,,,

Tugas Pemrograman Visual Studio

Ini adalah hasil dari projek yang di jalankan.

Dan ini adalah cara atau jalan penegerjaannya. (rumusnya)

Public Class Form1

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

        npm.Items.Add("12110071")

        npm.Items.Add("12120019")

        npm.Items.Add("12130017")

        Kd_dosen.Items.Add("2011001")

        Kd_dosen.Items.Add("2011002")

        Kd_dosen.Items.Add("2011003")

        kd_makul.Items.Add("VB1213")

        kd_makul.Items.Add("BD1213")

        kd_makul.Items.Add("SD1213")

        Dim nilai As Integer

        nilai = 1

        Do While nilai <= 100

            hadir.Items.Add(nilai)

            tugas.Items.Add(nilai)

            uas.Items.Add(nilai)

            uts.Items.Add(nilai)

            nilai = nilai + 1

        Loop

    End Sub

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

        Select Case npm.Text

            Case "12110071"

                nama.Text = "Ihsanuddin"

            Case "12120019"

                nama.Text = "Ratna Kumala"

            Case Else

                nama.Text = "Denny Kurniawan"

        End Select

    End Sub

    Private Sub Kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_dosen.SelectedIndexChanged

        Select Case Kd_dosen.Text

            Case "2011001"

                nama_dosen.Text = "Mesran S.Kom M.Kom"

            Case "2011002"

                nama_dosen.Text = "Rivalry S.Kom"

            Case "2011003"

                nama_dosen.Text = "Alex Rikki S.Kom M.Kom"

        End Select

    End Sub

    Private Sub kd_makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_makul.SelectedIndexChanged

        Select Case kd_makul.Text

            Case "VB1213"

                makul.Text = "Visual Basic"

            Case "DB1213"

                makul.Text = "Data Base"

            Case "SD1213"

                makul.Text = "Struktur Data"

        End Select

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        npm.Text = " "

        nama.Text = " "

        jenjang.Text = " "

        nama_dosen.Text = " "

        Kd_dosen.Text = " "

        kd_makul.Text = " "

        makul.Text = " "

        hadir.Text = " "

        tugas.Text = " "

        uts.Text = " "

        uas.Text = " "

        akhir.Text = " "

        Huruf.Text = " "

        keterangan.Text = " "

        jurusan.Text = " "

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        akhir.Text = 0.1 * hadir.Text + 0.15 * tugas.Text + 0.3 * uts.Text + 0.45 * uas.Text

        If akhir.Text >= 50 Then

            keterangan.Text = "lulus"

        Else

            keterangan.Text = "gagal"

        End If

        If akhir.Text >= "80" Then

            Huruf.Text = "A"

        ElseIf akhir.Text = "70" Then

            Huruf.Text = "B"

        ElseIf akhir.Text = "60" Then

            Huruf.Text = "C"

        ElseIf akhir.Text = "50" Then

            Huruf.Text = "D"

        ElseIf akhir.Text <= "50" Then

            Huruf.Text = "E"

        End If

        Dim x As String

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jenjang.Text = "S1"

        ElseIf x = "12" Then

            jenjang.Text = "D3"

        ElseIf x = "13" Then

            jenjang.Text = "D1"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf x = "12" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "13" Then

            jurusan.Text = "Teknik Komputer"

        End If

    End Sub

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

        End

    End Sub

End Class