vb快速配对.doc

vb快速配对 使用栈实现回朔法 1.使用一个顺序栈来完成路径的记录，要求栈记录走过的路径，并且记录是否是转弯点和弯点的方向 2.退栈条件：1.已经没有路可以走（不能走已经走过的路）2.已经有两次以上的转弯记录 3.退栈的方式：1.对于第一种退栈条件只需要退一个记录。2.对于第二种条件需要退到弯点处 栈的结构 数据类型如下： Type nodestack x As Integer 记录走过路径的X坐标 y As Integer 记录走过路径的y坐标 flag As Integer 方向记录 wd As Integer 记录是否是一个转弯点 End Type 初始化游戏算法分析 1.初始化算法必须保证游戏能够继续下去 2.如果时间到了，必须计算出是否存在无法继续下去的情况，如果不能继续下去必须重新初始化 方案一： 使用完全随机分配 方案二： 使用算法进行随机分配 随机方案根据时间计算，使用时间做一个种子数 分配的要求是成对出现 栈结构的结点 Type nodestack X As Integer 记录走过路径的X坐标 Y As Integer 记录走过路径的y坐标 flag As Integer 方向记录 wd As Integer 记录是否是一个转弯点 n As Integer 记录转过弯的次数 End Type 游戏存储的结点 Type yxyx X As Integer 记录游戏方块存放的X坐标 Y As Integer 记录游戏方块存放的Y坐标 flag As Integer 记录是否存在方块 lx As Integer 记录方块的类型 End Type 鼠标点击记录 Type mousexy flag As Integer 是否是第一次点击鼠标1:表示第一次.0:表示第二次 x1 As Integer 定义点击鼠标的X坐标(前) y1 As Integer 定义点击鼠标的Y坐标(前) x2 As Integer 定义点击鼠标的X坐标(后) y2 As Integer 定义点击鼠标的Y坐标(后) End Type 约瑟夫环结点 Type ysfhnode 约瑟夫环结点 data As Integer 结点的密码 flag As Integer 标识结点是否在环内 End Type 公共变量 Public helpn As Integer 帮助次数 Public passn As Integer 等级 Public gamenum As Integer 记录下连接方块的个数 Public overflag As Boolean 表示游戏结束 Public playflag As Boolean 表示是否是在进行游戏 Public gametime As Integer 游戏时间 Public stopflag As Boolean 用于判断暂停 Public time1 As Integer 用于连接效果的延时 Public can1 As Boolean 用于判断是否能继续游戏变量 Public alrealy As Boolean 用于表示是否有方块连接 Public ret1 As nodestack 用于返回下一个探测点的变量 Public gettopret As nodestack 取得栈顶元素的变量 Public popret As nodestack 取得出栈的元素的变量 Public mousedo As mousexy 定义MOUSEDO为记录点击方块的变量 Public stack_n As Integer 记录栈的位置变量 Public jl(1 To 12, 1 To 16) As yxyx 定义一个12*16的游戏存储区用于存储游戏结果 Public stack(1 To 193) As nodestack 定义一个可以记录193步的顺序栈 初始化游戏随机函数 参数说明 upper:随机数上限，lower:随机数下限，zz:随机函数的种子数 功能说明：使用系统时间的秒做为随机函数的种子数，可以产生较