Member Avatar for lmoe23

who has a program of grading system in visual basic?

thanks for your concern!!!

  • 9 Contributors
  • 8 Replies
  • 840 Views
  • 3 Years Discussion Span
  • Latest Post Latest Post by hkdani

Dani AI

Generated

This thread asks for a secondary-level grading system in Visual Basic (register students/teachers, track assessments, compute final grades). correctly asked for details; outlined the expected scope; reminded the OP that effort helps; and later requested/posted tiny examples. Below is a compact, practical blueprint and a small VB.NET helper to handle the core calculation and mapping to a letter grade.

Suggested data model (minimal)

  • Student(StudentID, LastName, FirstName, DOB)
  • Teacher(TeacherID, Name)
  • Subject(SubjectID, Title)
  • Enrollment(EnrollmentID, StudentID, SubjectID, TeacherID)
  • Assessment(AssessmentID, SubjectID, Title, MaxScore, Weight) -- weight as percent
  • Grade(GradeID, EnrollmentID, AssessmentID, Score)

Implementation notes

  • Store data in a relational DB for anything beyond a demo (SQLite/SQL Server/Access). Use parameterized queries and indexes on ID fields.
  • Decide a weight convention (percent vs fraction) and validate that assessment weights for a subject sum to 100 (or normalize them).
  • Define a policy for missing work (zero, exclude, or allow makeups) and document it in code/comments.
  • Build forms for CRUD on Student/Teacher/Subject/Assessment and a DataGrid for quick grade entry. Export to CSV/PDF for report cards.

Small VB.NET helpers (weighted average + letter mapping)

Function ComputeFinalPercentage(weights As List(Of Decimal), scores As List(Of Decimal)) As Decimal
    Dim total As Decimal = 0
    Dim weightSum As Decimal = 0
    For i As Integer = 0 To Math.Min(weights.Count, scores.Count) - 1
        weightSum += weights(i)
        total += scores(i) * weights(i)
    Next
    If weightSum = 0 Then Return 0
    Return Math.Round(total / weightSum, 2)
End Function

Function PercentageToLetter(pct As Decimal) As String
    Select Case pct
        Case Is >= 90 : Return "A"
        Case Is >= 80 : Return "B"
        Case Is >= 70 : Return "C"
        Case Is >= 60 : Return "D"
        Case Else       : Return "F"
    End Select
End Function

Testing and troubleshooting

  • Start with unit tests: all-100s, mixed weights, missing values.
  • Log calculation inputs (scores, weights) when results look wrong.
  • For homework requests, public helpers usually give targeted fixes faster when a concrete attempt and error messages are shown.

Recommended Answers

All 8 Replies

Member Avatar for abu taher

what kind of grading system you mean? please details.

Member Avatar for ithelp

who has a program of grading system in visual basic?

thanks for your concern!!!

No one is concerned , it is your home work , first put some effort to code it yourself.

Member Avatar for acerdafpz

its simple mathematics.....
study hard....

Member Avatar for markgri

what kind of grading system you mean? please details.

grading system for secondary level, it will register students and teacher for a particular subject and it will compute all the requirements in grading,, as a whole grading..
thanks for your concern.... email me here <<snip>>

Edited by Nick Evan because: removed mail
Member Avatar for debasisdas

grading system for secondary level, it will register students and teacher for a particular subject and it will compute all the requirements in grading,, as a whole grading..
thanks for your concern.... email me here

have you started this thread ?

Member Avatar for jireh

I think you're abusing this forum, lmoe23 & abu taher.

Member Avatar for juliuspl2006

Please, somebody help about my grading system! please kindly give some exact code. Thank you and God bless...

Member Avatar for hkdani

Just a little code to help you with your assignment

Const LAZY_BUM = 0
Const HARD_WORKING_STUDENT = 1

Private Sub Form_Load()
     Dim i as Integer
     i = MsgBox("Am I a good student student?", vbYesNo, "Character")
     
     If (i = vbYes)
          MsgBox "The test of your character is what you do when no one else is watching.", vbInformation, "Test Grade"
     else if(i = vbNo)
          MsgBox "Better to get work on that character, buddy.", vbExclamation, "Now!"
     End if
End Sub

Private Sub MyLife()
     ' It's your choice. Write the code. And remember. There's more to life than 1's and 0's.

End Sub
Edited by hkdani because: n/a
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.