• Join over 1.2 million students every month
  • Accelerate your learning by 29%
  • Unlimited access from just £6.99 per month
Page
  1. 1
    1
  2. 2
    2
  3. 3
    3
  4. 4
    4
  5. 5
    5
  6. 6
    6
  7. 7
    7
  8. 8
    8
  9. 9
    9
  10. 10
    10
  11. 11
    11
  12. 12
    12
  13. 13
    13
  14. 14
    14
  15. 15
    15
  16. 16
    16
  17. 17
    17
  18. 18
    18
  19. 19
    19
  20. 20
    20
  21. 21
    21
  22. 22
    22
  23. 23
    23
  24. 24
    24
  25. 25
    25
  26. 26
    26
  27. 27
    27
  28. 28
    28
  29. 29
    29
  30. 30
    30
  31. 31
    31
  32. 32
    32

The United Kingdom Awarding Body (UKAB) has asked me to design a system for the monitoring of its post-examinations re-marks.

Extracts from this document...

Introduction

Introduction The United Kingdom Awarding Body (UKAB) has asked me to design a system for the monitoring of its post-examinations re-marks. If a centre feels that the grade awarded to a candidate for an examination is lower than expected, the centre can ask for that script to be remarked. The UKAB expects all this to be completed within three weeks. All the details must be stored for the purpose of analysis and monitoring File Design External file name: Re-Mark.dat General name: Re-mark Description: Stores details of all current candidates Record structure Field name Field description Data type No. bytes CandName Candidate's Name String 16 CandNo Candidate's Number String 4 CenterNo Centre Number String 5 DateSub Date of the exam paper submitted Date 10 SubRef Subject Reference Code String 5 OrgMr Original Mark Integer 2 OrgGr Original Grade String 2 PaperRt Paper to be returned? String 3 RemarkedMr Remarked Mark Integer 2 RemarkedGr Remarked Grade String 2 DateRt Date of paper when returned Date 10 Record size 61 bytes Typical size of file 1 record per script. With 15 scripts= 990 bytes Data Flow Diagram Data Requirements Data to be input: The following details will be stored for the re-marks: * Candidate name * Candidate number * Centre number * Subject reference code * Original mark * Re-mark * Centre requested script * Date paper submitted * Date paper re-marked * Grade affected by remark For a subject the following will be stored: * Subject Reference Code * Grade boundaries for grades A-E and U * Date for the request of the re-mark Data to be output: Print out of all candidates remarks details Print out of all specific centre number Print out of all specific subject reference code Print out of all re-marks that have not been returned in a three week period Print out of all re-marks were the grade have been affected Analysis of software I have decided that there are four possible roots which I can follow to complete this ...read more.

Middle

As Integer ................................................................................................. Private Sub cboCandNo_Click() Dim Candidate As CandidateType Dim SearchCandNo As String * 4 Dim Found As Boolean Found = False SearchCandNo = cboCandNo.Text Open CandidateFile For Random As #1 Len = Len(Candidate) Do While Not EOF(1) And Not Found Get #1, , Candidate If Candidate.CandNo = SearchCandNo Then Found = True End If Loop Close #1 If Found Then txtCandName.Text = Candidate.CandName txtCandNo.Text = Candidate.CandNo txtCentreNo.Text = Candidate.CentreNo txtDateSub.Text = Candidate.DateSub cboSubRef1.Text = Candidate.SubRef txtOrgMr.Text = Candidate.OrgMr lblOrgGr = Candidate.OrgGr cboPaperRt.Text = Candidate.PaperRt txtRemarkedMr.Text = Candidate.RemarkedMr lblRemarkedGr = Candidate.RemarkedGr cboGradeAff.Text = Candidate.GradeAff txtDateRt.Text = Candidate.DateRt End If End Sub ................................................................................................. Private Sub cboCandName_Click() Dim Candidate As CandidateType Dim SearchCandName As String * 15 Dim Found As Boolean Found = False SearchCandName = cboCandName.Text Open CandidateFile For Random As #1 Len = Len(Candidate) Do While Not EOF(1) And Not Found Get #1, , Candidate If Candidate.CandName = SearchCandName Then Found = True End If Loop Close #1 If Found Then txtCandName.Text = Candidate.CandName txtCandNo.Text = Candidate.CandNo txtCentreNo.Text = Candidate.CentreNo txtDateSub.Text = Candidate.DateSub cboSubRef1.Text = Candidate.SubRef txtOrgMr.Text = Candidate.OrgMr lblOrgGr = Candidate.OrgGr cboPaperRt.Text = Candidate.PaperRt txtRemarkedMr.Text = Candidate.RemarkedMr lblRemarkedGr = Candidate.RemarkedGr cboGradeAff.Text = Candidate.GradeAff txtDateRt.Text = Candidate.DateRt End If End Sub ................................................................................................. Private Sub cboSubRef_Click() Dim Candidate As CandidateType Dim SearchSubRef As String * 5 SearchSubRef = cboSubRef.Text Open CandidateFile For Random As #1 Len = Len(Candidate) lstCandidates.Clear Do While Not EOF(1) Get #1, , Candidate If Candidate.SubRef = SearchSubRef Then With Candidate lstCandidates.AddItem .CandNo & " " & .CandName & " " & .CentreNo & " " & .DateSub & " " & .SubRef & " " & .OrgGr & " " & .OrgMr & " " & .PaperRt & " " & .RemarkedMr & " " & .RemarkedGr & " " & .GradeAff & " " & .DateRt End With End If Loop Close #1 lblHeading.Caption = "Candidates with subject refrence code " & SearchSubRef End Sub ................................................................................................. ...read more.

