(04-12-2023, 10:39 AM)TempodiBasic Wrote: So here the step4
I added the new fields, I modified the fields unable to bring easily the important data.
Here the code:
Code: (Select All)_Title "GradeBook step 4"
$NoPrefix
Option Explicit
Option ExplicitArray
'-------------------------------------------------------
' pushed out for flexible use
Type Dated
Year As Integer
Month As Integer
Day As Integer
End Type
' created as added UDT to manage SchoolClass category
Type classes
CourseName As String
Term As String 'this brings the values for starting year and ending year
StartDate As Dated
EndDate As Dated
End Type
Type NameListType 'Used for the student name database
PinYinName As String * 20
FirstName As String * 20
MiddleName As String * 20
LastName As String * 20
BirdDate As Dated ' it groups the 3 element of date
StudEmail As String * 38 ' new field for PowerTeacher GradeBook
StudPhone As String * 12 ' new field for PowerTeacher GradeBook
HouseColor As String * 20 'modified from string * 8 to string * 20 (Nameclass *11)-(Namegroup *8)
Gender As String * 1 ' new field for PowerTeacher GradeBook Male or Female M/F
GradeLevel As Integer ' new field for PowerTeacher GradeBook
GradeScale As Integer ' new field for PowerTeacher GradeBook
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
End Type
Type MasterAssignmentType 'Each entry needs to be defined before use with slave
UID As Integer ' UID for distinguish among different assignments made in the same date and class or set of students
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 String * 20 ' Unsigned Byte 'Color coding assignment headers and for grouping for reports
ACode As Unsigned Byte 'Reserved
APts As Unsigned Integer 'Total points allowed= AEPts + (APPts * AWPts)
AWPts As Unsigned Byte ' weight of each point versus point 1.0 global score ' new field for PowerTeacher GradeBook
APPts As Unsigned Integer 'possible points getting from the assignment ' new field for PowerTeacher GradeBook
AEPts As Unsigned Integer ' Extra point getting from assignment ' new field for PowerTeacher GradeBook
ADate As Dated ' new field for PowerTeacher GradeBook
AIncludeInFinalGrade As Byte ' new field for PowerTeacher GradeBook
ADescription As String * 100 ' new field for PowerTeacher GradeBook
End Type
Type SlaveAssignmentType 'Each student would require one with use with master
UIDm As Integer 'UID shows which MasterAssignment has been used
UIDs As Integer 'UID will match the student name list to match results, negative UID means deleted and we will ignore it on display and reports
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
'====================Flag codes====================
'1 - Late (Turned in late) |
'2 - Absent on due date (ignore due date) |
'4 - Incomplete (turned in but not done) |
'8 - Missing (Not turned in) |
'16 - Excused/Exempt |
'32 - Ignore score internally for avg, etc. |
'64 - Remove from reports (ignore externally) |
'128 - Reserved |
'==================================================
' end Data Type definition-------------------------------------
Dim Max As Integer, HowMuch As Long, How As Integer
Max = 1
HowMuch = 0
Dim Students(1 To Max) As NameListType, Assignments(1 To Max) As MasterAssignmentType, Results(1 To Max) As SlaveAssignmentType
GoSub initFilerecords
Open "DatabaseDemo2.txt" For Binary As #1
Cls , 14
Print "Now reading Students..."
GoSub ReadStudents
Print " press a key to continue..."
Sleep 2
Cls , 13
Print "Now reading Assignments..."
GoSub ReadAssignment
Print " press a key to continue..."
Sleep 2
Cls , 12
Print "Now reading Results..."
GoSub ReadResults
Close #1
Print " press a key to continue, ESC to quit..."
Sleep 2
Cls , 2
' here start main window of Gradebook database
Dim choice$
choice$ = " "
While choice$ = " "
Cls , 1
Call MWindow(2, 2, 78, 23, " <GradeBook Menu> ")
Locate 4, 4: Print " Press ESCape to quit";
Locate 6, 4: Print " Press S for Students List ";
Locate 8, 4: Print " Press A for Assignment List ";
Locate 10, 4: Print " Press R for Results List ";
choice$ = LCase$(InKey$)
If choice$ = Chr$(27) Then
Cls , 0:
Print "Quitting"
Exit While
ElseIf choice$ = "a" Then
Cls , 2
Print "Assignments: "
GoSub ShowList
ElseIf choice$ = "s" Then
Cls , 5
Print "Students: "
GoSub ShowList
ElseIf choice$ = "r" Then
Cls , 6
Print "Result: "
GoSub ShowList
End If
' Locate 20, 4: Print choice$;
If Len(choice$) > 0 Then While InKey$ = "": Wend
_Limit 10
choice$ = " "
Wend
End '<-------- end of program
' Initialization GOSUB creates file of database reading internal data
initFilerecords:
Open "DatabaseDemo2.txt" For Binary As #1 ' here database file has been created
' writing Students in the file
HowMuch = 10
ReDim Preserve Students(1 To HowMuch) As NameListType
Put #1, , HowMuch
Restore StudentsData
Locate 24, 1: Print " Filling file"
For How = 1 To HowMuch Step 1
Read Students(How).PinYinName, Students(How).FirstName, Students(How).MiddleName, Students(How).LastName, Students(How).BirdDate.Year, Students(How).BirdDate.Month, Students(How).BirdDate.Day, Students(How).HouseColor, Students(How).MomName, Students(How).MomPhone, Students(How).MomEmail, Students(How).DadName, Students(How).DadPhone, Students(How).DadEmail, Students(How).UID
'GoSub ShowStudentRecord
'_Delay 1
Next How
Put #1, , Students()
'write assignments in the file
Cls , 5
HowMuch = 4
ReDim Preserve Assignments(1 To HowMuch) As MasterAssignmentType
Restore AssignmentData
Put #1, , HowMuch
For How = 1 To HowMuch Step 1
Read Assignments(How).UID, Assignments(How).ARName, Assignments(How).ADName, Assignments(How).AType, Assignments(How).ACat, Assignments(How).AColor, Assignments(How).ACode, Assignments(How).APts
'GoSub ShowAssignmentsRecord
'_Delay 1
Next How
Put #1, , Assignments()
'write results in the file
Cls , 4
HowMuch = 35
Restore ResultsData
ReDim Preserve Results(1 To HowMuch) As SlaveAssignmentType
Put #1, , HowMuch
For How = 1 To HowMuch Step 1
Read Results(How).UIDm, Results(How).UIDs, Results(How).MPts, Results(How).Flags, Results(How).Flags2, Results(How).Notes
'GoSub ShowResultsRecord
'_Delay 1
Next How
Put #1, , Results()
Close #1
Cls , 12
Print "File of database done! Ready to start demo."
Print "Please press a key to start..."
Sleep
Return
' END of initialization GOSUB----------------------------------
'----------Loading data from file of database into RAM-------------
ReadStudents:
'reading students from the file
Cls , 3
Print " Reading file for Students"
Get #1, , HowMuch
ReDim Students(1 To HowMuch) As NameListType
Get #1, , Students()
'For How = 1 To HowMuch Step 1
' GoSub ShowStudentRecord
'_Delay 1
'Next How
Return
ReadAssignment:
' reading assignments from the file
Cls , 1
Print " Reading file for Assignments"
Get #1, , HowMuch
ReDim Assignments(1 To HowMuch) As MasterAssignmentType
Get #1, , Assignments()
'For How = 1 To HowMuch Step 1
'GoSub ShowAssignmentsRecord
'_Delay 1
'Next How
Return
ReadResults:
' reading results from the file
Cls , 2
Print " Reading file for Results"
Get #1, , HowMuch
ReDim Results(1 To HowMuch) As SlaveAssignmentType
Get #1, , Results()
'For How = 1 To HowMuch Step 1
'GoSub ShowResultsRecord
'_Delay 1
'Next How
Return
'----OUTPUT GOSUB routines ---- to modify for own need
ShowList:
Select Case choice$
Case "a"
HowMuch = UBound(Assignments)
For How = 1 To HowMuch Step 1
Locate , 4
Print Assignments(How).UID
Locate , 4
Print Assignments(How).ADName; " "; Assignments(How).ARName
Next How
Case "r"
HowMuch = UBound(Results)
For How = 1 To HowMuch Step 1
Locate , 4
Print Assignments(Results(How).UIDm).ADName; " ";
Print Trim$(Students(Results(How).UIDs).PinYinName); Space$(5); Trim$(Students(Results(How).UIDs).FirstName); Space$(5); Trim$(Students(Results(How).UIDs).MiddleName); Space$(5); Trim$(Students(Results(How).UIDs).LastName);
Print " "; Results(How).MPts
If How Mod 15 = 0 Then
Locate 24, 4: Print "press any key to continue...";
Sleep 4
Cls , 6
End If
Next How
Case "s"
HowMuch = UBound(Students)
For How = 1 To HowMuch Step 1
Locate , 4
Print Students(How).UID
Locate , 4
Print Trim$(Students(How).PinYinName); Space$(5); Trim$(Students(How).FirstName); Space$(5); Trim$(Students(How).MiddleName); Space$(5); Trim$(Students(How).LastName)
Next How
End Select
Locate 24, 4: Print "press any key to continue...";
Return
ShowStudentRecord:
Locate 2, 1: Print Space$(80);
Locate 2, 1: Print Trim$(Students(How).PinYinName); Space$(5); Trim$(Students(How).FirstName); Space$(5); Trim$(Students(How).MiddleName); Space$(5); Trim$(Students(How).LastName);
Locate 4, 1: Print Space$(40);
Locate 4, 1: Print "Birthday: "; Students(How).BirdDate.Year; " "; Students(How).BirdDate.Month; " "; Students(How).BirdDate.Day;
Locate 6, 1: Print "Housecolor: "; Students(How).HouseColor; Space$(10)
Locate 8, 1: Print "Mom data: "; Trim$(Students(How).MomName); "/"; Trim$(Students(1).MomPhone); "/"; Trim$(Students(1).MomEmail); Space$(10)
Locate 10, 1: Print "Dad data: "; Trim$(Students(How).DadName); "/"; Trim$(Students(1).DadPhone); "/"; Trim$(Students(1).DadEmail); Space$(10)
Locate 12, 1: Print "UID of student: "; Students(How).UID
Return
ShowAssignmentsRecord:
Locate 1, 1: Print Assignments(How).UID; Space$(10)
Locate , 1: Print Assignments(How).ARName; Space$(10)
Locate , 1: Print Assignments(How).ADName; Space$(10)
Locate , 1: Print Assignments(How).AType; Space$(10)
Locate , 1: Print Assignments(How).ACat; Space$(10)
Locate , 1: Print "Housecolor: "; Assignments(How).AColor; Space$(10)
Locate , 1: Print "Code: "; Assignments(How).ACode; Space$(10)
Locate , 1: Print "Points: "; Assignments(How).APts
Return
ShowResultsRecord:
Locate 1, 1: Print Results(How).UIDm
Locate , 1: Print Results(How).UIDs
Locate , 1: Print Results(How).MPts
Locate , 1: Print Results(How).Flags
Locate , 1: Print Results(How).Flags2
Locate , 1: Print Results(How).Notes
Return
'--------------------DATA set for database file-----------------
StudentsData:
Data RDJ,Robert,Downing,Junior,2000,2,22,12345600,Julia Concepts,333222111,JConcepts@Yahoo.com,Peter Downing,111222333,PeterD@aol.com,1
Data PJM,Paulus,June,Marcus,1999,3,23,89765909,Maria Capello,444111222,MariaCapello@microsoft.com,Mickie Costello,333222333,Mi_Costello@amazon.com,2
Data TMA,Terrie,Mike,Anderson,2001,12,25,45398758,Stephany Johnson,888999777,StepJo@BBC.com,Frank Boulevard,888777666,FrankBoulevard@microsoft.com,3
Data AJW,Amy,Johnson,Watson,2000,01,04,87543324,Donna Walker,666555333,DonWalk@cisco.com,Walter Bros Julian,888222111,WaltBro@amazon.com,4
Data ERT,Emily,Rose,Tinder,2003,4,15,19045689,Angie Longman,333000999,AngieL@tabloid.com,Donald Foster,444888999,DonaldFoster@cisco.com,5
Data UAB,Ully,Aktick,Brandson,2002,06,09,65498732,Jane Murdock,444555666,JMurdock23@aol.com,Ted Wineger,333444555,TedWineger@cisco.com,6
Data WAS,Wendy,Allison,Singer,2004,6,12,78488922,Melissa Naom,999333999,MeliNaom@yahoo.it,Albert Stone,444000999,ASt456@microsoft.com,7
Data MCS,Molly,Connor,Smith,2001,7,5,54365476,Emily Sandman,099900111,EmilyS@aol.com,Bob Miller,555222111,BMiller567@microsoft.com,8
Data RDJ,Ronny,Dudson,jansenn,2003,8,15,81264554,Jenny Portman,123123123,Jportman@BBC.com,Al Fisherman,678678678,AlFisherman@aol.com,9
Data NK,Nina,Killer,,2000,6,12,65439876,Pauline Arson,567567567,PArson@life.com,Andy Wiley,890890890,Andywiley@micro.com,10
Data "END"
AssignmentData:
Data 1,Mathematical,Math,2,Subject,16,0,20
Data 2,Scientific test,Science,8,Unit,1,0,20
Data 3,English language,English,4,Unit,2,0,20
Data 4,Psycologist test,Psycotest,16,Subject,32,0,20
Data "END"
ResultsData:
Data 1,4,15,0,0,Good Job
Data 1,10,10,0,0,Medium Job
Data 1,2,1,0,0,the worst Job
Data 1,3,5,0,0,Bad Job
Data 1,8,11,0,0,Good Job
Data 1,6,20,0,0,Excellent Job
Data 2,4,15,0,0,Good Job
Data 2,10,8,0,0,Medium Job
Data 2,2,4,0,0,Bad Job
Data 2,3,5,0,0,Bad Job
Data 2,8,11,0,0,Good Job
Data 2,6,20,0,0,Excellent Job
Data 2,9,15,0,0,Good Job
Data 2,1,10,0,0,Medium Job
Data 2,5,1,0,0,the worst Job
Data 2,7,5,0,0,Bad Job
Data 3,8,11,0,0,Good Job
Data 3,6,20,0,0,Excellent Job
Data 3,4,15,0,0,Good Job
Data 3,10,10,0,0,Medium Job
Data 3,2,1,0,0,the worst Job
Data 3,3,5,0,0,Bad Job
Data 3,7,11,0,0,Good Job
Data 3,5,20,0,0,Excellent Job
Data 3,9,15,0,0,Good Job
Data 3,1,10,0,0,Medium Job
Data 4,2,1,0,0,the worst Job
Data 4,3,5,0,0,Bad Job
Data 4,8,11,0,0,Good Job
Data 4,6,20,0,0,Excellent Job
Data 4,4,15,0,0,Good Job
Data 4,10,10,0,0,Medium Job
Data 4,5,1,0,0,the worst Job
Data 4,7,5,0,0,Bad Job
Data 4,9,11,0,0,Good Job
Data "END"
Sub MWindow (Ax As Integer, Ay As Integer, Bx As Integer, By As Integer, Wtitle As String)
Dim Count As Integer
Locate Ay, Ax
Print Space$(Bx - Ax + 1);
Locate Ay, Ax
Print String$(Bx - Ax + 1, "Í");
Locate Ay, Ax:
Print "É";
Locate Ay, Bx:
Print "»";
For Count = 1 To (By - Ay - 1)
Locate Ay + Count, Ax
Print Space$(Bx - Ax + 1);
Locate Ay + Count, Ax: Print "º";
Locate Ay + Count, Bx: Print "º";
Next Count
Locate By, Ax: Print Space$(Bx - Ax + 1);
Locate By, Ax
Print String$(Bx - Ax + 1, "Í");
Locate By, Ax: Print "È";
Locate By, Bx: Print "¼";
Locate Ay, ((Bx - Ax + 1) / 2) - (Len(Wtitle) / 2)
Print Wtitle;
End Sub
for now it works as the previous because I need a random generator routine for filling the database or a file with these new items.
Moreover to give a more professional output I need listbox, panels, button menu, while windows exists already.
I am glad I saw this! You have some great ideas that I overlooked when planning the Master assignment file. I have added your ideas into the UDT. Since we are both looking at it, I am wondering if there is anything you can think?
Code: (Select All)
'Assignments for all students, populates the top of the gradebook
TYPE MasterAssignmentType
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
AWght AS UNSIGNED INTEGER 'For weighted assignments/100 = 100%
Month AS INTEGER
Day AS INTEGER
Year AS INTEGER
AID AS INTEGER64 'Unique assignment ID
ADetails AS STRING * 4096 'Space to write instructions for an assignment sheet to print.
END TYPEI am looking forward to seeing how you will manage your user interface!