| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2008.02.28/ |
Upload File : |
' random_access_read_time.bas
' Demonstrates how long it takes to read a record from a random access file.
' Reads record 1 and then record 999995
open "7.txt" FOR RANDOM AS #1 LEN=8
FIELD #1,_ ' set up the fields for file opened as #1
7 AS word$,_ ' The record number
1 AS comma$ ' this is here for the sequential test
comma$ = ","
for recordToRead = 1 to 150
startTime = time$("ms")
get #1,recordToRead
endTime = time$("ms")
totalTime = endTime-startTime
print "Record ";recordToRead;":"
print "recordNumber$=";recordNumber$;"."
print "microseconds$=";microseconds$;"."
print "comma$=";comma$;"."
print "It took ";totalTime;" microseconds to read to record ";recordToRead;"."
secondTime = totalTime/1000
print "This is ";secondTime;" seconds."
next recordToRead
close #1