Getting Started

 

这是对基于SJ Zero教程的QBasic程序员的一个很好的介绍。

开始使用软件

您可以在这里下载FreeBASIC：http://www.freebasic.net/index.php/download
而FBIDE这里：http://fbide.sourceforge.net/

安装FBIDE时，选择“仅FBIDE”，以不安装该包中包含的旧版本的FB。
首次运行FBIDE时，您必须浏览以在计算机上找到FB编译器。

你好，世界！

打开FBIDE并键入以下内容：

 PRINT "Hello World!"
 SLEEP

现在按F5。恭喜，您刚刚看到QB FreeBASIC真的是多少。现在你可以使用大多数控制台命令来做QB，就像你还记得一样。例如：

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

惊人的屏幕13

现在，将“SCREEN 13”放在你的代码之前，看看使用图形模式有多么简单：

 SCREEN 13
 PRINT "Hello World!"
 SLEEP

从那里，所有标准的QB图形命令都可以像您所记住的那样工作，您可以在此示例中看到：

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

 SLEEP

FreeBASIC还具有新的图形功能。例如，QB从未有过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-ENTER在窗口和全屏模式之间切换。

FreeBASIC中图形库的另一个不错的功能就是可以在任何视频模式下进行翻页。以下代码演示了这一点。

 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
  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 UNTIL INKEY = CHR(27)

这适用于任何模式，因此您可以使用标准QB图形命令使用页面翻转程序的高分辨率模式！


为什么不再需要ASM

如果不是这样，我不会这样说。在BASIC中使用ASM不再需要增加程序的功能。忽略SDL，Allegro，DirectX，OpenGL等。al.一段时间以来，您已经有了上述页面翻转和高级图形模式，以及Inkey，我们都成长为爱或恨，但也有两个新的输入命令，QBERS已经做了从时间的黎明起诉诸汇编代码：

 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 
  PRINT x,y,buttons   
 WEND

有了这个知识，你应该能够开始在FreeBASIC中编程，所有这些都是必需的;速度，力量和便携性！