Weekly Qbasic and Qb64 Lesson Topics
October 22, 2018, 09:42:55 pm
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  

My First Program, a math program


Pages: [1]
  Print  
Author Topic: My First Program, a math program  (Read 205 times)
GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« on: January 24, 2011, 12:11:54 am »

This is the first full program I ever made, actually there were 4 versions, the first, being my first, this the 4th, is where I stopped. I may eventually add some graphics and stuff when I learn enough to do so. Enjoy
---------------- code below--------
Code:
SCREEN 0
WIDTH 80
PRINT "Program BY:Garry Ricketson."
PRINT "E-mail:GarryRicketson@yahoo.com, http://www.garryspages.webs.com"
PRINT "Note: this is not a game nor intended to be real fun,if you don't"
PRINT "get the right answer, you cannot move on,Alfonso dose not like to,"
PRINT "study his X tabels,but he loves to play the computer games(san"
PRINT "Andreas auto theft) is his favorite. So, the idea is the faster"
PRINT "he learns the tabels, the sooner he can play his game, when he"
PRINT " completes the whole program, I then let him play with the computer"
PRINT "I hope anyone else can also use it."
PRINT "I would like to thank:Ted Weissgerber, for his Q-BASICS tutorial program"
PRINT " as I used part of the code he demonstrates, and also others at "
PRINT "http://www.petesqbsite.com, whom quickly answered questions, and also"
PRINT "where I got the tutorials I used, a anonymos,IOPNN, sent me corrected"
PRINT "code, and this was a great help.for more see the readme.txt in this"
PRINT "package, you may copy,use or edit, but cannot sell it"
SLEEP 5
SCREEN 0
WIDTH 40
COLOR 10, 1
PRINT "­VAMOS a HACER TABLAS"; ""
PLAY "aaaa4bbb8<ggg4a2e8gggg>a4f8e2ccca4a4a4"
PRINT "tecla q para salir, intro para continuar"
PRINT "press q to exit tecla q para salir"
PRINT "Cualquire tecla para continuar"
INPUT "q", Q$
IF Q$ = "q" THEN END
SLEEP 5
PRINT "!Bienvenido!,WELCOME!... "
PRINT "Nada para decir ahora "
PRINT "ES una ejercisio de tablas, lo gue hizo para Alfonso,These are "
PRINT "multiplication tabels I made for Alfonso"
INPUT "ENTER YOUR NAME,escribe tu nombre:", name$
PRINT "­HOLA!,"; name$; ".¨como estas,hoy?"
CLS
COLOR 17, 10, 2
PRINT "²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
PRINT "------------------------------------"
PRINT "²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
PRINT "²                                 ²"
PRINT "²    ̃   ̃                        ²"
PRINT "²  ­ ̃̃                        ²"
PRINT "²    ̃   ̃ OLA!                   ²"
PRINT "²              Alfonso.......     ²"
PRINT "²                                 ²"
PRINT "²                                 ²"
PRINT "²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
SLEEP 5
CLS
COLOR 10, 1, 2
PRINT "­HOLA!,Alfonso, vamos a hacer tablas"
PRINT "Ahora vamos acer Multiplicaciones(tablas)"
COLOR 14: PRINT "Buenos Dias"
FOR d = 600 TO 640
    SOUND d, 1
NEXT
SLEEP 2
CLS
COLOR 14: PRINT "Buenos Dias"
FOR d = 600 TO 640
    SOUND d, 1
