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

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

        Close()

    End Sub

Dan outputnya seperti dibawah ini:

Sekian dan Terimakasih