Speed Typing Test 2

[SierraKen]

This is nothing like the one I posted a few days ago, so I made it a new thread. I hope some of you try this one. This one knows your every keystroke as you take the one minute test. You only type one word at a time and it stops at 60 seconds (not like the old one where it was a bad rough guess). I put enough words for the 216 word world record but it also skips to the next word if you type any key incorrectly. If you go past the 216 words, it starts them over again. It also doesn't display your score as you go because I didn't want any distraction as you did this. It will display your results after the 1 minute is over. It's kinda funny how the hardest part of programming this was the simple INKEY$ in that even though it had a tiny loop for it, it still would keep going for some reason, so I switched the variables and now it works fine. lol Please tell me what you think of it, I do appreciate your comments. Thank you.

Code: QB64: [Select]

1. _TITLE "Speed Typing Test 2"
2. COLOR 15
3. begin:
4. t = 0
5. CLS
6. PRINT "                           Speed Typing Test 2"
7. PRINT: PRINT: PRINT
8. PRINT "                               By Ken G."
9. PRINT: PRINT: PRINT
10. PRINT "This program will calculate how many words you can type in 1 minute"
11. PRINT "It will display 1 word at a time and you must type it correctly to count."
12. PRINT "If you press a wrong key, it will just go to the next word and that word"
13. PRINT "will not count on your total. It will also not show a score as you go because"
14. PRINT "I don't want to distract your thinking as you type. Your score will be shown"
15. PRINT "at the end of the 1 minute test."
16. PRINT "There are 216 words (which is the world record), but if you have mistakes"
17. PRINT "and skip words (or if you are a world record holder), then the words will start"
18. PRINT "over again."
19. PRINT "This is not a professional typing test, only just for fun."
20. PRINT: PRINT: PRINT
21. INPUT "Press Enter to start.", st$
22. tim1 = INT(TIMER)
23. again:
24. CLS
25. tt = 0
26. b$ = ""
27. READ a$
28. a$ = LTRIM$(a$)
29. a$ = RTRIM$(a$)
30. IF a$ = "z" THEN
31.     RESTORE words:
32.     GOTO again:
33. END IF
34. LOCATE 10, 30
35. PRINT a$
36. n = LEN(a$)
37. LOCATE 14, 30
38. go:
39. _LIMIT 100
40. DO UNTIL b$ <> ""
41.     b$ = INKEY$
42.     tim2 = INT(TIMER)
43.     tim3 = tim2 - tim1
44.     IF tim3 = 60 THEN GOTO done:
45. LOOP
46. c$ = b$
47. b$ = ""
48. tt = tt + 1
49. PRINT c$;
50. IF c$ <> MID$(a$, tt, 1) THEN GOTO again:
51. IF tt = n THEN t = t + 1: GOTO again:
52. c$ = ""
53. GOTO go:
54. done:
55. CLS
56. PRINT "Your score is: "; t; " correct words per minute."
57. PRINT: PRINT: PRINT
58. INPUT "Again (Y/N)"; ag$
59. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN RESTORE words: GOTO begin:
60.  
61. words:
62. DATA "apple","strong","universe","mountain","doorway","oxygen","airplane","computer","glasses","nitrogen","water","hydrogen","colors","ray-gun"
63. DATA "fifty","percent","Jupiter","Saturn","quartz","calcite","pine","carpet","duties","taxes","silver","electrolysis","experiment","calculator"
64. DATA "jetliner","programming","instant","valve","arteries","translucent","graphics","perplexing","meteorite","energy","musician","wonderful"
65. DATA "insight","gravitational","mind","loving","selfless","journey","expand","foreigner","watch","book","camera","words","pictures","sounds"
66. DATA "calendar","decades","years","months","weeks","days","hours","minutes","seconds","milliseconds","microseconds","nanoseconds","picoseconds"
67. DATA "script","movie","theater","television","technology","railroad","caboose","entertaining","magazine","painting","artist","brush","acrylic"
68. DATA "watercolor","pastel","paper","drawing","pencil","digital","pixels","photography","film","album","frame","vision","eyesight","memories"
69. DATA "enjoyment","ink","forms","essays","university","experience","supersonic","lunar","orbit","Venus","Mercury","Pluto","galaxy","nebula"
70. DATA "cluster","stars","telescope","observatory","rings","light","spaceship","satellite","sci/fi","science","multiplication","division"
71. DATA "exponents","power","percentage","athlete","walkway","miles","bicycle","freedom","peaceful","feeling","air","warm","cold","clouds"
72. DATA "sky","suntan","pressure","temperature","degrees","raining","snowing","bright","fog","brisk","night","morning","noon","afternoon"
73. DATA "energetic","late","early","telephone","Internet","website","homepage","chores","vacuuming","dusting","dishes","rest","lunch","dinner"
74. DATA "breakfast","reading","driving","store","groceries","meat","vegetables","fruit","bread","ice cream","cake","cookies","dessert","milk"
75. DATA "cereal","yogurt","frozen","snacks","banana","pie","chocolate","grapes","potatoes","lettuce","salad","carrots","asparagus","mayonnaise"
76. DATA "cream","sugar","salt","pepper","shakers","cups","silverware","table","napkins","chairs","dining","restaurant","turkey","gravey","family"
77. DATA "If","you","type","this","then","might","hold","the","record","for","typing","z"
78.  

