【正文】 = Minute(Now) i = Msg Box(“輸入超出范圍，請(qǐng)重新輸入…”, 16, “輸入錯(cuò)誤”) Else = Val() End IfEnd SubPrivate Sub Text3_ Change() If Val() = 60 Then = Second(Now) i = Msg Box(“輸入超出范圍，請(qǐng)重新輸入…”, 16, “輸入錯(cuò)誤”) Else = Val() End IfEnd SubPrivate Sub Text7_ Change() If Val() = 24 Then = 0 i = Msg Box(“輸入超出范圍，請(qǐng)重新輸入…”, 16, “輸入錯(cuò)誤”) Else = Val() End IfEnd SubPrivate Sub Text8_Change() If Val() = 60 Then = 0 i = Msg Box(“輸入超出范圍，請(qǐng)重新輸入…”, 16, “輸入錯(cuò)誤”) Else = Val() End IfEnd SubPrivate Sub Text9_ Change() If Val() = 60 Then = 0 i = Msg Box(“輸入超出范圍，請(qǐng)重新輸入…”, 16, “輸入錯(cuò)誤”) Else = Val() End IfEnd SubPrivate Sub VScroll1_ Change() = If = 24 Then = 0 End IfEnd SubPrivate Sub VScroll2_ Change() = If = 60 Then = 0 End IfEnd SubPrivate Sub VScroll3_ Change() = If = 60 Then = 0 End IfEnd SubPrivate Sub VScroll4_ Change() = If = 24 Then = 0 End IfEnd SubPrivate Sub VScroll5_ Change() = If = 60 Then = 0 End IfEnd SubPrivate Sub VScroll6_ Change() = If = 60 Then = 0 End IfEnd SubPrivate Sub Command1_ Click() H = Val() M = Val() S = Val() i = Msg Box(“時(shí)間設(shè)置成功”, 64, “提示”)End SubPrivate Sub Command2_ Click() = Hour(Now) = Minute(Now) = Second(Now)End SubPrivate Sub Command3_ Click() g = 1 i = Msg Box(“倒計(jì)時(shí)設(shè)置成功”, 64, “提示”) a = Val() b = Val() c = Val() g = 1End SubPrivate Sub Command4_ Click() If Msg Box(“確定取消倒計(jì)時(shí)嗎？”, 1 + 32, “提示”) = 1 Then g = 0 Else g = 1 End IfEnd SubPrivate Sub Command5_ Click() i = Msg Box(“鬧鐘設(shè)置成功”, 64, “提示”) hn = Val() mn = Val() sn = Val() f = 1End SubPrivate Sub Command6_ Click() If Msg Box(“確定要關(guān)閉鬧鐘嗎？”, 1 + 32, “提示”) = 1 Then f = 0 Else f = 1 End IfEnd Sub播放音樂界面程序（Form4）Private Sub Form_ Load() = “C:\Documents and Settings\Administrator\桌面\電子鐘的程序設(shè)計(jì)\歌曲\”End SubPrivate Sub WindowsMediaPlayer1_Play State Change(By Val New State As Long) If New State = 1 Then 39。 b amp。 a amp。Dim X0, Y0 As IntegerDim k As IntegerPrivate Sub Form_Load() Me. Back Color = RGB(66, 66, 66) rtn = Get Window Long(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED Set Window Long hwnd, GWL_EXSTYLE, rtn Set Layered Window Attributes hwnd, RGB(66, 66, 66), 0, LWA_COLORKEY 39。設(shè)置窗體總在最前面，如果將上面語(yǔ)句中的1改為2則取消窗體總在最前面End SubPrivate Sub Timer1_Timer() 39。Dim X0, Y0 As IntegerPrivate Sub Form_ Load() H = Hour(Now) M = Minute(Now) S = Second(Now) (1390, 1470)(1455, 1475)len_1 = Sqr(( ) ^ 2 + ( ) ^ 2) 39。在這次畢業(yè)設(shè)計(jì)中，我鞏固了所學(xué)的知識(shí)，也擴(kuò)大了自己的知識(shí)面。 操作流程圖雙擊“” ，桌面上會(huì)顯示所運(yùn)行的界面。（2）編寫右鍵菜單時(shí)，窗體便出現(xiàn)邊框，這與初始設(shè)想相違背，影響了美觀。第四步，通過添加模塊實(shí)現(xiàn)多個(gè)窗體同時(shí)顯示。在工程中添加窗體Form4，設(shè)計(jì)播放音樂提醒界面，設(shè)計(jì)中使用到了Windows Media Player控件，因?yàn)樗皇浅Ｓ每丶孕鑼⑵涮砑拥焦ぞ邫谥?，單擊“工程”下的“部件”命令將Windows Media Player控件前打鉤，單擊“應(yīng)用”將其添加。 b amp。 a amp。 倒計(jì)時(shí)對(duì)象窗口其控件屬性的設(shè)置與調(diào)時(shí)界面的設(shè)置類似，只將其命令按鈕（Command Button）命名為“開啟”和“關(guān)閉”，單擊開啟按鈕，則在日歷界面上顯示倒計(jì)時(shí)，與日歷相隔顯示，單擊關(guān)閉按鈕，則不顯示倒計(jì)時(shí)，在日歷界面上只顯示日歷部分。將其設(shè)置為Ture，以響應(yīng)事件。在文本框的屬性中設(shè)置其字體大小、顏色等，及文本框的大小。End Sub首先在文本框中顯示表盤上當(dāng)前的時(shí)間，通過鍵盤輸入賦值，返回到時(shí)鐘程序中，以在時(shí)鐘上顯示調(diào)整后的時(shí)間，或者可以通過鼠標(biāo)點(diǎn)擊加減時(shí)間數(shù)，每點(diǎn)擊一次改變值為1。“年”amp。Border Style設(shè)置邊界樣式,取值為：0None(無邊界線)、1Fixed Single(固定單線框)，選擇0None(無邊界線)。End Sub本次設(shè)計(jì)的日歷模塊主要實(shí)現(xiàn)調(diào)用計(jì)算機(jī)系統(tǒng)日歷，顯示在桌面上，可以方便地提示人們當(dāng)前的年、月、日以及星期[9]。將RGB(66,66,66)顏色設(shè)置為透明的rtn=Set Window Pos(,1,0,0,0,0,3)39。定義了一個(gè)常量，這個(gè)常量的值為1度的弧度值Dim rtnamp。本次設(shè)計(jì)選擇白色。Picture屬性為設(shè)置命令按鈕上的圖片，插入經(jīng)常使用的關(guān)閉按鈕的圖片，以方便于用戶了解。Border Style為畫線的風(fēng)格，共有7種：0Transparent(無線)、1Solid(實(shí)線,此為默認(rèn)值)、2Dash(虛線)、3Dot(點(diǎn)線)、4DashDot(單點(diǎn)劃線)、5DashDotDot(雙點(diǎn)劃線)、6Inside Solid(內(nèi)部實(shí)線)，設(shè)計(jì)時(shí)應(yīng)選擇1。在程序設(shè)計(jì)時(shí)，利用該屬性可以靈活地啟用或停用Timer事件。Picture屬性為窗體的背景圖片，將實(shí)現(xiàn)用Photoshop軟件處理好的表盤圖片插入窗體中，以直接顯示時(shí)鐘界面，以避免使用圖形框控件的復(fù)雜。將所得到的角度轉(zhuǎn)換成弧度，即角度乘以。雙擊時(shí)鐘界面可以改變當(dāng)前顯示的時(shí)間而不影響系統(tǒng)時(shí)間，鼠標(biāo)可以拖動(dòng)時(shí)鐘和日歷放到適合的位置，如不需要桌面時(shí)鐘工具，可以隨時(shí)關(guān)閉顯示。不論是Microsoft Windows應(yīng)用程序的資深專業(yè)開發(fā)人員還是初學(xué)者，Visual basic都為他們提供了整套工具，以方便開發(fā)應(yīng)用程序。Visual TML(Dynamict TML)設(shè)計(jì)工具，利用這種技術(shù)可以動(dòng)態(tài)創(chuàng)建和編輯Web頁(yè)面使用戶在Visual basic中開發(fā)多功能網(wǎng)絡(luò)應(yīng)用軟件Software。這樣的應(yīng)用程序代碼長(zhǎng)度較短，既易于編寫又易于維護(hù)，極大地提高了程序設(shè)計(jì)效率。這種“所見即所得”的方式極大的方便了程序員進(jìn)行界面設(shè)計(jì)。企業(yè)版使得專業(yè)編程人員能夠開發(fā)功能強(qiáng)大的組內(nèi)分布式應(yīng)用程序。Visual ，它有三種版本，各自滿足不同的開發(fā)需要?！癇ASIC”指的是BASIC語(yǔ)言，它是一種在計(jì)算機(jī)技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語(yǔ)言。本次設(shè)計(jì)的電子鐘存在一些不足之處，如日歷顯示單調(diào)，不可以調(diào)整，若需要更改鬧鐘提醒音樂，只可以通過修改程序?qū)崿F(xiàn)。公共場(chǎng)所中，火車要準(zhǔn)點(diǎn)到達(dá)，航班要準(zhǔn)點(diǎn)起飛；日常生活中，公司要求我們上班準(zhǔn)時(shí)，約會(huì)、召開會(huì)議或者在教學(xué)過程中也必然要提及時(shí)間；工業(yè)生產(chǎn)中，很多環(huán)節(jié)都需要用時(shí)間來確定生產(chǎn)方式、進(jìn)程來完成生產(chǎn)等等，這使得人們?cè)絹碓街匾晻r(shí)間觀念[1]。然而工作的忙碌性和繁雜性容易使人忘記當(dāng)前的時(shí)間，遇到重大事情的時(shí)候，一旦忘記時(shí)間，就會(huì)給自己和他人造成很大的麻煩。本設(shè)計(jì)就是利用這種程序設(shè)計(jì)方法實(shí)現(xiàn)電子鐘功能的應(yīng)用程序，實(shí)現(xiàn)桌面電子時(shí)鐘和日歷等功能。使用這種方法，用戶不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對(duì)象拖放到屏幕上的一點(diǎn)即可。它簡(jiǎn)單易用，適用面廣，無論是通信、數(shù)據(jù)庫(kù)，還是多媒體以及普通的Windows用程序都可以用Visual basic來進(jìn)行開發(fā)，而且方便快捷。(3)企業(yè)版。所謂“對(duì)象”就是個(gè)可操作實(shí)體，如窗體、窗體中命令按鈕、標(biāo)簽、時(shí)鐘、文本框等，面向?qū)ο缶幊叹褪侵赋绦騿T可根據(jù)界面設(shè)計(jì)要求直接在界面上設(shè)計(jì)出窗口、菜單、按鈕等類型對(duì)象，并為每個(gè)對(duì)象設(shè)置相應(yīng)的屬性值。事件驅(qū)動(dòng)的編程機(jī)制可由用戶操作觸發(fā)，也可以由系統(tǒng)或應(yīng)用觸發(fā)，例如單擊命令按鈕就觸發(fā)了按鈕Click（單擊）事件，該事件中代碼就會(huì)被執(zhí)行，若用戶未進(jìn)行任何操作（即未觸發(fā)事件），則就處于等待狀態(tài)，整個(gè)應(yīng)用就是由彼此獨(dú)立事件過程構(gòu)成。 （6）網(wǎng)絡(luò)功能。綜合以上特點(diǎn)， 我們可以看出Visual basic提供了開發(fā)Microsoft Windows應(yīng)用程序的最迅速、最簡(jiǎn)捷的方法。時(shí)鐘界面，調(diào)時(shí)界面及日歷界面的設(shè)計(jì)應(yīng)符合用戶的使用習(xí)慣，并且在運(yùn)行時(shí)要浮在所有打開文件的最前端。程序運(yùn)行時(shí)先將系統(tǒng)的時(shí)間賦值給三個(gè)變量H、M、S，即時(shí)、分、秒，由于每秒的間隔是6度，每分的間隔是6度，每小時(shí)的間隔是30度，以12的位置為0度，則計(jì)算當(dāng)前秒針?biāo)呓嵌龋寒?dāng)前秒數(shù)乘以6；當(dāng)前分針?biāo)呓嵌龋寒?dāng)前分?jǐn)?shù)乘以6，加上秒帶來的分針間隔差；當(dāng)前時(shí)針?biāo)呓嵌龋寒?dāng)前時(shí)數(shù)乘以30，再加上分帶來的時(shí)針間隔差。Left和Top屬性設(shè)置運(yùn)行時(shí)窗體出現(xiàn)的位置，時(shí)鐘界面的窗體運(yùn)行的初始位置在計(jì)算機(jī)屏幕的左上角。默認(rèn)值為Ture。Border Col