Latihan Form Nilai Mahasiswa

 Public Class Form1

    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_MataKuliah.Text = ""
        N_Kehadiran.Text = ""
        N_Tugas.Text = ""
        N_UTS.Text = ""
        N_UAS.Text = ""
        N_Akhir.Text = ""
        N_Huruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        N_Akhir.Text = 0.3 * N_UTS.Text + 0.45 * N_UAS.Text + 0.1 * N_Kehadiran.Text + 0.15 * N_Tugas.Text
        If N_Akhir.Text >= 50 Then
            N_Huruf.Text = "A"
            N_Huruf.Text = "B+"
            N_Huruf.Text = "B"
            N_Huruf.Text = "C+"

            Keterangan.Text = "LULUS"
        Else
            Keterangan.Text = "GAGAL"
            N_Huruf.Text = "C"
            N_Huruf.Text = "D"
            N_Huruf.Text = "E"

        End If

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Npm.Items.Add("pemograman visual 1")
        Npm.Items.Add("PTI")

        N_Dosen.Items.Add("tonni limbong,SKom,MKom")
        N_Dosen.Items.Add("sinar sinurat,ST,MKom")

        Dim i As Integer
        For i = 1 To 100
            N_UTS.Items.Add(i)
            N_UAS.Items.Add(i)
            N_Kehadiran.Items.Add(i)
            N_Tugas.Items.Add(i)

        Next i
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Jenjang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jenjang.TextChanged

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged
        Select Case Npm.Text
            Case "12110573"
                Nama.Text = "ida"
            Case "12110683"
                Nama.Text = "dewi"
            Case "1202242"
                Nama.Text = "kristi"
            Case "12110753"
                Nama.Text = "dewy"
            Case "1202654"
                Nama.Text = "sabeth"

        End Select
        Dim i As String
        i = Microsoft.VisualBasic.Left(Npm.Text, 2)
        If i = "12110573" Then
            Jenjang.Text = "S1"
            Jurusan.Text = " Teknik Informatika"
        ElseIf i = "12110683" Then
            Jenjang.Text = "S1"
            Jurusan.Text = "Teknik Informatika"
        ElseIf i = "1202242" Then
            Jenjang.Text = "D3"
            Jurusan.Text = "Manajemen Informatika"
        ElseIf i = "12110753" Then
            Jenjang.Text = "S1"
            Jurusan.Text = "Sistem Informatika"
        ElseIf i = "1202654" Then
            Jenjang.Text = "D3"
            Jurusan.Text = "Komputerisasi Akuntansi"


        End If
    End Sub
End Class