Revision history for TutGettingStartedQB


Revision [22178]

Last edited on 2018-02-07 00:38:11 by sancho3
Additions:
//Last Reviewed by ""Sancho3"" on February 06, 2018//


Revision [21462]

Edited on 2016-05-12 06:09:01 by fxm [Formatting]
Additions:
IF page = 0 THEN page = 1 ELSE page = 0 'These two lines flip the page and the
IF notpage = 1 THEN notpage = 0 ELSE notpage = 1 'backpage
SCREENSET page, notpage 'This flips the page
CLS 'First we clear the screen
b = b + 1
IF b > 100 THEN b = 0
FOR a = 1 TO 128
PSET (b,a),a 'Then we draw a line. It moves without flickering.
NEXT a
SLEEP 10
GETMOUSE x, y, , buttons 'This gets the mouse state
PRINT x,y,buttons
Deletions:
IF page = 0 THEN page = 1 ELSE page = 0 'These two lines flip the page and the
IF notpage = 1 THEN notpage = 0 ELSE notpage = 1 'backpage
SCREENSET page, notpage 'This flips the page
CLS 'First we clear the screen
b = b + 1
IF b > 100 THEN b = 0
FOR a = 1 TO 128
PSET (b,a),a 'Then we draw a line. It moves without flickering.
NEXT a
SLEEP 10
GETMOUSE x, y, , buttons 'This gets the mouse state
PRINT x,y,buttons


Revision [21460]

Edited on 2016-05-12 04:07:50 by fxm [Formatting]
Additions:
You can download FreeBASIC here: [[http://www.freebasic.net]]
PRINT "Hello World!"
SLEEP
LOCATE 10,10
PRINT "I'm the center of the universe!"
SLEEP
SCREEN 13
PRINT "Hello World!"
SLEEP
SCREEN 13
LINE (1,1)-(100,100),1,bf
PRINT "Hello World!"
CIRCLE (10,10),10,11
PSET (30,15),15
SLEEP
SCREEN 15
LINE (1,1)-(100,100),1,bf
PRINT "Hello World!"
CIRCLE (10,10),10,11
PSET (30,15),15
SLEEP
DIM as integer page
DIM as integer notpage
DIM as integer a, b
screen 12, , 2 'This sets the screen for 2 pages
notpage = 1 'This sets the backpage
DO
IF page = 0 THEN page = 1 ELSE page = 0 'These two lines flip the page and the
PSET (b,a),a 'Then we draw a line. It moves without flickering.
SLEEP 10
LOOP UNTIL INKEY = CHR(27) 'Press Escape key to quit the program.
DIM as integer x, y, buttons
CONST as integer escapeKey = 1
SCREEN 12
WHILE NOT MULTIKEY(escapeKey) 'this checks the escape key every frame
GETMOUSE x, y, , buttons 'This gets the mouse state
WEND
With this knowledge, you should be able to begin programming in FreeBASIC, with all the perks that it entails; Speed, power, and portability!
Deletions:
You can download FreeBASIC here: [[http://www.freebasic.net/index.php/download]]
PRINT "Hello World!"
SLEEP
LOCATE 10,10
PRINT "I'm the center of the universe!"
SLEEP
SCREEN 13
PRINT "Hello World!"
SLEEP
SCREEN 13
LINE (1,1)-(100,100),1,bf
PRINT "Hello World!"
CIRCLE (10,10),10,2
PSET (30,15),3
SLEEP
SCREEN 15
LINE (1,1)-(100,100),1,bf
PRINT "Hello World!"
CIRCLE (10,10),10,2
PSET (30,15),3
SLEEP
DIM as integer page
DIM as integer notpage
DIM as integer a, b
screen 12, , 2 'This sets the screen for 2 pages
notpage = 1 'This sets the backpage
DO
IF page = 0 THEN page = 1 ELSE page = 0 'These two lines flip the page and the


PSET (b,a),a 'Then we draw a line. It moves without flickering.

LOOP UNTIL INKEY = CHR(27)
DIM as integer x, y, buttons
CONST as integer escapeKey = 1
SCREEN 12
WHILE NOT MULTIKEY(escapeKey) 'this checks the escape key every frame
GETMOUSE x, y, , buttons 'This gets the mouse state
WEND
With this knowlege, you should be able to begin programming in FreeBASIC, with all the perks that it entails; Speed, power, and portability!


Revision [12715]

The oldest known version of this page was created on 2008-03-11 23:17:13 by KristopherWindsor [Formatting]
Valid XHTML :: Valid CSS: :: Powered by WikkaWiki



sf.net phatcode