Program Visual Studio Mencari NIlai Akhir Mahasiswa dengan visual studio 2010

 Mencari Nilai Akhir Mahasiswa

Public Class Form1

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

        matakuliah.Items.Add("Analisa Dan Perancangan Sistem Informasi")

        matakuliah.Items.Add("Bahasa Pemrograman Visual II")

        matakuliah.Items.Add("Interaksi Manusia Dan Komputer")

        matakuliah.Items.Add("Organisasi Dan Aristektur Komputer")

        matakuliah.Items.Add("Sistem Manajemen Basis Data")

        matakuliah.Items.Add("Statistik Dan Probabilitas")

    End Sub

    Private Sub Btnulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnulang.Click

        NIM.Text = ""

        namamahasiswa.Text = ""

        matakuliah.Text = ""

        nilaitugas.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        nilaiakhir.Text = ""

        NIM.Focus()

    End Sub

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

        MsgBox("Terima Kasih")

        Me.Close()

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        nilaiakhir.Text = Val((nilaitugas.Text) / 3) + Val((nilaiuts.Text) / 3) + Val((nilaiuas.Text) / 3)

    End Sub

End Class