VB课程设-中国棋复盘报告.docVIP

中国象棋复盘设计报告 学院 机械学院 班级 机设076 学号 070501 姓名 康煦晖 成绩 一、设计思路 1.要达到的目的 ①培养综合利用语言进行程序设计的能力 2.关键问题的解决 ①棋子的载入 ②棋盘的更换 ③走棋，读棋 ④各个过程的建立 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Private Sub Form_Load() Dim j%, k% Dim X%, Y% Dim m%, n%, v% bs = 1 cishu = 0 time.Caption = Format(m, 00) : Format(s, 00) ti = 5 初始化时间间隔 s = ti + 1 qp = 经典 qz = 普通 Call qzi Call qpa 载入棋盘坐标 For Y = 1 To 10 body(Y) = 75 + (Y - 1) * 682 Next Y For X = 1 To 9 bodx(X) = 75 + (X - 1) * 680 Next X locate 定位棋子 定位棋路 For j = 1 To 9 For k = 1 To 10 bod(j, k) = board(j, k) bodbf(j, k) = board(j, k) Next k Next j End Sub Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Form_Load Command1_Click End Sub 走棋方闪烁 If Command6.Enabled = True Then Image4.Visible = Not Image4.Visible End If If rob Then Image2.Visible = False Image1.Visible = Not Image1.Visible Else Image1.Visible = False Image2.Visible = Not Image2.Visible End If cishu = cishu + 1 End Sub Private Sub 换方_Click() If Picture1.ScaleTop = 0 Then Picture1.ScaleLeft = 6210 - 570 Picture1.ScaleTop = 6870 - 570 Else Picture1.ScaleLeft = 0 Picture1.ScaleTop = 0 End If Picture1.ScaleWidth = -(Picture1.ScaleWidth) Picture1.ScaleHeight = -(Picture1.ScaleHeight) End Sub Private Sub 暗夜_Click() qp = 暗夜 Call qpa End Sub Private Sub 结束_Click() Dim i% Timer1.Enabled = True start Timer1.Enabled = False List1.Clear Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False End Sub Sub moe() 获得移动棋子的始末坐标 Dim k%, h%, n%, sig%, xy% xi初横坐标，yi初纵坐标，xy终量或增量，xx末横坐标，yy末纵坐标 Dim zhao As String h = 1 sig = 1 If Not rob Then sig = -1 If rob Then zhao = Right(List1.List(bs), 4) Else zhao = Right(List1.List(bs), 4) 读取一行棋谱的招法，bs为步数 分析棋谱，获取横坐标，终量或增量，棋子种类 xy = num(Mid(zhao, 4, 1)) If Mid(zhao, 1, 1) = 前 Or Mid(zhao, 1, 1) = 后 Then Select