Jawaban Soal 2 (Yusuf fahlevi)

Kasus:

Kasus Soal no.2 (klik disini)

“List View”

Listing Program:

Public Class frmMahasiswa

    Private Sub btnSelesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelesai.Click

        End

    End Sub

    Sub Proses()

        Dim xJenjang, xJurusan As String

        txtTahun.Text = "20" & Microsoft.VisualBasic.Left(txtNPM.Text, 2)

        xJenjang = Microsoft.VisualBasic.Mid(txtNPM.Text, 3, 1)

        If xJenjang = "0" Then

            txtJenjang.Text = "Diploma-III"

        ElseIf xJenjang = "1" Then

            txtJenjang.Text = "Strata-I"

        Else

            txtJenjang.Text = ""

        End If

        xJurusan = Microsoft.VisualBasic.Mid(txtNPM.Text, 4, 2)

        If xJurusan = "20" Then

            txtJurusan.Text = "Manajemen Informatika"

        ElseIf xJurusan = "10" Then

            txtJurusan.Text = "Teknik Informatika"

        ElseIf xJurusan = "11" Then

            txtJurusan.Text = "Sistem Informasi"

        Else

            txtJurusan.Text = ""

        End If

    End Sub

    Sub CariAbjad()

        If txtNilai.Text >= 80 Then

            txtHuruf.Text = "A"

        ElseIf txtNilai.Text >= 75 Then

            txtHuruf.Text = "B+"

        ElseIf txtNilai.Text >= 70 Then

            txtHuruf.Text = "B"

        ElseIf txtNilai.Text >= 65 Then

            txtHuruf.Text = "C+"

        ElseIf txtNilai.Text >= 60 Then

            txtHuruf.Text = "C"

        ElseIf txtNilai.Text >= 50 Then

            txtHuruf.Text = "D"

        Else

            txtHuruf.Text = "E"

        End If

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Call CariAbjad()

            btnSimpan.Focus()

        End If

    End Sub

    Sub BuatTabel()

        LV.Columns.Add("NPM", 60, HorizontalAlignment.Left)

        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)

        LV.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jenjang", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Tahun", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai", 50, HorizontalAlignment.Center)

        LV.Columns.Add("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 = txtNPM.Text

        Lst.SubItems.Add(txtNama.Text)

        Lst.SubItems.Add(txtJurusan.Text)

        Lst.SubItems.Add(txtJenjang.Text)

        Lst.SubItems.Add(txtTahun.Text)

        Lst.SubItems.Add(txtNilai.Text)

        Lst.SubItems.Add(txtHuruf.Text)

        LV.Items.Add(Lst)

    End Sub

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

        BuatTabel()

        txtNPM.Focus()

    End Sub

    Sub HapusIsian()

        txtNPM.Text = ""

        txtNama.Text = ""

        txtJurusan.Text = ""

        txtJenjang.Text = ""

        txtTahun.Text = ""

        txtNilai.Text = ""

        txtHuruf.Text = ""

        txtNPM.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        IsiTabel()

        HapusIsian()

    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnHapusSatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSatu.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

        HapusIsian()

    End Sub

    Private Sub txtNPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNPM.TextChanged

        Call Proses()

    End Sub

End Class

Hasil Program: