UCAS Points Calculator

The program that I have created is a UCAS point’s calculator. Its main purpose is to calculate the
amount of points a student would get depending on the grades that he got. Below are pictures of
what the interface of my program looks like. I have developed a total of 3 programs to calculate for
the 3 BTEC courses, BTEC National Award, BTEC National Certificate, and BTEC National Diploma.

Firstly, I created
and Intro Screen
so that the user
can easily select
which course he
is enrolled in
and checks what
points he would
get.

This is the first program I created; it is a UCAS

calculator to calculate the grades for students
enrolling in the BNA course. Because they can
only get 6 grades the calculator will only accept 6
grades, it will not take anymore. Once you have
inputted the grade click on the Calculate UCAS
Now Button. As we can see, this student got an
overall grade of a Merit with 80 UCAS points.

This program is similar to the first one. It is

another UCAS calculator to calculate the points
for BNC courses. However this the time the
student must input 12 grades and no more as
that is how much the course is offering. As we
can see, this student has got an overall grade of
DD and has received 240 UCAS points.

All of the programs I have made are similar the only

main difference is the amount of grades a student
must input. This program has the highest amount of
grades to be inputted as it is the highest level course
out of the 3. The student must input 18 Grades into
the program to get his/her points. As you can see, this
student got MMM with a total of 240 UCAS points.
The Coding

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "BTEC National Award" Then
BNA.Show()
ElseIf ComboBox1.SelectedItem = "BTEC National Certificate" Then
BNC.Show()
ElseIf ComboBox1.SelectedItem = "BTEC National Diploma" Then
BND.Show()
This part of the code controls the events for the intro screen.
End If
End Sub

Private Sub Intro_Screen_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

End Sub
End Class

Code for the BTEC National Award Calclator

Public Class BNA
Dim PassUnitPoints As Integer
Dim MeritUnitPoints As Integer
Dim DistinctionUnitPoints As Integer
Dim GradeBoundaryPoints As Integer
Dim UCASPass As Integer
Dim UCASMerit As Integer
Dim UCASDistinction As Integer
Dim UnitCounter As Integer
Private Sub BNA_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

End Sub
 Private Sub CmdPass_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CmdPass.Click
PassUnitPoints = 6
GradeBoundaryPoints = GradeBoundaryPoints + PassUnitPoints
UCASPass = UCASPass + 1
These chunks of code
UnitCounter = UnitCounter + 1
TrBStatus.Value = TrBStatus.Value + 1 are responsible for
If TrBStatus.Value = 6 Then what the Pass, Merit
CmdPass.Enabled = False
CmdMerit.Enabled = False and distinction are
CmdDistinction.Enabled = False worth once click upon.
So the Pass button is
End If
worth 6 points.
LblPass.Text = UCASPass & "Passes"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points"
End Sub

Private Sub CmdMerit_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles CmdMerit.Click
MeritUnitPoints = 12
GradeBoundaryPoints = GradeBoundaryPoints + MeritUnitPoints
UCASMerit = UCASMerit + 1
UnitCounter = UnitCounter + 1
TrBStatus.Value = TrBStatus.Value + 1
If TrBStatus.Value = 6 Then
CmdPass.Enabled = False
CmdMerit.Enabled = False
CmdDistinction.Enabled = False

End If

LblMerit.Text = UCASMerit & "Merits"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points "
End Sub

Private Sub CmdDistinction_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles CmdDistinction.Click
DistinctionUnitPoints = 18
GradeBoundaryPoints = GradeBoundaryPoints + DistinctionUnitPoints
UCASDistinction = UCASDistinction + 1
UnitCounter = UnitCounter + 1

TrBStatus.Value = TrBStatus.Value + 1
If TrBStatus.Value = 6 Then
CmdPass.Enabled = False
CmdMerit.Enabled = False
CmdDistinction.Enabled = False

End If
LblDistinction.Text = UCASDistinction & "Distinction"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points "
End Sub
 Private Sub CmdCalculate_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles CmdCalculate.Click
If GradeBoundaryPoints >= 36 And GradeBoundaryPoints <= 59 Then
LblGrade.Text = "Overall Grade P"
LblPoints.Text = "40 UCAS Points"

ElseIf GradeBoundaryPoints >= 60 And GradeBoundaryPoints <= 83 Then

LblGrade.Text = "Overall Grade M"
LblPoints.Text = "80 UCAS Points"

