Jawaban No 2 (adlinhasibuan)

Kasus : Lihat di sini KASUS

Public Class Form1

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

        bersih()

        RancangTabel()

    End Sub

    Sub bersih()

        NPM.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        tahun.Text = ""

        nilai_angka.Text = ""

        Nilai_Huruf.Text = ""

    End Sub

    Sub RancangTabel()

        With LV

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

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

            .Columns.Add("Jurusan", 100, HorizontalAlignment.Left)

            .Columns.Add("Jenjang", 100, HorizontalAlignment.Left)

            .Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)

            .Columns.Add("Nilai Angka", 90, HorizontalAlignment.Center)

            .Columns.Add("Nilai Huruf", 90, HorizontalAlignment.Center)

            .GridLines = True

            .FullRowSelect = True

            .View = View.Details

        End With

    End Sub

    Sub IsiTabel()

        Dim ist As New ListViewItem

        With ist

            .Text = npm.Text

            .SubItems.Add(nama.Text)

            .SubItems.Add(jurusan.Text)

            .SubItems.Add(jenjang.Text)

            .SubItems.Add(tahun.Text)

            .SubItems.Add(nilai_angka.Text)

            .SubItems.Add(nilai_huruf.Text)

            lv.Items.Add(ist)

        End With

    End Sub

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

        Dim x As String

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

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

        If x = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf x = "21" Then

            jurusan.Text = "Sistem Informasi"

        ElseIf x = "31" Then

            jurusan.Text = "Manajemen Informatika"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)

        If x = "1" Then

            jenjang.Text = "Strata I"

        ElseIf x = "2" Then

            jenjang.Text = "Diploma III"

        ElseIf x = "3" Then

            jenjang.Text = "Diploma I"

        End If

    End Sub

    Private Sub nilai_angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilai_angka.TextChanged

        Select Case nilai_angka.Text

            Case Is >= 80

                nilai_huruf.Text = "A"

            Case 70 To 79

                nilai_huruf.Text = "B"

            Case 60 To 69

                nilai_huruf.Text = "C"

            Case 50 To 59

                nilai_huruf.Text = "D"

            Case Is <= 49

                nilai_huruf.Text = "E"

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        IsiTabel()

        bersih()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        tahun.Text = ""

        nilai_angka.Text = ""

        nilai_huruf.Text = ""

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        bersih()

    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

        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

End Class