VB课程设中国象棋复盘报告.doc

如有你有帮助，请购买下载，谢谢！
中国象棋复盘设计报告

学院 机械学院 班级 机设 076 学号 070501 姓名 康煦晖 成绩
一、设计思路

1.要达到的目的

①培养综合利用 VB 语言进行程序设计的能力
②培养 VB 的标准控件进行界面设计的能力
③用 VB 的文件功能读取文件内容并进行处理的能力

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
1页

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

2页

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 末纵
坐标

3页