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

Private Function CntPlanStat(Player_Idx As Long, Stat As Plan_Stat) As Long

Dim Plan_Idx As Long CntPlanStat = 0 For Plan_Idx = 0 To 3

If GmData.Plan(Player_Idx, Plan_Idx).Stat = Stat Then

CntPlanStat = CntPlanStat + 1 End If Next End Function

4.6.14 CntComplete() 统计某位玩家完成任务的棋子数量 Private Function CntComplete(Player_Idx As Long) As Long

Dim Plan_Idx As Long CntComplete = 0

CntComplete = CntPlanStat(Player_Idx, Complete) End Function

（七）、棋子图片在窗体上的定位

1 PutAllPlantomap()将所有棋子图片放到窗体的棋盘上

对所有玩家的飞机进行遍历，然后利用 PutPlantomap 和 GetMap_XY 模块将飞机移动 到棋盘上

2 PutPlantomap()将特定棋子放到窗体中棋盘的对应位置上

查询指定指定棋子的棋盘坐标，并利用该棋子的图片放到窗体对应的位置上

三、 性能测试与分析

（一）、系统开发环境 硬件平台：

CPU Intel(R)Pentium(R)M processor 2.0 GHz 内存1G

硬盘80G

软件平台：操作系统 Windows XP professional sp2，

开发工具：Microsoft Visual Basic 6.0 （二）、 系统测试