Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Sukhairani"

        Buattabel()
    End Sub
    Sub Buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun Masuk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Angka", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 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(Jurusan.Text)
        LST.SubItems.Add(Jenjang.Text)
        LST.SubItems.Add(TMasuk.Text)
        LST.SubItems.Add(NAngka.Text)
        LST.SubItems.Add(NHuruf.Text)
        LV.Items.Add(LST)
    End Sub
    Sub smpn(ByVal t As Form)
        NPM.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        TMasuk.Text = ""
        NAngka.Text = ""
        NHuruf.Text = ""
    End Sub

    Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged
        Select Case NPM.Text
            Case 1111047
                Nama.Text = "sukhairani"
            Case 1111046
                Nama.Text = "dwi nofira"
        End Select
    End Sub

    Private Sub Bntsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bntsimpan.Click
        ISITABEL()
        smpn(Me)
    End Sub

    Private Sub NAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NAngka.TextChanged
        Select Case NAngka.Text
            Case Is >= 80
                NHuruf.Text = "A"
            Case 70 To 79
                NHuruf.Text = "B"
            Case 60 To 69
                NHuruf.Text = "C"
            Case 50 To 59
                NHuruf.Text = "D"
            Case Is <= 49
                NHuruf.Text = "E"
        End Select
    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 Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        NPM.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        TMasuk.Text = ""
        NAngka.Text = ""
        NHuruf.Text = ""
    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Dim x As String
        x = Microsoft.VisualBasic.Left(NPM.Text, 2)
        If x = "10" Then
            TMasuk.Text = "2011"
        ElseIf x = "13" Then
            TMasuk.Text = "2010"
        ElseIf x = "11" Then
            TMasuk.Text = "2013"
        End If
        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
        If x = "1" Then
            Jenjang.Text = "Strata I"
        ElseIf x = "2" Then
            Jenjang.Text = "Diploma III"
        ElseIf x = "3" Then
            Jenjang.Text = "Diplama I"
        End If
        x = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)
        If x = "01" Then
            Jurusan.Text = "S. Informasi"
        ElseIf x = "02" Then
            Jurusan.Text = "M. Informatika"
        ElseIf x = "03" Then
            Jurusan.Text = "T. Komputer"
        End If
    End Sub

    Private Sub Nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.TextChanged

    End Sub
End Class