Posted by Adam on January 14, 2003, 12:52 pm PRINT TAB(35); "Football Stats" INPUT "What is your numeric choice?", Choice 'IF Choice = 1 THEN CALL Creation IF Choice = 4 THEN 'IF Choice = 5 THEN CALL Exittion SUB Creation SUB Deletion END SUB SUB Printion (Elements) REM <--Receptions--> PRINT "Rushing Attempts: "; TAB(20); RushATT(PrintScrs); PRINT "Rushing Attempts: "; TAB(20); RushATT(PrintScrs); PRINT "Rushing Attempts: "; TAB(20); RushATT(PrintScrs); PRINT "Rushing Attempts: "; TAB(20); RushATT(PrintScrs); NEXT PrintScrs
207.224.156.190
DECLARE SUB Printion (Elements!)
DECLARE SUB Deletion ()
DECLARE SUB Creation ()
CLS
REM Adam Schirmacher
REM Project 6
PRINT "Your options are:"
PRINT "(1) Create a new file"
PRINT "(2) Update/delete stats"
PRINT "(3) Add a new player"
PRINT "(4) Print statistics"
PRINT "(5) Exit"
'IF Choice = 2 THEN CALL Deletion
'IF Choice = 3 THEN CALL Addition
OPEN "U
LAYERS.KIX" FOR INPUT AS #1
DO
LET Elements = Elements + 1
LOOP UNTIL EOF(1)
DIM SHARED Name$(Elements), RushATT(Elements), RushYD(Elements)
DIM SHARED RushTD(Elements), Rec(Elements), RecYD(Elements)
DIM SHARED RecTD(Elements), PassAtt(Elements), PassCP(Elements)
DIM SHARED PassYD(Elements), PassTD(Elements), PassINT(Elements)
CLOSE #1
CALL Printion(Elements)
END IF
REM Open the file for output
OPEN "ULAYERS.KIX" FOR OUTPUT AS #1
DO
REM <--Ask all the questions and write to #1-->
INPUT "What is the name of the player? ", Name$: WRITE #1, Name$
INPUT "How many rushing attempts? ", RushATT: WRITE #1, RushATT
INPUT "How many rushing yards? ", RushYD: WRITE #1, RushYD
INPUT "How many rushing TD's? ", RushTD: WRITE #1, RushTD
INPUT "How many receptions? ", Rec: WRITE #1, Rec
INPUT "How many receiving yards? ", RecYD: WRITE #1, RecYD
INPUT "How many receiving TD's? ", RecTD: WRITE #1, RecTD
INPUT "How many pass attempts? ", PassAtt: WRITE #1, PassAtt
INPUT "How many pass completions? ", PassCP: WRITE #1, PassCP
INPUT "How many passing yards? ", PassYD: WRITE #1, PassYD
INPUT "How many passing touchdowns? ", PassTD: WRITE #1, PassTD
INPUT "How many passing interceptions? ", PassINT: WRITE #1, PassINT
INPUT "Another player? (Y/N) ", Ans$
LOOP UNTIL UCASE$(Ans$) = "N"
END SUB
FOR PrintScrs = 1 TO Elements
PRINT TAB((72 - LEN(Name$(PrintScrs))) / 2); Name$(PrintScrs)
REM <--Rushing attempts-->
PRINT "Rushing Attempts: "; TAB(20); RushATT(PrintScrs);
PRINT TAB(40); "Rushing Yards: "; TAB(60); RushYD(PrintScrs)
REM <--Rushing Touchdowns-->
PRINT "Rushing Touchdowns: "; TAB(20); RushTD(PrintScrs);
REM <--Yards per carry-->
LET YPC = RushYD(PrintScrs) / RushATT(PrintScrs)
LET YPC = INT(YPC * 1000) / 1000
PRINT TAB(40); "Yards Per Carry: "; TAB(60); YPC
PRINT "Receptions: "; TAB(20); Rec(PrintScrs);
REM <--Receiving yards-->
PRINT TAB(40); "Receiving Yards: "; TAB(60); RecYD(PrintScrs)
REM <--receiving TD's-->
PRINT TAB(40); "Receiving Touchdowns: "; TAB(60); RecTD(PrintScrs)
REM <--yards per reception-->
LET YPR = RecYD(PrintScrs) / Rec(PrintScrs)
LET YPR = INT(YPR * 1000) / 1000
PRINT TAB(40); "Yards Per Reception: "; TAB(60); YPR
PRINT TAB(40); "Rushing Yards: "; TAB(60); RushYD(PrintScrs)
PRINT TAB(40); "Rushing Yards: "; TAB(60); RushYD(PrintScrs)
PRINT TAB(40); "Rushing Yards: "; TAB(60); RushYD(PrintScrs)
PRINT TAB(40); "Rushing Yards: "; TAB(60); RushYD(PrintScrs)
END SUB
Message Thread:
« Back to thread