[2005] Need To Add Property/Method

[DroopyPawn]

Public Class Student
    Public FirstName As String = ""
    Public MiddleName As String = ""
    Public LastName As String = ""

    Public MinimumDGrade As Integer = 60
    Public MinimumCGrade As Integer = 70
    Public MinimumBGrade As Integer = 80
    Public MinimumAGrade As Integer = 90

    Public BookNumber As String

    'Address stuff
    Public Address As String = ""
    Public City As String = ""
    Public State As String = ""
    Public ZipCode As String = ""

    Public HomePhoneNumber As String
    Public CellPhoneNumber As String
    Public EmailAddress As String

    'ParentInfo
    Public Class ParentalUnit
        Public FirstName As String = ""
        Public LastName As String = ""
        Public HomePhoneNumber As String = ""
        Public WorkPhoneNumber As String = ""
        Public CellPHoneNumber As String = ""
        Public EmailAddress As String = ""
    End Class
    Public Mother As ParentalUnit
    Public Father As ParentalUnit


    'Grades
    Public Grade(0 To 4, 0 To MaxGradeCount) As String


    Public HomeworkAverage(0 To 4) As String
    Public TestAverage(0 To 4) As String
    Public QuarterAverage(0 To 4) As String
    Public QuarterAverageFinal(0 To 4) As String
    Public SemesterAverage(0 To 4) As String
    Public SemesterAverageFinal(0 To 4) As String

    Public Sub New()
        Dim i As Integer
        For i = 0 To MaxGradeCount
            Grade(1, i) = ""
            Grade(2, i) = ""
            Grade(3, i) = ""
            Grade(4, i) = ""
        Next

        For i = 0 To 4
            HomeworkAverage(i) = "=="
            TestAverage(i) = "=="
            QuarterAverage(i) = ""
            QuarterAverageFinal(i) = "=="
        Next
        SemesterAverage(1) = "=="
        SemesterAverageFinal(1) = "=="
        SemesterAverage(2) = "=="
        SemesterAverageFinal(2) = "=="


        'Dim NewParentalUnit As New ParentalUnit
        Mother = New ParentalUnit
        Father = New ParentalUnit
    End Sub
End Class

Public Class Assignment
    Public Description As String = ""
    Public GradeType As String
    Public DateAssigned As Date
    Public DateDue As Date
    Public Weight As Integer
    Public PerfectScore As Integer
End Class

Public Class Course
    Public CourseName As String = "New Course"
    Public TeacherName As String = ""

    Public GradeCount(0 To 4) As Integer

    Public StudentCount As Integer = 0

    Public CurrentQuarter As Integer = 1
    Public CurrentWeek As Integer = 1
    Public AttendanceCount(0 To 4) As Integer

    'Percents
    Public TestPercent(0 To 4) As Integer
    Public HomeworkPercent(0 To 4) As Integer
    Public QuarterTestPercent(0 To 4) As Integer
    Public SemesterTestPercent(0 To 2) As Integer

    'File info
    Public FileVersion As String = "FlexGrade 4.1 Data File"
    Public FileName As String
    Public WasEdited As Boolean = False
    Public WasSaved As Boolean = False

    Public Student(0 To MaxStudentCount) As Student

    Public Assignment(0 To MaxGradeCount) As Assignment

    Public Sub New()
        Dim i As Integer
        For i = 0 To 4
            GradeCount(i) = 0
            AttendanceCount(i) = 0
            TestPercent(i) = 50
            HomeworkPercent(i) = 50
            QuarterTestPercent(i) = 20
        Next
        SemesterTestPercent(1) = 20
        SemesterTestPercent(2) = 20

        'Dim NewStudent As New Student
        For i = 0 To MaxStudentCount
            Student(i) = New Student
        Next

        'Dim NewAssignment As New Assignment
        For i = 0 To MaxGradeCount
            Assignment(i) = New Assignment
        Next
    End Sub
End Class 

I need to create new methods or properties or whatever to figure a student's HomeworkAverage and TestAverage. The problem is that the student's Grade.class is a subset of the Course.class. To figure the HomeworkAverage, I need to know which grades are Homework ones, and to figure the student's TestAverage, I need to know which grades are Test grades. This information is stored in the Assignment.class, which is also a subset of the Course.class.

If someone can show me a method or property to just find the SUM of only the Homework grades so that I can access it in the main program with Course.Student(StudentIndex).HomeworkSum(HomeworkSumIndex) then I think I can get the rest.

One note: each grade is stored as a string. Some of the grades contain "x", which makes those grades exempt. So obviously, to find the sum, you would need to first check for the "x" character. If there's no "x", then convert it to an integer and add it to the total.

I hope someone can help with this one. I've made a lot of progress the last few days because of help from this forum.

[wild_bill]

Are you familiar with using the dataset designer? I would probably create a dataset to hold this information. It appears as though you are trying to create a simple relational database, which can be done via a dataset. Depending on your plans for the project, you may even look into free sql databases to store your data in.

[DroopyPawn]

I've never done ANYTHING with database programming. Not sure that I'd be up to the task.

[wild_bill]

Right click your project, select add new item, then choose dataset. Make sure to rename it, or you'll have the infamous DataSet1 added to your project. Next decide how your data is related, In my example you would create a student table that has a one to many relationship to ParentalUnits. The student table also has one to many relationship with courses, and courses a one to many with assignments. Then all you need to do is fill in the data, and report on it.