JoshuaGunaydo_1506761021_UTS

Nama : Joshua Gunaydo Siemuel
NPM  : 1506761021

UTS Pemograman Bisnis

Program Aplikasi Pengitung Nilai Mahasiswa

Di Aplikasi ini, kita bisa menghitung nilai- nilai tugas yang kita dapat dengan cara mengisi dalam text box tersedia

Tujuan dari Aplikasi ini adalah untuk mempercepat proses penghitungan nilai akhir mahasiswa

Contoh Desain Form:

Source Code :

Public Class Form1
 

    Private Sub TextKuis3_TextChanged(sender As Object, e As EventArgs) Handles TextKuis3.TextChanged
        TextTotalKuis.Text = (Val(TextKuis1.Text) + Val(TextKuis2.Text) + Val(TextKuis3.Text)) / 3
    End Sub

    Private Sub TextTugas4_TextChanged(sender As Object, e As EventArgs) Handles TextTugas4.TextChanged
        TextTugasTotal.Text = (Val(TextTugas1.Text) + Val(TextTugas2.Text) + Val(TextTugas3.Text) + Val(TextTugas4.Text)) / 4
        On Error Resume Next

    End Sub

    Private Sub TextUAS_TextChanged(sender As Object, e As EventArgs) Handles TextUAS.TextChanged
        TextNakhir.Text = (Val(TextTotalKuis.Text)) * 0.3 + (Val(TextTugasTotal.Text)) * 0.15 + (Val(TextKehadiran.Text)) * 0.05 + (Val(TextUTS.Text)) * 0.2 + (Val(TextUAS.Text)) * 0.3
    End Sub

    Private Sub TextNakhir_TextChanged(sender As Object, e As EventArgs) Handles TextNakhir.TextChanged
        If TextNakhir.Text >= 80 Then
            TextKeterangan.Text = "A"
        ElseIf TextNakhir.Text >= 70 Then
            TextKeterangan.Text = "B"
        ElseIf TextNakhir.Text >= 60 Then
            TextKeterangan.Text = "C"
        ElseIf TextNakhir.Text >= 50 Then
            TextKeterangan.Text = "D"
        Else TextKeterangan.Text = "E"

        End If

    End Sub
End Class

Beginilah Hasilnya