多媒体课程设计报告-机械时钟闹钟设计

《多媒体课程设计报告》课程名称：多媒体软件设计技术班级：学号：姓名：指导教师：一丶前言本次课程设计主要考察我们对vb在多媒体方面的应用，如何将所学理论知识运用于实际设计，在程序设计过程中，遇到过一些问题，参考网络资料并借鉴一些内容。二丶设计题目设计可以定时闹铃的机械时钟。要求：1：时钟有时针、分针、秒针；2：时钟的外观造型必须原创设计（此要求重要！！！）；2：闹铃声音自选。三丶设计内容1，设计界面2，运行界面3，控件属性设置控件名称属性名称属性值窗体窗体名称时钟BackColor&H0080FF80&Caption时钟标签框1Caption机械时钟BackColor白色ForeColor红色标签框2Caption空BackColor白色ForeColor红色标签框3Caption输入小时BackColor淡黄色ForeColor黑色标签框4Caption输入分钟BackColor淡黄色ForeColor黑色Line1（0）Index0Line1(1)Index0Line(2)Index0定时器Timer1Interval1000定时器Timer1Interval1000文本框Text1BackColor&H00C0C0FF&Text为空文本框Text2BackColor&H00C0C0FF&Text为空命令按钮1名称退出Caption退出Font宋体，粗体，小五命令按钮2Caption启动定时Font宋体，粗体，小五MMControl1NameMMControl14，程序源代码，定义全局变量Constpi=3.1415926/180DimLinel(2)AsSingle,x0,y0,r，声明函数PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByValIpszNameAsString,ByValhModuleAsLong,ByValdwflagsAsLong)AsLong，窗体函数PrivateSubForm_Load()Form1.AutoRedraw=TrueTimer2.Enabled=FalseEndSub，计时器timer1PrivateSubTimer1_Timer()Label2.Caption=Timeh=Hour(Time):m=Minute(Time):s=Second(Time)sc=s*6*piLine1(2).X2=x0+Linel(2)*Sin(sc)Line1(2).Y2=y0-Linel(2)*Cos(sc)mc=(m+s/60)*6*piLine1(1).X2=x0+Linel(1)*Sin(mc)Line1(1).Y2=y0-Linel(1)*Cos(mc)hc=(h+m/60+s/3600)*30*piLine1(0).X2=x0+Linel(0)*Sin(hc)Line1(0).Y2=y0-Linel(0)*Cos(hc)EndSub，计时器timer2PrivateSubTimer2_Timer()'当系统时间到达定时时间时，播放提示音IfText1=Hour(Time)ThenIfText2=Minute(Time)ThenMMControl1.FileName=App.Path&"\1.mp3"MMControl1.Command="open"MMControl1.Command="play"EndIfEndIfEndSub，退出命令按钮PrivateSubCommand1_Click()UnloadMeEndSub，启动定时按钮PrivateSubCommand2_Click()IfVal(Text1)<1OrVal(Text1)>24ThenMsgBox"小时数输入错误！",vbExclamation,"提示信息"'当输入的小时数不在1~24时，弹出输出信息框Text1=""'将输入的错误时间清除Text1.SetFocusEndIfIfVal(Text2)<1OrVal(Text2)>60Then'当输入的分钟不在1~60时，弹出输出信息框MsgBox"分钟数输入错误！",vbExclamation,"提示信息"Text2=""Text2.SetFocusEndIfTimer2.Enabled=TrueEndSub，窗体resizePrivateSubForm_resize()x0=Width/2:y0=Height/2:r=Height/3Form1.Cls'clearForm1.DrawWidth=2Form1.Circle(x0,y0),rForm1.DrawWidth=6Fori=1To12Step1Form1.PSet(x0+r*Cos(30*i*pi),y0+r*Sin(30*i*pi)),vbRedNextiLinel(0)=r*0.5:Linel(1)=r*0.7:Linel(2)=r*0.9Line1(0).BorderWidth=5Line1(1).BorderWidth=3Line1(2).BorderWidth=1Line1(0).BorderColor=vbBlackLine1(1).BorderColor=vbGreenLine1(2).BorderColor=vbRedFori=0To2Line1(i).X1=x0:Line1(i).Y1=y0'Line1(i).X2=x0+lineL(i):Line1(i).Y2=y0NextiForm1.FontSize=15CurrentX=x0-100:CurrentY=y0-r-300:Print("12")CurrentX=x0+r+100:CurrentY=y0-100:Print("3")CurrentX=x0-60:CurrentY=y0+r+60:Print("6")CurrentX=x0-r-200:CurrentY=y0-100:Print("9")Label1.Left=x0-Label1.Width/2Label2.Left=x0-Label2.Width/2Label2.Top=y0+r/2Label2.Caption=TimeCallTimer1_TimerEndSub四丶设计问题分析设计过程中，最难得部分应该就是如何让闹钟按时响了，在做出闹钟之后，发现了一个小问题，就是我不用单击启动计时命令按钮，闹钟到时间还是会响，