KUIS ONLINE FORM NILAI MAHASISWAAAA

Hasil Output Programnya:

Listing Programnya sebagai berikut:

 LV.Columns.Add("NPM", 60, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 60, HorizontalAlignment.Left)
        LV.Columns.Add("JENJANG", 60, HorizontalAlignment.Right)
        LV.Columns.Add("JURUSAN", 60, HorizontalAlignment.Right)
        LV.Columns.Add("KDDOSEN", 60, HorizontalAlignment.Right)
        LV.Columns.Add("NDOSEN", 60, HorizontalAlignment.Right)
        LV.Columns.Add("NMTKULIAH", 60, HorizontalAlignment.Right)
        LV.Columns.Add("NHADIR", 60, HorizontalAlignment.Right)
        LV.Columns.Add("NTUGAS", 60, HorizontalAlignment.Right)
        LV.Columns.Add("NUTS", 60, HorizontalAlignment.Right)
        LV.Columns.Add("NA", 60, HorizontalAlignment.Right)
        LV.Columns.Add("NHURUF", 60, HorizontalAlignment.Right)
        LV.Columns.Add("KET", 60, HorizontalAlignment.Right)
        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(Jenjang.Text)
        Lst.SubItems.Add(jurusan.Text)
        Lst.SubItems.Add(kddosen.Text)
        Lst.SubItems.Add(NDosen.Text)
        Lst.SubItems.Add(Nmtkuliah.Text)
        Lst.SubItems.Add(Nhadir.Text)
        Lst.SubItems.Add(Ntugas.Text)
        Lst.SubItems.Add(NUTS.Text)
        Lst.SubItems.Add(NA.Text)
        Lst.SubItems.Add(NHuruf.Text)
        Lst.SubItems.Add(Ket.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110261"
                Nama.Text = "AJENG "
            Case "13110311"
                Nama.Text = "anna "
            Case "13112411"
                Nama.Text = "putri"
        End Select

        Dim x, y As String
        x = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)
        y = Microsoft.VisualBasic.Mid(NPM.Text, 6, 1)
        Select Case x
            Case "11"
                Jenjang.Text = "S1"
            Case "10"
                Jenjang.Text = "S1"
            Case "12"
                Jenjang.Text = "D1"
        End Select

        Select Case y
            Case "2" '
                Jurusan.Text = "Tehnik Informatika"
            Case "3"
                Jurusan.Text = "Managemen Informatika"
            Case "4"
                Jurusan.Text = "Teknisi Komputer"
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        NPM.Items.Add("12110261")
        NPM.Items.Add("13110311")
        NPM.Items.Add("13112411")
        kddosen.Items.Add("07111001")
        kddosen.Items.Add("07111002")
        kddosen.Items.Add("07133003")
        kdmtkuliah.Items.Add("01")
        kdmtkuliah.Items.Add("02")
        kdmtkuliah.Items.Add("03")
        Dim i As Integer
        For i = 1 To 100
            Nhadir.Items.Add(i)
            NUAS.Items.Add(i)
            Ntugas.Items.Add(i)
            NUTS.Items.Add(i)
        Next

    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
        Select Case kddosen.Text
            Case "07111001"
                NDosen.Text = "Abdul"
            Case "07111002"
                NDosen.Text = "Alex"
            Case "07133003"
                NDosen.Text = "Garuda"

        End Select
    End Sub

    Private Sub kdmtkuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmtkuliah.SelectedIndexChanged
        Select Case kdmtkuliah.Text
            Case "01"
                Nmtkuliah.Text = "Visual Basic"
            Case "02"
                Nmtkuliah.Text = "Pemrograman Visual"
            Case "03"
                Nmtkuliah.Text = "Mandarin"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        NA.Text = Val(0.1 * Nhadir.Text) + Val(0.15 * Ntugas.Text) + Val(0.3 * NUTS.Text) + Val(0.45 * NUAS.Text)
        Select Case NA.Text
            Case Is >= 80
                NHuruf.Text = "A"
            Case Is >= 70
                NHuruf.Text = "B"
            Case Is >= 50
                NHuruf.Text = "C"
            Case Is >= 30
                NHuruf.Text = "D"
            Case Else
                NHuruf.Text = "E"

  End Select
        Select Case NA.Text
            Case Is >= 50
                Ket.Text = "LULUS"
            Case Else
                Ket.Text = "GAGAL"
        End Select
    End Sub

  Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        kddosen.Text = ""
        NDosen.Text = ""
        kdmtkuliah.Text = ""
        Nmtkuliah.Text = ""
        Nhadir.Text = ""
        Ntugas.Text = ""
        NUTS.Text = ""
        NUAS.Text = ""
        NA.Text = ""
        NHuruf.Text = ""
        Ket.Text = ""
    End Sub

   
    Private Sub btnKeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Close()
    End Sub
 
 Private Sub BTNSIMPANKELISTVIEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPANKELISTVIEW.Click
        isitabel()
        NPM.Text = " "
        Nama.Text = " "
        Jenjang.Text = " "

    End Sub
End Class