🎁
开源免费
基于 GPL/LGPL 协议完全开源，源代码可在 GitHub 自由获取，活跃的开发者社区持续维护
FreeBASIC现代开源 BASIC
传承经典 QBASIC 语法，拥抱现代编程特性
Skip to content
20+
年开发历史
800+
中文文档页面
32/64
位原生编译
3
个主要平台
支持的操作系统
FreeBASIC 是什么？
FreeBASIC 是一个免费开源的 BASIC 语言编译器，兼容微软 QBASIC/QuickBASIC 4.5 语法，同时引入现代编程语言特性。它能生成快速高效的 32/64 位原生代码，支持 Windows、Linux 和 DOS 平台。
🎯 为什么选择 FreeBASIC？
| 特性 | 说明 |
|---|---|
| 🎓 学习友好 | 语法简洁直观，是编程入门的绝佳选择 |
| 🕹️ 怀旧兼容 | 完美运行 classic QBASIC 程序和游戏 |
| 🏗️ 现代功能 | 支持类、对象、继承、多态等 OOP 特性 |
| ⚙️ 系统编程 | 支持指针、内存操作、内联汇编 |
| 🎨 图形编程 | 内置强大的 2D 图形库，轻松开发游戏 |
| 🌐 网络编程 | 支持 Socket、HTTP 等网络功能 |
代码示例
🎯 经典入门 - Hello World
vb
' 经典的 "Hello, World!" 程序
Print "Hello, World!"
Sleep🏗️ 面向对象编程
vb
' 现代 OOP 示例
Type Animal
name As String
Declare Virtual Sub Speak()
End Type
Type Dog Extends Animal
Declare Sub Speak() Override
End Type
Sub Dog.Speak()
Print "汪汪! 我是 " & This.name
End Sub
Dim d As Dog = ("小黑")
d.Speak()
Sleep🎮 图形编程
vb
' 绘制彩色圆环
ScreenRes 800, 600, 32
For i As Integer = 1 To 100
Circle (400, 300), i * 2, RGB(255-i*2, i*2, 128+i)
Next i
Print "按任意键退出"
Sleep🧵 多线程编程
vb
' 多线程示例
Sub Worker(param As Any Ptr)
For i As Integer = 1 To 5
Print "线程: " & i
Sleep 100
Next i
End Sub
Dim thread As Any Ptr
counter = ThreadCreate(@Worker, 0)
ThreadWait(counter)
Print "完成!"
Sleep🚀 在线运行
无需安装，直接在浏览器中编写和运行 FreeBASIC 代码！
关于本文档
本站提供 FreeBASIC 完整中文文档，内容从 FreeBASIC Wiki 自动同步翻译，涵盖：
- 📚 语言参考 - 完整语法、关键字、运算符
- 📦 运行时库 - 标准函数、字符串、文件操作
- 🎨 图形编程 - FBGFX 图形库完整文档
- 🔧 编译器 - 命令行选项、编译配置
- ❓ 常见问题 - FAQ 及解决方案
当前文档覆盖率：789/807 个页面
社区资源
官方网站 freebasic.net | 官方论坛 forum | Wiki wiki | GitHub github | 第三方库 libraries
免责声明
FreeBASIC 是独立的开源项目，与微软公司（Microsoft Corporation）无任何隶属关系。
BASIC、QBASIC、QuickBASIC 及相关商标均为微软公司注册商标。
本站文档仅供学习交流使用。