58 lines
1.6 KiB
VB.net
58 lines
1.6 KiB
VB.net
Public Class Student
|
|
Public name As String
|
|
Public markTest As Double
|
|
Public markQuiz As Double
|
|
Public markProject As Double
|
|
Public markExam As Double
|
|
|
|
Sub New(name As String, markTest As Double, markQuiz As Double, markProject As Double, markExam As Double)
|
|
Me.name = name
|
|
Me.markTest = markTest
|
|
Me.markQuiz = markQuiz
|
|
Me.markProject = markProject
|
|
Me.markExam = markExam
|
|
End Sub
|
|
|
|
Function getCAMarks() As Double
|
|
Return markTest * CAMarksModule.TestPercent + markProject * CAMarksModule.ProjectPercent + markQuiz * CAMarksModule.QuizPercent
|
|
End Function
|
|
|
|
Function getExamMark() As Double
|
|
Return markExam
|
|
End Function
|
|
|
|
Function getModuleMark() As Double
|
|
Return getCAMarks() * ModuleMark.CAPercent + getExamMark() * ModuleMark.ExamPercent
|
|
End Function
|
|
|
|
Function getModuleGrade() As String
|
|
Dim moduleMark As Double = getModuleMark()
|
|
If moduleMark >= 75 And moduleMark <= 100 Then
|
|
Return "A"
|
|
ElseIf moduleMark >= 65 Then
|
|
Return "B"
|
|
ElseIf moduleMark >= 40 Then
|
|
Return "C"
|
|
Else
|
|
Return "F"
|
|
End If
|
|
End Function
|
|
|
|
Function getRemark() As String
|
|
Select Case getModuleGrade()
|
|
Case "A"
|
|
Return "Pass"
|
|
Case "B"
|
|
Return "Pass"
|
|
Case "C"
|
|
Return "Pass"
|
|
Case "F"
|
|
If (getModuleMark() >= 30) Then
|
|
Return "Resit Exam"
|
|
End If
|
|
End Select
|
|
Return "Retudy"
|
|
End Function
|
|
|
|
End Class
|