【正文】 目 錄摘 要關(guān)鍵字前 言第一章 VB語言概述1．VB簡介 1．VB語言的基本特點及VB應(yīng)用程序的基本持點1．為何我選擇VB作為開發(fā)語言1．第二章 用VB開發(fā)多功能日歷程序2．本程序運行界面簡介2．本程序部分控件的設(shè)置2．主程序部分代碼第三章 畢業(yè)設(shè)計總結(jié)第四章 主要參考文獻 摘 要：在日常生活和工作中經(jīng)常有人用到農(nóng)歷和公歷的查詢問題。因此，我借這次畢業(yè)設(shè)計之機，在輔導老師的指導下，編寫了一個可以在VB6下正常運行的日歷、計算器多功能應(yīng)用程序，編程的思路是:先把公、農(nóng)歷的數(shù)據(jù)用數(shù)組查詢設(shè)置好，再通過算法轉(zhuǎn)換成具體應(yīng)用。程序應(yīng)用了不規(guī)則窗體技術(shù)，使得窗體比較美觀。單擊屬相標志可以退出程序。單擊時鐘數(shù)字將返回到今天。單擊查詢控制面板開關(guān)將向下拉出查詢控制面板。.關(guān)鍵字：農(nóng)歷公歷轉(zhuǎn)換及計算器、查詢控制面板、VB6。多功能電子日歷的開發(fā) 前 言電腦已經(jīng)成為掛在我們嘴角的一句口頭禪，它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計、圖形圖像處理、教育培訓以及游戲娛樂等。Windows系統(tǒng)的推出使電腦從高雅的學術(shù)殿堂走入了尋常百姓家，各行各業(yè)的人們無須經(jīng)過特別的訓練就能夠使用電腦完成許許多多復雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。以前開發(fā)Windows下軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識和經(jīng)過特殊的培訓才能勝任?，F(xiàn)在不同了，即使你沒有接受過嚴格的程序設(shè)計訓練，使用Visual Basic也一樣能夠開發(fā)出功能強大、適合自己特殊需求的應(yīng)用程序了。Visual Basic繼承了Basic語言易學易用的特點，特別適合于初學者學習Windows系統(tǒng)編程。我作為一名中央電大的學生，對從事計算機操作和編程工作有著特殊的愛好，在工作和學習之余，我時常鉆研專業(yè)課基礎(chǔ)理論，經(jīng)常用VB搞一些小程序，在工作中經(jīng)常有人問到農(nóng)歷和公歷的查詢問題。網(wǎng)頁上有一些這方面的介紹，但是關(guān)于VB方面的編程資料卻比較少。因此，借這次畢業(yè)設(shè)計之機，我編寫了一個可以在VB6下正常運行的日歷、計算器多功能應(yīng)用程序，歡迎各位老師提出批評改進意見。 第一章 VB語言概述 一、VB簡介 VB是微軟公司出品的一個快速可視化程序開發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，VB在短短的幾年內(nèi)風靡全球。VB是極有和功能強大的軟件，主要表現(xiàn)在：所見即所得的界面設(shè)計，基于對象的設(shè)計方法，極短的軟件開發(fā)周期，較易維護的生成代碼。 ，win2000，winxp，windowsNT等操作系統(tǒng)下，是一個32位的應(yīng)用程序開發(fā)工具。二、VB語言的基本特點及VB應(yīng)用程序的基本持點 VB程序語言具有許多優(yōu)秀的特性,用其設(shè)計應(yīng)用程序時有兩個基本特點:可視化設(shè)計和事件驅(qū)動編程.可視化設(shè)計 同其他的一些可視化程序開發(fā)工具一樣,VB具有可視化設(shè)計的特點,微軟的Word在剛剛進入市場時,同WPS競爭的一個重要的功能砝碼就是所見即所得的字處理功能,VB在設(shè)計應(yīng)用程序界面時也可以說是所見即所得.在設(shè)計時,頭腦中所想象的應(yīng)用程序界面,完全可以通過鍵盤鼠標以及徒手畫出來,而不是編制大量的代碼然后再編譯生成,如果需要修改,也是利用鍵盤鼠標和手畫,而底層的一些程序代碼由VB自動生成或修改。 VB為用戶提供大量的界面元素(在VB中稱為控件對象),這些控件對象對于熟悉Windows應(yīng)用程序的用戶而言是一點也不陌生,如窗體、菜單、命令按鈕、工具按鈕、檢查框等等,用戶只需要利用鼠標、鍵盤把這些控件對象拖動到適當?shù)奈恢?設(shè)置它們的大小、形狀、屬性等,就可以設(shè)計出所需的應(yīng)用程序界面。2事件驅(qū)動編程 Windows操作系統(tǒng)出現(xiàn)以來,圖形化的用戶界面和多任務(wù)多進程的應(yīng)用程序要求程序設(shè)計不能是單一性的,在使用VB設(shè)計應(yīng)用程序時,、鍵盤輸入等事件時,由用戶編寫的代碼控制這些事件的響應(yīng),這就是所謂的事件驅(qū)動編程。 前面已經(jīng)談到,在VB中把窗體以及菜單、按鈕等控件稱為對象,如果設(shè)計出了應(yīng)用程序,那么與應(yīng)用程序的用戶直接進行交互的就是這些對象組成的圖形界面,也稱為用戶接口或用戶界面,甚至程序和程序之間也會有通訊和交戶,基本上用戶是通過鼠標、鍵盤與應(yīng)用程序進行交互的,它不沿預定的路徑執(zhí)行,應(yīng)用程序代碼的路徑在每次響應(yīng)而執(zhí)行時可能都是不形同的。 三、為何選擇VB作為開發(fā)語言 除了VB之外,當前能夠編制Windows應(yīng)用程序的可視化編程工具還有很多,所針對的編程領(lǐng)域也各有側(cè)重,就微軟系列的可視化開發(fā)工具而言,就有VB,VisualC++,VisualJ++,Visual Foxpro等,其中Visual Foxpro是針對數(shù)據(jù)庫編程的開發(fā)工具。Visual C++是為專業(yè)程序設(shè)計員提供的開發(fā)工具,變量聲明和定義嚴密,功能強大靈活,必須經(jīng)過相當?shù)呐Σ拍苷莆铡６鳹B不支持虛類、多態(tài)性和類的繼承,相對而言VB簡單易學,變量定義不太嚴密,對于非專業(yè)程序員而言功能足夠強大,同Visual C++一樣也支持網(wǎng)絡(luò)編程和數(shù)據(jù)庫編程。 除了微軟之外,其他公司也在為Windows操作系統(tǒng)平臺制作應(yīng)用程序開發(fā)工具,例如前Borland的公司出品的Delphi,C++Bulider, J++Bulider等,其他一些公司出品的針對數(shù)據(jù)庫編程的PowerBulider, PowerDesigner等,不可否認,這些產(chǎn)品相當出色,如果能夠熟練掌握將是編程者能力的體現(xiàn),但是必須承認,對Windows操作系統(tǒng)最熟悉的還是微軟,而且微軟本身Windows操作系統(tǒng)的源代碼采取不公開的策略,使得其他公司出品的產(chǎn)品在實現(xiàn)相同功能時多少都要走些彎路,用戶在使用這些產(chǎn)品設(shè)計應(yīng)用程序時,程序的效率將會受到影響。 在選擇所需要的應(yīng)用程序開發(fā)工具時,不但要考慮開發(fā)工具的功能是否強大,還要考慮所花費的時間和效果,單純地追求功能的強大,也許會事倍功半。 中央電大陳明主編的《Visual Basic程序設(shè)計》是計算機應(yīng)用專業(yè)采用的一本難得的教材,使我受益匪淺。通過這門課程的學習，我已能用VB編寫簡單的程序，為了搞好這次畢業(yè)設(shè)計，我決定使用VB作為編程語言。 四、 交互式開發(fā) 傳統(tǒng)的應(yīng)用程序開發(fā)過程可以分為三個明顯的步驟:編碼、編譯和測試。但是VB與傳統(tǒng)的語言不同,它使用交互式方法開發(fā)應(yīng)用程序,使三個步驟之間不再有明顯的界限。 在大多數(shù)語言里,如果編寫代碼時發(fā)生了錯誤,則在開始編譯應(yīng)用程序時該錯誤就會被編譯器捕獲。此時必須查找并改正該錯誤,然后再次進行編譯,對每一個發(fā)現(xiàn)的錯誤都要重復這樣的過程。VB在編程者輸入代碼時便進行解釋,即時捕獲并突出顯示大多數(shù)語法或拼寫錯誤。看起來就像一位專家在監(jiān)視代碼的輸入。 除即時捕獲錯誤以外,VB也在輸入代碼時部分地編譯該代碼。當準備運行和測試應(yīng)用程序時,只需極短時間即可完成編譯。如果編譯器發(fā)現(xiàn)了錯誤、則將錯誤突出顯示于代碼中。這時可以更正錯誤并繼續(xù)編譯、而不需從頭開始。 由于VB的交互特性,因此在開發(fā)應(yīng)用程序時,系統(tǒng)頻繁地運行著應(yīng)用程序。通過這種方式,代碼運行的效果可以在開發(fā)時進行測試,而不必等到編譯完成以后。 第二章 用VB開發(fā)多功能日歷程序 一、本程序運行界面簡介編程的主導思想是:先把公、農(nóng)歷的數(shù)據(jù)用數(shù)組查詢設(shè)置好，再通過算法轉(zhuǎn)換成具體應(yīng)用。程序的運行界面見圖1，計算器面板開關(guān)查詢控制面板開關(guān)屬相標志,單擊退出本程序 圖1程序應(yīng)用了不規(guī)則窗體技術(shù)，使得窗體比較美觀。單擊屬相標志可以退出程序。單擊時鐘數(shù)字將返回到今天。單擊計算器面板開關(guān)將向下拉出計算器面板,單擊查詢控制面板開關(guān)將向下拉出查詢控制面板,見圖2。 圖2二、本程序部分控件的設(shè)置GzPicture1n_y,下面兩個為n_m,n_dG_y,下面兩個為g_m,g_dC_clock該時鐘是畫出來的,還有L1,L2,L3 三個line控件Pt : picturebox控件Lable4cmdtPicture2Picture5圖中我們看到的一個個小按鈕是用photoshop畫出來的,實際上在每個按鈕上面我都加上了透明的lable控件Updown1Text1:textbox控件三、主程序部分代碼：Option Explicit39。***************************************39。拖動無標題窗體Const HTCAPTION = 2Const WM_NCLBUTTONDOWN = amp。HA1Private Declare Function ReleaseCapture Lib user32 () As LongPrivate Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long39。=============================================================================Private Declare Function GetObjectAPI Lib gdi32 Alias GetObjectA (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As LongPrivate Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As LongPrivate Declare Function SetWindowRgn Lib user32 (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Declare Function CreateRectRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function CombineRgn Lib gdi32 (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As LongPrivate Declare Function GetBitmapBits Lib gdi32 (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As LongPrivate Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd TypePrivate Const RGN_OR = 2Dim bmByte() As Byte39。***************************************39。滾動字幕Private Declare Function DrawText Lib user32 Alias DrawTextA (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As LongPrivate Declare Function GetTickCount Lib kernel32 () As LongConst DT_BOTTOM As Long = amp。H8Const DT_CALCRECT As Long = amp。H400Const DT_CENTER As Long = amp。H1Const DT_EXPANDTABS As Long = amp。H40Const DT_EXTERNALLEADING As Long = amp。H200Const DT_LEFT As Long = amp。H0Const DT_NOCLIP As Long = amp。H100Const DT_NOPREFIX As Long = amp。H800Const DT_RIGHT As Long = amp。H2Const DT_SINGLELINE As Long = amp。H20Const DT_TABSTOP As Long = amp。H80Const DT_TOP As Long = amp。H0Const DT_VCENTER As