Tugas Pemrograman Visual

Tugas Belajar bahasa pemrograman visual dari pak mesran.
Hasil outputnya.

Codingnya sebagai berikut.
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call CekNpm()
        Call CekKodeDosen()
        Call Cek_nilai()
        Call CekKodeMatakuliah()
    End Sub
    Sub CekNpm()
        NPM.Items.Add("12110385")
        NPM.Items.Add("12021020")
        NPM.Items.Add("12110157")
    End Sub
    Sub CekKodeDosen()
        For i = 1 To 3
            KdeDosen.Items.Add("NIDN00" & i)
        Next
    End Sub
    Sub Cek_nilai()
        ' Dim x As Integer
        For x = 1 To 100
            Nhadir.Items.Add(x)
            Ntugas.Items.Add(x)
            NUts.Items.Add(x)
            NUas.Items.Add(x)
        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 "12110385"
                Nama.Text = "Rahma"
            Case "12021020"
                Nama.Text = "Nisa"
            Case "12110157"
                Nama.Text = "Risty"
        End Select
        Dim x As Integer
        x = Strings.Mid(NPM.Text, 3, 2)
        Select Case x
            Case "11"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "02"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
        End Select
    End Sub

 

    Private Sub KdeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdeDosen.SelectedIndexChanged
        Select Case KdeDosen.Text
            Case "NIDN001"
                NmaDosen.Text = "Mesran,Mkom"
            Case "NIDN002"
                NmaDosen.Text = "Tonni Limbong,Mkom"
            Case "NIDN003"
                NmaDosen.Text = "Sinar Sinurat,Mkom"
        End Select
    End Sub
    Sub CekKodeMatakuliah()
        For y = 1 To 3
            KdeMatakuliah.Items.Add("MKO" & y)
        Next
    End Sub

    Private Sub KdeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdeMatakuliah.SelectedIndexChanged
        Select Case KdeMatakuliah.Text
            Case "MKO1"
                NmaMatakuliah.Text = "Pemograman Visual"
            Case "MKO2"
                NmaMatakuliah.Text = "Konsep Pemograman"
            Case "MKO3"
                NmaMatakuliah.Text = "Pemograman Html"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If Nhadir.Text = "" Or Ntugas.Text = "" Or NUts.Text = "" Or NUas.Text = "" Then
            MsgBox("Nilai Ada yang belum di input")
        Else
            Dim a, b, c, d As String
            a = 0.1 * Nhadir.Text
            b = 0.15 * Ntugas.Text
            c = 0.3 * NUts.Text
            d = 0.35 * NUas.Text

            Nakhir.Text = Val(a) + Val(b) + Val(c) + Val(d)
            If Nakhir.Text >= 80 Then
                Nhuruf.Text = "A"
                Keterangan.Text = "Dengan Pujian"
            ElseIf Nakhir.Text >= 75 Then
                Nhuruf.Text = "B+"
                Keterangan.Text = "Dengan Pujian"
            ElseIf Nakhir.Text >= 70 Then
                Nhuruf.Text = "B"
                Keterangan.Text = "Pujian"
            ElseIf Nakhir.Text >= 65 Then
                Nhuruf.Text = "C+"
                Keterangan.Text = "Sangat Memuaskan"
            ElseIf Nakhir.Text >= 60 Then
                Nhuruf.Text = "C"
                Keterangan.Text = "Memuaskan"
            ElseIf Nakhir.Text <= 60 Then
                Nhuruf.Text = "D"
                Keterangan.Text = "Anda Gagal"

            End If
        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 = ""
        KdeDosen.Text = ""
        NmaDosen.Text = ""
        KdeMatakuliah.Text = ""
        NmaMatakuliah.Text = ""
        Nhadir.Text = ""
        Ntugas.Text = ""
        NUts.Text = ""
        NUas.Text = ""
        Nakhir.Text = ""
        Nhuruf.Text = ""
        Keterangan.Text = ""

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Close()
    End Sub
End Class