Dwi Nur'aini

Tampilan awal program :



Dan berikut listing programnya :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110381")
        NPM.Items.Add("12110382")
        NPM.Items.Add("12110383")
        NPM.Items.Add("12110384")
        NPM.Items.Add("12110385")
        Kd_Dosen.Items.Add("301")
        Kd_Dosen.Items.Add("302")
        Kd_Dosen.Items.Add("303")
        Kd_Dosen.Items.Add("304")
        Kd_Dosen.Items.Add("305")
        Kd_Makul.Items.Add("401")
        Kd_Makul.Items.Add("402")
        Kd_Makul.Items.Add("403")
        Kd_Makul.Items.Add("404")
        Kd_Makul.Items.Add("405")
        Dim s As Integer
        For s = 1 To 100
            Kehadiran.Items.Add(s)
            Tugas.Items.Add(s)
            Uts.Items.Add(s)
            UAS.Items.Add(s)
        Next s
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select (NPM.Text)
            Case "12110381"
                Nama.Text = "Dwi"
                Jenjang.Text = "S1"
                Jurusan.Text = "T1"
            Case "12110382"
                Nama.Text = "Rina"
                Jenjang.Text = "D3"
                Jurusan.Text = "MI"
            Case "12110383"
                Nama.Text = "Wani"
                Jenjang.Text = "S1"
                Jurusan.Text = "SI"
            Case "12110384"
                Nama.Text = "Fitri"
                Jenjang.Text = "D3"
                Jurusan.Text = "MI"
            Case "12110385"
                Nama.Text = "Ria"
                Jenjang.Text = "S1"
                Jurusan.Text = "TI"
        End Select
    End Sub
    Private Sub Kd_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Dosen.SelectedIndexChanged
        Select Case (Kd_Dosen.Text)
            Case "301"
                Nm_Dosen.Text = "Yasir Hasan, S.Kom"
            Case "302"
                Nm_Dosen.Text = "Tonni Limbong, S.Kom,M.Kom"
            Case "303"
                Nm_Dosen.Text = "Surya Darma Nasution, S.Kom"
            Case "304"
                Nm_Dosen.Text = "Kennedi Tampubolon, S.Si"
            Case "305"
                Nm_Dosen.Text = "Pristiwanto, S.Kom"
        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        Kd_Dosen.Text = ""
        Nm_Dosen.Text = ""
        Kd_Makul.Text = ""
        matkul.Text = ""
        Kehadiran.Text = ""
        Tugas.Text = ""
        Uts.Text = ""
        UAS.Text = ""
        NA.Text = ""
        Huruf.Text = ""
        Keterangan.Text = ""
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
        NA.Text = 0.1 * Kehadiran.Text + 0.15 * Tugas.Text + 0.4 * Uts.Text + 0.6 * UAS.Text
        If NA.Text >= 80 Then
            Huruf.Text = "A"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 70 Then
            Huruf.Text = "B"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 60 Then
            Huruf.Text = "C+"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 50 Then
            Huruf.Text = "C"
            Keterangan.Text = "Perbaikan"
        ElseIf NA.Text >= 40 Then
            Huruf.Text = "D"
            Keterangan.Text = "Mengulang"
        Else
            Huruf.Text = "E"
            Keterangan.Text = "Tidak Lengkap"
        End If
    End Sub

    Private Sub Kd_Makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Makul.SelectedIndexChanged
        Select Case (Kd_Makul.Text)
            Case "401"
                matkul.Text = "Struktur Data"
            Case "402"
                matkul.Text = "Sistem Operasi"
            Case "403"
                matkul.Text = "Sistem Basis Data"
            Case "404"
                matkul.Text = "Pemrograman Visual"
            Case "405"
                matkul.Text = "Komunikasi Data"
        End Select
    End Sub
End Class

Tampilan akhir ketika program di jalankan :