[bplus]

Hi Ken,

Wait the world record is 216 words? not characters? Well how does one determine how long a word should be for a typing speed test? (rhetorical) Do the words have symbols and punctuation because as a coder you discover the little fact that symbols and punctuation and numbers... slow one down fast enough! ;-))

I tried your other typing test and learned I can't type 10 letters going for speed without my fingers getting tied up in knots. LOL funny thing about me, I am never eager to learn my faults.

I am glad you discovered INKEY$ and you might look into ON TIMER for starting and stopping a test at exactly 1 minute, and since we are all coders here, just grab snatches of code to use for testing speed typing, maybe go for how many lines of code you can type, design the game for your audience.

[Jack002]

How many characters to a word? 5. :-)

5

https://www.keyhero.com/news6/

[SierraKen]

Only 5? Wow. Well, I'm guessing the average amount of all my words are probably around 6. I'm going to change it with only 5 letter words, I found a neat list just now online.

LOL B+, yeah I wasn't really thinking about coding super fast, but that could be a challenge sometime lol.

[Cobalt]

Wait the world record is 216 words? not characters?

probably, as back in college i was able to hit up in the 400 characters per min, i think the best I got in words per min was around 120-130.
but the method used then was to have a passage or paragraph of some text to copy. so words varied from 1 letter, 'A's and 'I's, to longer words like topographical' and such("a map of the topographical type were of a far superior form than others.") .  Your speed was also based on how many words you got wrong to, that value adjusted your over all word-per-min speed. I had a bad habit of trying to fix as I went which always detracted from my over all speed. I believe my best speed ever was typing numeric values(just numbers) where I got 560-590(I think, it was 20 years ago) characters per min once. Oh to be young again, and not have mauled your fingers on a table saw....

My first run on this I managed a whooping 18! although I kept hitting enter at the end of each word which skipped the next word which flashed just long enough I would hit the first letter or two skipping the next word or two and really threw me all out of wack! I might make it so the space bar goes to the next word, just like normal typing; finish the word, hit space, next word. also should track the number of incorrect words.

This is a neat and fun program though, Good job Ken.

With my eyes as old as they are I might need to zoom the font up a little too.

[SierraKen]

Wow thanks Cobalt! I will make the font larger on mine. The space bar is logical to people that are used to it a lot. But it does reduce the speed by a fraction so I think I will re-word a little bit on the welcome screen on how it works better.

[TempodiBasic]

Fine SierraKen
At start I have not understood that just I type the wrong character the program pass to the next word and that I cannot change my input... but program is fine and runs good...

here a my different version of speed_type made sometimes ago
to take a look please
1.  download this 

speed_type.7z

2. if you want type in english you must rename words.txt to words_ita.txt and again words_En.txt to words.txt

3. load in QB64 and compile it
Good Luck

[SierraKen]

LOL that's great Tempodi! I like how you made a game out of it. Mine is more of the same kind of program professionals use. I know this because I took one back in the early 90's. Of course I won't call mine professional because I am not a professional myself, so mine is just for fun.

I am almost done putting the new words on mine, which are all 5 letter words. They are also all in alphabetical order only because the website I'm using for the words are that way and there's no reason to change it. The website has a lot more words so I have to pick and choose.

[SierraKen]

