VB开发的象棋
VB编程易学实用、功能强大,非常有趣!
今天,我们就共同来领略用VB开发的象棋游戏如何实现。
小贴士:游戏实现的代码比较复杂,只看文字可能不易理解,感兴趣的朋友可以直接添加文末小编微信号,免费获取象棋的源代码及程序,直接运行学习,效果更佳!
象棋游戏实现第一步,首先是想办法用VB代码来实现上面的图形界面。
我们可以看到,棋盘界面上有方框、有图线、有文字。
这个如何来实现呢?
我们通过下面的代码来实现界面。
Option Explicit
Dim C As Byte '当前玩家
Dim cSel As Byte, osel As Byte '当前选中哪个棋子,目标哪个棋子
Dim DoCchess As Boolean '是否允许玩家选中棋子
Public a As Byte, b As Byte
Dim PubBestLocate As CHESSER '最后运算分数最高的结果
Const INITVALUE = -10000 '初始分数