资源描述
如有你有帮助,请购买下载,谢谢!
中国象棋复盘设计报告
学院 机械学院 班级 机设 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页
展开阅读全文