Yoseph Juli Christopher Sitanggang

Listing Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110569")
        NPM.Items.Add("12110789")
        NPM.Items.Add("12110278")
        NPM.Items.Add("12110111")

        KD.Items.Add("001")
        KD.Items.Add("002")
        KD.Items.Add("003")

        KM.Items.Add("101")
        KM.Items.Add("102")
        KM.Items.Add("103")
        Dim i As Integer
        For i = 0 To 100
            NK.Items.Add("" & i)
            NT.Items.Add("" & i)
            NUTS.Items.Add("" & i)
            NUAS.Items.Add("" & i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110569"
                Nama.Text = " Joseph Sitanggang"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "12110789"
                Nama.Text = " Aveiro Santos"
                Jenjang.Text = "D3"
                Jurusan.Text = "Komputerisasi Akuntansi"
            Case "12110278"
                Nama.Text = " Eryawan Rifaldi"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "12110111"
                Nama.Text = " Rizky Ananda"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"


        End Select
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
        Select Case KD.Text
            Case "001"
                ND.Text = "Mesran, M.kom"
            Case "002"
                ND.Text = "Tonni Limbong, M.kom"
            Case "003"
                ND.Text = "Hery Sunandar, ST, M.kom"

        End Select
    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KM.SelectedIndexChanged
        Select Case KM.Text
            Case "101"
                Matakuliah.Text = "Pemrograman Visual"
            Case "102"
                Matakuliah.Text = "Sistem Basis Data"
            Case "103"
                Matakuliah.Text = "Matriks"
        End Select

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If NA.Text >= 80 Then
            NH.Text = "A"
        ElseIf NA.Text > 70 Then
            NH.Text = "B"
        ElseIf NA.Text >= 60 Then
            NH.Text = "C"
        ElseIf NA.Text >= 50 Then
            NH.Text = "D"
        Else
            NH.Text = "E"
        End If
        If NA.Text >= 50 Then

            Ket.Text = "LULUS"
        Else
            Ket.Text = "GAGAL"
        End If
    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 = ""
        KD.Text = ""
        ND.Text = ""
        KM.Text = ""
        NK.Text = ""
        NT.Text = ""
        NUTS.Text = ""
        NUAS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Ket.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class




Hasil jadi setelah memasukkan Listing Program