NPM : 1506760952
UTS Pemograman Bisnis
Program Aplikasi Nilai Murid
Form:
Kode:
Public Class Form1
Private Sub TextUH3_TextChanged(sender As Object, e As EventArgs) Handles TextUH3.TextChanged
TextTotalUH.Text = (Val(TextUH1.Text) + Val(TextUH2.Text) + Val(TextUH3.Text)) / 4
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)) / 3
On Error Resume Next
End Sub
Private Sub TextUAS_TextChanged(sender As Object, e As EventArgs) Handles TextUAS.TextChanged
TextNakhir.Text = (Val(TextTotalUH.Text)) * 0.3 + (Val(TextTugasTotal.Text)) * 0.2 + (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
