INPUT NILAI MAHASISWA

Public Class Form1

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

        mata_kuliah.Items.Add("pemograman visual I")

        mata_kuliah.Items.Add("PTI")

        dosen.Items.Add("Tonni Limbong, S.Kom, M.kom")

        dosen.Items.Add("Sinar Sinurat, ST, M.kom")

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        nilai_akhir.Text = 0.1 * nilai_hadir.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_mid.Text + 0.45 * nilai_semester.Text

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        mata_kuliah.Text = ""

        dosen.Text = ""

        nilai_hadir.Text = ""

        nilai_tugas.Text = ""

        nilai_mid.Text = ""

        nilai_semester.Text = ""

        nilai_akhir.Text = ""

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        End

    End Sub

End Class

SUMBER : ESRA HANDAYANI