北邮计算机实习总结报告.docVIP

电子工程学院2014计算机实习报告 学院： 电子工程学院 班级： 2012211202 学号： 2012210863 姓名： 王艺霏 班内序号： 24 倒计时器 程序要求：制作一个倒计时器，输入倒计时时间后，显示剩余时间，时间到后有提示音和提示画面。 汇编语言：Microsoft Visual Basic 开发工具：Microsoft Visual Basic 6.0 设计思路： 设计基本框图 如图： 基本功能实现 调用Timer控件，使输入时、分、秒后点击开始控件可以开始倒计时，点击停止控件可以暂停，点击复位控件可以把时间清零重新输入。剩余时间在中间空白text框中显示。 编写完成运行后，如图： 此时已实现倒计时器基本功能。 实现提示音乐功能 插入Windows Media Player控件，路径插入相应歌曲，设置时间到时音乐响起并且设置点击停止按钮时音乐停止。 提示音乐：快门慢舞-李心艾邱凯伟 优化界面 排版、加入背景图片、修改字体、更改控件位置大小及颜色等。 如图： 运行前： 运行后： 到时时弹出画面： 源代码： Private Sub h_Change() 时 h = Int(Val(h)) If h 23 Then MsgBox 时间格式不对，请重新输入 检查时间格式 ElseIf h 0 Then MsgBox 时间格式不对，请重新输入 End If End Sub Private Sub m_Change() 分 m = Int(Val(m)) If m 59 Then MsgBox 时间格式不对，请重新输入 检查时间格式 ElseIf m 0 Then MsgBox 时间格式不对，请重新输入 End If End Sub Private Sub s_Change() 秒 s = Int(Val(s)) If s 59 Then MsgBox 时间格式不对，请重新输入 检查时间格式 ElseIf s 0 Then MsgBox 时间格式不对，请重新输入 End If End Sub Private Sub start_Click() 对开始计时按钮进行代码编写 If h = 0 And m = 0 And s = 0 Then Timer1.Enabled = False End If Timer1.Enabled = True End Sub Private Sub stop_Click() 对停止计时按钮进行代码编写 Timer1.Enabled = False music.Controls.stop End Sub Private Sub reset_Click() 对复位按钮进行代码编写 Timer1.Enabled = False h = 0: m = 0: s = 0 End Sub Private Sub Form_Load() 剩余时间显示 h = 0 m = 0 s = 0 Text1.Text = h 时: m 分: s 秒 music.Controls.stop End Sub Private Sub Timer1_Timer() 对Timer控件进行代码编写 If h = 0 And m = 0 And s = 0 Then Timer1.Enabled = False music.Controls.play 提示音乐 MsgBox 时间到啦~快去学习吧T_T 提示画面 ElseIf s = 0 Then 倒计时 s = 59 If m = 0 Then m = 59: h = h - 1 Else m = m - 1 End If Else s = s - 1 End If Text1.Text = h 时: m 分: s 秒 End Sub 流程图 算术运算测试程序 程序要求：设计一个可供小学数学运算的程序。0~100整数加减乘除四则运算，如结果为小数保留小数点后两位。根据输入题数出题，题目应为随机，每次应不一样。判断是否正确，如不正确给出正确答案，并计算分数，分数为正确题目的百分比。 汇编语言：Microsoft Visual Basic 开发工具：Microsoft Visual Basic 6