Conclusion

Then grade = i End If Next i End If If cboSubRef1 = "54821" Then For i = 1 To 5 If OrgMr > GradeBoundary(4, i) Then grade = i End If Next i End If If cboSubRef1 = "64773" Then For i = 1 To 5 If OrgMr > GradeBoundary(5, i) Then grade = i End If Next i End If If grade = 5 Then grade = "A" ElseIf grade = 4 Then grade = "B" ElseIf grade = 3 Then grade = "C" ElseIf grade = 2 Then grade = "D" ElseIf grade = 1 Then grade = "E" Else grade = "U" End If lblOrgGr = grade End Sub ................................................................................................. Private Sub txtRemarkedMr_LostFocus() Dim RemarkedMr As Integer Dim i As Integer Dim grade As String RemarkedMr = txtRemarkedMr If cboSubRef1 = "01325" Then For i = 1 To 5 If RemarkedMr > GradeBoundary(1, i) Then grade = i End If Next i End If If cboSubRef1 = "20094" Then For i = 1 To 5 If RemarkedMr > GradeBoundary(2, i) Then grade = i End If Next i End If If cboSubRef1 = "28181" Then For i = 1 To 5 If RemarkedMr > GradeBoundary(3, i) Then grade = i End If Next i End If If cboSubRef1 = "54821" Then For i = 1 To 5 If RemarkedMr > GradeBoundary(4, i) Then grade = i End If Next i End If If cboSubRef1 = "64773" Then For i = 1 To 5 If RemarkedMr > GradeBoundary(5, i) Then grade = i End If Next i End If If grade = 5 Then grade = "A" ElseIf grade = 4 Then grade = "B" ElseIf grade = 3 Then grade = "C" ElseIf grade = 2 Then grade = "D" ElseIf grade = 1 Then grade = "E" Else grade = "U" End If lblRemarkedGr = grade End Sub ................................................................................................. AS COMPUTING-UNIT 3 UKAB-REMARK Ibrahim Ali Candidate No 5551 - 1 - Centre No 15247 ...read more.

The above preview is unformatted text

This student written piece of work is one of many that can be found in our AS and A Level Computer Science section.

Found what you're looking for?

  • Start learning 29% faster today
  • 150,000+ documents available
  • Just £6.99 a month

Not the one? Search for your essay title...
  • Join over 1.2 million students every month
  • Accelerate your learning by 29%
  • Unlimited access from just £6.99 per month

See related essaysSee related essays

Related AS and A Level Computer Science essays

  1. Business blue print document for the implementation of SAP R/3 (4.6B) payroll at Mastek ...

    2.4 MSI US PAYROLL - GROSS PROCESSING Purpose The Gross Payroll component processes employee master data from SAP Personnel Administration and generates wage types and amounts to be used by the Net Payroll component, or to be exported to a third-party product for net calculation.

  2. Computing Project

    TFmRegAMem.BtnExitClick(Sender: TObject); This procedure closes the form and returns back to the main menu Add New DVD's Form procedure TFmAddNewDvd.BtnAddDvdsClick(Sender: TObject); This procedure adds the details of a DVD to the Films Table procedure BtnExitClick(Sender: TObject); This procedure exits the form and returns back to the manin menu form.

  1. What is transaction processing?

    One of the disadvantages of Email is if the recipients address has been incorrectly typed but is a recognised Email address, then the required information which could have been urgent will not get to the correct person. This could also lead to the problem of security of company or personal data.

  2. GCSE I.T Security Case Study - Riverside Leisure Centre

    After that it should be discarded. Personal data shall be processed in accordance with the rights of data subjects under this Act. A data subject is entitled to make a written request to the data controller (accompanied by administration fee) and be given details of their data within 40 days.

  1. ICT Sample Work Welcome Centre Requirements

    * Using the solution that is created Anita will also use the solution and is an intermediate user. She can login, organise files and folders, word process, use basic features of spreadsheet software, use a web browser to surf the internet, and can also use her accounts package.

  2. Smart Card System

    The magnetic stripe works by encoding identification on a magnetic tape similar to how a computer writes information onto a floppy disk. This method is powerful but insure in many instances. These magnetic cards are easy to reproduce and there is no form of encryption. The Smart Card is different.

  1. With diagrams compare and contrast the relative advantages and disadvantages of digital transmission over ...

    At the receiving end, the computer recalculates the remainder. If it does not match the transmitted remainder, an error is detected. Method Two: In computers, Parity (from the Latin parities: equal or equivalent) refers to a technique of checking whether the data has been lost or it has written over when it's been moved from one place in storage to another or when transmitted between the computers.

  2. System I designed in order to produce a promotion package for her newly formed ...

    You can set Internet Explorer to use the colours and fonts you specify, your default Windows colours and fonts, or the settings you specify in your own style sheet. For more information, see Changing fonts and background colours. Customise the toolbar You can customise the toolbar by adding or removing

  • Over 160,000 pieces
    of student written work
  • Annotated by
    experienced teachers
  • Ideas and feedback to
    improve your own work