FreeBasic入门 [SJ ZERO原创，沧海冷心翻译]

 FreeBasic入门 [SJ ZERO原创，沧海冷心翻译]
http://www.freebasic.cn

一、先谈谈软件

软件当然是FREEBASIC最新编译器 + FBIDE最新版了，本站提供了他们的压缩包下载，并且无须配置，安装好立刻可以使用。

二、从Hello World!开始

打开FBIDE敲入以下代码：

PRINT "Hello World!"
SLEEP

然后按F5键。祝贺你，你已经看到了FREEBASIC和我们熟悉的QBASIC有多么的相近。现在你可以就象使用QB编程那样使用更多的语句了：

LOCATE 10,10
PRINT "I'm the center of the universe!"
SLEEP

三、神奇的SCREEN 13

现在在你的代码前面加上"SCREEN 13",这样就很简单的进入了图形模式：

SCREEN 13
PRINT "Hello World!"
SLEEP

所有的QB图形命令你都可以在FREEBASIC里使用：

SCREEN 13
LINE (1,1)-(100,100),1,bf
PRINT "Hello World!"
CIRCLE (10,10),10,2
PSET (30,15),3

SLEEP

FreeBasic也还含有新的图形特性。例如QB就没有一个SCREEN 14或者更高的图形模式。尝试以下代码：

SCREEN 15
LINE (1,1)-(100,100),1,bf
PRINT "Hello World!"
CIRCLE (10,10),10,2
PSET (30,15),3

SLEEP

当你通过SCREEN命令打开了一个图形窗口后，你可以利用ALT+回车键来在全屏和窗口之间切换。

另外一个有用的图形库新特性就是FREEBASIC在任何视频模式下都支持页面翻转！看下面的代码：

DIM page
DIM notpage
DIM 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
  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
 
LOOP

这个可以运行在任何模式下。你可以使用QB的图形命令外加页面翻转做出更多更好的程序了！

四、废弃汇编

在FREEBASIC里废弃汇编是很现实的。用汇编ASM来增强BASIC程序将被废弃！不管你喜不喜欢，这里有两个新的输入命令向你展示：

DIM x,y,buttons
CONST escapeKey = 1
SCREEN 12

WHILE NOT MULTIKEY(escapeKey) '不断检测是否按了ESC键
  GETMOUSE x, y, , buttons '获得鼠标状态
  PRINT x,y,buttons  
WEND

喔！神奇吧！
有了这些知识，你可以开始学习FREEBASIC了，你将享受它的速度、力量和轻便！

http://www.freebasic.cn