飞行棋游戏的设计与实现(5)

4 intImage()棋子与骰子的初始化

Private Sub intImage() '图片框初始化

For Player = 0 To 3 For Plan = 1 To 3

Image2(Player * 4 + Plan).Picture = Image2(Player * 4).Picture '载入相关

的棋子图片

Next Next

Image3.Top = Image1.Top + (Image1.Height - Image3.Height) / 2 '将骰子放到棋盘的 中间

Image3.Left = Image1.Top + (Image1.Width - Image3.Width) / 2 End Sub

Dim Player As Long, Plan As Long '玩家和棋子临时计数器

5 Form_Load()窗体的加载过程

每一个 windows 程序基本上都是从窗体开始加载的。在这个模块中，可对游戏进行必 要的初始化操作。使游戏处于复位状态，为稍后的游戏作准备。 6 Start_Click()和Exit_Click()菜单动作

本文中的菜单很简单，只有开始和退出两个选择，对应的模块为：Start_Click()和 Exit_Click()。 （三）、骰子的模拟与控制

对于骰子的模拟与控制 主要是实现以下四点

1、骰子随机性的模拟，可以用Vb中的随机函数来模拟。

2、骰子使用状态的控制，可以通过设置Imagede Enable属性达到目的。

3、骰子在棋盘上的坐标计算与定位。

4、骰子翻转动画的过程模拟，可以通过不断加载不同的骰子图片来实现。 1 Dice()生成骰子的随机点数

机函数构成的表达式 Rnd * 6 会产生一个0~5之间的随机数，用Fix()取整后加1就产

生了 1~6之间的随机整数，其中随机种子已经由Randomize在 Int_GameData()中设定了。

2 Dice_Show()加载骰子图像

根据数字显示对应的骰子图像可以用LoadPicture 实现。

Sub Dice_Show(ByVal num As Long) '加载骰子图片

num = (num) Mod 6 '使 Num 在 0~5 之间循环变化

Image3.Picture = LoadPicture(".\" & num + 1 & ".Ico") '加载骰子图片 End Sub

3 Dice_Run_Timer()实现抛掷骰子的动画效果

要实现骰子的连掷动画则需要Timer控件的帮助了，通过timer控件循环加载骰子图像，

并作适当延迟，就产生了骰子连掷效果。经过试验，骰子延迟50 毫秒，滚动一6~12次效果

最佳。

4 PutDice2Map()控制骰子的移动