tugas vb 2008

 

Rumusnya:

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

                nama.Text = "yudi"

            Case "12110961"

                nama.Text = "zaldy"

            Case "12110789"

                nama.Text = "Widya"

            Case "12110158"

                nama.Text = "desi"

            Case "12021680"

                nama.Text = "Anugerah"

            Case "12008779"

                nama.Text = "santa"

            Case "12110670"

                nama.Text = "Fahmi Latief"

            Case "12110109"

                nama.Text = "fitri"

        End Select

    End Sub

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

        NPM.Items.Add("12110356")

        NPM.Items.Add("12110961")

        NPM.Items.Add("12110789")

        NPM.Items.Add("12110158")

        NPM.Items.Add("12021680")

        NPM.Items.Add("12008779")

        NPM.Items.Add("12110670")

        NPM.Items.Add("12110109")

        Kdosen.Items.Add("1198777")

        Kdosen.Items.Add("1198888")

        Kdosen.Items.Add("1198999")

        kmatakuliah.Items.Add("A111")

        kmatakuliah.Items.Add("B222")

        kmatakuliah.Items.Add("C333")

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

                namadosen.Text = "Sinar Sinurat"

            Case "1198888"

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

            Case "1198999"

                namadosen.Text = "Pilipus Tarigan s.T, 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 "A111"

                nmatakuliah.Text = "matematika diskrit"

            Case "B222"

                nmatakuliah.Text = "Sistem Operasi"

            Case "C333"

                nmatakuliah.Text = "Arsitektur dan Organisasi Komputer"

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