版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、<p> 《多媒體課程設(shè)計(jì)報(bào)告》</p><p> 課程名稱: 多媒體軟件設(shè)計(jì)技術(shù) </p><p> 班 級(jí): </p><p> 學(xué) 號(hào): </p><p> 姓 名:
2、 </p><p> 指導(dǎo)教師: </p><p><b> 一丶前言</b></p><p> 本次課程設(shè)計(jì)主要考察我們對(duì)vb在多媒體方面的應(yīng)用,如何將所學(xué)理論知識(shí)運(yùn)用于實(shí)際設(shè)計(jì),在程序設(shè)計(jì)過程中,遇到過一些問題,參考網(wǎng)絡(luò)資料并借
3、鑒一些內(nèi)容。</p><p><b> 二丶設(shè)計(jì)題目</b></p><p> 設(shè)計(jì)可以定時(shí)鬧鈴的機(jī)械時(shí)鐘。要求:1:時(shí)鐘有時(shí)針、分針、秒針;2:時(shí)鐘的外觀造型必須原創(chuàng)設(shè)計(jì)(此要求重要?。。。?;2:鬧鈴聲音自選。</p><p><b> 三丶設(shè)計(jì)內(nèi)容</b></p><p><b>
4、; 1,設(shè)計(jì)界面</b></p><p><b> 2,運(yùn)行界面</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> ,計(jì)時(shí)器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> ,計(jì)時(shí)器timer2</p><p> Private Sub Timer2_Timer() '當(dāng)系統(tǒng)時(shí)間到達(dá)定時(shí)時(shí)間時(shí),播放提示音</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> ,啟動(dòng)定時(shí)按鈕</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í)數(shù)輸入錯(cuò)誤!", vbExclamation, "提示信息" '當(dāng)輸入的小時(shí)數(shù)不在1~24時(shí),彈出輸出信息框</p><p> Text1 = ""
16、 '將輸入的錯(cuò)誤時(shí)間清除</p><p> Text1.SetFocus</p><p><b> End If</b></p><p> If Val(Text2) < 1 Or Val(Text2) > 60 Then
17、 '當(dāng)輸入的分鐘不在1~60時(shí),彈出輸出信息框</p><p> MsgBox "分鐘數(shù)輸入錯(cuò)誤!", 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è)計(jì)問題分析</
27、b></p><p> 設(shè)計(jì)過程中,最難得部分應(yīng)該就是如何讓鬧鐘按時(shí)響了,在做出鬧鐘之后,發(fā)現(xiàn)了一個(gè)小問題,就是我不用單擊啟動(dòng)計(jì)時(shí)命令按鈕,鬧鐘到時(shí)間還是會(huì)響,最后在啟動(dòng)計(jì)時(shí)按鈕源代碼后面加條語句Timer2.Enabled = True 即可解決。</p><p><b> 五丶課程設(shè)計(jì)總結(jié)</b></p><p> 通過這次設(shè)計(jì)
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- eda課程設(shè)計(jì)---數(shù)字時(shí)鐘(鬧鐘)
- 多媒體課程設(shè)計(jì)報(bào)告
- 多媒體課程設(shè)計(jì)
- 數(shù)字鬧鐘課程設(shè)計(jì)報(bào)告
- 時(shí)鐘課程設(shè)計(jì)報(bào)告
- 多媒體有源音箱課程設(shè)計(jì)報(bào)告
- 多媒體制作課程設(shè)計(jì)報(bào)告1
- vb時(shí)鐘課程設(shè)計(jì)報(bào)告---模擬時(shí)鐘
- 數(shù)字時(shí)鐘課程設(shè)計(jì)報(bào)告
- 數(shù)字時(shí)鐘課程設(shè)計(jì)報(bào)告
- 數(shù)字時(shí)鐘課程設(shè)計(jì)報(bào)告
- 數(shù)字時(shí)鐘課程設(shè)計(jì)報(bào)告
- flash網(wǎng)頁多媒體課程設(shè)計(jì)
- 數(shù)字時(shí)鐘課程設(shè)計(jì)報(bào)告
- 多媒體課程設(shè)計(jì)液體字制作
- 電子數(shù)字時(shí)鐘課程設(shè)計(jì)報(bào)告
- 電子時(shí)鐘課程設(shè)計(jì)報(bào)告
- eda鬧鐘課程設(shè)計(jì)
- 多功能時(shí)鐘課程設(shè)計(jì)報(bào)告
- 多媒體課程設(shè)計(jì)基于matlab界面設(shè)計(jì)
評(píng)論
0/150
提交評(píng)論