Hi all,
Here is a better version that generates random letters that fall downward the screen. If the user misses the letter at bottom of the sceen it continues on. If the user pressed the corrct letter then it prints that.
SCREEN 12
LOCATE 5, 30
PRINT "INTRODUCTION"
LOCATE 8, 4
PRINT " This is a program to learn, for very young children, and adults too"
PRINT " Eso es una programa, para ni¤os, y tambien adultos"
PRINT " Es deficil, porque no estoy seguro, por donde empieza"
PRINT " This is hard because I am not sure where to start."
PRINT " It has become obvious, if the person or child dose not know how to read,"
PRINT " I either need to use some voice instruction, or they need some, guidance."
PRINT "Neccistas un guia, o voz, por algunos los quein,no sabes nada de leer"
PRINT
PRINT "press enter to continue,prende intro para continuar "
dummy$ = INPUT$(1)
RANDOMIZE TIMER
CLS
DO
PRINT "Press the LETTER please"
z = INT(RND * 26) + 65
Dir = INT(RND * 2) + 1
RRow% = 1: CCol% = 40: DDelay! = 1
DO
LOCATE RRow%, CCol%
PRINT CHR$(z)
Letter$ = INKEY$
IF UCASE$(Letter$) = CHR$(z) THEN EXIT DO
RRow% = RRow% + 1: IF Dir = 1 THEN CCol% = CCol% + 1 ELSE CCol% = CCol% - 1
_DELAY DDelay!
DDelay! = DDelay! - .03 '<-- greater than .03 leads to error
LOOP WHILE RRow% < 29
PRINT " Bien,te escribe ,Good You wrote "; Letter$
_DELAY 1
CLS
LOOP UNTIL _KEYDOWN(27)
PRINT "Sorry , thats all for now"
SLEEP
SYSTEM
This was the first learning program that i wrote for my daughter about 18 years ago. This is the QB64 equivalent.
OlDosLover.
