Jawaban Quiz No.2

- LISTING PROGRAM :

Public Class Form1
    Sub TABEL()
        LV.Columns.Add("NPM", 100, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("JURUSAN", 110, HorizontalAlignment.Left)
        LV.Columns.Add("JENJANG", 120, HorizontalAlignment.Left)
        LV.Columns.Add("TAHUN MASUK", 120, HorizontalAlignment.Left)
        LV.Columns.Add("NILAI ANGKA", 120, HorizontalAlignment.Left)
        LV.Columns.Add("NILAI HURUF", 120, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim TBL As New ListViewItem
        TBL.Text = NPM.Text
        TBL.SubItems.Add(NAMA.Text)
        TBL.SubItems.Add(JURUSAN.Text)
        TBL.SubItems.Add(JENJANG.Text)
        TBL.SubItems.Add(T_MASUK.Text)
        TBL.SubItems.Add(N_ANGKA.Text)
        TBL.SubItems.Add(N_HURUF.Text)
        LV.Items.Add(TBL)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TABEL()

        NPM.Items.Add("0911534")
        NPM.Items.Add("0831533")
        NPM.Items.Add("1021678")
        NPM.Items.Add("0701655")
    End Sub

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

    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        ISITABEL()
        NPM.Text = ""
        NAMA.Text = ""
        JURUSAN.Text = ""
        JENJANG.Text = ""
        T_MASUK.Text = ""
        'N_ANGKA.Text = ""
        N_HURUF.Text = ""

    End Sub

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

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

    Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim xnpm As String
        xnpm = Microsoft.VisualBasic.Left(NPM.Text, 2)
        Select Case xnpm
            Case "09"
                T_MASUK.Text = "2009"
            Case "08"
                T_MASUK.Text = "2008"
            Case "10"
                T_MASUK.Text = "2010"
            Case "07"
                T_MASUK.Text = "2007"



        End Select
        xnpm = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
        Select Case xnpm
            Case "1"
                JENJANG.Text = "Strata I"
            Case "3"
                JENJANG.Text = "Diploma III"
            Case "2"
                JENJANG.Text = "Diploma II"
            Case "0"
                JENJANG.Text = "Diploma I"
        End Select
        xnpm = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        If xnpm = "11" Then
            JURUSAN.Text = "Teknik Informatika"
        ElseIf xnpm = "31" Then
            JURUSAN.Text = "Manajemen Informatika"
        ElseIf xnpm = "21" Then
            JURUSAN.Text = "Komputerisasi Akuntansi"
        ElseIf xnpm = "01" Then
            JURUSAN.Text = "Sistem Informasi"
        End If
    End Sub

    Private Sub N_ANGKA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N_ANGKA.TextChanged
       
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If N_ANGKA.Text >= 80 Then
            N_HURUF.Text = "A"
        ElseIf N_ANGKA.Text >= 70 Then
            N_HURUF.Text = "B"
        ElseIf N_ANGKA.Text >= 60 Then
            N_HURUF.Text = "C"
        ElseIf N_ANGKA.Text >= 50 Then
            N_HURUF.Text = "D"
        Else
            N_ANGKA.Text = "E"
        End If
    End Sub
End Class

- HASIL PROGRAM :