VB课程设-02--70453--中国象棋复盘.docVIP

中国象棋复盘设计报告 学院 机械学院 班级 机设074班 学号 070453 姓名 臧文涛 成绩 一、设计思路 1.要达到的目的 培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行界面设计，用VB的文件功能读取文件内容并进行处理。 2.关键问题的解决 ①文本棋谱文件的读入 Dim oneLine As String Open infile For Input As #10 ’打开文件。infile 变量中存放的是文件的名字 While Not EOF(10) Line Input #10, oneLine ’读入一整行文本 ’此时已经将文件中的一整行读入了变量oneLine，在下面加入分析代码 Wend Close #10 ’关闭文件 ②声音的插入： MMControl1.Command = close MMControl1.DeviceType = WaveAudio MMControl1.FileName = App.Path \开局.wav 开局声音 MMControl1.Command = Open MMControl1.Command = play ③时间控制： s = s + 1 If s 59 Then m = m + 1 s = 0 End If Label1.Caption = Format(m, 00) : Format(s, 00) If s = 5 Then 上一步.Enabled = True If nn = 0 Then nn = 1 Dim YIju As String YIju = txt(nn) Call 走棋(YIju) s = 0 ④设置自动运行时间间隔： Private Sub label1_dblClick() Dim 重置时间间隔 重置时间间隔 = InputBox(请输入每步用时（1-60秒）) Do ti = -1 If IsNumeric(重置时间间隔) Then ti = 重置时间间隔 Else 重置时间间隔 = InputBox(请重新输入每步用时（1-60秒）) End If Loop Until ti = 60 And ti = 0 list1.SetFocus Timer1.Enabled = False End Sub 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Private Sub Command2_Click() ====================================================开局，显示 Dim i As Integer For i = 1 To 32 Call 摆子(i) ==================================================== 调用子程序 Qizi(i).Visible = True Next Qizi(0).Visible = False 上一步.Enabled = True 下一步.Enabled = True Command5.Enabled = True Command3.Enabled = True Timer1.Enabled = True Timer2.Enabled = Not Timer2.Enabled ======================================================对声音进行设置 MMControl1.Command = close MMControl1.DeviceType = WaveAudio MMControl1.FileName = App.Path \source\开局.wav 开局声音 MMControl1.Command = Open MMControl1.Command = play End Sub Private Sub Form_Load() ======================================================加载qipan qipan.BackColor = RGB(200, 500, 100) qipan.ScaleMode = 5 qipan.ScaleTop = 0 qipan.ScaleLeft = 0 qipan.ScaleWidth = 9 qipan.ScaleHeight = 10 ======================================================