收藏 分销(赏)

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

上传人:綻放 文档编号:8915051 上传时间:2025-03-07 格式:DOC 页数:3 大小:513.96KB
下载 相关 举报
VB课程设中国象棋复盘报告.doc_第1页
第1页 / 共3页
VB课程设中国象棋复盘报告.doc_第2页
第2页 / 共3页
点击查看更多>>
资源描述
如有你有帮助,请购买下载,谢谢! 中国象棋复盘设计报告 学院 机械学院 班级 机设 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页
展开阅读全文

开通  VIP会员、SVIP会员  优惠大
下载10份以上建议开通VIP会员
下载20份以上建议开通SVIP会员


开通VIP      成为共赢上传
相似文档                                   自信AI助手自信AI助手

当前位置:首页 > 包罗万象 > 大杂烩

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        抽奖活动

©2010-2025 宁波自信网络信息技术有限公司  版权所有

客服电话:4009-655-100  投诉/维权电话:18658249818

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :微信公众号    抖音    微博    LOFTER 

客服