(02-15-2023, 02:43 AM)OldMoses Wrote: An array in an array... could a multi-dimensional array work here? Say, make a two dimensional array of the SlaveAssignmentType, with the first dimension being indexed to the MasterAssignmentType and the second dimension to the NameListType. The order depending upon which is most likely to need REDIMing during use, should that be necessary. REDIMing the second dimension is trivially easy using REDIM _PRESERVE, but REDIMing the first dimension would require a bit more effort; copying, REDIMing then restoring the copy to the original array.

That was how I approached doing an RPG character generator that juggled multiple characters at one time, each of which had multiple data points that each had to be unique to them.

(02-15-2023, 03:17 AM)NasaCow Wrote:

(02-15-2023, 02:43 AM)OldMoses Wrote: An array in an array... could a multi-dimensional array work here? Say, make a two dimensional array of the SlaveAssignmentType, with the first dimension being indexed to the MasterAssignmentType and the second dimension to the NameListType. The order depending upon which is most likely to need REDIMing during use, should that be necessary. REDIMing the second dimension is trivially easy using REDIM _PRESERVE, but REDIMing the first dimension would require a bit more effort; copying, REDIMing then restoring the copy to the original array.

That was how I approached doing an RPG character generator that juggled multiple characters at one time, each of which had multiple data points that each had to be unique to them.

In a nutshell, this is what I am trying to do but I am not seeing how to index the array to two different UDT. Could provide a code snippet on how to create and change elements? I understand what you are say but having a hard time to see how to code it.

---

On further reflection what you said and it got me thinking. I could index INSIDE the slave file, it just needs to be a standard array and could get large (number of students times number of assignments). I just needed to hear different ideas from different people to think how to make it work. I think this would work.

Code: (Select All)

TYPE MasterAssignmentType 'Needed to populate the top (assignment list)
    ARName AS STRING * 20 'Assignment report name
    ADName AS STRING * 10 'Assignment display name (short name)
    AType AS UNSIGNED BYTE 'Assignment Type (Completeion, formative, summative, etc.)
    ACat AS STRING * 20 'Assignment Category (subject, unit, etc)
    AColor AS UNSIGNED BYTE 'Color coding assignment headers and for grouping for reports
    ACode AS UNSIGNED BYTE 'Reserved
    APts AS UNSIGNED INTEGER 'Total points allowed
    AID AS INTEGER 'Unique assignment ID
END TYPE

TYPE SlaveAssignmentType 'Needed to fill in the gradebook
    UID AS INTEGER 'UID will match the stuedent name list to match results, negative UID means deleted and we will ignore it on display and reports
    AID AS INTEGER 'Know which student points are going with each assignmnet
    MPts AS UNSIGNED INTEGER 'Points earned for each particular students
    Flags AS UNSIGNED BYTE 'See below for codes
    Flags2 AS UNSIGNED BYTE ' Reserved
    Notes AS STRING * 512 'Comments for a student's work
END TYPE

Adding an assignment ID, I can use the UID and AID like an (X,Y) and print the proper numbers and flags into each box. Thanks for pointing me in the proper direction!

(02-16-2023, 04:25 PM)bplus Wrote: @NasaCow here is a sample Student UDT that can hold scores to 20 tests and do 20 Projects details with updated subs and functions to store array data into a Fixed string that can be saved to file because all UDT data is fixed size ie, no variable length strings.

Code: (Select All)

Type NameListType 'Used for the student name database
    PinYinName As String * 20
    FirstName As String * 20
    MiddleName As String * 20
    LastName As String * 20
    Year As Integer
    Month As Integer
    Day As Integer
    HouseColor As String * 8
    MomName As String * 30
    MomPhone As String * 20 'Saved as string to support symbols and international prefixes
    MomEmail As String * 38
    DadName As String * 30
    DadPhone As String * 20
    DadEmail As String * 38
    'UID As Integer ' still need??    Don't think so because tests and projects stored with eacg student
    ' But do have ProjectCode for connecting details of each project assigned
    Tests As String * 60 ' 20 tests 3 chars per score
    ProjectCodeID As String * 60 ' 20 codes at 3 chars per code this could hook up to the Project Details
    ProjectPts As String * 60 ' 0 to 999 points per project allows max 20 projects
    ProjectFlags As String * 60 ' 20 flag codes up to 3 digits each
    ProjectFlags2 As String * 60 ' 20 more flag codes ???
    ProjectNotes As String * 10240 ' thats 512 per comment, allows 20 comments for each of 20 projects

End Type


' test revised sub and function Put3 and Get3$
Dim studentTest3X20 As String * 60 ' fit 20 tests   into fixed string that can be stored from UDT

Data 100,82,75,98,66
For i = 1 To 5 ' test PutTest loading the student test string with 5 tests
    Read testscore
    Put3 studentTest3X20, i, testscore
Next

' ok read back scores  in reverse order
For i = 5 To 1 Step -1
    Print Get3$(studentTest3X20, i)
Next



' 5 types above put 3 digit integers into a string that is holding data like an array
Sub Put3 (DataString As String * 60, Index As Long, IntItem As Integer) ' store 3 digits integers into a string of 20
    Mid$(DataString, Index * 3 - 2, 3) = Right$("   " + _Trim$(Str$(IntItem)), 3)
End Sub

Function Get3$ (DataString As String * 60, Index As Long)
    Get3$ = Mid$(DataString, Index * 3 - 2, 3)
End Function

' For space hog comments
Sub PutProjectNote (DataString As String * 10240, Index As Long, Note As String * 512) ' store 512 note into big string
    Mid$(DataString, Index * 512 - 511, 512) = Note
End Sub

Function GetProjectNote$ (DataString As String * 10240, Index As Long)
    GetProjectNote$ = Mid$(DataString, Index * 512 - 511, 512)
End Function

So you can store the students tests and project details with each Student File and the details of each project in another file and use a Project code number to connect the student data on project to details of project.