VB程序设计报告格式.doc

Visual Basic程序设计题目：五子棋（自拟）学生姓名： 学生班级： 指导教师： 朱 辉 提交日期：1. 五子棋介绍（四号字，宋体，加粗）（小四字，宋体）五子棋是一种两人对弈的纯策略型棋类游戏，棋具与围棋通用，是起源于中国古代的传统黑白棋种之一。发展于日本，流行于欧美。容易上手，老少皆宜，而且趣味横生，引人入胜；不仅能增强思维能力，提高智力，而且富含哲理，有助于修身养性。已在各个游戏平台有应用。传统五子棋的棋具与围棋大致相同，棋子分为黑白两色，棋盘为1515，棋子放置于棋盘线交叉点上。两人对局，各执一色，轮流下一子，先将横、竖或斜线的5个或5个以上同色棋子连成不间断的一排者为胜。 2. 程序界面图1 五子棋主界面控件说明：l 标签l Label1：显示“当前下棋方”l lblName(0)：显示“黑方”l lblName(1)：显示“白方”l lblPrompt1：显示黑方“胜0盘，负0盘”l lblPrompt2：显示白方“胜0盘，负0盘”l 图片：l ImgNow：当前下棋方棋子图片l Img(0)：黑方棋子图片l Img(1)：白方棋子图片l Menu：菜单l PictureBox：绘制棋盘3. 程序设计3.1 变量说明l Dim MapBlack(1 To 19, 1 To 19, 0 To 4) As Single 黑方棋盘权值表l Dim MapWhite(1 To 19, 1 To 19, 0 To 4) As Single白方棋盘权值表l Dim NowOpt As Boolean 当前下棋方l Dim CanOpt As Boolean 是否可运行l Dim BlackWin As Integer 黑方胜数l Dim BlackLost As Integer 黑方失败数l Dim WhiteWin As Integer 白方胜数l Dim WhiteLost As Integer 白方失败数l Const Grid = 240 单元格点尺寸3.2 过程说明l InitializePre() 为每个棋位赋权值l ShowMap(Opt As Boolean, X As Integer, Y As Integer, Optional CN As Boolean = False) 画棋子l ReDrawMap() 重新绘制棋盘l ReInputData() 清除棋位的权值l Form_Load() 加载应用l PicMap_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 落子3.3 函数说明l InputeCalcPre() 计算四向棋位权值l OpinionWin(Opt As Boolean) 胜负判定l ReadMapData() 画出落子4. 源码说明每个棋位取值初始化Private Sub InitializePre() 初始化优先级 Dim i As Integer, j As Integer For i = 1 To 9 For j = i To 19 - i MapBlack(i, j, 1) =i /权值以中心为基础逐次向外减少 MapBlack(i, j, 2) = i MapBlack(i, j, 3) = i MapBlack(i, j, 4) = i MapBlack(j, i, 1) = i MapBlack(j, i, 2) = i MapBlack(j, i, 3) = i MapBlack(j, i, 4) = i Next j Next i For i = 19 To 11 Step -1 For j = 20 - i To i MapBlack(i, j, 1) = 20 - i MapBlack(i, j, 2) = 20 - i MapBlack(i, j, 3) = 20 - i MapBlack(i, j, 4) = 20 - i MapBlack(j, i, 1) = 20 - i MapBlack(j, i, 2) = 20 - i MapBlack(j, i, 3) = 20 - i MapBlack(j, i, 4) = 20 - i Next j Next i MapBlack(10, 10, 1) = 10 /中间的棋位权值 MapBlack(10, 10, 2) = 10 MapBlack(10, 10, 3) = 10 MapBlack(10, 10, 4) = 10 For i = 1 To 19 /设定白棋的初始权值与黑棋相同 For j = 1 To 19 MapWhite(i, j, 1) = MapBlack(i, j, 1) MapWhite(i, j, 2) = MapBlack(i, j, 2) MapWhite(i, j, 3) = MapBlack(i, j, 3) MapWhite(i, j, 4) = MapBlack(i, j, 4) Next j Next iEnd Sub依次说明所有的函数和过程5. 对于该选题日后改进的设想该程序实现了五子棋人机对抗，利用给棋位赋权值的方法，实现了简单的职能算法。缺点是：不能记录下棋步骤，不能实现人人对抗，未支持网络功能。报告页数在15页之内，第15周周末前，提交到2号实验楼410，网络工程系，朱辉收。打印A4， 报告、源程序压缩 保存文件，班级 JK1101001姓名.zip 如何截图当在实验报告中需要引用“运行结果截图”时，需要通过WINDOWS系统所提供的“画图”软件简单的图像编辑。该软件的快速引用方式为“开始-所有程序-附件-画图”。截图过程可参考以下步骤：1） 首先打开WINDOWS OFFICE文档编辑工具。2） 运行所需要截图的程序，并得到结果，该结果可以是程序编译时给出的错误提示信心、程序运行结果等，如：或者3） 当在屏幕上出现所需要的图时，按下键盘的“打印屏幕键”。一般该键位于键盘的右上角，通常该键上显示的字母为“PrtSc SysRq”或者“Print Screen SysRq”等类似信息。此时，该屏幕就被保存在计算机内存中。4） 打开WINDOWS所提供的画图软件，新创建一个空白的画板。然后将复制在