Here is the updated version. I did everything I wanted to do except make the font size larger. I tried changing it to _FONT 17 but for some reason it make my window twice the size in width and I didn't want that.
The score I got was 32 words per minute. Probably because I never took a typing class. :)
Every word is 5 letters long now to make it fair and even.  There are exactly 9 words for each letter of the alphabet, which makes 234.
I also decided to make the words randomly used so every time you use this program, the words will be arranged differently. Was tough but I figured it out. :)

Here it is:

Code: QB64: [Select]

1. 'This program was made on Sept. 25th and 26th of 2019 by Ken G.
2. 'Thank you to the QB64.org forum for their support and comments.
3.  
4. _TITLE "Speed Typing Test 2"
5. SCREEN _NEWIMAGE(800, 600, 32)
6. COLOR _RGB32(255, 255, 255)
7. begin:
8. t = 0
9. e = 0
10. w = 0
11. CLS
12. PRINT: PRINT: PRINT
13. COLOR _RGB32(255, 0, 0)
14. PRINT "                                Speed Typing Test 2"
15. COLOR _RGB32(255, 255, 255)
16. PRINT: PRINT: PRINT
17. PRINT "                                    By Ken G."
18. PRINT: PRINT: PRINT
19. PRINT "     - This program will calculate how many words you can type in 1 minute."
20. PRINT "     - It will display 1 word at a time and you must type it correctly to count."
21. COLOR _RGB32(255, 0, 0)
22. PRINT "     - If you press a wrong key, it will just go to the next word and that word"
23. PRINT "       will not count on your total."
24. PRINT "     - Do not press Enter, Back Space, or Space Bar because it will go to the next"
25. PRINT "       word automatically."
26. COLOR _RGB32(255, 255, 255)
27. PRINT "     - It will not show a score as you go because I don't want to distract"
28. PRINT "       your thinking as you type."
29. PRINT "     - Your score will be shown at the end of the test."
30. PRINT "     - There are 234 5-letter words (which is more than the world record), but if you have"
31. PRINT "       mistakes and skip words (or if you are a world record holder), then the words"
32. PRINT "       will start over again after the very last word."
33. PRINT "     - The words are shown in a different arrangement every time."
34. PRINT "     - This is not a professional typing test, so have some fun!"
35. PRINT: PRINT: PRINT
36. INPUT "                            Press Enter to start.", st$
37.  
38. 'Start the timer.
39. tim1 = INT(TIMER)
40.  
41. begin2:
42.  
43. 'Put every word in memory.
44. DIM a$(300), olda$(300)
45. FOR l = 1 TO 234
46.     READ a$(l)
47. NEXT l
48.  
49. check:
50. CLS
51. 'See if every word has been used.
52. w = w + 1
53. IF w = 235 THEN
54.     w = 0
55.     FOR cc = 1 TO 234
56.         olda$(cc) = ""
57.     NEXT cc
58.     RESTORE words:
59.     GOTO begin2:
60. END IF
61.  
62. 'Pick a random word and check to see if it's already been used.
63. RANDOMIZE TIMER
64. ll = INT(RND * 234)
65. FOR ch = 1 TO 234
66.     IF a$(ll) = olda$(ch) THEN GOTO check:
67. NEXT ch
68. olda$(ll) = a$(ll)
69. tt = 0
70. b$ = ""
71.  
72. 'Display word.
73. LOCATE 5, 35
74. PRINT a$(ll)
75.  
76. 'Here is the INKEY$ loop and also checking your time.
77. LOCATE 8, 35
78. go:
79. _LIMIT 100
80. DO UNTIL b$ <> ""
81.     b$ = INKEY$
82.     tim2 = INT(TIMER)
83.     tim3 = tim2 - tim1
84.     IF tim3 = 60 THEN GOTO done:
85. LOOP
86. c$ = b$
87. b$ = ""
88.  
89. 'Check to see if you got the letter correct. tt is the amount of letters you have typed.
90. tt = tt + 1
91. PRINT c$;
92. IF c$ <> MID$(a$(ll), tt, 1) THEN e = e + 1: GOTO check:
93. IF tt = 5 THEN t = t + 1: GOTO check:
94. c$ = ""
95.  
96. 'Go back to go: to keep typing.
97. GOTO go:
98.  
99. 'This is your total score area.
100. done:
101. CLS
102. PRINT: PRINT: PRINT
103. PRINT "               Your score is: "; t; " correct words per minute."
104. PRINT: PRINT: PRINT
105. PRINT "               You had: "; e; " errors."
106. PRINT: PRINT: PRINT
107. INPUT "               Again (Y/N)"; ag$
108. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN RESTORE words: GOTO begin:
109. END
110.  
111. 'All 234 words that can be used.
112. words:
113. DATA "aahed","aalii","aargh","abaca","abaci","aback","abaft","abaka","abamp"
114. DATA "blurt","blush","blype","board","boars","boart","boast","boats","bobby"
115. DATA "cawed","cease","cebid","cecal","cecum","cedar","ceded","ceder","cedes"
116. DATA "doxie","doyen","doyly","dozed","dozen","dozer","dozes","drabs","draff"
117. DATA "ebook","eched","eches","echos","eclat","ecrus","edema","edged","edger"
118. DATA "fixes","fixit","fizzy","fjeld","fjord","flabs","flack","flags","flail"
119. DATA "given","giver","gives","gizmo","glace","glade","glads","glady","glair"
120. DATA "herby","herds","heres","herls","herma","herms","herns","heron","heros"
121. DATA "intro","inure","inurn","invar","iodic","iodid","iodin","ionic","iotas"
122. DATA "juicy","jujus","juked","jukes","jukus","julep","jumbo","jumps","jumpy"
123. DATA "kitty","kivas","kiwis","klick","kliks","klong","kloof","kluge","klutz"
124. DATA "leaps","leapt","learn","lears","leary","lease","leash","least","leave"
125. DATA "maybe","mayed","mayor","mayos","mayst","mazed","mazer","mazes","mbira"
126. DATA "nexus","ngwee","nicad","nicer","niche","nicks","nicol","nidal","nided"
127. DATA "oaths","oaves","obeah","obeli","obese","obeys","obias","obits","objet"
128. DATA "payor","peace","peach","peage","peags","peaks","peaky","peals","peans"
129. DATA "quack","quads","quaff","quags","quail","quais","quake","quaky","quale"
130. DATA "rewin","rewon","rexes","rheas","rheme","rheum","rhino","rhomb","rhumb"
131. DATA "saids","saiga","sails","sains","saint","saith","sajou","saker","sakes"
132. DATA "techs","techy","tecta","teddy","teels","teems","teens","teeny","teeth"
133. DATA "udons","uglis","uhlan","ukase","ulama","ulans","ulcer","ulema","ulnad"
134. DATA "vowed","vowel","vower","voxel","vroom","vrouw","vrows","vuggs","vuggy"
135. DATA "wavey","wawls","waxed","waxen","waxer","waxes","wazoo","weald","weals"
136. DATA "xenon","xeric","xerox","xerus","xylan","xylem","xylol","xylyl","xysti"
137. DATA "yodle","yogas","yogee","yoghs","yogic","yogin","yogis","yoked","yokel"
138. DATA "zooey","zooid","zooks","zooms","zoons","zooty","zoril","zoris","zouks"
139.  