ElseIf GradeBoundaryPoints >= 84 And GradeBoundaryPoints <= 108

Then
LblGrade.Text = "Overall Grade D"
LblPoints.Text = "120 UCAS Points" This final part of the BNA
code is responsible to show
Else
the overall grade and how
LblGrade.Text = "Overall Grade Fail" points would be given once
all the necessary grades
End If
End Sub have been inputted.
End Class

Code for the BTEC National Certificate Calculator

Public Class BNC
Dim PassUnitPoints As Integer
Dim MeritUnitPoints As Integer
Dim DistinctionUnitPoints As Integer
Dim GradeBoundaryPoints As Integer
Dim UCASPass As Integer
Dim UCASMerit As Integer
Dim UCASDistinction As Integer
Dim UnitCounter As Integer

Private Sub CmdPass_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles CmdPass.Click
PassUnitPoints = 6
GradeBoundaryPoints = GradeBoundaryPoints + PassUnitPoints
UCASPass = UCASPass + 1
UnitCounter = UnitCounter + 1
TrBStatus.Value = TrBStatus.Value + 1
If TrBStatus.Value = 12 Then
CmdPass.Enabled = False
CmdMerit.Enabled = False
CmdDistinction.Enabled = False

End If

LblPass.Text = UCASPass & "Passes"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points"

End Sub

Private Sub CmdMerit_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles CmdMerit.Click
MeritUnitPoints = 12
GradeBoundaryPoints = GradeBoundaryPoints + MeritUnitPoints
 UCASMerit = UCASMerit + 1
UnitCounter = UnitCounter + 1
TrBStatus.Value = TrBStatus.Value + 1
If TrBStatus.Value = 12 Then
CmdPass.Enabled = False
CmdMerit.Enabled = False
CmdDistinction.Enabled = False

End If

LblMerit.Text = UCASMerit & "Merits"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points "

End Sub

Private Sub CmdDistinction_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles CmdDistinction.Click
DistinctionUnitPoints = 18
GradeBoundaryPoints = GradeBoundaryPoints + DistinctionUnitPoints
UCASDistinction = UCASDistinction + 1
UnitCounter = UnitCounter + 1 The 3 of these codes are similar as the value of the
Pass, Merit and Distinction grade remains the same.
TrBStatus.Value = TrBStatus.Value + 1
Also the amount of the grades the student inputs
If TrBStatus.Value = 12 Then
CmdPass.Enabled = False can change as well from 6 to 12 – 18. Towards the
CmdMerit.Enabled = False bottom of each code it changes as the UCAS points
CmdDistinction.Enabled = False
increase and the Overall Grade increases as well due
to the level of the course
End If
LblDistinction.Text = UCASDistinction & "Distinction"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points "

End Sub

Private Sub CmdCalculate_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles CmdCalculate.Click
If GradeBoundaryPoints >= 72 And GradeBoundaryPoints <= 95 Then
LblGrade.Text = "Overall Grade PP"
LblPoints.Text = "80 UCAS Points"

ElseIf GradeBoundaryPoints >= 96 And GradeBoundaryPoints <= 119

Then
LblGrade.Text = "Overall Grade MP"
LblPoints.Text = "120 UCAS Points"

ElseIf GradeBoundaryPoints >= 120 And GradeBoundaryPoints <= 143

Then
LblGrade.Text = "Overall Grade MM"
LblPoints.Text = "160 UCAS Points"

ElseIf GradeBoundaryPoints >= 144 And GradeBoundaryPoints <= 167

Then
LblGrade.Text = "Overall Grade DM"
LblPoints.Text = "200 UCAS Points"
 ElseIf GradeBoundaryPoints >= 168 And GradeBoundaryPoints <= 216
Then
LblGrade.Text = "Overal Grade DD"
LblPoints.Text = "240 UCAS Points"

Else

LblGrade.Text = "Overall Grade Fail"

End If
End Sub

Private Sub BNC_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

End Sub
End Class

Code for the BTEC National Diploma Calculator

Public Class BND

Dim PassUnitPoints As Integer
Dim MeritUnitPoints As Integer
Dim DistinctionUnitPoints As Integer
Dim GradeBoundaryPoints As Integer
Dim UCASPass As Integer
Dim UCASMerit As Integer
Dim UCASDistinction As Integer
Dim UnitCounter As Integer

