资源描述：
《vb课程设-02--070453--中国象棋复盘》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、中国象棋复盘课程设计报告（VB）编号：02中国象棋复盘设计报告学院机械学院班级机设074班学号070453姓名臧文涛成绩一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行界面设计，用VB的文件功能读取文件内容并进行处理。2.关键问题的解决①文本棋谱文件的读入DimoneLineAsStringOpeninfileForInputAs#10’打开文件。infile变量中存放的是文件的名字WhileNotEOF(10)LineInput#10,oneLine’读入一整行文本
2、中国象棋复盘课程设计报告（VB）编号：02’此时已经将文件中的一整行读入了变量oneLine，在下面加入分析代码WendClose#10’关闭文件②声音的插入：MMControl1.Command="close"MMControl1.DeviceType="WaveAudio"MMControl1.FileName=App.Path&"开局.wav"'开局声音MMControl1.Command="Open"MMControl1.Command="play"③时间控制：s=s+1Ifs>59Thenm=m+1s=0E
3、ndIfLabel1.Caption=Format(m,"00")&":"&Format(s,"00")Ifs=5Then上一步.Enabled=TrueIfnn=0Thennn=1DimYIjuAsStringYIju=txt(nn)Call走棋(YIju)s=0④设置自动运行时间间隔：PrivateSublabel1_dblClick()中国象棋复盘课程设计报告（VB）编号：02Dim重置时间间隔重置时间间隔=InputBox("请输入每步用时（1-60秒）")Doti=-1IfIsNumeric(重置时间间隔)T
4、henti=重置时间间隔Else重置时间间隔=InputBox("请重新输入每步用时（1-60秒）")EndIfLoopUntilti<=60Andti>=0list1.SetFocusTimer1.Enabled=FalseEndSub二、模块之间的调用关系，或程序流程图调用调用调用Zouzi走一步棋子的子程序各个棋子走法的程序处理”前炮平3”类的棋谱语句查找棋子的程序数值变换的几个程序数值变换程序将程序中所处理的步法转换成为一般的步法调用调用调用中国象棋复盘课程设计报告（VB）编号：02走子及开盘棋子定位棋盘数组的
5、赋值程序显示程序判断是否吃子，将军，可行程序三、部分程序关键源代码及注释PrivateSubCommand2_Click()'====================================================开局，显示DimiAsIntegerFori=1To32Call摆子(i)====================================================调用子程序Qizi(i).Visible=TrueNextQizi(0).Visible=False上一步.Enab
6、led=True下一步.Enabled=TrueCommand5.Enabled=TrueCommand3.Enabled=TrueTimer1.Enabled=TrueTimer2.Enabled=NotTimer2.Enabled'======================================================对声音进行设置中国象棋复盘课程设计报告（VB）编号：02MMControl1.Command="close"MMControl1.DeviceType="WaveAudio"MMC
7、ontrol1.FileName=App.Path&"source开局.wav"'开局声音MMControl1.Command="Open"MMControl1.Command="play"EndSubPrivateSubForm_Load()'======================================================加载qipanqipan.BackColor=RGB(200,500,100)qipan.ScaleMode=5qipan.ScaleTop=0qipan.Scale
8、Left=0qipan.ScaleWidth=9qipan.ScaleHeight=10'======================================================赋值A=Array(车,马,象,士,将,炮,卒,车,马,相,仕,帅,炮,兵)'============================
