Form_Nilai-Mahasiswa

Kode Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("13111000")
        NPM.Items.Add("13110011")
        NPM.Items.Add("13112211")
        KDOSEN.Items.Add("TS001")
        KDOSEN.Items.Add("TS002")
        KDOSEN.Items.Add("TS003")
        KMATAKULAIH.Items.Add("01")
        KMATAKULAIH.Items.Add("02")
        KMATAKULAIH.Items.Add("03")

        Dim i As Integer
        For i = 1 To 100
            NIKEH.Items.Add(i)
            NITUG.Items.Add(i)
            NIUTS.Items.Add(i)
            NIUAS.Items.Add(i)

        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "13111000"
                NAMA.Text = "riris"
            Case "13110011"
                NAMA.Text = "ajeng"
            Case "13112211"
                NAMA.Text = "devi"
        End Select

        Dim x, y As String
        x = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)
        y = Microsoft.VisualBasic.Mid(NPM.Text, 6, 1)
        Select Case x
            Case "11"
                JENJANG.Text = "S1"
            Case "10"
                JENJANG.Text = "D3"
            Case "12"
                JENJANG.Text = "D1"
        End Select
        Select Case y
            Case "0"
                JURUSAN.Text = "Tehnik Informatika"
            Case "1"
                JURUSAN.Text = "Managemen Komputer"
            Case "2"
                JURUSAN.Text = "Teknisi Komputer"
        End Select
       
    End Sub
    Private Sub KDOSEN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDOSEN.SelectedIndexChanged
        Select Case KDOSEN.Text
            Case "TS001"
                NADOS.Text = "ALEX"
            Case "TS002"
                NADOS.Text = "VICKY"
            Case "TS003"
                NADOS.Text = "LEMAN"
        End Select
    End Sub

    Private Sub NADOS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NADOS.TextChanged

    End Sub

    Private Sub KMATAKULAIH_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMATAKULAIH.SelectedIndexChanged
        Select Case KMATAKULAIH.Text
            Case "01"
                NAMAMATAKULAIH.Text = "matriks"
            Case "02"
                NAMAMATAKULAIH.Text = "fisika"
            Case "03"
                NAMAMATAKULAIH.Text = "matematika"
        End Select
    End Sub

    Private Sub NIKEH_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIKEH.SelectedIndexChanged

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        NA.Text = Val(0.1 * NIKEH.Text) + Val(0.15 * NITUG.Text) + Val(0.3 * NIUTS.Text) + Val(0.45 * NIUAS.Text)
        Select Case NA.Text
            Case Is >= 80
                NIHUR.Text = "a"
            Case Is >= 70
                NIHUR.Text = "b"
            Case Is >= 50
                NIHUR.Text = "c"
            Case Is >= 30
                NIHUR.Text = "d"
            Case Else
                NIHUR.Text = "E"


        End Select
        Select Case NA.Text
            Case Is >= 50
                KETERANGAN.Text = "LULUS"
            Case Else
                KETERANGAN.Text = "GAGAL"
        End Select

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        NPM.Text = ""
        KDOSEN.Text = ""
        JENJANG.Text = ""
        JURUSAN.Text = ""
        KMATAKULAIH.Text = ""
        NADOS.Text = ""
        NIKEH.Text = ""
        NIUTS.Text = ""
        NIUAS.Text = ""
        NA.Text = ""
        NAMAMATAKULAIH.Text = ""
        NIHUR.Text = ""
        KETERANGAN.Text = ""
        NITUG.Text = ""
        NAMA.Text = ""


    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        Close()
    End Sub
End Class