Private Sub CmdPass_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles CmdPass.Click
PassUnitPoints = 6
GradeBoundaryPoints = GradeBoundaryPoints + PassUnitPoints
UCASPass = UCASPass + 1
UnitCounter = UnitCounter + 1
TrBStatus.Value = TrBStatus.Value + 1
If TrBStatus.Value = 12 Then
CmdPass.Enabled = False
CmdMerit.Enabled = False
CmdDistinction.Enabled = False

End If

LblPass.Text = UCASPass & "Passes"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points"

End Sub

Private Sub CmdMerit_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles CmdMerit.Click
MeritUnitPoints = 12
GradeBoundaryPoints = GradeBoundaryPoints + MeritUnitPoints
UCASMerit = UCASMerit + 1
UnitCounter = UnitCounter + 1
TrBStatus.Value = TrBStatus.Value + 1
 If TrBStatus.Value = 12 Then
CmdPass.Enabled = False
CmdMerit.Enabled = False
CmdDistinction.Enabled = False

End If

LblMerit.Text = UCASMerit & "Merits"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points "
End Sub

Private Sub CmdDistinction_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles CmdDistinction.Click
DistinctionUnitPoints = 18
GradeBoundaryPoints = GradeBoundaryPoints + DistinctionUnitPoints
UCASDistinction = UCASDistinction + 1
UnitCounter = UnitCounter + 1

TrBStatus.Value = TrBStatus.Value + 1
If TrBStatus.Value = 12 Then
CmdPass.Enabled = False
CmdMerit.Enabled = False
CmdDistinction.Enabled = False

End If
LblDistinction.Text = UCASDistinction & "Distinction"

LblBoundaryPoints.Text = GradeBoundaryPoints & "Grade Boundary

Points "
End Sub

Private Sub CmdCalculate_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles CmdCalculate.Click
If GradeBoundaryPoints >= 108 And GradeBoundaryPoints <= 131 Then
LblGrade.Text = "Overall Grade PPP"
LblPoints.Text = "120 UCAS Points"

ElseIf GradeBoundaryPoints >= 132 And GradeBoundaryPoints <= 155

Then
LblGrade.Text = "Overall Grade MPP"
LblPoints.Text = "160 UCAS Points"

ElseIf GradeBoundaryPoints >= 156 And GradeBoundaryPoints <= 179

Then
LblGrade.Text = "Overall Grade MMP"
LblPoints.Text = "200 UCAS Points"

ElseIf GradeBoundaryPoints >= 180 And GradeBoundaryPoints <= 203

Then
LblGrade.Text = "Overall Grade MMM"
LblPoints.Text = "240 UCAS Points"

ElseIf GradeBoundaryPoints >= 204 And GradeBoundaryPoints <= 227

Then
LblGrade.Text = "Overal Grade DMM"
LblPoints.Text = "280 UCAS Points"

ElseIf GradeBoundaryPoints >= 204 And GradeBoundaryPoints <= 227

Then
 LblGrade.Text = "Overal Grade DMM"
LblPoints.Text = "280 UCAS Points"

ElseIf GradeBoundaryPoints >= 228 And GradeBoundaryPoints <= 251

Then
LblGrade.Text = "Overal Grade DDM"
LblPoints.Text = "320 UCAS Points"

ElseIf GradeBoundaryPoints >= 252 And GradeBoundaryPoints <= 324

Then
LblGrade.Text = "Overal Grade DDD"
LblPoints.Text = "360 UCAS Points"

LblGrade.Text = "Overall Grade Fail"

End If
End Sub

Private Sub BND_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

End Sub
End Class

Test Table
Test Test Data Use Expected Output Actual Output Test Results
Intro-Screen Should Open the Opened The PASS
(Drop Down List) BNA Calculator Program
for BTEC National
Award
Intro-Screen Should Open the Opened The PASS
(Drop Down List) BNC Calculator Program
for BTEC National
Certificate
Intro-Screen Should Open the Opened the PASS
(Drop Down List) BND Calculator Program
for BTEC National
Diploma
Pass Button Should Generate Generated 6 PASS
6 Grade Boundary Grade Boundary
Points Points
Merit Button Should Generate Generated 12 PASS
12 Grade Grade Boundary
Boundary Points Points
Distinction Should Generate Generated 18 PASS
Button 18 Grade Grade Boundary
Boundary Points Points
Calculate UCAS Should Generate Generated the PASS
Now button the Overall Grade Overall Grade and
and UCAS points UCAS Points