Home | Reviews | GUIpedia | Forum | Fun500
| jasonwoodland | QuickBasic GraphicsHi
Does anyone know how I can display graphics As well as standard txt on screen?
beacuse when ever I set up graphics and text (say Sorry this lane is closed) it does not allow the background to be the same as the color that is there and it overrides the graphics
And does anyone know how I can restore graphics?
Example say I have a Data entery screen (with boxes and text) and the user presses a Key to display a menu how do i return the screen to how it was (including any new data that may have been selected from the pop up screen)?
As you can tell it has been years since I use QuickBasic I would use VBDOS but I can not have logos on the screen (unless someone knows how I can display them directly on the forms) | 2009-10-27 | 9:33 PM |
| jasonwoodland | Re:QuickBasic GraphicsSCREEN 12 '640X480 RES WITH 16 COLORS
'13 IS 320X200 RES WITH 256 COLORS
COL = 7
LINE (0, 0) - (640, 480), COL, BF 'DRAWS A BOX FILLED
LINE (0, 0) - (640, 480), 15, B 'DRAWS AN EMPTY BOX
LINE (0, 0) - (640, 480), 1 'DRAWS A LINE
X = 20 'THE MAX IS 80 IN 'SCREEN 12'
'THE MAX IS 40 IN 'SCREEN 13'
Y = 10
LOCATE Y, X
PRINT "TEXT"; 100; "Hello " + "there"
Hope that helps :)
here are the colors for SCREEN 12:
0 black
1 blue
2 green
3 cyan
4 red
5 purple
7 grey
8 drk. grey
9 br. blue
10 br. green
11 br. cyan
12 br. red
13 pink
14 yellow
15 white | 2009-10-28 | 12:49 AM |
| Brandon | Re:QuickBasic GraphicsYou need a font routine, there are quite a few out there, I'd look at QB45.com | 2009-10-29 | 11:13 AM |
| jasonwoodland | Re:QuickBasic GraphicsI have been looking at the future.libary but I can not seem to get it to work.
does anyone know how to use it? | 2009-10-29 | 11:48 AM |
| jasonwoodland | Re:QuickBasic Graphicsrun FLBUILD
In File, click on Create Future4.5 or something
Then when it's finished you can run QB /L future.qlb
Then the first thing you do when you load QB type
'$include:'future.bi'
then to change resolution:
setscreenmode X,Y,BPP
to write text:
Future.print X,Y,TEXT$,FCOL&,BCOL&
if you want the back transparent set it to -1.
You can also replace FCOL& with RGB2Color(Red,Green,Blue)
You can scroll a larger resolution too!
SetFrameBuffer X,Y 'sets resolution
SetScroll X,Y 'Views from X,Y
or you can:
ScrollUD 10 'that will scroll down 10 pixels
Hope it helps :) | 2009-10-29 | 5:47 PM |
| jasonwoodland | Re:QuickBasic GraphicsThanks for the advice on the Future.Libary :)
Does any one have problems with running it on Windows XP Pro? (IBM Thinkcentre 4829 machine)
it display a black box with NO information on the screen what so ever :( | 2009-10-29 | 8:41 PM |
| jasonwoodland | Re:QuickBasic GraphicsAlso use resetscreen before ending the program. Try using DOSBox while in XP or Vista or Linux. | 2009-10-30 | 12:46 AM |
BASIC Programming Help
2021 Brandon Cornell
