Jawaban QUIZ NO 2

Listing Program

Public Class Form1
    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun Masuk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Angka", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 50, 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(Tahun.Text)
        lst.SubItems.Add(Angka.Text)
        lst.SubItems.Add(Huruf.Text)
        LV.Items.Add(lst)
    End Sub

    Sub clearisian()
        NPM.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Tahun.Text = ""
        Angka.Text = ""
        Huruf.Text = ""
        NPM.Focus()

    End Sub

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

    End Sub

    Private Sub NPM_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NPM.KeyPress

        Dim xNPM As String
        Tahun.Text = "20" &
        Microsoft.VisualBasic.Left(NPM.Text, 2)
        xNPM = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)

        If xNPM = "1" Then
            Jenjang.Text = "Diploma I"
        ElseIf xNPM = "3" Then
            Jenjang.Text = "Diploma III"
        ElseIf xNPM = "4" Then
            Jenjang.Text = "Strata I"
        End If

        xNPM = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)

        If xNPM = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf xNPM = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf xNPM = "03" Then
            Jurusan.Text = "Tehnik Informatika"
        ElseIf xNPM = "04" Then
            Jurusan.Text = "Akuntansi"
        End If

      
    End Sub

    Private Sub Tahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tahun.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Angka.Text = Huruf.Text
        End If
    End Sub

    Private Sub Angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Angka.KeyPress
        Select Case Angka.Text
            Case Is >= 80
                Huruf.Text = "A"
            Case 70 To 79
                Huruf.Text = "B"
            Case 60 To 69
                Huruf.Text = "c"
            Case 50 To 59
                Huruf.Text = "D"
            Case Is <= 49
                Huruf.Text = "E"

        End Select

    End Sub


    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
        isitabel()
        NPM.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Tahun.Text = ""
        Angka.Text = ""
        Huruf.Text = ""
    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub cmdhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapusdata.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click
        End
    End Sub
End Class

Hasil Program

LINK SOAL