一个用VB写成的五子棋程序1.doc

Visual Basic课程实训指导书一、课程实训的意义：1） 学会综合运用VB有关的控件、函数和对象的知识。2） 学习各种数据处理控件的使用方法，掌握数据库应用程序的开发技术。3） 学会运用VB进行程序设计的特点和方法。4） 在学会运用VB进行面向对象程序设计步骤和方法的基础上，能够设计其他的实际应用系统，从而达到一定的应用程序设计水平。二、课程实训的内容：设计并实现五子棋的应用程序。三、课程实训的要求：建立五子棋的应用程序，要求能完成1）按开始按钮双方开始下棋2）一方赢时提示四、课程实训的步骤：1）、分析要解决的问题，明确五子棋系统的目的和系统应具备的功能，划分功能模块，并画出系统功能模块图。2）分析所管理的信息，设计结构。3）根据各程序模块的功能分别画出程序的详细流程图。4）分模块编写程序。5）程序编写完，分模块调试，各模块调试通过之后，在联起来调试，调试通过之后试运行无错误时，编译生成可执行文件。6）写出完整的课程实训报告。五、课程实训的过程VERSION 5.00 Begin VB.Form Form1 AutoRedraw = -1 True BackColor = &H00008000& Caption = 五子棋小师傅 ClientHeight = 7920 ClientLeft = 165 ClientTop = -2490 ClientWidth = 9630 ForeColor = &H00C0C0C0& Icon = mainfrm.frx:0000 LinkTopic = Form1 MaxButton = 0 False ScaleHeight = 7920 ScaleWidth = 9630 StartUpPosition = 2 屏幕中心 Begin VB.Timer sysrefreshtime Interval = 100 Left = 1560 Top = 5160 End Begin VB.TextBox Text1 BackColor = &H00008000& Height = 735 Left = 7440 Locked = -1 True MultiLine = -1 True ScrollBars = 2 Vertical TabIndex = 51 ToolTipText = 显示所有的下棋的历史过程 Top = 6600 Width = 2295 End Begin VB.Frame Frame3 BackColor = &H00004000& Caption = 游戏规则及控制 ForeColor = &H0000FF00& Height = 2175 Left = 7440 TabIndex = 50 Top = 1320 Width = 2295 Begin VB.Frame Frame6 BackColor = &H00004000& Caption = 控制 ForeColor = &H0000FF00& Height = 975 Left = 120 TabIndex = 62 Top = 1080 Width = 2055 Begin VB.Label Label13 BackColor = &H00004000& Caption = F3:读盘 F5:存盘 F1:帮助 Alt_F4:结束 ForeColor = &H0000FF00& Height = 375 Left = 120 TabIndex = 65 Top = 480 Width = 1815 End Begin VB.Label Label12 BackColor = &H00004000& Caption = 执黑先下(使用鼠标者) ForeColor = &H0000FF00& Height = 255 Left = 120 TabIndex = 64 Top = 240 Width = 1815 End End Begin VB.Frame Frame5 BackColor = &H00004000& Caption = 规则 ForeColor = &H0000FF00& Height = 735 Left = 120 TabIndex = 61 Top = 240 Width = 2055 Begin VB.Label Label11 BackColor = &H00004000& Caption = 执黑先下，双活三无限制，先连五者赢！ ForeColor = &H0000FF00& Height = 375 Left = 120 TabIndex = 63 Top = 240 Width = 1815 End End End Begin VB.TextBox messagetext Alignment = 2 Center BackColor = &H00008000& BeginProperty Font Name = 宋体 Size = 12 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H00C00000& Height = 390 Left = 0 Locked = -1 True MousePointer = 1 Arrow TabIndex = 49 Text = 请开始游戏！ ToolTipText = *系统提示信息* Top = 7560 Width = 9855 End Begin VB.Timer posTime Enabled = 0 False Interval = 200 Left = 1440 Top = 4320 End Begin VB.PictureBox backpic AutoRedraw = -1 True BackColor = &H00008000& FillColor = &H000000FF& ForeColor = &H00FF0000& Height = 7200 Left = 120 ScaleHeight = 7140 ScaleWidth = 7140 TabIndex = 0 Top = 120 Width = 7200 Begin VB.Timer user2posTime Enabled = 0 False Interval = 200 Left = 2160 Top = 3480 End Begin VB.Timer showTime Enabled = 0 False Interval = 1000 Left = 1320 Top = 6000 End Begin VB.Label charlabely BackColor = &H00808080& BackStyle = 0 Transparent Caption = Y ForeColor = &H000000FF& Height = 255 Left = 1200 TabIndex = 44 Top = 2760 Width = 255 End Begin VB.Label charLabelx BackColor = &H0080FF80& BackStyle = 0 Transparent Caption = X ForeColor = &H000000FF& Height = 255 Left = 1920 TabIndex = 43 Top = 1560 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00008000& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 19 Left = 0 TabIndex = 42 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 18 Left = 0 TabIndex = 41 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 17 Left = 0 TabIndex = 40 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 16 Left = 0 TabIndex = 39 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 15 Left = 0 TabIndex = 38 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 14 Left = 0 TabIndex = 37 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 13 Left = 0 TabIndex = 36 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 12 Left = 0 TabIndex = 35 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 11 Left = 0 TabIndex = 34 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 10 Left = 0 TabIndex = 33 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 9 Left = 0 TabIndex = 32 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 8 Left = 0 TabIndex = 31 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 7 Left = 0 TabIndex = 30 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 6 Left = 0 TabIndex = 29 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 5 Left = 0 TabIndex = 28 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 4 Left = 0 TabIndex = 27 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 3 Left = 0 TabIndex = 26 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 2 Left = 0 TabIndex = 25 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 1 Left = 0 TabIndex = 24 Top = 0 Width = 135 End Begin VB.Label lieLabel1 BackColor = &H00008000& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 0 Left = 6360 TabIndex = 23 Top = 120 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 19 Left = 0 TabIndex = 22 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 18 Left = 0 TabIndex = 21 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 17 Left = 0 TabIndex = 20 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 16 Left = 0 TabIndex = 19 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 15 Left = 0 TabIndex = 18 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 14 Left = 0 TabIndex = 17 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 13 Left = 0 TabIndex = 16 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 12 Left = 0 TabIndex = 15 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 11 Left = 0 TabIndex = 14 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 10 Left = 0 TabIndex = 13 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 9 Left = 0 TabIndex = 12 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 8 Left = 0 TabIndex = 11 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 7 Left = 0 TabIndex = 10 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 6 Left = 0 TabIndex = 9 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 5 Left = 0 TabIndex = 8 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 4 Left = 0 TabIndex = 7 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 3 Left = 0 TabIndex = 6 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 1 Left = 0 TabIndex = 5 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00808080& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 2 Left = 0 TabIndex = 4 Top = 0 Width = 135 End Begin VB.Label henLabel1 BackColor = &H00008000& Caption = 1 ForeColor = &H0000FFFF& Height = 255 Index = 0 Left = 240 TabIndex = 3 Top = 0 Width = 135 End End Begin VB.TextBox Text4 Appearance = 0 Flat BackColor = &H00004000& BorderStyle = 0 None ForeColor = &H0000FF00& Height = 270 Left = 8880 Locked = -1 True TabIndex = 2 Text = Text4 Top = 4080 Width = 495 End Begin VB.TextBox Text3 Appearance = 0 Flat BackColor = &H00004000& BorderStyle = 0 None ForeColor = &H0000FF00& Height = 255 Left = 8880 Locked = -1 True TabIndex = 1 Text = Text3 Top = 4320 Width = 495 End Begin VB.Frame Frame1 BackColor = &H00004000& Caption = 下子情况 ForeColor = &H0000FF00& Height = 2655 Left = 7440 TabIndex = 45 Top = 3600 Width = 2295 Begin VB.Frame Frame2 BackColor = &H00004000& Caption = 棋子的当前位置 ForeColor = &H0000FF00& Height = 855 Left = 120 TabIndex = 46 Top = 240 Width = 1935 Begin VB.Label Label1 BackColor = &H00004000& Caption = 所在行(Y)： ForeColor = &H0000FF00& Height = 255 Left = 120 TabIndex = 48 Top = 240 Width = 1095 End Begin VB.Label Label2 BackColor = &H00004000& Caption = 所在列(X)： ForeColor = &H0000FF00& Height = 255 Left = 120 TabIndex = 47 Top = 480 Width = 1215 End End Begin VB.Frame Frame4 BackColor = &H00004000& Caption = 步数统计 ForeColor = &H0000FF00& Height = 1400 Left = 120 TabIndex = 52 Top = 1200 Width = 1935 Begin VB.Label Label9 BackColor = &H00004000& Caption = 计算机上一步棋是(X,Y)！ ForeColor = &H0000FF00& Height = 375 Left = 360 TabIndex = 59 Top = 960 Width = 1455 End Begin VB.Label Label8 BackColor = &H00004000& Caption = 3: ForeColor = &H0000FF00& Height = 255 Left = 120 TabIndex = 58 Top = 960 Width = 135 End Begin VB.Label Label7 BackColor = &H00004000& Caption = 已经悔了步棋！ ForeColor = &H0000FF00& Height = 255 Left = 360 TabIndex = 57 Top = 720 Width = 1455 End Begin VB.Label Label6 BackColor = &H00004000& Caption = 共可悔棋步 ForeColor = &H0000FF00& Height = 255 Left = 360 TabIndex = 56 Top = 480 Width = 1335 End Begin VB.Label Label5 BackColor = &H00004000& Caption = 2: ForeColor = &H0000FF00& Height = 255 Left = 120 TabIndex = 55 Top = 480 Width = 255 End Begin VB.Label Label4 BackColor = &H00004000& Caption = 1: ForeColor = &H0000FF00& Height = 255 Left = 120 TabIndex = 54 Top = 240 Width = 255 End Begin VB.Label Label3 BackColor = &H00004000& Caption = 共下了0步！ ForeColor = &H0000FF00& Height = 255 Left = 360 TabIndex = 53 Top = 240 Width = 1455 End End End Begin VB.Label Label19 Alignment = 2 Center BackStyle = 0 Transparent BeginProperty Font Name = 隶书 Size = 18 Charset = 134 Weight = 400 Underline = 0 False Italic = -1 True Strikethrough = 0 False EndProperty ForeColor = &H000000FF& Height = 375 Left = 7440 TabIndex = 71 Top = 0 Width = 2295 End Begin VB.Label Label18 Alignment = 2 Center BackStyle = 0 Transparent BeginProperty Font Name = 宋体 Size = 10.5 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H00800000& Height = 255 Left = 7440 TabIndex = 70 Top = 600 Width = 2295 End Begin VB.Label Label17 BackStyle = 0 Transparent Caption = 当前时间： ForeColor = &H00000000& Height = 255 Left = 7680 TabIndex = 69 Top = 1080 Width = 975 End Begin VB.Label Label16 BackStyle = 0 Transparent Caption = 开始时间： ForeColor = &H00000000& Height = 255 Left = 7680 TabIndex = 68 Top = 840 Width = 975 End Begin VB.Label Label15 BackStyle = 0 Transparent Height = 255 Left = 8760 TabIndex = 67 Top = 1035 Width = 855 End Begin VB.Label Label14 BackStyle = 0 Transparent ForeColor = &H00000000& Height = 255 Left = 8760 TabIndex = 66 Top = 840 Width = 735 End Begin VB.Label Label10 BackColor = &H00008000& Caption = *下棋历史记录* Height = 255 Left = 7560 TabIndex = 60 Top = 6360 Width = 1935 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 14 X1 = 8280 X2 = 13844 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 13 X1 = 8280 X2 = 13844 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 11 X1 = 7680 X2 = 13244 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 10 X1 = 1200 X2 = 6764 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 8 X1 = 0 X2 = 5564 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 6 X1 = 3240 X2 = 8804 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 4 X1 = 2040 X2 = 7604 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 2 X1 = 1200 X2 = 6764 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 Inside Solid Index = 1 X1 = 0 X2 = 5564 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 0 X1 = 15 X2 = 5564 Y1 = 15 Y2 = 15 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 3 X1 = 1215 X2 = 6764 Y1 = 15 Y2 = 15 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 7 X1 = 3255 X2 = 8804 Y1 = 15 Y2 = 15 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 5 X1 = 2055 X2 = 7604 Y1 = 15 Y2 = 15 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 9 X1 = 15 X2 = 5564 Y1 = 15 Y2 = 15 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 12 X1 = 7695 X2 = 13244 Y1 = 15 Y2 = 15 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 16 X1 = 8295 X2 = 13844 Y1 = 15 Y2 = 15 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 15 X1 = 8295 X2 = 13844 Y1 = 15 Y2 = 15 End Begin VB.Menu mnu1 Caption = 游戏（&G） Begin VB.Menu newgame Caption = 开局（&N） End Begin VB.Menu line7 Caption = - End Begin VB.Menu savegame Caption = 存盘（&B） End Begin VB.Menu loadgame Caption = 读盘（&R） End Begin VB.Menu mnuline2 Caption = - End Begin VB.Menu backchess Caption = 撤消（&H） End Begin VB.Menu line6 Caption = - End Begin VB.Menu exitgame Caption = 退出（&X） End End Begin VB.Menu optiongame Caption = 设置（&O） Begin VB.Menu modelgame Caption = 游戏模式（&M） Begin VB.Menu model1game Caption = 人机大战（&C） Checked = -1 True End Begin VB.Menu model2game Caption = 两人对垒（&P） Checked = -1 True End End Begin VB.Menu line9 Caption = - End Begin VB.Menu sizegame Caption = 棋盘设置（&S） Begin V