[SierraKen]

I found 1 wrong GOTO statement going to a place where I didn't want it to go. It still worked but it didn't go to all 234 words if someone made it that far. Here is the fix:

(Deleted because I was wrong.)

[SierraKen]

(Deleted because I decided to keep the version above instead and it has information already on the post about it.)

[TempodiBasic]

Hi SierraKen

yes I can appreciate the random words to type, the count of the exact words and of the wrong words... but thinking to those that uses glasses... what do you think to use a larger character (FONT) or to calculate a difficult with different score related to different dimension of character more big less score...
thanks to share !

[SierraKen]

Yeah someone mentioned the font earlier and I tried changing it, but any bigger font just made the window much larger, which I do not want. I don't know how to make a large font and still keep a 800 x 600 size window. Does anyone know? Thanks.

As for the score, I really don't know how I can make it more fair. Professional typing tests do it this way usually because 1 extra key slows everything down so you my as well just go to the next word and keep typing. You do have to get used to this though, it might take a few times to get the hang of it.

[OldMoses]

This is a pretty good benchmark IMO. I managed about 16 wpm, which is down somewhat from the 20 or so that I though I was at. It was a first run and I wasn't really ready for the way the program worked. I tend to hit space by default which made it skip the next word, then that got me a bit flustered and things went downhill from there. All in all, pretty cool.

[SierraKen]

Thanks OldMoses, yeah you have to use it a couple times in order to get used to it. But I'm glad you like it.