Weekly Qbasic and Qb64 Lesson Topics
March 28, 2024, 10:43:14 am
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News: Want to see a specific Tutorial? ASK!
 
  Home Help Search Arcade Links Staff List Login Register  

What I have so Far,Learning program

Pages: [1] 2
  Print  
Author Topic: What I have so Far,Learning program  (Read 1650 times)
OlDosLover
Guest
« on: May 11, 2011, 09:27:59 am »

Hi all,
    Here's a stripped down version of your program Garry. It works except for the exit of the program.
Code:
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)

CLS

DO
  PRINT "Press the LETTER please"
  z = INT(RND * 26) + 66
  PRINT CHR$(z)
  WHILE Letter$ <> CHR$(z)
    INPUT "Letter: ", Letter$
    Letter$ = UCASE$(Letter$)
  WEND
  PRINT " Bien,te escribe ,Good You wrote "; Letter$
  _DELAY 1
  CLS
LOOP UNTIL _KEYDOWN(27)

PRINT "Sorry , thats all for now"
SLEEP
SYSTEM
It would probably better to use inkey than input.
OlDosLover.
« Last Edit: May 11, 2011, 09:29:48 am by OlDosLover » Report Spam   Logged

Pages: [1] 2
  Print  
 
Jump to:  

Powered by EzPortal
Bookmark this site! | Upgrade This Forum
SMF For Free - Create your own Forum


Powered by SMF | SMF © 2016, Simple Machines
Privacy Policy