Menghitung Nilai

Menghitung Nilai adalah pelajaran sederhana dalam pemogroman, karena disini lah awal dari kesempurnaan progam. Kami berharap Semoga Program Menghitung Nilai ini dapat bermanfaat bagi para programer dasar.

Listing Program Menghitung Nilai :
Public Class menghitung_nilai

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        matakuliah.Text = ""
        dosen.Text = ""
        nmid.Text = ""


        nsem.Text = ""
        na.Text = ""
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = 0.4 * nmid.Text + 0.6 * nsem.Text
    End Sub

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

    Private Sub menghitung_nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        matakuliah.Items.Add("Pemograman VIsual I")
        matakuliah.Items.Add("PTI")
        matakuliah.Items.Add("Sisitem Basis Data")
        matakuliah.Items.Add("Sistem Operasi")
        matakuliah.Items.Add("Komunikasi Data")
        matakuliah.Items.Add("Pemograman HTML")

        dosen.Items.Add("Mesran S,Kom. M,Kom")
        dosen.Items.Add("M. Syahrizal S.Kom, M.Kom")
        dosen.Items.Add("Sinar Sinurat ST, M.Kom")
        dosen.Items.Add("M. Ikbal Batu Bara S,Kom. M,Kom")
        dosen.Items.Add("Garuda Ginting S,Kom. M,Kom")
        dosen.Items.Add("Kristian Siregar S,Kom. M,Kom")
    End Sub

End Class


Demikian lah Progam Mengihtung Nilai Diatas Semoga Bermanfaat.....