Tugas Belajar Bahasa Pemrograman

Belajar Bahasa Pemrograman



Coding Program:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110250")
        NPM.Items.Add("12110190")
        Kode_Dosen.Items.Add("AA")
        Kode_Dosen.Items.Add("AB")
        Kode_Dosen.Items.Add("AC")
        Kode_Dosen.Items.Add("AD")
        Kode_Matakuliah.Items.Add("A11")
        Kode_Matakuliah.Items.Add("A12")
        Kode_Matakuliah.Items.Add("A13")
        Kode_Matakuliah.Items.Add("A14")

        Dim i As Integer
        For i = 1 To 100
            Nilai_Kehadiran.Items.Add(i)
            Nilai_Tugas.Items.Add(i)
            Nilai_UTS.Items.Add(i)
            Nilai_UAS.Items.Add(i)
        Next i
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110250"
                Nama.Text = "Fersona Dohare"
            Case "12110190"
                Nama.Text = "Agus Z"
        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
        If x = "4" Then
            Jenjang.Text = "Diploma I"
        ElseIf x = "3" Then
            Jenjang.Text = " Diploma 3"
        ElseIf x = "1" Then
            Jenjang.Text = "Strata I"
        End If

        x = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)
        If x = "10" Then
            Jurusan.Text = "Teknik Komputer"
        ElseIf x = "11" Then
            Jurusan.Text = "Sistem Informas"
        ElseIf x = "12" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf x = "13" Then
            Jurusan.Text = "Akuntansi"
        End If
    End Sub
    Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Dosen.SelectedIndexChanged
        Select Case Kode_Dosen.Text
            Case "AA"
                Nama_Dosen.Text = "Mesran, M.Kom"
            Case "AB"
                Nama_Dosen.Text = "Toni Limbong, M.Kom"
            Case "AC"
                Nama_Dosen.Text = "Kristian Siregar, M.Kom"
            Case "AD"
                Nama_Dosen.Text = "Iqbal, M.Kom"
        End Select
    End Sub

    Private Sub Kode_Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Matakuliah.SelectedIndexChanged
        Select Case Kode_Matakuliah.Text
            Case "A11"
                Nama_Matakuliah.Text = "Pemrograman Visual"
            Case "A12"
                Nama_Matakuliah.Text = "Pemrograman HTML"
            Case "A13"
                Nama_Matakuliah.Text = "Struktur Data"
            Case "A14"
                Nama_Matakuliah.Text = "Sistem Operasi"
        End Select
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Nilai_Akhir.Text = 0.1 * Nilai_Kehadiran.Text + 0.15 * Nilai_Tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
    End Sub

    Private Sub Nilai_Akhir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nilai_Akhir.TextChanged
        If Nilai_Akhir.Text >= "80" Then
            Nilai_Huruf.Text = "A"
            Keterangan.Text = "Sangat Memuaskan"
        ElseIf Nilai_Akhir.Text >= "70" Then
            Nilai_Huruf.Text = "B"
            Keterangan.Text = "Memuaskan"
        ElseIf Nilai_Akhir.Text >= "60" Then
            Nilai_Akhir.Text = "C"
            Keterangan.Text = "Menyenangkan"
        ElseIf Nilai_Akhir.Text >= "50" Then
            Nilai_Huruf.Text = "D"
            Keterangan.Text = "Menyedihkan"
        Else
            Nilai_Huruf.Text = "E"
            Keterangan.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 = ""
        Kode_Dosen.Text = ""
        Nama_Dosen.Text = ""
        Kode_Matakuliah.Text = ""
        Nama_Matakuliah.Text = ""
        Nilai_Kehadiran.Text = ""
        Nilai_Tugas.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_Akhir.Text = ""
        Nilai_Huruf.Text = ""
        Keterangan.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