FORM NILAI MAHASISWA

Public Class Frmmahasiswa

    Private Sub btnkelur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkelur.Click
        End

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("11111034")
        npm.Items.Add("1011002")
        npm.Items.Add("1011003")
        matakuliah.Items.Add("Agama")
        matakuliah.Items.Add("Kalkulus")
        matakuliah.Items.Add("Pemrograman Visual")
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        matakuliah.Text = ""
        nilai.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Dim xket As String
        xket = "Gagal"
        If nilai.Text >= 50 Then xket = "Lulus"
        keterangan.Text = xket
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "11111034" Then
            nama.Text = "Fitri Girsang"
        ElseIf npm.Text = "1011002" Then
            nama.Text = "Riri Sartika"
        ElseIf npm.Text = "1011003" Then
            nama.Text = "Rahmie Suwarny"
        End If
    End Sub
End Class

Author : Unknown

Share this

Related Posts