(精品論文)日歷 課程設(shè)計(jì)

程序設(shè)計(jì)基礎(chǔ)課程設(shè)計(jì)日歷設(shè)計(jì) 學(xué) 院： 級(jí)別專業(yè)： 班 級(jí)： 姓 名： 指導(dǎo)老師： 學(xué) 號(hào)：程序設(shè)計(jì)任務(wù)書一、設(shè)計(jì)題目：日歷程序設(shè)計(jì)二、設(shè)計(jì)目的 1、使學(xué)生進(jìn)一步理解和掌握課堂上所學(xué)VB程序設(shè)計(jì)中各種基本數(shù)據(jù)、數(shù)組、常用過程的定義與使用，各種程序設(shè)計(jì)邏輯結(jié)構(gòu)設(shè)計(jì)，界面設(shè)計(jì)與常用控件的使用方法。 2、是學(xué)生掌握復(fù)雜程序設(shè)計(jì)的基本內(nèi)容和設(shè)計(jì)方法，培養(yǎng)學(xué)生規(guī)范化軟件設(shè)計(jì)的能力。 3、使學(xué)生掌握使用各種計(jì)算機(jī)資料和有關(guān)參考資料，提高學(xué)生程序?qū)嶋H的自我學(xué)習(xí)能力。三、程序設(shè)計(jì)的任務(wù)及要求 1、基本要求： 1）實(shí)現(xiàn)日歷的基本功能（參照windows操作系統(tǒng)自帶的日歷功能）。 2）友好性：界面要友好，輸入有提示，盡量展示人性化。 3）可讀性：原程序代碼清晰、有層次。 4）健壯性：對(duì)輸入的數(shù)據(jù)有糾錯(cuò)處理。 2、創(chuàng)新要求： 實(shí)現(xiàn)24節(jié)氣，重要節(jié)日的著重顯示和12小時(shí)制24小時(shí)制之間的切換四、設(shè)計(jì)內(nèi)容 包括初始界面和時(shí)鐘部分。五、課程設(shè)計(jì)工作量 在這個(gè)程序中我主要負(fù)責(zé)參與時(shí)鐘的編寫，尋找合適的代碼及界面的運(yùn)行圖的一些修改工作。六、課程設(shè)計(jì)工作計(jì)劃2010年6月21日，開始選題。2010年6月22日，確定題目，分配小組成員各自的工作，開始題目制作。2010年6月23日25日，制作題目，并完成答辯。目 錄一概述.4二總體設(shè)計(jì)方案.5三詳細(xì)設(shè)計(jì).5四程序的調(diào)試與運(yùn)行結(jié)果.11五課程設(shè)計(jì)總結(jié).12. 一、 概述1、課程設(shè)計(jì)的目的1、使學(xué)生進(jìn)一步理解和掌握課堂上所學(xué)VB程序設(shè)計(jì)中各種基本數(shù)據(jù)、數(shù)組、常用過程的定義與使用，各種程序設(shè)計(jì)邏輯結(jié)構(gòu)設(shè)計(jì)，界面設(shè)計(jì)與常用控件的使用方法。 2、是學(xué)生掌握復(fù)雜程序設(shè)計(jì)的基本內(nèi)容和設(shè)計(jì)方法，培養(yǎng)學(xué)生規(guī)范化軟件設(shè)計(jì)的能力。 3、使學(xué)生掌握使用各種計(jì)算機(jī)資料和有關(guān)參考資料，提高學(xué)生程序?qū)嶋H的自我學(xué)習(xí)能力。2、課程設(shè)計(jì)的要求要求我們熟悉對(duì)VB語言知識(shí)的運(yùn)用，養(yǎng)成良好的編程習(xí)慣，能夠熟練的應(yīng)用循環(huán)，團(tuán)結(jié)小組成員加強(qiáng)之間的團(tuán)結(jié)合作精神。在遇到困難的時(shí)候能夠堅(jiān)持不懈，有恒心有毅力的繼續(xù)完成任務(wù)。在編寫的過程中善于總結(jié)和概括，巧妙利用身邊的可利用資源(例如書本、互聯(lián)網(wǎng)、老師同學(xué)等)解決難題。學(xué)會(huì)運(yùn)用VB語言作圖部分知識(shí)。能夠在原有的設(shè)計(jì)理念上有所創(chuàng)新，使得界面更美觀，運(yùn)行效果更好。3、課程設(shè)計(jì)的主要設(shè)計(jì)思想 日歷程序設(shè)計(jì)主要由日歷部分和指針時(shí)鐘兩部分組成。最重要的地方就在于指針時(shí)鐘的構(gòu)思和制作。1）日歷部分：從VB程序中可以自動(dòng)生成日歷格式，點(diǎn)擊工具欄，在其部件中選取出合適可行的日歷格式，再經(jīng)過簡單的位置排版即可。2）指針時(shí)鐘部分：先確定時(shí)鐘表盤的中心，然后通過label控件數(shù)組畫出十二指數(shù)，再畫出刻度，最后安裝指針，其中這都需要運(yùn)用到三角函數(shù)原理來控制坐標(biāo)位置。注意：日歷程序設(shè)計(jì)要求日歷部分能夠自由變動(dòng)年份和月份，同時(shí)日期列表處跟隨作相應(yīng)的變動(dòng)，另外日歷設(shè)計(jì)中要達(dá)到的另一目的就是，當(dāng)點(diǎn)擊日期所在處時(shí)，界面圖上會(huì)彈出方框，要求填入你所想要顯示的時(shí)間，按確定按鈕，指針可自動(dòng)顯示其輸入的時(shí)間。二、總體方案設(shè)計(jì)日歷程序設(shè)計(jì)過程中應(yīng)該考慮到的是整體界面的實(shí)用性和美觀性，小組經(jīng)過商榷一致決定采取簡約的設(shè)計(jì)風(fēng)格，即設(shè)計(jì)界面由日歷部分、label、Timer和Frame組成。對(duì)于該日歷程序的具體功能作用的演示可概括為：運(yùn)行程序時(shí)，Label和Timer隱藏起來，Label1顯示日期系統(tǒng)日期，Label3則顯示系統(tǒng)時(shí)間。點(diǎn)擊Label1的日期時(shí)彈出方框，要求填入你所想要顯示的時(shí)間，并按確定，指針可自動(dòng)顯示其輸入的時(shí)間。在這個(gè)程序中我主要負(fù)責(zé)參與時(shí)鐘的編寫，尋找合適的代碼及界面的運(yùn)行圖的一些修改工作。 三、詳細(xì)設(shè)計(jì)以下是我在參與時(shí)鐘的編寫過程中，通過上網(wǎng)尋找一些可以借鑒的代碼并加以改進(jìn)后最終完成的編寫過程。相信通過這些語言可以對(duì)我們編寫的日歷程序有更直觀深刻的了解。（一）界面設(shè)計(jì) 界面設(shè)計(jì)共用到四種控件：Label 、Timer 、Frame 、Calendar 1、創(chuàng)建一個(gè)窗體 進(jìn)入VB6.0后生成一個(gè)Form窗體，命名為：日歷。 2、確定日歷和時(shí)鐘的擺放位置 根據(jù)Windows中的日歷，將日歷部分放在左側(cè)，時(shí)鐘放在右側(cè)。 3、添加控件Label 、Timer 、Frame 、Calendar（1）在窗體左側(cè)添加一個(gè)Frame，并更名為 日期（D）（2）在Frame上添加Calendar控件，調(diào)整位置（3）添加Label1、Label2的控件數(shù)組、Label3和一個(gè)時(shí)鐘控件Timer1 4、調(diào)整Frame與Calendar的位置，確保Calendar全部顯現(xiàn)，未被Frame框遮擋。 5、將Label1移動(dòng)到日歷的下方，并將Label3移動(dòng)到Label1平行右側(cè)的一定位置上。 6、進(jìn)行檢查，檢查Label2控件數(shù)組的個(gè)數(shù)是否是十二個(gè)，名稱為Label2(0)-Label2（11）。7、Timer和Label2控件數(shù)組的位置不做確定，系統(tǒng)運(yùn)行時(shí)不會(huì)顯現(xiàn)出來。 8、初始界面設(shè)計(jì)完成，如下圖： （二）時(shí)鐘設(shè)計(jì)主要分五步驟：A：確定中點(diǎn)坐標(biāo) B：標(biāo)出12個(gè)數(shù)字刻度 C：畫出60個(gè)刻度 D：標(biāo)出并運(yùn)行指針 E：彈出方框設(shè)計(jì)總的代碼為：Dim h As Integer, m As Integer, s As Integer, tConst pi As Double = 3.14159265358979 /*全局定義的量Pi和 h m sPrivate Sub Form_Load() Timer1.Interval = 1000 /*Timer每隔一秒觸發(fā)一次 Me.ScaleLeft = -7000 /*中點(diǎn)的橫坐標(biāo) Me.ScaleTop = -3000 /*中點(diǎn)的縱坐標(biāo) For i = 0 To 11 Label2(i).AutoSize = True Label2(i).Caption = i + 1 /*Label2的名稱定義為i+1 （i為變值） Label2(i).Left = 1300 * Cos(i * 30 - 60) * pi / 180) 80 /*12個(gè)Label的橫坐標(biāo)，運(yùn)用了三角函數(shù)的Cos函數(shù) Label2(i).Top = 1300 * Sin(i * 30 - 60) * pi / 180) 100 /*12個(gè)Label的縱坐標(biāo)，運(yùn)用了三角函數(shù)的Sin函數(shù)NextEnd Sub /*以上實(shí)現(xiàn)了中點(diǎn)坐標(biāo)和標(biāo)出12個(gè)數(shù)字刻度。Private Sub Timer1_Timer()RefreshFor i = 1 To 60PSet (1500 * Cos(i * 6 * pi / 180), 1500 * Sin(i * 6 * pi / 180), vbBlack /*利用Pset函數(shù)來完成畫出60個(gè)刻度，并定顏色為黑色NextLabel1.Caption = 日期: & Space(3) & Date /*定義Label1的名稱，并定其內(nèi)容為系統(tǒng)日期Label3.Caption = 時(shí)間: & Space(1) & Time /*定義Label2的名稱，并定其內(nèi)容為系統(tǒng)時(shí)間 h = Format(Now, h)m = Format(Now, n)s = Format(Now, s)Line (0, 0)-(700 * Cos(h * pi / 6 - pi / 2), 700 * Sin(h * pi / 6 - pi / 2), vbRed /*畫出時(shí)針，并定其顏色為紅色Line (0, 0)-(800 * Cos(m * pi / 30 - pi / 2), 800 * Sin(m * pi / 30 - pi / 2), vbBlue /*畫出分針，并定其顏色為藍(lán)色Line (0, 0)-(1000 * Cos(s * pi / 30 - pi / 2), 1000 * Sin(s * pi / 30 - pi / 2), vbGreen /*畫出秒針，并定其顏色為綠色End Sub /*以上完成了畫出60個(gè)刻度和標(biāo)出并運(yùn)行指針Private Sub Label1_Click()t = InputBox(請(qǐng)輸入時(shí)間) /*彈出的方框上顯示“請(qǐng)輸入時(shí)間”If IsDate(t) = True ThenLabel1.Caption = t /*將Label1的標(biāo)題改為“t”Timer1.Enabled = False /*Timer1的Enabled屬性改為 Flase RefreshFor i = 1 To 60PSet (1400 * Cos(i * 6 * pi / 180), 1400 * Sin(i * 6 * pi / 180), vbBlack /*重畫60個(gè)刻度，并定其顏色為黑色Nexth = Format(t, h)m = Format(t, n)s = Format(t, s)Line (0, 0)-(700 * Cos(h * pi / 6 - pi / 2), 700 * Sin(h * pi / 6 - pi / 2), vbRed /*畫出時(shí)針，并定其顏色為紅色 Line (0, 0)-(800 * Cos(m * pi / 30 - pi / 2), 800 * Sin(m * pi / 30 - pi / 2), vbBlue /*畫出分針，并定其顏色為藍(lán)色Line (0, 0)-(1000 * Cos(s * pi / 30 - pi / 2), 1000 * Sin(s * pi / 30 - pi / 2),vbGreen /*畫出秒針，并定其顏色為綠色End IfEnd Sub /*以上完成了彈出方框選擇自己所想選擇的時(shí)間四、調(diào)試的結(jié)果與運(yùn)行結(jié)果說明 代碼編寫好之后嘗試運(yùn)行卻屢試屢敗，于是不得不仔細(xì)檢查代碼尋找問題出錯(cuò)的關(guān)鍵，這是一項(xiàng)繁瑣而細(xì)致的工作，經(jīng)過大家齊心協(xié)力終于發(fā)現(xiàn)有好幾處拼寫錯(cuò)誤，將其改正后，發(fā)現(xiàn)可以運(yùn)行。但是指針每走一步就加長一些，經(jīng)過多方的詢問始終不能得到有效的改善最后只好請(qǐng)教老師，老師給了我們極大的幫助，告訴我們?nèi)呛瘮?shù)求坐標(biāo)的公式有問題。經(jīng)過多次改正，最后終于將代碼完成。程序編程成功后，開始運(yùn)行，終于達(dá)到了我們想要的效果：窗體左側(cè)日歷框顯示系統(tǒng)日期，日歷框下方顯示數(shù)字日期，并且與系統(tǒng)日期一致。窗體右側(cè)顯示指針式時(shí)鐘，時(shí)針為紅色，分針為藍(lán)色，秒針為綠色，并且顯示系統(tǒng)時(shí)間。在時(shí)鐘下方顯示數(shù)字時(shí)間。單擊數(shù)字日期時(shí)，彈出方框，方框上顯示“請(qǐng)輸入時(shí)間”，輸入符合格式的時(shí)間后，單擊確定，時(shí)鐘上顯示的即為輸入的時(shí)間。運(yùn)行界面如下：五、課程設(shè)計(jì)總結(jié)經(jīng)過這5天來大家堅(jiān)持不懈的努力，最終比較滿意的完成了本次程序設(shè)計(jì)的任務(wù)，編寫出一個(gè)具有日歷基本功能的程序。這