多媒體課程設(shè)計報告-機(jī)械時鐘鬧鐘設(shè)計

《多媒體課程設(shè)計報告》課程名稱：多媒體軟件設(shè)計技術(shù)班級：學(xué)號：姓名：指導(dǎo)教師：一丶前言本次課程設(shè)計主要考察我們對vb在多媒體方面的應(yīng)用，如何將所學(xué)理論知識運用于實際設(shè)計，在程序設(shè)計過程中，遇到過一些問題，參考網(wǎng)絡(luò)資料并借鑒一些內(nèi)容。二丶設(shè)計題目設(shè)計可以定時鬧鈴的機(jī)械時鐘。要求：1：時鐘有時針、分針、秒針；2：時鐘的外觀造型必須原創(chuàng)設(shè)計（此要求重要?。。。?；2：鬧鈴聲音自選。三丶設(shè)計內(nèi)容1，設(shè)計界面2，運行界面3，控件屬性設(shè)置控件名稱屬性名稱屬性值窗體窗體名稱時鐘BackColor&H0080FF80&Caption時鐘標(biāo)簽框1Caption機(jī)械時鐘BackColor白色ForeColor紅色標(biāo)簽框2Caption空BackColor白色ForeColor紅色標(biāo)簽框3Caption輸入小時BackColor淡黃色ForeColor黑色標(biāo)簽框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，聲明函數(shù)PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByValIpszNameAsString,ByValhModuleAsLong,ByValdwflagsAsLong)AsLong，窗體函數(shù)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()'當(dāng)系統(tǒng)時間到達(dá)定時時間時，播放提示音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"小時數(shù)輸入錯誤！",vbExclamation,"提示信息"'當(dāng)輸入的小時數(shù)不在1~24時，彈出輸出信息框Text1=""'將輸入的錯誤時間清除Text1.SetFocusEndIfIfVal(Text2)<1OrVal(Text2)>60Then'當(dāng)輸入的分鐘不在1~60時，彈出輸出信息框MsgBox"分鐘數(shù)輸入錯誤！",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四丶設(shè)計問題分析設(shè)計過程中，最難得部分應(yīng)該就是如何讓鬧鐘按時響了，在做出鬧鐘之后，發(fā)現(xiàn)了一個小問題，就是我不用單擊啟動計時命令按鈕，鬧鐘到時間還是會響，