Jawaban Quiz no.2

Share

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("0911522")

       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_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 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 :