-
VisualFreeBasic游戏趣味编程（使用yGDI） 本教程通过趣味案例逐步引入语法知识，教读者用VisualFreeBasic编写游戏程序(简称VFB)，激发读者学习编程的兴趣。全书共14章和3个附录，依次介绍了VFB编程语言的基本概念、数据类型、if语句、while循环、for循环、一维数组、函数、二维数组、字符串、文件读写、指针、递归、面向对象编程、链表和FB标准模板库等知识，其中贯穿了众多的小案例和游戏，最后综合应用这些知识编写了一款冒险游戏。附录分别给出了练习题的参考答案、语法知识索引以及常用的调试方法和辅助开发工具。本书适合不同年龄、不同层次的FB编程初学者阅读和自学，也可以作为中学生、大学生学习程序设计的教材和少儿编程培训机构的参考教材。 本教程改编自【C和C++游戏趣味编程】的书籍 C和C++游戏趣味编程 版 权 著 者 童 晶 责任编辑 陈冀康 人民邮电出版社出版发行 本来是C语言的教程，由勇芳改编成 VisualFreeBasic 语言，免费提供给大家使用。 天下编程本一家，大多编程教程都能通用。勇芳也只是兴趣爱好，用爱发电，希望更多人能使用 VFB 编程，才辛苦翻译，并没1分钱的收获。 改编后若有侵犯到版权，请通知勇芳删除教程并表示歉意。 系统DPI 操作系统里面有个DPI，而 VFB 自动响应DPI缩放， 我们写的代码是按照 100% 时的像素写的，但系统里设置了DPI，比如 125%，那么画 100的圆，实际输出 125 的圆。这样我们写的软件，不管在什么系统，什么 DPI 的情况下，输出的效果保持一致。 -
VisualFreeBasic游戏编程例题 如果你觉得编程是晦涩难懂的天书，那一定是还没试过用它来做游戏。 想象一下：当你敲下几行代码，屏幕上跳出一个会跟着鼠标跑的小方块；再添几句，这个方块就能躲开迎面而来的障碍物；继续加几行，它甚至能吃掉金币、闯过关卡 —— 这不是魔法，而是你亲手写出的游戏。 这本教程里没有枯燥的理论堆砌，只有一个个能让你立刻动手的游戏例题。从最简单的 “控制小球移动”，到能和朋友比拼的 “双人打砖块”，每一步都像玩游戏闯关一样： 你不需要记住 “变量”“函数” 这些拗口的词，只需要知道 “给角色起个名字”“让它做个动作”； 你不用害怕写错代码，因为每一次错误都会让角色做出搞笑的事 —— 比如卡在墙里、原地打转，而修正它的过程就像解开一个小游戏的谜题； 你更不用担心学不会，因为每个例题都像搭积木一样拆解成了超简单的步骤，哪怕是第一次碰键盘，也能跟着一步步做出能玩的小游戏。 为什么要通过游戏学编程？因为游戏是最懂你的老师： 它会用最直观的方式告诉你代码的作用 —— 想让角色跳得高一点？改个数字就行； 它会给你即时的奖励 —— 每完成一个例题，你就拥有了一个能玩、能炫耀的小作品； 它会悄悄培养你的编程思维 —— 当你为了让敌人更聪明而思考 “如果玩家躲在这里，敌人就该绕过去” 时，逻辑能力已经在不知不觉中变强了。 或许你从来没想过自己能写出代码，但当你跟着做出第一个会动的游戏时，会突然发现：编程不过是和电脑聊天的一种方式 —— 你告诉它 “让这个小球动起来”，它就照做；你和它商量 “如果碰到这个就加分”，它就乖乖执行。 现在，准备好开启这场特别的游戏了吗？第一个任务很简单：让屏幕上的小方块，跟着你的心意动起来。接下来的每一步，你都会惊讶地发现：原来自己真的能写出游戏，原来编程可以这么有趣。 -
VisualFreeBasic网络编程 首先添加网络控件，以后说明，都是使用控件实现功能。 网络编程是指通过计算机网络实现不同设备间数据交换和通信的编程技术。从简单的网页浏览到复杂的分布式系统，从即时通讯到云计算服务，网络编程无处不在，是构建现代互联网应用的基石。 一、核心概念与基础架构 1. 网络协议栈 网络通信遵循分层协议架构，常见的有 OSI 七层模型和 TCP/IP 四层模型： 物理层：传输介质（光纤、电缆、无线） 数据链路层：MAC 地址、帧传输（以太网、Wi-Fi） 网络层：IP 地址、路由选择（IPv4/IPv6） 传输层：端到端通信（TCP/UDP） 应用层：HTTP、SMTP、FTP、DNS 等协议 2. 传输层协议对比 特性 TCP（传输控制协议） UDP（用户数据报协议） 连接性 面向连接 无连接 可靠性 保证数据可靠传输 不保证数据可靠到达 有序性 保证数据按序到达 不保证顺序 传输效率 相对较低（有握手和确认机制） 相对较高（无额外开销） 应用场景 网页、文件传输、邮件 实时音视频、游戏、DNS 查询 二、网络编程模型 1. 客户端 - 服务器（C/S）模型 架构：客户端主动请求服务，服务器被动响应 应用：邮件客户端、数据库连接、远程桌面 特点：需要安装特定客户端软件，服务器需长期运行 2. 浏览器 - 服务器（B/S）模型 架构：基于 Web 浏览器的特殊 C/S 模型 应用：网站、Web 应用、在线游戏 特点：客户端只需浏览器，跨平台性强 3. 点对点（P2P）模型 架构：节点间直接通信，无中心化服务器 应用：文件共享（BitTorrent）、即时通讯（Skype） 特点：高可扩展性，但管理和安全较复杂 三、常见网络编程接口 1. Socket 编程 概念：操作系统提供的网络通信接口，支持 TCP 和 UDP 工作流程： 服务器：创建Socket → 绑定地址 → 监听连接 → 接受请求 → 收发数据 → 关闭 客户端：创建Socket → 连接服务器 → 收发数据 → 关闭 示例场景：聊天程序、远程控制、实时数据传输 VFB 中的网络控件，就是用Socket 封装，实现 TCP 和 UDP 通信 -
VisualFreeBasic数据库编程 数据库在数字化时代扮演着核心角色，是现代信息系统的基础架构之一，其作用主要体现在以下几个方面： 一、高效存储与管理数据 结构化存储：将海量数据按特定逻辑结构（如表格、关系模型、文档模型等）有序存储，避免数据冗余和混乱。\ ▶ 例如：电商平台存储用户信息、商品详情、订单记录时，通过数据库表结构分类管理，确保数据清晰易查。 集中式管理：统一管理数据的增删改查操作，支持多用户、多应用程序共享访问，提升数据利用率。\ ▶ 例如：企业 ERP 系统中，财务、销售、库存等部门均可通过数据库实时获取最新数据，避免信息孤岛。 二、保障数据安全与完整性 权限控制：通过用户角色、密码验证等机制限制数据访问权限，防止敏感信息泄露。\ ▶ 例如：银行数据库仅允许授权员工查询客户账户信息，普通用户无法直接访问底层数据。 数据完整性约束：通过规则（如唯一性、主键、外键关联）确保数据准确无误。\ ▶ 例如：数据库可强制要求 “用户表” 中邮箱字段唯一，避免重复注册；通过外键关联 “订单表” 与 “用户表”，确保订单数据关联到真实存在的用户。 灾难恢复：支持数据备份与恢复机制，应对硬件故障、误操作等意外情况，降低数据丢失风险。 三、支持复杂数据查询与分析 灵活查询：通过 SQL（结构化查询语言）或其他查询语言，快速检索、过滤、聚合数据，满足多样化业务需求。\ ▶ 例如：社交媒体分析用户活跃度时，可通过数据库查询 “过去 30 天内发布超过 10 条动态的用户”，并统计其互动数据。 大数据分析基础：为数据挖掘、机器学习、商业智能（BI）等提供底层数据支撑，助力从海量数据中提取洞察。\ ▶ 例如：企业通过分析数据库中用户行为数据，优化推荐算法、预测市场趋势或制定精准营销策略。 四、支撑应用程序运行 业务逻辑基石：几乎所有现代应用程序（如网站、APP、管理系统）都依赖数据库存储业务数据，实现状态持久化（如用户登录状态、购物车内容）。\ ▶ 例如：外卖 APP 需要数据库实时记录商家菜品库存、用户订单状态、骑手位置等信息，确保业务流程顺畅。 高并发处理：通过事务管理、锁机制、索引优化等技术，支持大量用户同时访问数据，保证系统稳定性。\ ▶ 例如：电商大促期间，数据库需支撑数百万用户同时下单，确保订单数据准确且不冲突。 五、数据共享与协作 跨系统集成：作为数据枢纽，连接不同业务系统（如 OA、CRM、HR 系统），实现数据互通。\ ▶ 例如：企业通过数据库集成各部门系统数据，生成统一的财务报表或员工绩效报告。 多人协作场景：支持团队成员同时访问和修改数据，满足协同办公需求。\ ▶ 例如：项目管理工具通过数据库实时同步任务进度、成员分工等信息，提升团队协作效率。 六、历史数据追溯与审计 数据变更追踪：记录数据操作日志（如谁在何时修改了哪条数据），便于审计和问题追溯。\ ▶ 例如：医疗数据库需严格记录患者病历的修改记录，确保医疗数据的可追溯性和责任清晰。 历史数据存档：长期保存业务历史数据，用于合规性检查、趋势分析或复盘总结。\ ▶ 例如：金融机构需按法规保存交易记录多年，以便监管部门核查或内部风险分析。 总结 数据库是数据时代的 “数字粮仓”，其核心价值在于让数据 “存得下、管得住、查得快、用得好”。从个人应用到企业级系统，从传统业务到前沿科技（如 AI、物联网），数据库始终是实现数据价值的关键基础设施。随着数据量爆发式增长，数据库技术也在不断演进（如分布式数据库、云数据库、实时数据库等），持续为各领域提供更强大的数据支撑能力。
-
-
VisualFreeBasic和VisualBasic6不同点 这里说的是 代码 不同，其它不同，比方界面，一看就知道，无需说明。 不同点很多本人想到什么再添加说明 1. COM：VB6支持良好，VFB不支持 VFB 没有原生支持COM，因此使用COM非常麻烦，不是说不能用，只是好麻烦，因此，用到COM，包括 OCX 控件，请使用 VB6，不要用VFB。同时包括 VB6 里的引用，也是 COM 的，VFB 是不支持的，使用不了。 2. 调试代码：VB6 完胜 VFB VB6 边运行边调试，一行一行执行，修改代码立即生效，可以继续执行代码 VFB print 结果，基本上都是依靠编译运行然后查看打印结果，当然可以一行一行调试执行，但每次修改需要重新编译运行，和VB6相差甚远，也无法做到和VB6一样的丝滑。 3. 模块 VB6独立，VFB统一 VB6：每个模块独立，一个窗口也是一个模块，还有类模块，互相独立 VFB：所有模块都属于同一个模块，包括窗口里的代码，可以说只有一个模块。 在VB6里调用窗口里的代码，需要先加载窗口，VFB里是直接调用，不需要窗口。 4. 变量定义 VB6：可以不设置类型 Dim 变量 甚至不用先声明变量 VFB：必须先声明变量，必须设置类型 Dim 变量 as long 5. 全局变量定义 VB6 ：Public 变量 as long VFB： Dim Shared 变量名 As Long 6. 局部变量 ’VB6 不管那里定义，后面都有效 Sub Myaaa() Dim a As Long If a = 0 Then Dim b As Long End If Print a,b End Sub 'VFB 每给配对中定义的变量，只存在配对中，超出就释放，就无效 Sub Myaaa() Dim a As Long If a = 0 Then Dim b As Long Print b 'END IF 结束后 b 变量会被释放 End If Print a '这里无法使用B变量 End Sub 7. 变量初始化 'VB6 Dim a As Long a = 100 'VFB Dim a As Long = 100 Dim b(3) As Long ={1,2,3,4} 8. 多变量声明 'VB6 Dim a As Long,b As Long ,c As Long 'VFB Dim As Long a, b, c '还可以初始化 Dim As Long a=1,b=2,c=3 9. 范围块局部变量 VB6不支持，VFB支持 Dim As Integer x = 5, y = 2 Print "x ="; x; ","; "y ="; y Scope Dim x As Integer = 3 Print "x ="; x; ","; "y ="; y Scope Dim y As Integer = 4 Print "x ="; x; ","; "y ="; y End Scope End Scope Print "x ="; x; ","; "y ="; y 10. 变量类型 有符号整数，就是有正负数 有符号整数 8位 16位 32位 64位 32/64自适应 VB6 无 Integer Long 无 无 VFB Byte Short Long LongInt Integer 无符号整数，就是只有正数，没有负数，可表示的数值上限比有符号多一倍 无符号整数 8位 16位 32位 64位 32/64自适应 VB6 Byte 无 无 无 无 VFB UByte UShort ULong ULongInt UInteger 浮点数 浮点数 32位单精度 64位双精度 货币类型 超大浮点数 VB6 Single Double Currency 无 VFB Single Double 无 BigFloat 字符串类型(8位是ANSI 编码，16位是Unicode 编码) 内存结构 ：8位 1个英文占1个字节，1个中文占2个字节， 16位不管英文中文，1个字都占2个字节。 字符串 8位变长 8位定长 16位变长 16位定长 VB6 无 无 String String * n VFB String zString * n StringW WString * n 11. 函数返回 VB6支持返回数组，VFB不支持 Function 函数名() As Long 'VB6 ----------- 函数名 = 1 If xxx Then 函数名 = 2 : Exit Function 'VFB ----------- 函数名 = 1 Function = 1 If xxx Then Return 2 End Function 12. 内循环控制 'VB6 ----------- Do Exit Do Loop Do Do Exit Do Loop Exit Do Loop 'VFB ----------- Do Do Exit Do,Do '可以直接退出双循环，或N多循环，还支持 Continue For,For | Continue While,While Loop Continue Do '直接跳转到循环头,继续循环的下一个迭代,还支持 Continue For | Continue While Loop 13. 函数的参数 vb6 Function 函数名(a As Long ,b As String , Optional ByVal b As Integer = 1) As Long 'a b 没写 ByVal或ByRef ,默认ByRef End Function VFB Function 函数名(a As Long ,b As String , b As Integer = 1) As Long 'a b 没写 ByVal或ByRef ,数值默认ByVal ，字符或其它类型默认ByRef End Function 14. 其它函数差异 ASC VB6 asc("111") asc(mid("111",2,1)) VFB asc("111") asc("111",2) CHR VB6 chr(1) & chr(2)... VFB chr(1,2,3.....) InStr VB6instr("abc","a") VFB instr("abc","a") 单个查找是一样的 当遇到需要查找多个文字时，不理解的看FB帮助 VB6 instr("abc","a") instr("abc","b") VFB instr("abc",any "ab") 从尾部开始查找 VB6instr(-1,"abc","a") VFB InStrRev("abc","a") Split VB6 nn()=Split("1,2,3,4",",") VFB 数量= vbSplit("1,2,3,4",",",nn()) Join VB6 Join(nn(),",") VFB YF_Join(nn(),",") Replace VB6 nn=Replace("123","1","a") VFB nn=YF_Replace("123","1","a") Now VB6 Print Now 输出是文本：如 2025-05-18 14:30:00 VFB Print Now 输出是数字：如 45795.82042824074 输出文本用：Format(Now, "yyyy-mm-dd hh:mm:ss") 字符函数 由于VFB有两套字符串，所用到的字符函数也有两套，下面举例几个，以此类推 8位：Asc InStr Lcase Left Mid 16位：AscW InStrW LcaseW LeftW MidW
-
VisualFreeBasic比VisualBasic6新增功能 界面 现代主流编程界面布局 集成函数库、源码库、流程图等 工程 可以同时打开多个工程，工程标签切换 工程里的文件用文件标签切换 窗口设计 属性名称可以中英文切换 点击属性，底部帮助区显示该属性的详细说明 丰富的自带控件，超过50个，后续会增加控件 代码 底部帮助区显示代码的光标所在，是变量、函数、还是什么，提供详细说明 右键点击函数，可以选择跳转到函数代码区。 提供底层模块，有起始模块、入口出口函数、消息循环 指针 多线程 直接写汇编 内存直接读写 位操作 直接使用 系统 API ，和本地函数一样使用。不需要定义。 上百个C语言函数直接使用。 自带几个大型的扩展库 公共代码库，大量函数直接调用 我的代码库，自己写的代码片段，函数等直接调用 VFB群里有好多牛逼的代码库下载，放到我的代码库里使用。持续增加中。 好多原生的函数，都有功能增强，在后续不同点里说明。
-
VisualFreeBasic和VisualBasic6相同点 VB6（Visual Basic 6.0）和 VFB（Visual FreeBASIC）虽然属于不同时代的开发工具，但由于 VFB 设计初衷是模仿 VB6，两者在语法、编程模型和开发体验上存在大量相似之处，这使得 VB6 开发者可以快速上手 VFB。以下是它们的主要相同点： 1. 基础语法高度相似 两者均基于 BASIC 语言，核心语法几乎一致： 变量声明：使用Dim关键字 ' VB6 Dim x As Integer Dim y As String ' VFB完全兼容 Dim x As Integer Dim y As String 流程控制语句：If...Then...Else、For...Next、Do...Loop等 ' 条件判断示例 If x > 10 Then MsgBox "大于10" Else MsgBox "小于等于10" End If 字符串处理：Len()、Mid()、Left()、Right()等函数完全相同 2. 可视化开发模式 两者均支持 “所见即所得”（WYSIWYG）的界面设计： 拖放式控件设计：通过工具箱拖拽按钮、文本框、列表框等控件到窗体 属性窗口：通过属性面板设置控件的Name、Caption、Font等属性 事件驱动编程：通过双击控件生成事件处理代码（如Command1_Click()） 3. 核心对象模型相似 窗体和控件：均使用Form作为主窗口，控件命名和用法类似 ' 窗体加载事件 'vb6 Private Sub Form_Load() Text1.Text = "Hello" Command1.Caption = "点击我" End Sub 'vfb Sub Form1_WM_Create(hWndForm As hWnd,UserData As Integer) Text1.Text = "Hello" Command1.Caption = "点击我" End Sub 4. 内置函数兼容性 数学函数：Sqr()、Sin()、Cos()、Abs()等 字符串函数：InStr()、Trim()、UCase()、LCase()等 5. 数据类型基本兼容 数据类型 VB6 VFB 整数 Integer(16 位) Integer(32 位) 长整数 Long(32 位) Long(32 位) 单精度浮点 Single Single 双精度浮点 Double Double 字符串 String String 6. 文件操作语法 传统文件操作：Open、Close、Input、Print语句兼容 ' 写入文件示例 Open "data.txt" For Output As #1 Print #1, "Hello, World!" Close #1 7. 项目结构相似 均以 “窗体（Form）”、“模块（Module）” 组织代码 支持添加资源文件（如图片、图标） 总结 VB6 和 VFB 的相似性使得 VB6 开发者迁移到 VFB 的门槛极低，大多数基础代码可以直接复用。然而，VFB 在保持兼容性的同时，增加了许多现代特性（如完整 OOP 支持、64 位编译、跨平台能力），这为旧项目升级和新项目开发提供了更大的灵活性。
-
VisualFreeBasic和VisualBasic6 功能对照 + 避坑指南 VB6 Visual Basic 6.0 是微软公司于 1998 年推出的可视化 Basic 编程语言，是经典的 Windows 桌面开发工具，也是 Visual Basic 系列的最后一个独立版本。它凭借简单易学的语法和 "所见即所得"（WYSIWYG）的开发环境，成为 20 世纪末至 21 世纪初最流行的软件开发平台之一，广泛用于快速构建中小型桌面应用程序、数据库管理系统和企业级软件。 VFB VisualFreeBasic，它是基于开源 Basic 语言FreeBASIC的可视化开发环境，专为替代 VB6 而设计，支持跨平台开发（Windows、Linux）。VFB 通过图形化界面和拖放式控件设计，让开发者能以类似 VB6 的方式快速构建应用程序，同时弥补了 VB6 的诸多缺陷，如不支持 64 位系统、缺乏现代编程特性等。 核心特点 兼容 VB6 语法 保留了大量 VB6 的经典语法（如Dim声明、MsgBox函数），降低 VB6 开发者的迁移成本，例如： ' VB6风格代码在VFB中依然有效 Dim x As Integerx = 10 MsgBox "x的值是: " & x 支持现代编程范式 扩展了面向对象编程（OOP）特性，如类、继承、多态，同时支持指针、运算符重载等高级功能。 跨平台开发能力 可生成 Windows、Linux 等多平台的原生应用，无需修改代码，例如： ' 跨平台文件操作示例 #If __FB_WIN32__ Then Print "在Windows上运行" #ElseIf __FB_LINUX__ Then Print "在Linux上运行" #End If 可视化设计器 提供类似 VB6 的窗体设计器，支持拖放控件（按钮、文本框等），并自动生成代码。 性能提升 基于 FreeBASIC 编译器，生成的程序执行效率更高，且原生支持 64 位系统。 与 VB6 的关键差异 特性 VB6 VFB 平台支持 仅限 32 位 Windows Windows、Linux（32/64 位） 编程范式 部分 OOP 特性（类模块） 完整 OOP 支持（类、继承、接口） IDE 集成度 独立 IDE 独立 IDE + 大量的库文件 + 源码 数据库访问 ADO（需 COM 注册） 支持 MySql、SQLite 等现代数据库 部署复杂度 需注册 COM 组件，依赖 VB6 运行库 单文件可执行，无需额外依赖 开源与社区支持 闭源，官方停止更新 开源，社区活跃维护 适用场景 VB6 项目迁移：将旧 VB6 应用升级到跨平台版本。 快速原型开发：利用可视化界面和熟悉的语法快速构建应用。 教育领域：作为入门级编程语言，比 VB6 更适合教学现代编程概念。
-
VisualFreeBasic第三方代码库_进程通信之内存共享 实现不同软件，不同进程共享内存，好比多线程使用全局变量一样道理。 已经增加读写锁，不会因为同时读写发生混乱，也增加了边界检查，避免越界发生软件奔溃 Dim Shared a As 进程通信之内存共享类 = "名字" 只要相同的名字，那么这里的内存就共享了，不管在什么进程中。（注意：当你电脑有多个用户登入，那么跨用户共享，需要在名字前面添加特殊文字，自己查相关资料。） 默认内存大小为 1024 字节，可以自己定义大小 Dim Shared a As 进程通信之内存共享类 = Type("名字",100) 使用共享内存就这样写 a.tLong(0) = 100 Print a.tLong(0) 当然还有其它类型 Declare Property tLong(位置 As ULong) As Long '返回属性 ，“位置”就是在共享内存中的相对位置，从0开始，单位是字节。 Declare Property tLong(位置 As ULong, 值 As Long) '给属性赋值 Declare Property tULong(位置 As ULong) As ULong '返回属性 ，“位置”就是在共享内存中的相对位置，从0开始，单位是字节。 Declare Property tULong(位置 As ULong, 值 As ULong) '给属性赋值 Declare Property tSingle(位置 As ULong) As Single '返回属性 ，“位置”就是在共享内存中的相对位置，从0开始，单位是字节。 Declare Property tSingle(位置 As ULong, 值 As Single) '给属性赋值 Declare Property tDouble(位置 As ULong) As Double '返回属性 ，“位置”就是在共享内存中的相对位置，从0开始，单位是字节。 Declare Property tDouble(位置 As ULong, 值 As Double) '给属性赋值 Declare Property tLongInt(位置 As ULong) As LongInt '返回属性 ，“位置”就是在共享内存中的相对位置，从0开始，单位是字节。 Declare Property tLongInt(位置 As ULong, 值 As LongInt) '给属性赋值 Declare Property tULongInt(位置 As ULong) As ULongInt '返回属性 ，“位置”就是在共享内存中的相对位置，从0开始，单位是字节。 Declare Property tULongInt(位置 As ULong, 值 As ULongInt) '给属性赋值 Declare Property tString(位置 As ULong) As String '返回属性，超过“尺寸”字符会被截断，遇到0也截断，不支持带0 的字符，自己控制字符长度，避免覆盖后面数据 Declare Property tString(位置 As ULong, 值 As String) '给属性赋值 Declare Property tWString(位置 As ULong) As StringW '返回属性，超过“尺寸”字符会被截断，遇到0也截断，不支持带0 的字符，自己控制字符长度（1字符占2字节），避免覆盖后面数据 Declare Property tWString(位置 As ULong, 值 As Wstring) '给属性赋值 这个位置，就是字节为单位，比方 long 类型占4个字节，你要使用 2个 Long 那么 a.tLong(0) = 100 ‘第1个 a.tLong(4) = 100 ‘第2个 因此，共享内存中需要保存什么数据，需要自己计算好位置进行读写。