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

1、<p>　　《多媒體課程設(shè)計報告》</p><p>　　課程名稱： 多媒體軟件設(shè)計技術(shù) </p><p>　　班 級： </p><p>　　學 號： </p><p>　　姓 名：

2、 </p><p>　　指導教師： </p><p><b>　　一丶前言</b></p><p>　　本次課程設(shè)計主要考察我們對vb在多媒體方面的應(yīng)用，如何將所學理論知識運用于實際設(shè)計，在程序設(shè)計過程中，遇到過一些問題，參考網(wǎng)絡(luò)資料并借

3、鑒一些內(nèi)容。</p><p><b>　　二丶設(shè)計題目</b></p><p>　　設(shè)計可以定時鬧鈴的機械時鐘。要求：1：時鐘有時針、分針、秒針；2：時鐘的外觀造型必須原創(chuàng)設(shè)計（此要求重要！！?。?：鬧鈴聲音自選。</p><p><b>　　三丶設(shè)計內(nèi)容</b></p><p><b>

4、;　　1，設(shè)計界面</b></p><p><b>　　2，運行界面</b></p><p><b>　　3，控件屬性設(shè)置</b></p><p><b>　　4，程序源代碼</b></p><p><b>　　，定義全局變量 </b><

5、/p><p>　　Const pi = 3.1415926 / 180</p><p>　　Dim Linel(2) As Single, x0, y0, r</p><p><b>　　，聲明函數(shù)</b></p><p>　　Private Declare Function PlaySound Lib "winm

6、m.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long</p><p><b>　　，窗體函數(shù)</b></p><p>　　Private Sub Form_Load()</p

7、><p>　　Form1.AutoRedraw = True</p><p>　　Timer2.Enabled = False</p><p><b>　　End Sub</b></p><p>　　，計時器timer1</p><p>　　Private Sub Timer1_Timer()<

8、/p><p>　　Label2.Caption = Time</p><p>　　h = Hour(Time): m = Minute(Time): s = Second(Time)</p><p>　　sc = s * 6 * pi</p><p>　　Line1(2).X2 = x0 + Linel(2) * Sin(sc)</p>

9、;<p>　　Line1(2).Y2 = y0 - Linel(2) * Cos(sc)</p><p>　　mc = (m + s / 60) * 6 * pi</p><p>　　Line1(1).X2 = x0 + Linel(1) * Sin(mc)</p><p>　　Line1(1).Y2 = y0 - Linel(1) * Cos(mc)

10、</p><p>　　hc = (h + m / 60 + s / 3600) * 30 * pi</p><p>　　Line1(0).X2 = x0 + Linel(0) * Sin(hc)</p><p>　　Line1(0).Y2 = y0 - Linel(0) * Cos(hc)</p><p><b>　　End Sub

11、</b></p><p>　　，計時器timer2</p><p>　　Private Sub Timer2_Timer() '當系統(tǒng)時間到達定時時間時，播放提示音</p><p>　　If Text1 = Hour(Time) Then</p><p>　　If Text2 = Minute(T

12、ime) Then</p><p>　　MMControl1.FileName = App.Path & "\1.mp3"</p><p>　　MMControl1.Command = "open"</p><p>　　MMControl1.Command = "play"</p>&

13、lt;p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　，退出命令按鈕</b></p><p>　　Private Sub Comm

14、and1_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　，啟動定時按鈕</b></p><p>　　Private Sub Command2_Click()</p&g

15、t;<p>　　If Val(Text1) < 1 Or Val(Text1) > 24 Then</p><p>　　MsgBox "小時數(shù)輸入錯誤！", vbExclamation, "提示信息" '當輸入的小時數(shù)不在1~24時，彈出輸出信息框</p><p>　　Text1 = ""

16、 '將輸入的錯誤時間清除</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p>　　If Val(Text2) < 1 Or Val(Text2) > 60 Then

17、 '當輸入的分鐘不在1~60時，彈出輸出信息框</p><p>　　MsgBox "分鐘數(shù)輸入錯誤！", vbExclamation, "提示信息"</p><p>　　Text2 = ""</p><p>　　Text2.SetFocus</p><p><b>

18、;　　End If</b></p><p>　　Timer2.Enabled = True</p><p><b>　　End Sub</b></p><p><b>　　，窗體resize</b></p><p>　　Private Sub Form_resize()</p>

19、;<p>　　x0 = Width / 2: y0 = Height / 2: r = Height / 3</p><p>　　Form1.Cls 'clear</p><p>　　Form1.DrawWidth = 2</p><p>　　Form1.Circle (x0, y0), r</p><p>　　Fo

20、rm1.DrawWidth = 6</p><p>　　For i = 1 To 12 Step 1</p><p>　　Form1.PSet (x0 + r * Cos(30 * i * pi), y0 + r * Sin(30 * i * pi)), vbRed</p><p><b>　　Next i</b></p><

21、;p>　　Linel(0) = r * 0.5: Linel(1) = r * 0.7: Linel(2) = r * 0.9</p><p>　　Line1(0).BorderWidth = 5</p><p>　　Line1(1).BorderWidth = 3</p><p>　　Line1(2).BorderWidth = 1</p>&

22、lt;p>　　Line1(0).BorderColor = vbBlack</p><p>　　Line1(1).BorderColor = vbGreen</p><p>　　Line1(2).BorderColor = vbRed</p><p>　　For i = 0 To 2</p><p>　　Line1(i).X1 = x0

23、: Line1(i).Y1 = y0</p><p>　　'Line1(i).X2 = x0 + lineL(i): Line1(i).Y2 = y0</p><p><b>　　Next i</b></p><p>　　Form1.FontSize = 15</p><p>　　CurrentX = x0 -

24、100: CurrentY = y0 - r - 300: Print ("12")</p><p>　　CurrentX = x0 + r + 100: CurrentY = y0 - 100: Print ("3")</p><p>　　CurrentX = x0 - 60: CurrentY = y0 + r + 60: Print (&quo

25、t;6")</p><p>　　CurrentX = x0 - r - 200: CurrentY = y0 - 100: Print ("9")</p><p>　　Label1.Left = x0 - Label1.Width / 2</p><p>　　Label2.Left = x0 - Label2.Width / 2<

26、/p><p>　　Label2.Top = y0 + r / 2</p><p>　　Label2.Caption = Time</p><p>　　Call Timer1_Timer</p><p><b>　　End Sub</b></p><p><b>　　四丶設(shè)計問題分析</

27、b></p><p>　　設(shè)計過程中，最難得部分應(yīng)該就是如何讓鬧鐘按時響了，在做出鬧鐘之后，發(fā)現(xiàn)了一個小問題，就是我不用單擊啟動計時命令按鈕，鬧鐘到時間還是會響，最后在啟動計時按鈕源代碼后面加條語句Timer2.Enabled = True 即可解決。</p><p><b>　　五丶課程設(shè)計總結(jié)</b></p><p>　　通過這次設(shè)計