NEXT
SLEEP 2
CLS
TOP:
COLOR 2: PRINT "puede ser este cosas "
PRINT
PRINT "(T)tablas"
PRINT "(C)alculator"
PRINT "(J)juego"
PRINT "(S)alir de programa"
ReHit: F$ = INPUT$(1) 'INPUT$ will wait for a keypress.
1 IF LCASE$(F$) = "t" THEN GOTO TABLAS
IF LCASE$(F$) = "c" THEN GOTO Calculater
IF LCASE$(F$) = "j" THEN GOTO GAME
IF LCASE$(F$) = "s" THEN END
GOTO ReHit
TABLAS: PRINT "Esos son los tablas"
RANDOMIZE TIMER
CLS
FOR i = 0 TO 100
    x = INT(RND * 10) + 1 'if you want say only 9s or only 7s, change
    'this to x=9  or x=7 ...
    y = INT(RND * 10) + 1
    PRINT x; "X"; y; "=";
    INPUT "", n
    IF x * y <> n THEN
        PRINT "NOT CORRECT"
        INPUT "Entra el primero numero: ", a
        INPUT "Entra el segundo numero: ", b
        PRINT "Respuesta corecto es: "; a * b 'now I am closer, on the
        'previous that I sent 'you  I had forgotten the b on this line.
    ELSE
        PRINT "CORRECT"
        PRINT
    END IF
NEXT
GOTO TOP:
Calculater:
PRINT "Eso es Calculador"
5 CLS
PRINT "1) ADD"
PRINT "2) MULTIPLY"
PRINT "3) DIVIDE"
PRINT "4) SQUARE ROOT"
PRINT "5) EXIT"
INPUT i
IF i = 1 GOTO 10
IF i = 2 GOTO 20
IF i = 3 GOTO 30
IF i = 4 GOTO 40
IF i = 5 GOTO TOP:
10 CLS: PRINT "INPUT NUMBER"
INPUT a
CLS
PRINT "INPUT NEXT NUMBER"
INPUT b
CLS
PRINT a + b
PRINT "PRESS SPACE TO RUN"
SLEEP 0
GOTO 5
20 CLS: PRINT "INPUT NUMBER"
INPUT C
CLS
PRINT "INPUT NEXT NUMBER"
INPUT d
CLS
PRINT C * d
PRINT "PRESS SPACE TO RUN"
SLEEP 0
GOTO 5
30 CLS: PRINT "INPUT NUMBER"
INPUT E
CLS
PRINT "INPUT NEXT NUMBER"
INPUT F
CLS
PRINT E / F
PRINT "PRESS SPACE TO RUN"
SLEEP 0
GOTO 5
40 CLS: PRINT "INPUT NUMBER"
INPUT G
CLS
PRINT SQR(G)
PRINT "PRESS SPACE TO RUN"
SLEEP 0
GOTO 5
GOTO TOP:

'----------------------------------insert calculator
GAME:
DEFINT A-Z
DECLARE SUB Align (Tclr, Trow, txt$)
SCREEN 0
WIDTH 80
'DEFINT A-Z
'DECLARE SUB Align (Tclr, Trow, txt$)
Align 14, 5, "MIRA ,LO QUE HIZO"
Align 14, 8, " AQUI ES TU JUEGO"
Align 15, 10, "TECLA INTRO PARA SALIR " + Prt$ + "NO, PARA JUEGAR" + Qt$
DO: LOOP UNTIL INKEY$ <> ""
CLS
TOPB:
FOR i% = 2 TO 24
    Align 13, i%, "El Cielo es Caiendo!"
    Align 13, i% - 1, SPACE$(19)
    SOUND 2000 / i%, 1
NEXT i%
Align 14, 5, "Alfonso, siempre quiere jugar"
Align 18, 15, "Dice Blinky blinky blinky, estoy abburido"
Align 15, 10, "Tecla el Q para salir"
IF INKEY$ = "Q" THEN END
GOTO TOPB:
SUB Align (Tclr, r0w, txt$)
c0l = 41 - (LEN(txt$) \ 2)
COLOR Tclr: LOCATE r0w, c0l: PRINT txt$;
END SUB
 

------------------------end code------------------------
Note: The code down here at the bottom, that is the "GAME" I got from Clippys Demo,...since we mostly speak spanish, and Alfonso, my step son dose not speak english, and it was written for him, it is in spanish, but one should be able to figure out what is going on.
From Garry
« Last Edit: December 01, 2011, 07:28:18 pm by GarrisonRicketson » Report Spam   Logged

Social Buttons


Pages: [1]
  Print  
 
Jump to:  

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

Buy traffic for your forum/website
traffic-masters
Powered by SMF | SMF © 2016, Simple Machines
Privacy Policy