用VB实现井字游戏

日期：2008年4月1日作者：自由电子软件开发社查看:[大字体中字体小字体]

'定义棋盘格子数据结构
Private Type Wells
    Wells_X As Long
    Wells_Y As Long
    Wells_Value As Integer
End Type

'定义棋盘格子的实例数组
Private usrWells(1 To 9) As Wells

'定义响应点击操作的逻辑棋盘格子代号数组
Private intWellsIndex(1 To 3, 1 To 3) As Integer

'定义玩家的玩过的盘数和积分
Private lngPlayerTurn As Integer, lngPlayerScore As Long

'定义游戏开始标志
Private blnGameStart As Boolean

'定义玩家胜利和失败标志
Private blnPlayerWin As Boolean, blnPlayerLost As Boolean

'定义枚举常量标识玩家类型
Private Enum Player
    MAN = 0
    COMPUTER = 1
End Enum

'该过程用于显示游戏信息
Private Sub Form_Load()
    Me.Show
    Me.Caption = "BS井字游戏 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"
End Sub

'该过程用于重新开始开始游戏
Private Sub cmdGameStart_Click()
    blnGameStart = True
    lngPlayerTurn = lngPlayerTurn + 1
    Me.picWells.Cls
    Call subGameInitialize
    Call subScreenRefresh
End Sub

'该过程用于显示游戏规则
Private Sub CmdGameRules_Click()
    Beep
    MsgBox " BS井字游戏：一个最简单的智力游戏，您将与机" & Chr(13) & _
           "器在9个格子大小的棋盘上一决高下。由您先开始" & Chr(13) & _
           "和机器轮流，每次在任意的空格上下一枚棋子。先" & Chr(13) & _
           "在棋盘上横向、纵向或对角线上排成三枚相同棋子" & Chr(13) & _
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] 下一页
用VB实现井字游戏相关文章：
·玩对对碰游戏注意事项
·Photoshop配合Painter绘制鲁特琴演奏者戏剧场景
·QQ游戏斯诺克贴库球的打法
·对QQ游戏开发者的访谈
·史玉柱：从“首负”到“首富”的游戏玩家
·Flash AS以贪吃蛇小游戏为实例学习类编程
·警告：QQ游戏邀请大盗邀请你玩病毒
·猫猫姐姐生日快_QQ游戏
·陈艺光：网络游戏平台与游戏网站实现共赢
·浪漫游戏-诛仙恋
用VB实现井字游戏相关软件
·《葫芦娃大战蝎子王》游戏试玩
·《Toribash》游戏试玩
·变形金刚游戏GT独占宣传片
·游戏马—边锋记牌器
·游戏马-QQ记牌器
·扑克游戏 81.17
·游戏修改大师
·使命召唤4困境营救游戏视频
·《彼得大冒险》小游戏合集
·SwiftDog GameHike 游戏速度优化工具

上一篇:用VB实现类似电子表格的数据录入

下一篇:用VB实现动态文本数据到ORACLE数据库基表的迁移

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用VB实现井字游戏

精品推荐

热点TOP10

特别推荐