Jawaban Soal No.2 (Tohap Parulian Siregar)

Kasus: Lihat di sini

Public Class Form1

    Sub Buattabel()
        LV.Columns.Add("Npm", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Jurusan", 180, 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(Tahun_masuk.Text)
        lst.SubItems.Add(Nilai_angka.Text)
        lst.SubItems.Add(Nilai_huruf.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        If Nilai_Angka.Text >= 80 Then

            Nilai_huruf.Text = "A"

        ElseIf Nilai_Angka.Text >= 70 Then

            Nilai_huruf.Text = "B"

        ElseIf Nilai_Angka.Text >= 60 Then

            Nilai_huruf.Text = "C"

        ElseIf Nilai_Angka.Text >= 50 Then

            Nilai_huruf.Text = "D"

        Else

            Nilai_huruf.Text = "E"

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Buattabel()
    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 = ""
        Tahun_masuk.Text = ""
        Nilai_Angka.Text = ""
        Nilai_huruf.Text = ""
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        isitabel()
        Npm.Text = ""
        nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Tahun_masuk.Text = ""
        Nilai_Angka.Text = ""
        Nilai_huruf.Text = ""
    End Sub

    Private Sub BtnHapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus_semua.Click
        LV.Items.Clear()
        Npm.Focus()
    End Sub

    Private Sub BtnHapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus_data.Click
        LV.Items.Remove(LV.SelectedItems(0))
        Npm.Focus()
    End Sub

    Private Sub Npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.TextChanged
        Dim vjen As String
        Dim vjur As String
        Tahun_masuk.Text = "20″"
        Microsoft.VisualBasic.Left(Npm.Text, 2)
        vjen = Microsoft.VisualBasic.Mid(Npm.Text, 3, 1)
        If vjen = "1" Then
            Jenjang.Text = "Diploma III"
        ElseIf vjen = "2" Then
            Jenjang.Text = "strata I"
        ElseIf vjen = "3" Then
            Jenjang.Text = "Diploma I"
        End If
        vjur = Microsoft.VisualBasic.Mid(Npm.Text, 4, 1)

        If vjur = "1" Then
            Jurusan.Text = "Teknik Informatika"
        ElseIf vjur = "2" Then
            Jurusan.Text = "Manajemen Informatika"
        End If
    End Sub

    Private Sub Nilai_Angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nilai_Angka.TextChanged
        Dim tombol As Integer = Asc("e.KeyChar")

        If tombol = 13 Then

            Btnproses_Click(sender, e)

        End If
    End Sub

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