Pertemuan 8, 30 Maret 2015 : Nilai Tugas akhir memakai Function dan Procedure dengan menggunakan Microsoft Visual Basic 2010

Assalamualaikum wr. wb 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: kode untuk button hitung

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

Buat function Grade.

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

Kode untuk button clear.

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

Kode untuk button exit.

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

        me.Close()

    End Sub

Dan outputnya seperti dibawah ini:

Sekian dan Terimakasih semoga bermanfaat