Jawaban No. 2 Quiz Online Sepdiarina

Public Class Form1

 

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

        End

    End Sub

    Private Sub cmd_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_semua.Click

        lv.Items.Clear()

    End Sub

    Private Sub cmd_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_hapus.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub cmd_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_bersih.Click

        npm.Text = ""

        nm.Text = ""

        jur.Text = ""

        jenjang.Text = ""

        thn.Text = ""

        nilai_angka.Text = ""

        nilai_huruf.Text = ""

    End Sub

    Sub buattabel()

        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)

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

        lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)

        lv.Columns.Add("Tahun Masuk", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Nilai Angka", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Nilai Huruf", 120, 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(nm.Text)

        lst.SubItems.Add(jur.Text)

        lst.SubItems.Add(jenjang.Text)

        lst.SubItems.Add(thn.Text)

        lst.SubItems.Add(nilai_angka.Text)

        lst.SubItems.Add(nilai_huruf.Text)

        lv.Items.Add(lst)

    End Sub

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

        buattabel()

        Call listnpm()

        npm.Focus()

    End Sub

    Sub listnpm()

        npm.Items.Add("0911213")

        npm.Items.Add("0911319")

        npm.Items.Add("1009215")

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        If npm.Text = "0911213" Then

            nm.Text = " Tia"

        ElseIf npm.Text = "0890763" Then

            nm.Text = " lia"

        ElseIf npm.Text = "0911319" Then

            nm.Text = "tukiyem"

        End If

        Dim x As String

        thn.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "1" Then

            jenjang.Text = "Diploma I"

        ElseIf x = "3" Then

            jenjang.Text = "Diploma III"

        ElseIf x = "4" Then

            jenjang.Text = "Strata I"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If x = "12" Then

            jur.Text = "Manajemen Informatika"

        ElseIf x = "13" Then

            jur.Text = "Sistem Informatika"

        ElseIf x = "03" Then

            jur.Text = "Teknik Komputer"

        ElseIf x = "04" Then

            jur.Text = "Akutansi"

        End If

    End Sub

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

        If e.KeyChar = Chr(13) Then

            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 >= 40 Then

                nilai_huruf.Text = "D"

            ElseIf nilai_angka.Text < 40 Then

                nilai_huruf.Text = "E"

            End If

        End If

    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub cmd_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_simpan.Click

        isitabel()

        npm.Text = ""

        nm.Text = ""

        jur.Text = ""

        jenjang.Text = ""

        thn.Text = ""

        nilai_angka.Text = ""

        nilai_huruf.Text = ""

    End Sub

End Class