|
用Excel编写小游戏(1)
游戏要给予人的是欢娱快乐而非困扰闹心，要满足玩乐之心，有时一片树叶已经足够。对于我们这些游戏开发爱好者来说，asm、c、C++、directx、opengl、FLASH等并非是我们必需的知识和工具，有时一些意想不到的实现更能体现游戏简单的真意。 办公软件Excel大家熟悉不过，其功能我不多说。但大家可有想过在Excel中也可实现个把小游戏？这个不是指97版Excel中的复活节彩旦游戏，而是实实在在的利用Excel资源编写、在Excel下运行的小游戏。经过几代的升级，ms office下的VBa（visual basic for application）语言的功能有了很大的提高，在Excel中实现个把平面游戏理论上是可能的。当然这里面也要因应Excel工作区的特点。在Excel中编写应用一般都是通过vba编写宏，这些小游戏也是。至于如何开始编写宏、如何插入窗体及一些选择行列单元格、改变单元格颜色、清除单元格内容等的语句，这里假设大家都知道了，不明白的参考帮助吧。老实说，我对visual basic for application也不大熟悉，做起来整个过程也要不停地看帮助。下面结合代码与大家介绍一下。 先说个简单的。大家玩过那个外国华容道吧，就是有n*n个格，有一格是空的，其他格是次序混乱的拼图或数字，游戏的目的就是利用这唯一的这个空格移动各块拼图把混乱的拼图（数字）恢复（顺序）。这里我们小游戏的目的是要把1至15这15个次序混乱的数字恢复从1到15的顺序排列，就像瑞星网站上那个（不知现在还在不在）。 打开Excel后打开代码编写器（Alt + F11），将如下代码写入其中一个工作表（Sheet）的通用代码部分中。程序首先是初始化。定义数据结构，选择4*4的空格，调整表格大小，改变单元格颜色（标示出游戏区域），然后是让1到15非重复随机分布到前15格空格中： Type pos
row As Integer
col As Integer
End Type 'blank为空格的位置，初值为最后一格
Public blank As pos 'init_pos为游戏区域的左上角，控制游戏区域的位置，这里为(5,5)单元格
Public init_pos As pos 'border为游戏区域边界
Public border As pos 'N为游戏区域的大小，控制游戏的规模(N*N)，这里N=4
Public N As Integer 'running用于判断游戏是否进行中，如果要中途退出或玩家需要重玩用此变量控制
Public running As Boolean
'此下是本游戏宏的总入口，由工作区中button启动，如果愿意也可以让游戏宏在打开该表时自动运行
Sub Begin()
If running Then
Cells(border.row, border.col).ClearContents '将唯一的空格初始化在右下角
running = False
End If
initialize '调用全局初始化函数
End Sub
'全局初始化函数
Function initialize()
| 
