Weekly Qbasic and Qb64 Lesson Topics
January 22, 2018, 04:08:07 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  

Qbasic and qb4.5


Pages: [1]
  Print  
Author Topic: Qbasic and qb4.5  (Read 733 times)
GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« on: March 26, 2011, 08:44:28 pm »

Since most everyone, now uses Windows and qb64, there won't be much
here, I guess,..But anyway, this is where it all started, before qb64 and windows,...in qbbasic,...for a good DEMO,
http://www.petesqbsite.com  Is a excellent source for Demos, and tutoriials.
http://dl.dropbox.com/u/8440706/Q-Basics.zip
Teds ("Clippy") Demo, or tutorial.
-------------------------------------------------------------------------
This is a little prgram I did when I was first starting.
Code:

SCREEN 12

OPEN "MAN.AXB" FOR BINARY AS #1
ArraySIZE& = (LOF(1) - 7) / 2
DIM MANARRAY(1 TO ArraySIZE&) AS INTEGER
CLOSE #1

DEF SEG = VARSEG(MANARRAY(1))
BLOAD "MAN.AXB", VARPTR(MANARRAY(1))
DEF SEG

'Set palette
OUT &H3C4, 0
FOR n = 9 TO 56
    OUT &H3C9, MANARRAY(n)
NEXT n

'Display the frames in sequence
PRINT "HelloWorld"
DO
PLAY "Mba15a12bgff12eag14fbc8de10aa"
    FOR i = 0 TO MANARRAY(57) - 1
        PUT (100, 200), MANARRAY(58 + i * 1635), PSET
             a$ = INPUT$(0) 'pause between frames
        Interval! = .2
        t! = TIMER
        DO
            IF TIMER < t! THEN EXIT DO
        LOOP UNTIL TIMER > t! + Interval!
   NEXT i
    'LOOP UNTIL a$ = INPUT$(1)
LOOP WHILE INKEY$ = ""
 
For the MAN.AXB which is needed:
http://dl.dropbox.com/u/15387474/A6MEN.rar
Note: This dose compile on qb64 ok.
This is another compiled with qb64, but originally it was for qb45 (qbasic)
http://dl.dropbox.com/u/15387474/SMILEYFACE.zip
Report Spam   Logged

Social Buttons

Dustie Bear
Full Member
***
Posts: 115


« Reply #1 on: March 27, 2011, 06:07:26 pm »


Cute program.

For some reason I get out of memory error on the first one posted.

the second one run just fine however.

Dustie
Report Spam   Logged
GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« Reply #2 on: March 27, 2011, 07:19:57 pm »


Cute program.

For some reason I get out of memory error on the first one posted.

the second one run just fine however.

Dustie
The code I posted should work in qb64, if you have the "MAN.AXB" in the same qb64 dir, but all said and done, it is really for qbasic, or qb4.5 ,...
 I had gotten the same out of memory error, the first time I tried it in qb64,
I found I had forgotten to copy the MAN.axb file to the qb64 dir, then it  owrked ok, just tryed again, and it still dose.
 The second .RAR (SMILEYFACE.ZIP) has everything, for windows and qb64,
includeing  a .exe so that should run any where in Windows, dose not necessarily need qb64,
any way glad the second one worked,..some times all of this really gets confuseing to me, it is cause I had alot of stuff I started useing qb4.5, then I started useing qb64, and some of the earliest stuff still dose not work so well in qb64.
 From Garry
Report Spam   Logged


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