TI-M1213

Tugas Visual Basic

Public Class Form1

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

        Npm.Items.Add("12110441")

        Npm.Items.Add("12110360")

        Npm.Items.Add("12110480")

        K_Dosen.Items.Add("MS4303")

        K_Dosen.Items.Add("YH4306")

        K_Dosen.Items.Add("MZ4308")

        K_Mkuliah.Items.Add("KKTI4303")

        K_Mkuliah.Items.Add("KKTI4306")

        K_Mkuliah.Items.Add("KKTI4308")

        Dim x As Integer

        For x = 100 To 1 Step -1

            NK.Items.Add(x)

            nt.Items.Add(x)

            nu.Items.Add(x)

            nUAS.Items.Add(x)

        Next x

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "12110441"

                Nama.Text = "Andry Saputra"

                Jurusan.Text = "Teknik Informatika"

            Case "1211380"

                Nama.Text = "Anton"

                Jurusan.Text = "manajemen Informatika"

            Case "1210460"

                Nama.Text = "Lilis"

                Jurusan.Text = "Design Grafis"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Left(Npm.Text, 2)

        If Npm.Text = "12110441" Then

            Jenjang.Text = "S1"

        ElseIf Npm.Text = "12110360" Then

            Jenjang.Text = "DIII"

        ElseIf Npm.Text = 12110480 Then

            Jenjang.Text = "DI"

        End If

    End Sub

    Private Sub K_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Dosen.SelectedIndexChanged

      

        Select Case K_Dosen.Text

            Case "MS4303"

                N_Dosen.Text = "Mesran Skom.Mkom"

            Case "4306"

                N_Dosen.Text = "Yasir Hasan Skom"

            Case "4308"

                N_Dosen.Text = "Marzuki Sinambela Mkom"

        End Select

    End Sub

    Private Sub K_Mkuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Mkuliah.SelectedIndexChanged

        Select Case K_Mkuliah.Text

            Case "KKTI4303"

                Mk.Text = "Pemograman visual"

            Case "KKTI4306"

                Mk.Text = "Sistem Operasi"

            Case "KKTI4308"

                Mk.Text = "Struktur data"

        End Select

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        na.Text = 0.1 * NK.Text + 0.15 * nt.Text + 0.35 * nu.Text + 0.45 * nUAS.Text

        If na.Text >= 50 Then

            Keterangan.Text = "LULUS"

        Else

            Keterangan.Text = "GAGAL"

        End If

        If na.Text >= 80 Then

            Nh.Text = "A"

        ElseIf na.Text >= 70 Then

            Nh.Text = "B"

        ElseIf na.Text >= 60 Then

            Nh.Text = "C"

        ElseIf na.Text >= 50 Then

            Nh.Text = "D"

        Else

            Nh.Text = "E"

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

        K_Dosen.Text = ""

        N_Dosen.Text = ""

        K_Mkuliah.Text = ""

        Mk.Text = ""

        NK.Text = ""

        nt.Text = ""

        nu.Text = ""

        nUAS.Text = ""

        na.Text = ""

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

                                                                                                                                                                                        

Public Class Form1

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tahun.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim x As String

        Tahun.Text = "20" & Microsoft.VisualBasic.Left(Npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(Npm.Text, 4, 1)

        If x = "1" Then

            Jenjang.Text = "Diploma I"

        ElseIf x = "3" Then

            Jenjang.Text = "Diploma III"

        ElseIf x = "4" Then

            Jenjang.Text = "Strata I"

        End If

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

        If x = "01" Then

            Jurusan.Text = "Teknik Informatika"

        ElseIf x = "02" Then

            Jurusan.Text = "Sistem Informasi"

        ElseIf x = "03" Then

            Jurusan.Text = "Manajemen Informatika"

        ElseIf x = "04" Then

            Jurusan.Text = "Design Grafis"

        End If

        Nourut.Text = Microsoft.VisualBasic.Right(Npm.Text, 3)

    End Sub

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

              

    End Sub

End Class