Soal No.2 Tugas Pratikum Nilai Mahasiswa (Pelajaran Di Kelas)

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("13110301")
        npm.Items.Add("13110310")
        npm.Items.Add("13110207")

        makul.Items.Add("Pemograman Visual")
        makul.Items.Add("Sistem Basis Data")
        makul.Items.Add("Sistem Operasi")

        Call BuatTabel()



    End Sub

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

    Private Sub hps_npm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_npm.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub hps_list_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_list.Click
        lv.Items.Clear()
    End Sub

    Private Sub hps_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_data.Click
        npm.Text = ""
        nama.Text = ""
        makul.Text = ""
        uts.Text = ""
        uas.Text = ""
        angka.Text = ""
        huruf.Text = ""
    End Sub

    Private Sub isi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isi.Click
        Call IsiTabel()
        npm.Text = ""
        nama.Text = ""
        makul.Text = ""
        uts.Text = ""
        uas.Text = ""
        angka.Text = ""
        huruf.Text = ""
    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(makul.Text)
        lst.SubItems.Add(uts.Text)
        lst.SubItems.Add(uas.Text)
        lst.SubItems.Add(angka.Text)
        lst.SubItems.Add(huruf.Text)
        lv.Items.Add(lst)
    End Sub
    Sub BuatTabel()
        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Mata Kuliah", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UAS", 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

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        angka.Text = 0.15 * uts.Text + 0.45 * uas.Text

        If angka.Text > 50 Then
            huruf.Text = "A"
        Else
            huruf.Text = "C"
        End If

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = 13110301 Then
            nama.Text = "SEPTI RAHMAT ZENDRATO"
        ElseIf npm.Text = 13110310 Then
            nama.Text = "YONISAH BARASA"
        Else
            nama.Text = "NURAINUN"
        End If
    End Sub
End Class