Tugas Pemrograman Visual

CODING ;

Public Class Form1

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110566"

                nama.Text = "Deni Irawan"

            Case "12110141"

                nama.Text = "Cahyadi Rangkuti"

            Case "12110652"

                nama.Text = "harry krido prayetno"

            Case "12110139"

                nama.Text = "Toni Sahata Pandapotan"

            Case "12021976"

                nama.Text = "Sandi Putra Siregar"

            Case "12008754"

                nama.Text = "Titi Wahyuni Harahap"

            Case "12110764"

                nama.Text = "Juandi Sinaga"

            Case "13110703"

                nama.Text = "Muhammad Hafiz"

        End Select

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NPM.Items.Add("12110139")

        NPM.Items.Add("12021976")

        NPM.Items.Add("12008754")

        NPM.Items.Add("12025764")

        NPM.Items.Add("12110566")

        NPM.Items.Add("12110141")

        NPM.Items.Add("12110652")

        NPM.Items.Add("13110703")

        Kdosen.Items.Add("1198753")

        Kdosen.Items.Add("1198273")

        Kdosen.Items.Add("1198743")

        Kdosen.Items.Add("11986513")

        kmatakuliah.Items.Add("A213")

        kmatakuliah.Items.Add("B247")

        kmatakuliah.Items.Add("C283")

        kmatakuliah.Items.Add("A283")

        Dim i As Integer

        For i = 1 To 100

            Ntugas.Items.Add(i)

            Nuas.Items.Add(i)

            Nkhadiran.Items.Add(i)

            Nuts.Items.Add(i)

        Next

    End Sub

    Private Sub Kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdosen.SelectedIndexChanged

        Select Case Kdosen.Text

            Case "1198753"

                namadosen.Text = "Guidio Tarigan s.kom, M.kom"

            Case "1198273"

                namadosen.Text = "Abdul sani sembiring s.kom, M.kom"

            Case "1198743"

                namadosen.Text = "Harvei Hutahaean s.kom, M.kom"

            Case "11986513"

                namadosen.Text = "MESRAN s.kom, M.kom"

        End Select

    End Sub

    Private Sub kmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatakuliah.SelectedIndexChanged

        Select Case kmatakuliah.Text

            Case "A213"

                nmatakuliah.Text = "Komunikasi Data"

            Case "B247"

                nmatakuliah.Text = "Sistem Operasi"

            Case "C283"

                nmatakuliah.Text = "Sistem Basis Data"

            Case "A283"

                nmatakuliah.Text = "PROGAM VISUAL STUDIO"

        End Select

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

        If NPM.Text = "" Or Nkhadiran.Text = "" Or Nuts.Text = "" Or Ntugas.Text = "" Or Nuas.Text = "" Then

            MsgBox("Pastikan NPM/nilai sudah ter input")

        ElseIf NPM.Text Then

            Nakhir.Text = Val(0.1 * Nkhadiran.Text) + Val(0.15 * Ntugas.Text) + Val(0.3 * Nuts.Text) + Val(0.45 * Nuas.Text)

            If Nakhir.Text >= 90 Then

                Nhuruf.Text = "A"

            ElseIf Nakhir.Text >= 80 Then

                Nhuruf.Text = "B+"

            ElseIf Nakhir.Text >= 70 Then

                Nhuruf.Text = "B"

            ElseIf Nakhir.Text >= 60 Then

                Nhuruf.Text = "C"

            ElseIf Nakhir.Text >= 50 Then

                Nhuruf.Text = "D"

            Else

                Nhuruf.Text = "E"

            End If

            If Nakhir.Text >= 50 Then

                xket.Text = "LULUS"

            Else

                xket.Text = "GAGAL"

            End If

            Dim x, y As String

            x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)

            y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)

            If x = "11" Then

                jenjang.Text = "S1"

            ElseIf x = "02" Then

                jenjang.Text = "D3"

            ElseIf x = "00" Then

                jenjang.Text = "D1"

            End If

            If y = "0" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf y = "1" Then

                jurusan.Text = "Managemen informatika"

            ElseIf y = "8" Then

                jurusan.Text = "Teknisi Komputer"

            ElseIf y = "5" Then

            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 = ""

        Kdosen.Text = ""

        namadosen.Text = ""

        kmatakuliah.Text = ""

        nmatakuliah.Text = ""

        Nkhadiran.Text = ""

        Ntugas.Text = ""

        Nuts.Text = ""

        Nuas.Text = ""

        Nakhir.Text = ""

        Nhuruf.Text = ""

        xket.Text = ""

        jurusan.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