Menghitung Nilai Akhir memakai Function dan Procedure dengan menggunakan Microsoft Visual Basic 2010

kali ini saya akan menjelaskan tentang “Nilai Tugas akhir memakai Function dan Procedure dengan menggunakan Microsoft Visual Basic 2008” dengan desain seperti dibawah ini:

Dengan koding seperti dibawah ini:

Public Class Form1

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Label2.Click

    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnhitung.Click

        Dim absen, tugas, keaktifan, uts, uas As Integer

        Dim nilaiakhir As Integer

        absen = txtabsen.Text * 20 / 100

        tugas = txttugas.Text * 15 / 100

        keaktifan = txtkeaktifan.Text * 10 / 100

        uts = txtuts.Text * 25 / 100

        uas = txtuas.Text * 30 / 100

        nilaiakhir = absen + tugas + keaktifan + uts + uas

        txtnilaiakhir.Text = nilaiakhir

        If nilaiakhir > 85 Then

            MsgBox("Nilai A")

        ElseIf nilaiakhir > 70 Then

            MsgBox("Nilai B")

        ElseIf nilaiakhir > 60 Then

            MsgBox("Nilai C")

        ElseIf nilaiakhir > 50 Then

            MsgBox("Nilai D")

        ElseIf nilaiakhir > 0 Then

            MsgBox("Nilai E")

        End If

    End Sub

    Function Grade(ByRef nilairatarata As Integer)

        Dim hasil As Boolean

        If nilairatarata <= 40 Then

            hasil = True

        Else

            hasil = False

        End If

        Return hasil

    End Function

    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnclear.Click

        txtnama.Clear()

        txtabsen.Clear()

        txttugas.Clear()

        txtkeaktifan.Clear()

        txtuts.Clear()

        txtuas.Clear()

        txtnilaiakhir.Clear()

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Label8.Click

    End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnexit.Click

        Close()

    End Sub

End Class

Dan outputnya seperti dibawah ini:

Sekian dan Terimakasih semoga bermanfaat