Add files via upload
This commit is contained in:
parent
64c6352265
commit
35131ba393
90 changed files with 1738 additions and 0 deletions
51
Examples/FileIO/run_logger.bas
Normal file
51
Examples/FileIO/run_logger.bas
Normal file
|
@ -0,0 +1,51 @@
|
|||
SUB MAIN()
|
||||
DIM TM AS DOUBLE
|
||||
DIM DD,MM,CCYY AS INTEGER
|
||||
DIM HRS,MINS,SECS,MILLI AS INTEGER
|
||||
DIM S AS STRING
|
||||
|
||||
DIM DATAFILE AS STRING
|
||||
|
||||
DATAFILE = "appendfile.dat"
|
||||
|
||||
TM=NOW()
|
||||
DD=DAY(TM)
|
||||
MM=MONTH(TM)
|
||||
CCYY=YEAR(TM)
|
||||
HRS=HOUR(TM)
|
||||
MINS=MINUTE(TM)
|
||||
SECS=SECOND(TM)
|
||||
MILLI=MILLISECOND(TM)
|
||||
S=STR$(DD) + "/" + STR$(MM) + "/" + STR$(CCYY) + " " + STR$(HRS) + ":" + STR$(MINS) + ":" + STR$(SECS) + "." + STR$(MILLI)
|
||||
|
||||
REM
|
||||
REM ================================
|
||||
REM Append Current Time to data file
|
||||
REM ================================
|
||||
REM
|
||||
|
||||
PRINT "Appending: " + S
|
||||
OPEN #1,DATAFILE,"a"
|
||||
PUT #1,S
|
||||
CLOSE #1
|
||||
|
||||
REM
|
||||
REM =================================================
|
||||
REM Read back and display all times in appendfile.dat
|
||||
REM =================================================
|
||||
REM
|
||||
|
||||
PRINT "List of times in " + CHR$(0x22) + "appendfile.dat" + CHR$(0x22)
|
||||
|
||||
OPEN #1,DATAFILE,"r"
|
||||
TRY
|
||||
WHILE (TRUE)
|
||||
GET #1,S
|
||||
PRINT S
|
||||
END WHILE
|
||||
CATCH S
|
||||
PRINT "End of File"
|
||||
END TRY
|
||||
CLOSE #1
|
||||
END SUB
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue