FreeBasic入门 [SJ ZERO原创,沧海冷心翻译]
来源:互联网 发布:windows拷贝linux文件 编辑:程序博客网 时间:2024/04/29 00:31
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
- FreeBasic入门 [SJ ZERO原创,沧海冷心翻译]
- FreeBasic库文件入门 [SJ ZERO原创,沧海冷心翻译]
- 在FREEBASIC中使用鼠标(MystikShadows原著,沧海冷心翻译)
- sj
- sj
- sj
- 沧海
- [翻译+原创] 关注XNA
- [翻译+原创] 关注XNA
- <原创翻译>CSRSiRfstarIV GSD4e
- AlphaGo zero 概述和引言翻译
- 【原创翻译】COM入门简介 -- 什么是COM , 怎样使用它 (1)
- 【原创翻译】COM入门简介 -- 什么是COM , 怎样使用它 (2)
- 【原创翻译】COM入门简介 -- 什么是COM , 怎样使用它 (3)
- 【原创翻译】COM入门简介 -- 什么是COM , 怎样使用它 (4)
- 【原创翻译】COM入门简介 -- 什么是COM , 怎样使用它 (5)
- 心冷了
- [原创] 准备翻译 Boost 文档
- 该做的事太多,一时不知道该做什么好,郁闷中.
- 外包频道开发者完成2个项目后申请成为顾问——CSDN外包实践(47)
- 公司马上要搬家了
- 共享软件海外收款方式
- 拿来主义vs.自主创新
- FreeBasic入门 [SJ ZERO原创,沧海冷心翻译]
- 夜游西湖
- GDP的故事-ZT
- Window+GCC+CDT用Eclipse開發C、C++- -(转)
- 123
- 什么是CSDN
- 理解矩阵(一)
- ICEfaces Enterprise edition 1.0 发布--AJAX 开发和部署框架
- AJAX起步,入门教材:Google Web Toolkit 入门