1、 多媒体课程设计报告多媒体课程设计报告 课程名称课程名称： 多媒体软件设计技术 班班 级：级： 学学 号：号： 姓姓 名：名： 指导教师：指导教师： 一丶前言一丶前言 本次课程设计主要考察我们对 vb 在多媒体方面的应用，如何将 所学理论知识运用于实际设计， 在程序设计过程中， 遇到过一些问题， 参考网络资料并借鉴一些内容。 二丶设计题目二丶设计题目 设计可以定时闹铃的机械时钟。要求：1：时钟有时针、分针、 秒针；2：时钟的外观造型必须原创设计（此要求重要！ ！ ！ ） ；2：闹铃 声音自选。 三丶设计内容三丶设计内容 1，设计界面，设计界面 2，运行界面，运行界面 3，控件属性设置，控件属性
2、设置 控件名称控件名称 属性名称属性名称 属性值属性值 窗体 窗体名称 时钟 BackColor &H0080FF80& Caption 时钟 标签框 1 Caption 机械时钟 BackColor 白色 ForeColor 红色 标签框 2 Caption 空 BackColor 白色 ForeColor 红色 标签框 3 Caption 输入小时 BackColor 淡黄色 ForeColor 黑色 标签框 4 Caption 输入分钟 BackColor 淡黄色 ForeColor 黑色 Line1（0） Index 0 Line1 (1) Index 0 Line (2) Index
3、 0 定时器 Timer1 Interval 1000 定时器 Timer1 Interval 1000 文本框 Text1 BackColor &H00C0C0FF& Text 为空 文本框 Text2 BackColor &H00C0C0FF& Text 为空 命令按钮 1 名称 退出 Caption 退出 Font 宋体，粗体，小五 命令按钮 2 Caption 启动定时 Font 宋体，粗体，小五 MMControl1 Name MMControl1 4，程序源代码，程序源代码 1)，定义全局变量 Const pi = 3.1415926 / 180 Dim Linel(2) As S
4、ingle, x0, y0, r 2），声明函数 Private Declare Function PlaySound Lib “winmm.dll“ Alias “PlaySoundA“ (ByVal IpszName As String, ByV al hModule As Long, ByV al dwflags As Long) As Long 3），窗体函数 Private Sub Form_Load() Form1.AutoRedraw = True Timer2.Enabled = False End Sub 4），计时器 timer1 Private Sub Timer1_Ti
5、mer() Label2.Caption = Time h = Hour(Time): m = Minute(Time): s = Second(Time) sc = s * 6 * pi Line1(2).X2 = x0 + Linel(2) * Sin(sc) Line1(2).Y2 = y0 - Linel(2) * Cos(sc) mc = (m + s / 60) * 6 * pi Line1(1).X2 = x0 + Linel(1) * Sin(mc) Line1(1).Y2 = y0 - Linel(1) * Cos(mc) hc = (h + m / 60 + s / 360
6、0) * 30 * pi Line1(0).X2 = x0 + Linel(0) * Sin(hc) Line1(0).Y2 = y0 - Linel(0) * Cos(hc) End Sub 5），计时器 timer2 Private Sub Timer2_Timer() 当系统时间到达定时时间时，播放提示音 If Text1 = Hour(Time) Then If Text2 = Minute(Time) Then MMControl1.FileName = App.Path & “1.mp3“ MMControl1.Command = “open“ MMControl1.Command = “play“ End If End If End Sub 6），退出命令按钮 Private Sub Command1_Click() Unload Me End Sub 7），启动定时按钮 Private Sub C
