PENGINPUTAN NILAI

Public Class Form1

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

        npm.Items.Add("13110000")

        npm.Items.Add("13120001")

        npm.Items.Add("13130002")

        Kd_dosen.Items.Add("2011001")

        Kd_dosen.Items.Add("2011002")

        Kd_dosen.Items.Add("2011003")

        kd_makul.Items.Add("kk1213")

        kd_makul.Items.Add("aa1213")

        kd_makul.Items.Add("ss1213")

        Dim nilai As Integer

        nilai = 1

        Do While nilai <= 100

            hadir.Items.Add(nilai)

            tugas.Items.Add(nilai)

            uas.Items.Add(nilai)

            uts.Items.Add(nilai)

            nilai = nilai + 1

        Loop

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "13110000"

                nama.Text = "Esra"

            Case "13110001"

                nama.Text = "andryan"

            Case Else

                nama.Text = "rio"

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

                nama_dosen.Text = "wanto s.kom"

            Case "2011002"

                nama_dosen.Text = "santo s.pd"

            Case "2011003"

                nama_dosen.Text = "dewa s.H"

        End Select

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

                makul.Text = "Sistem Operasi"

            Case "aa1213"

                makul.Text = "Data Base"

            Case "ss1213"

                makul.Text = "Struktur Data"

        End Select

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        npm.Text = " "

        nama.Text = " "

        jenjang.Text = " "

        nama_dosen.Text = " "

        Kd_dosen.Text = " "

        kd_makul.Text = " "

        makul.Text = " "

        hadir.Text = " "

        tugas.Text = " "

        uts.Text = " "

        uas.Text = " "

        akhir.Text = " "

        Huruf.Text = " "

        keterangan.Text = " "

        jurusan.Text = " "

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        akhir.Text = 0.1 * hadir.Text + 0.15 * tugas.Text + 0.3 * uts.Text + 0.45 * uas.Text

        If akhir.Text >= 50 Then

            keterangan.Text = "lulus"

        Else

            keterangan.Text = "gagal"

        End If

        If akhir.Text >= "80" Then

            Huruf.Text = "A"

        ElseIf akhir.Text = "70" Then

            Huruf.Text = "B"

        ElseIf akhir.Text = "60" Then

            Huruf.Text = "C"

        ElseIf akhir.Text = "50" Then

            Huruf.Text = "D"

        ElseIf akhir.Text <= "50" Then

            Huruf.Text = "E"

        End If

        Dim x As String

        Microsoft.VisualBasic.Right(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "0" Then

            jenjang.Text = "D1"

        ElseIf x = "1" Then

            jenjang.Text = "D3"

        ElseIf x = "2" Then

            jenjang.Text = "S1"

        End If

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

        If x = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf x = "12" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "13" Then

            jurusan.Text = "Teknik Komputer"

        End If

    End Sub

End Class

sumber : Esra Handayani