Jawaban No 2 (DANIEL)

KASUS : KLIK DISINI 

Public Class Form1

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

        Call buatTable()

    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged

        Call addjurusan()

        Call addjenjang()

        Call addtahun()

    End Sub

    Private Sub nAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nAngka.TextChanged

        Call addnhuruf()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        Call isiTable()

        Call bersih()

    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

        Call bersih()

    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click

        LV.Items.Clear()

    End Sub

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

        On Error Resume Next

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

    End Sub

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

        End

    End Sub

    Sub addjurusan()

        Select Case Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

            Case "11"

                jurusan.Text = "Teknik Informatika"

            Case "12"

                jurusan.Text = "Sistem Informatika"

            Case "13"

                jurusan.Text = "Manajemen Informatika"

        End Select

    End Sub

    Sub addjenjang()

        Select Case Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

            Case "1"

                jenjang.Text = "S1"

            Case "2"

                jenjang.Text = "D3"

            Case "3"

                jenjang.Text = "D1"

        End Select

    End Sub

    Sub addtahun()

        thnMasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

    End Sub

    Sub addnhuruf()

        On Error Resume Next

        If nAngka.Text >= 80 Then

            nHuruf.Text = "A"

        ElseIf nAngka.Text >= 70 Then

            nHuruf.Text = "B"

        ElseIf nAngka.Text >= 60 Then

            nHuruf.Text = "C"

        ElseIf nAngka.Text >= 50 Then

            nHuruf.Text = "D"

        ElseIf nAngka.Text < 50 Then

            nHuruf.Text = "E"

        End If

    End Sub

    Sub buatTable()

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

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

        LV.Columns.Add("Jurusan", 150, HorizontalAlignment.Left)

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

        LV.Columns.Add("Tahun Masuk", 90, HorizontalAlignment.Left)

        LV.Columns.Add("Nilai Angka", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Huruf", 70, 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(jurusan.Text)

        lst.SubItems.Add(jenjang.Text)

        lst.SubItems.Add(thnMasuk.Text)

        lst.SubItems.Add(nAngka.Text)

        lst.SubItems.Add(nHuruf.Text)

        LV.Items.Add(lst)

    End Sub

    Sub bersih()

        npm.Text = ""

        nama.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        thnMasuk.Text = ""

        nAngka.Text = ""

        nHuruf.Text = ""

        npm.Focus()

    End Sub

End Class