【正文】 or為畫線的顏色，Line1設(shè)置為黑色，為時針；Line2設(shè)置為黑色，為分針；Line3設(shè)置為藍色，為秒針。Enabled用于設(shè)定是或?qū)κ录a(chǎn)生響應(yīng),取值為：True可用；False不可用,在執(zhí)行程序時,該對象用灰色顯示,并且不響應(yīng)任何事件?？蓮膹棾龅恼{(diào)色板選擇。主要程序設(shè)計如下：Const PI =Const RAD =PI/18039。啟動計時器Me. Back Color =RGB(66,66,66)rtn=Get Window Long(hwnd, GWL_ EXSTYLE)rtn =rtn Or WS_EX_LAYEREDSet Window Long hwnd,GWL_EXSTYLE,rtnSet Layered Window Attributes hwnd,RGB(66,66,66),0,LWA_COLORKEY39。HA1,2,0amp。設(shè)計中將其設(shè)置為0Transparent(透明)。將RGB(66,66,66)顏色設(shè)置為透明的End SubPrivate Sub Timer1_Timer()Label1=Year(Now)amp。HA1, 2, 0amp。（2）文本框（Text Box）文本框（Text Box）控件用來顯示表盤上所顯示的時間，并可以通過鍵盤輸入修改時間。Enabled用于設(shè)定是或?qū)κ录a(chǎn)生響應(yīng),取值為：True 可用、False 不可用,在執(zhí)行程序時,該對象用灰色顯示,并且不響應(yīng)任何事件。在窗體Form3中添加倒計時界面部分，使用框架（Frame）控件將各個獨立的功能模塊隔開，在此框架中運用了標(biāo)簽（Label）、命令按鈕（Command Button）、文本框（Text Box）控件。“月”Label2= Day(Now)Label3=Weekday Name(Weekday(Date))Else If k10And k15ThenLabel1=“距”amp?！啊盿mp。 鬧鐘對象窗口其標(biāo)簽（Label）、命令按鈕（Command Button）、文本框（Text Box）控件屬性的設(shè)置與倒計時界面的設(shè)置相同，垂直滾動條（V Scroll Box）控件的屬性設(shè)置相同。第三步，制作日歷界面，調(diào)用系統(tǒng)日期。解決方法：添加三個Line控件，分別作為時針、分針、秒針，并分別對其粗細、顏色等屬性進行設(shè)置。對于時鐘部分，雙擊時鐘界面，彈出校時對話框，可以修改時間。致謝完成這次畢業(yè)設(shè)計，我要感謝所有幫助過我的老師和同學(xué)，特別是我的畢業(yè)設(shè)計指導(dǎo)老師劉亞鋒老師。定義了一個常量，這個常量的值為 1度的弧度值Dim rtnamp。將RGB(66, 66, 66)顏色設(shè)置為透明的 rtn = Set Window Pos(, 1, 0, 0, 0, 0, 3) 39。End Sub日歷模塊程序（form2窗體）Dim rtnamp。 “月” Label2 = Day(Now) Label3 = Weekday Name(Weekday(Date)) Else If k 10 And k 15 Then Label1 = “距” amp。 “” amp。HA1, 2, 0amp。能干的人，不在情緒上計較，只在做事上認(rèn)真；無能的人！不在做事上認(rèn)真，只在情緒上計較。H1Sub main() End Sub寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。HA1, 2, 0amp。 “月” amp。 Month(Now) amp。獲取當(dāng)前秒數(shù),并轉(zhuǎn)換成相應(yīng)的角度 每秒的間隔是6度 Mr = M * 6 + S / 60 39。時針長度 = True 39。我知道，現(xiàn)在社會競爭激烈，只有不斷學(xué)習(xí)才會有好的出路。 結(jié)束語此次設(shè)計主要針對使用計算機的人群，使用Visual basic語言編程，在桌面上顯示時間、日期以提醒忙碌中的人們，并且添加了額外的功能給人提供了方便。程序如下：Private Sub Form_ Mouse Down(Button As Integer,Shift As Integer,X As Single,Y As Single)i=1x1=Xy1=YEnd SubPrivate Sub Form_ Mouse Move(Button As Integer, Shift As Integer,X As Single,Y As Single)If i=1Thenx2=Xx1+y2=Yy1+ x2, y2End IfEnd SubPrivate Sub Form_ Mouse Up(Button As Integer,Shift As Integer,X As Single,Y As Single)i=0End Sub解決方法：調(diào)用API實現(xiàn)。第七步，在窗體中添加功能按鈕，完善其功能。 播放音樂對象窗口鬧鐘設(shè)置的主要程序代碼如下：Private Sub Text7_ Change()If Val()=24Then = 0i=MsgBox(“輸入超出范圍，請重新輸入…”, 16, “輸入錯誤”)Else=Val()EndIfEnd SubPrivate Sub Text8_ Change()If Val()=60Then = 0i=Msg Box(“輸入超出范圍，請重新輸入…”, 16, “輸入錯誤”)Else=Val()EndIfEnd SubPrivate Sub Text9_ Change()If Val()=60Then = 0i = Msg Box(“輸入超出范圍，請重新輸入…”, 16, “輸入錯誤”)Else = Val()End IfPrivate Sub VScroll4_ Change() = If =24Then = 0End IfEnd SubPrivate Sub VScroll5_ Change() = If =60Then=0End IfEnd SubPrivate Sub VScroll6_ Change() = If =60Then=0End IfEnd SubIf f = 1 ThenIf Int(H)=hn And Int(M)=mn And Int(S)=sn ThenEnd If播放音樂主要程序代碼如下：Private Sub Form_ Load()=“=“歌曲\”End SubPrivate Sub WindowsMediaPlayer1_Play State Change(By Val New State As Long)If New State=1Then 39。如通過鍵盤輸入，時的數(shù)值超過24或分、秒的數(shù)值超過60，則提示錯誤，返回為0，如果通過鼠標(biāo)點擊改變數(shù)值，則時的數(shù)值大于24，則返回到0，分、秒的數(shù)值大于60，返回到0以，以此循環(huán)。“月”amp。Month(Now)amp。將其設(shè)置為1，每點擊一次，數(shù)值的變化值為1。取值為：True可以、False不可以。 調(diào)時算法流程圖同樣地，在當(dāng)前工程中添加窗體，運用命令按鈕（Command Button）、文本框（Text Box）、垂直滾動條（VScroll Box）控件。HA1,2,0amp。Year(Now)調(diào)用系統(tǒng)年份，Month(Now) 調(diào)用系統(tǒng)月份，Day(Now)調(diào)用系統(tǒng)日期。日歷界面中添加了3個標(biāo)簽（Label）控件，主要用來顯示文本信息，Label1顯示年份、月份，Label2顯示日期，Label3顯示星期。定義了三個變量S=S+1M=M+1/60H=H+1/3600If S=60ThenS=0If M=60ThenM=0If H=12ThenH=0Sr=S*639。分針長度len_3=Sqr(()^2+()^2)39。此處設(shè)置為3。Tool Tip Text設(shè)置該對象的提示行，將其設(shè)置為“關(guān)閉”，當(dāng)用戶將鼠標(biāo)移動到該按鈕上，便會出現(xiàn)“關(guān)閉”的字樣，以方便用戶了解按鈕的用途。在程序運行期間，當(dāng)用戶選擇某個命令按鈕就會發(fā)生相應(yīng)的事件過程。那么Interval屬性應(yīng)設(shè)為500，這樣，每隔500ms，定時器發(fā)生一個Timer事件，從而執(zhí)行相應(yīng)的Timer事件過程。在運行期間，時鐘（Timer）不顯示在屏幕上。 時鐘對象窗口（1）窗體屬性設(shè)置窗體和控件的屬性有很多，以下只列出本次設(shè)計主要使用到的屬性[8]。本次設(shè)計的桌面時鐘軟件具有良好的實用性和操作性，可為使用者帶來方便。 。（8）支持動態(tài)交換、動態(tài)鏈接技術(shù)。 （4）強大數(shù)據(jù)庫訪問功能。這種機制就稱為事件驅(qū)動的編程機制。（1）具有基于對象的可視化設(shè)計工具。該版本包括所有的內(nèi)部控件，連同Grid、Tab和Data_ Bound控件。Visual basic語言是結(jié)構(gòu)化程序設(shè)計語言，它具有高級程序設(shè)計語言的優(yōu)點，豐富的數(shù)據(jù)類型、大量的內(nèi)部函數(shù)、模塊化的程序結(jié)構(gòu)，符合結(jié)構(gòu)化設(shè)計思想語言，而且結(jié)構(gòu)清晰、簡單易學(xué)，此外作為一種設(shè)計語言，Visual basic還有許多獨到之處。本次設(shè)計避免了現(xiàn)有設(shè)計的一些弊端，首先使用Photoshop軟件對時鐘以及日期顯示界面的圖像進行了處理，使其美觀、大方。當(dāng)今社會中，各式各樣的電子鐘廣泛存在，而且生產(chǎn)、生活對于電子鐘的需求也越來越大，根據(jù)功能的不同，對于電子鐘的體型、功能要求也各不相同，應(yīng)用的領(lǐng)域也各不相同。. . . .. .電子鐘的程序設(shè)計 [摘要]如今計算機已普及到人們生活以及辦公當(dāng)中，那么電腦桌面電子鐘也成為了必需，此次設(shè)計就是針對于使用計算機的人群，利用Visual basic設(shè)計桌面時鐘、日歷，運用了時鐘控件、按鈕控件等，并且各模塊采用不同的算法，完善系統(tǒng)時間存在的一些弊端，以提醒使用電腦的人們合理利用時間，提高辦事效率。如今計算機已普及到人們生活以及辦公當(dāng)中，那么桌面電子鐘成為必要，但是由于桌面上系統(tǒng)時間存在一些弊端，例如數(shù)字較小，容易被忽略，調(diào)整時間必須進入系統(tǒng)文件才可以完成等等，此次設(shè)計就是以此為切入點，針對于使用計算機的人群，完善系統(tǒng)時間存在的一些弊端，為用戶提供方便，并且推動電子行業(yè)的發(fā)展以適應(yīng)用戶的需求，同時鍛煉自己的動手能力、編程能力以及學(xué)習(xí)能力，理論聯(lián)系實際，為以后的工作奠定基礎(chǔ)[2]。然后運用可視化高級程序設(shè)計語言Visual basic語言來編寫, Visual basic簡單易學(xué)，并且Visual basic可以通過對控件屬性的直接設(shè)置，減少一些程序，使編程變得更加方便、快捷。 basic集成開發(fā)環(huán)境Visual basic集成開發(fā)環(huán)境（Integrated Development Environment，IDE）是一組軟件工具，它是集應(yīng)用程序的設(shè)計、編輯、運行、調(diào)試等多種功能于一體的環(huán)境，為程序設(shè)計提供了極大的便利[4]。(2)專業(yè)版。Visual basic采用了面向?qū)ο笤O(shè)計思想，對象是一個抽象的概念，是將程序和數(shù)據(jù)封裝起來的一個軟件部件，是經(jīng)過調(diào)試可以直接使用的程序單位。事件驅(qū)動非常適合圖形用戶界面的編程方式。Visual basic利用數(shù)據(jù)Control控件可以訪問多種數(shù)據(jù)庫Visual Control控件，不但可以用最少代碼實現(xiàn)數(shù)據(jù)庫操作和控制，也可以取代Data Control控件和RDO Control控件。通過動態(tài)數(shù)據(jù)交換(DDE)編程技術(shù)Visual basic開發(fā)應(yīng)用能和其他Windows應(yīng)用之間建立數(shù)據(jù)通信，通過動態(tài)鏈接庫技術(shù)在Visual basic中可方便地用C語言或匯編語言編寫也可用Windows應(yīng)用接口(API) 。 Photoshop Photoshop是Adobe公司旗下最為出名的圖像處理軟件之一，集圖像掃描、編輯修改、圖像制作、廣告創(chuàng)意，圖像輸入與輸出于一體的圖形圖像處理軟件。桌面電子鐘包括時鐘和日歷兩個部分，時鐘部分可以校時、設(shè)定鬧鐘。Auto Redraw屬性為是否自動刷新或重畫窗體上所有圖形，本次設(shè)計選擇Ture，即自動重繪，以清