指針式時(shí)鐘設(shè)計(jì)報(bào)告可以有程序

1、吉林工程技術(shù)師范學(xué)院VB課程設(shè)計(jì)報(bào)告 設(shè)計(jì)題目： 指針式時(shí)鐘 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 班 級(jí)： XXX 學(xué)生姓名： XXX 學(xué) 號(hào)： XXXXXXXXX 指導(dǎo)教師： 2014年6月信息工程學(xué)院目 錄第一章 系統(tǒng)分析11.1 技術(shù)分析1第二章 總體設(shè)計(jì)22.1 設(shè)計(jì)流程圖2第三章 編碼實(shí)現(xiàn)43.2 文本編輯器部分代碼設(shè)計(jì)63.3 數(shù)字游戲部分代碼設(shè)計(jì)13第四章 系統(tǒng)調(diào)試154.1 程序運(yùn)行結(jié)果154.2 調(diào)試過程中的問題與對(duì)策18第五章 使用說明19總結(jié)20致 謝22附錄231.源代碼232.參考資料27信息工程學(xué)院<<VB語言課程設(shè)計(jì)>>報(bào)告摘 要Visual Ba

2、sic是以結(jié)構(gòu)化Basic語言為基礎(chǔ)，以事件驅(qū)動(dòng)作為運(yùn)行機(jī)制的新一代可視化程序設(shè)計(jì)語言，它繼承了Basic語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)windows系統(tǒng)編程。隨著21世紀(jì)信息社會(huì)的到來,人類生活的節(jié)奏越來越快,生活模式也越來越簡潔。對(duì)時(shí)間的需求也是越來越苛刻，越來越明顯，計(jì)算機(jī)在人們的工作和生活中的深入,要求我們?cè)絹碓蕉嗟嘏c計(jì)算機(jī)打交道,為了使用戶在繁忙的日程工作中得到放松,于是出現(xiàn)了各種各樣的休閑軟件,如聊天工具,游戲等等。我們這次用到的軟件是Visual Basic 6.0 企業(yè)版，它具有面向?qū)ο蟮目梢暬O(shè)計(jì)工具，硬件驅(qū)動(dòng)的編程機(jī)制，使用方便簡單的集成開發(fā)環(huán)境，最簡單的程序設(shè)計(jì)語

3、言和強(qiáng)大的數(shù)據(jù)庫與文件系統(tǒng)等多種優(yōu)點(diǎn)。 本程序采用Command、lable、Text、timer、image等控件配合程序核心文件系統(tǒng), 設(shè)計(jì)并實(shí)現(xiàn)了時(shí)鐘。我們本著方便、實(shí)用、簡介的設(shè)計(jì)理念設(shè)計(jì)，盡量符合大眾的習(xí)慣與需求。于是我著手設(shè)計(jì)開始一個(gè)這樣的時(shí)鐘軟件。關(guān)鍵詞：軟件編程；Visual Basic6.0；時(shí)鐘13信息工程學(xué)院<<VB語言課程設(shè)計(jì)>>報(bào)告第1章 系統(tǒng)分析1.1 技術(shù)分析 技術(shù)分析是程序設(shè)計(jì)的第一步，其目的理解了對(duì)程序的一些簡單要求，在Visual Basic .Net的運(yùn)行環(huán)境下。問題分析的基本內(nèi)容包括確定。程序的功能主要針對(duì)與迷你文本編輯器的測試。

4、使用方式非常簡單，快捷。通過運(yùn)用Visual Basic .Net的運(yùn)行環(huán)境下的各種控件和方法，能對(duì)文字進(jìn)行復(fù)制、粘貼、剪切、改變字體顏色等操作的簡單執(zhí)行,同時(shí)在文字編輯器中還加入數(shù)字滾小動(dòng)游戲。程序所占用系統(tǒng)資源的數(shù)量、對(duì)輸入命令的響應(yīng)速度等非常良好。visual basic繼承了basic語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí)windows系統(tǒng)編程。隨著21世紀(jì)信息社會(huì)的到來,計(jì)算機(jī)在人們的工作和生活中的深入,要求我們?cè)絹碓蕉嗟嘏c計(jì)算機(jī)打交道,為了用戶更加方便的，更加有舒適的心情，設(shè)計(jì)出一個(gè)比較舒心的時(shí)鐘顯示。1.2 設(shè)計(jì)平臺(tái)VB全稱Visual Basic,它是以Basic語言作為其基

5、本語言的一種可視化編程工具。它繼承了basic語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí)windows系統(tǒng)編程。隨著21世紀(jì)信息社會(huì)的到來,計(jì)算機(jī)在人們的工作和生活中的深入,要求我們?cè)絹碓蕉嗟嘏c計(jì)算機(jī)打交道,為了使用戶更加地使用舒心。通過這學(xué)期來Visual Basic的學(xué)習(xí)，我初步掌握了Visual Basic語言的最基本的知識(shí)，于是在張老師的指導(dǎo)下動(dòng)手用Visual Basic編寫了這款時(shí)鐘軟件。第二章 總體設(shè)計(jì)2.1系統(tǒng)分析 首先界面設(shè)計(jì)3個(gè)Timer、2個(gè)Label、1個(gè)Image、1個(gè)Textbox、控件實(shí)現(xiàn)電子時(shí)鐘的查看時(shí)間以及日期的功能。設(shè)置好主要控件后，然后用這些控件來實(shí)現(xiàn)模擬時(shí)

6、鐘的功能，通過vb代碼實(shí)現(xiàn)。最后達(dá)到一個(gè)窗體模塊，完成模擬現(xiàn)實(shí)時(shí)鐘的功能。設(shè)置符合現(xiàn)實(shí)每60秒走一分鐘，每60分鐘走一個(gè)小時(shí)，同時(shí)添加顯示完整日期的功能。2.2界面設(shè)計(jì)思路我們?cè)谠O(shè)計(jì)各個(gè)界面時(shí)，本著簡介，清晰，和諧，美觀，實(shí)用的設(shè)計(jì)理念設(shè)計(jì)，例如時(shí)鐘，以簡潔圖片為背景，使得整體效果和諧，清新。我們以文件系統(tǒng)為核心設(shè)計(jì)理念，以大量函數(shù)與循環(huán)將程序結(jié)構(gòu)建立起來，使得整個(gè)程序完整，連貫。功能符合一般應(yīng)用的要求，非常實(shí)用方便，且符合大眾思路，使得大眾使用時(shí)得心應(yīng)手。2.3各部分功能1、 時(shí)鐘功能：指針式時(shí)鐘，添加一個(gè)Image控件，將設(shè)計(jì)好的時(shí)鐘圖片放到窗體上，然后更改窗體的大小，使得窗體的長和寬相等

7、。在添加一個(gè)Image控件，在代碼中調(diào)用函數(shù)建立坐標(biāo)系，調(diào)用函數(shù)依次畫出時(shí)針分針秒針。2、 獲取當(dāng)前系統(tǒng)時(shí)間: 添加一個(gè)Lable標(biāo)簽，再添加一個(gè)Textbox文本框控件，使動(dòng)態(tài)時(shí)間出現(xiàn)在窗體上，方便人們對(duì)照時(shí)鐘查看時(shí)鐘是否正確。3、 顯示動(dòng)態(tài)文字：添加一個(gè)Lable標(biāo)簽，在添加一個(gè)Image控件，增加程序美觀性。4、 雙擊圖片控件退出程序：增強(qiáng)程序的可讀性。系統(tǒng)文本框界面結(jié)構(gòu)設(shè)計(jì)圖如2-2所示文本編輯器文件格式對(duì)齊娛樂編輯打開保存退出新建字體設(shè)置顏色設(shè)置左對(duì)齊居中右對(duì)齊數(shù)字滾動(dòng)游戲復(fù)制粘貼剪切撤銷 圖2-2 系統(tǒng)文本框界面設(shè)計(jì)流程圖第三章 編碼實(shí)現(xiàn) 3.1 時(shí)鐘部分代碼設(shè)計(jì) 1、配置環(huán)境變量

8、 Const PI = 3.1415926532、 建立坐標(biāo)系 Private Sub Form_Load() Scale (-14, 14)-(14, -14) Label1.FontSize = 12 Label2.FontSize = 18 Label2.FontBold = True Label1.FontBold = True Label2.ForeColor = vbGreen Text1.FontSize = 12End Sub3、 時(shí)鐘主程序代碼 Private Sub Timer1_Timer() Dim x, y As Integer Dim s, m, h As Inte

9、ger s = Second(Time) m = Minute(Time) h = Hour(Time) Cls DrawWidth = 8 h = h + m / 60 x = 6 * Sin(h * PI / 6) y = 6 * Cos(h * PI / 6) Line (0, 0)-(x, y), vbYellow DrawWidth = 5 x = 8 * Sin(m * PI / 30) y = 8 * Cos(m * PI / 30) Line (0, 0)-(x, y), vbRed DrawWidth = 3 x = 9 * Sin(s * PI / 30) y = 9 *

10、Cos(s * PI / 30) Line (0, 0)-(x, y), vbBlue End Sub4、 顯示當(dāng)前系統(tǒng)時(shí)間代碼 Private Sub Timer2_Timer() Text1.Text = Format(Now, "HH:MM:SS")End Sub 3.2 滾動(dòng)文字部分代碼設(shè)計(jì) Private Sub Timer3_Timer() If Label2.Left > Me.ScaleWidth Then Label2.Left = -Label2.Width Else: Label2.Left = Label2.Left + 3 End IfEnd

11、 Sub 第四章 系統(tǒng)調(diào)試第3章 設(shè)計(jì)目的與要求3.1 設(shè)計(jì)目的1. 通過設(shè)計(jì)實(shí)踐,將理論教學(xué)中涉及到的知識(shí)點(diǎn)貫穿起來，對(duì)不同的數(shù)據(jù)類型、程序控制結(jié)構(gòu)、數(shù)據(jù)結(jié)構(gòu)作一比較和總結(jié)，結(jié)合設(shè)計(jì)題目進(jìn)行綜合性練習(xí)，以達(dá)到對(duì)所學(xué)知識(shí)熟練掌握、靈活應(yīng)用的目的。2. 培養(yǎng)學(xué)生查閱專業(yè)資料，工具書或參考書,了解有關(guān)工業(yè)標(biāo)準(zhǔn)，掌握現(xiàn)代設(shè)計(jì)手段和軟件工具，并能以圖紙和說明書表達(dá)設(shè)計(jì)思想和結(jié)果的能力。 要求掌握常用控件的屬性、事件、方法，理解事件驅(qū)動(dòng)的概念。掌握界面的基本設(shè)計(jì)方法。3. 掌握?qǐng)D形、圖像程序設(shè)計(jì)方法4. 課程設(shè)計(jì)結(jié)合是實(shí)際應(yīng)用的要求，使課程設(shè)計(jì)既覆蓋VB的知識(shí)點(diǎn)，又接近工程實(shí)際需要。目的是通過課程設(shè)計(jì)的

12、綜合訓(xùn)練，培養(yǎng)我們學(xué)生實(shí)際分析問題、解決問題的能力，以及編程和動(dòng)手能力，最終目的是通過課程設(shè)計(jì)這種形式， 課程設(shè)計(jì)是這門課程的實(shí)踐性教學(xué)環(huán)節(jié)之一，通過這次課程設(shè)計(jì)幫助我們系統(tǒng)的掌握VB這課程的主要內(nèi)容，養(yǎng)成良好的變成習(xí)慣，更好的完成學(xué)習(xí)任務(wù)。 3.2 設(shè)計(jì)要求通過課程設(shè)計(jì)指導(dǎo)書提供的課題，設(shè)計(jì)一個(gè)完整的時(shí)鐘應(yīng)用程序，要求根據(jù)規(guī)定設(shè)計(jì)系統(tǒng)的具體要求，按照應(yīng)用程序的設(shè)計(jì)步驟，和VB基本知識(shí)應(yīng)用程序的分析與實(shí)現(xiàn)。根據(jù)基本學(xué)時(shí)分配合理分配設(shè)計(jì)時(shí)間，并獨(dú)立完成各方面的設(shè)計(jì)。選擇同一題目的同學(xué)，可以共同協(xié)作完成同一應(yīng)用程序的開發(fā)任務(wù)。要求寫詳細(xì)的設(shè)計(jì)說明書。在界面設(shè)計(jì)中，漏出每個(gè)窗體的布局，進(jìn)行屬性說明，

13、杜絕雷同。第5章 開發(fā)工具簡介5.1 VisualBasic6.0簡介Visual Basic 是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口（API）函數(shù)，動(dòng)態(tài)鏈接庫（DLL）、對(duì)象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的非常實(shí)用的應(yīng)用軟件系統(tǒng)。6.2 運(yùn)用的控件和主要對(duì)象我們?cè)谠O(shè)計(jì)過程

14、中主要用到的控件有：Form，Commandbutton，MsgBox，Label，F(xiàn)rame，PictureBox等控件。1、窗體（Form）窗體就是平時(shí)所說的窗口，它是VB編程中最常見的對(duì)象，也是程序設(shè)計(jì)的基礎(chǔ)。各種控件對(duì)象必須建立在窗體上，即窗體是所有控件的容器。一個(gè)窗體對(duì)應(yīng)一個(gè)窗體模塊。2、 命令按鈕(Commandbutton)命令按鈕是VB應(yīng)用程序中使用最多的控件之一，它常常用來接受用戶的操作信息，激發(fā)相應(yīng)的事件過程，是用戶與程序交互的最簡便的方法之一。3、 消息框（MsgBox）在Windows中，如果操作失誤，通常會(huì)在屏幕上顯示一個(gè)對(duì)話框，提示用戶進(jìn)行選擇，然后系統(tǒng)根據(jù)選擇確定

15、其后的操作。VB提供了MsgBox函數(shù)就可以實(shí)現(xiàn)此功能，它可以向用戶傳送信息，并可以接收用戶在對(duì)話框上的選擇，以次作為程序繼續(xù)執(zhí)行的依據(jù)。4、標(biāo)簽（Label）VB提供的標(biāo)簽控件只能顯示文本，而不能對(duì)文本進(jìn)行編輯。標(biāo)簽通常用于標(biāo)注本身不具有Caption屬性的控件。5、框架（Frame）框架主要用做控件的容器，也用于修飾界面。6、圖片框（PictureBox）該控件可以用來顯示圖象，包括位圖文件、圖標(biāo)文件、光標(biāo)文件、元文件、增強(qiáng)的元文件、JPEG文件、GIF文件。7、Timer控件Windows 應(yīng)用程序中常常要用到時(shí)間控制的功能，如在程序界面上顯示當(dāng)前時(shí)間，或者每隔多長時(shí)間觸發(fā)一個(gè)事件，等等

16、。而 Visual Basic 中的 Timer（時(shí)間）控制器就是專門解決這方面問題的控件。選中時(shí)鐘控制器，將鼠標(biāo)移到界面設(shè)計(jì)區(qū)，在窗體中拖出一個(gè)矩形就可以創(chuàng)建一個(gè) Timer 控件了。跟其他控件不同的是，無論你繪制的矩形有多大，Timer 控件的大小都不會(huì)變外，Timer 控件只有在程序設(shè)計(jì)過程中看得見，在程序運(yùn)行時(shí)是看不見的Timer事件：當(dāng)Timer控件設(shè)置為有效時(shí)，計(jì)時(shí)總是從其Interval屬性的設(shè)置值開始，每當(dāng)計(jì)時(shí)時(shí)間到達(dá)時(shí)產(chǎn)生Timer事件，可以在該事件過程中編寫代碼，以高訴Visual Basic在每次計(jì)時(shí)時(shí)間到時(shí)該做什么。(1)Timer 控件的屬性：Timer 控件可以使用

17、 Name 屬性與 Enabled 屬性，但最重要的是 Interval 即時(shí)間間隔屬性。Interval 屬性決定了時(shí)鐘事件之間的間隔，以毫秒為單位，取值范圍為 0 65535 ，因此其最大時(shí)間間隔不能超過 65 秒，即一分鐘多一點(diǎn)的時(shí)間。如果把 Interval 屬性設(shè)置為 1000 ，則表示每秒鐘觸發(fā)一個(gè) Timer 事件。其語法格式：Timer.Interval = X ，其中，X 代表具體的時(shí)間間隔。(2)Timer 控件的 Timer （定時(shí)）事件：當(dāng)一個(gè) Timer 控件經(jīng)過預(yù)定的時(shí)間間隔，將激發(fā)計(jì)時(shí)器的 Timer 事件。使用 Tim標(biāo)簽控件（Label）的主要事件：所謂的事件

18、，其實(shí)就是用戶對(duì)應(yīng)用程序的操作，如第一章中用鼠標(biāo)點(diǎn)擊命令按鈕觸發(fā)的 Click 事件。事件的作用在于觸發(fā)程序的執(zhí)行，如第一章中的 Click 事件改變了標(biāo)簽控件的 Caption 屬性。標(biāo)簽控件的主要作用在于顯示文本信息，但也支持一些為數(shù)不多的事件。I、Click 事件（鼠標(biāo)單擊）：用鼠標(biāo)點(diǎn)擊標(biāo)簽時(shí)觸發(fā)的事件，如改變標(biāo)簽的字體屬性：Private Sub LblShow_Click()LblShow.FontName = "隸書"End SubII、DbClick 事件（鼠標(biāo)雙擊）：鼠標(biāo)雙擊引發(fā)的事件，如改變標(biāo)簽的可見性：Private Sub LblShow_DbClic

19、k()LblShow.Visible = FalseEnd Sub(3)文件操作控件在一個(gè)應(yīng)用程序中，對(duì)文件的處理是一個(gè)比較常用的操作，如打開文件、保存文件，等等操作。Visual Basic 提供了三個(gè)控件對(duì)磁盤文件夾與文件進(jìn)行顯示與操作，它們分別是：DriveListBox（磁盤列表框）控件、DirListBox（文件夾列表框）控件，以及 FileListBox（文件列表框）控件 。事件可以完成許多比較實(shí)用功能，例如顯示系統(tǒng)時(shí)鐘、制作動(dòng)畫，等等(4)三個(gè)控件的連接：DriveListBox（磁盤列表框）控件DirListBox（文件夾列表框）控件FileListBox（文件列表框）控件I、

20、在程序中，它們?nèi)际腔ゲ魂P(guān)連的，并不是只要在窗體中創(chuàng)建了它們，然后對(duì)某個(gè)控件（如磁盤列表框）進(jìn)行操作，其他控件就會(huì)自動(dòng)顯示相應(yīng)的磁盤下的文件，這需要用程序進(jìn)行實(shí)現(xiàn)。將磁盤列表框的操作賦值給文件夾列表框的 Path 屬性，在磁盤列表框的 Change 事件中輸入如下代碼：Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub、II、對(duì)文件夾列表框控件進(jìn)行的操作，直接影響文件列表框所顯示的內(nèi)容：Private Sub Dir1_Change()File1.Path = Dir1.Path8、Label 控件任何一個(gè) VB 程序都是由操作

21、界面及與之相應(yīng)的程序代碼組成，而操作界面則是由諸如“命令按鈕控件”、“標(biāo)簽控件”等控件以及窗體共同組成。 Label（標(biāo)簽控件）是圖形控件，主要作用在于顯示文字信息，如大家比較熟悉的程序安裝界面：在某個(gè)軟件安裝過程中，常常會(huì)顯示一些幫助信息或與產(chǎn)品相關(guān)的介紹信息等消息，而這些，大多全都是用標(biāo)簽控件來制成的。與以后我們要學(xué)到的文本框控件（TextBox）不同的是，標(biāo)簽控件顯示的文字不能直接進(jìn)行修改，要修改的話只能在設(shè)計(jì)階段進(jìn)行；文本框既可以用來顯示文本，還能夠在文本框中輸入文本。用法比較前者也更加的靈活多變。在 Visual Basic 工具箱中，標(biāo)簽控件的圖標(biāo)如圖一所示。標(biāo)簽的默認(rèn)名稱（Nam

22、e）和標(biāo)題（Caption）為 LabelX（X為1、2、3，等等），規(guī)范的命名方式為：LblX（X為自己定義的詞，如 LblShow 、LblRed ，等等）(1)標(biāo)簽控件的主要屬性：I、Caption（標(biāo)題）屬性：此屬性用來設(shè)置在標(biāo)簽上顯示的文本信息，可以在創(chuàng)建界面時(shí)設(shè)置，也可以在程序中改變文本信息，如第一章的例子中，通過點(diǎn)擊按鈕改變標(biāo)簽顯示的字樣。如果要在程序中修改標(biāo)題屬性，代碼規(guī)則如下：標(biāo)簽名稱.Caption = "欲顯示的文本"LblShow.Caption = "跟我來學(xué) VB 神童教程"但是請(qǐng)注意，上面的代碼應(yīng)該寫入供觸發(fā)的控件對(duì)應(yīng)的程序

23、代碼區(qū)才正確。II、BorderStyle（邊框）屬性：本屬性用來設(shè)置標(biāo)簽的邊框類型，有兩種值可選：0，代表標(biāo)簽無邊框；1，代表標(biāo)簽有邊框，并且具有三維效果，如圖二顯示的兩個(gè)標(biāo)簽： BorderStyle 屬性可以在設(shè)計(jì)界面時(shí)指定標(biāo)簽名.BorderStyle = 0/1（0或1，兩者取一）擊一下，標(biāo)簽有邊框，再點(diǎn)一下，標(biāo)簽邊框消除，再點(diǎn)一下，邊框又出現(xiàn)，以此類推。回答、Font（字體）屬性：本屬性用來設(shè)置標(biāo)簽顯示的字體，既可以在創(chuàng)建界面時(shí)設(shè)定，也可以在程序中改變。在創(chuàng)建界面時(shí)設(shè)定 在圖四的設(shè)置界面中，除了可以選擇字體，還可以設(shè)置顯示文字是否為粗體、斜體、下劃等。在程序中改變 Font 屬性，

24、程序代碼書寫規(guī)則如下：字體改變：標(biāo)簽名.FontName = "字體類型"，其中，“字體類型”可以是中文，如“宋體”、“隸書”、“黑體”、“新宋體”等等也可以是英文名，如“Arial”、“Times New Roman”，等等，不過，這些字體名稱必須是電腦上有的。字體大小改變：標(biāo)簽名.FontSize = X ，其中，X 是阿拉伯?dāng)?shù)字，代表字體是幾號(hào)字。如：LblShow.FontSize = 11 。粗體（FontBold）、斜體（FontItalic）、下劃線（FontUnderline）、刪除線（FontStrikethru）屬性的設(shè)置值是代表真/假的邏輯判斷值 Tr

25、ue/False ，如下：LblShow.FontBold = True/FalseLblShow.FontItalic = True/False、Alignment（對(duì)齊）屬性：此屬性用來設(shè)置標(biāo)簽上顯示的文本的對(duì)齊方式，分別是：左對(duì)齊，0；右對(duì)齊，1；居中顯示，2。可以在界面設(shè)置時(shí)設(shè)定， 也可以在程序中改變，代碼如下：標(biāo)簽名.Alignment = 0/1/2 第6章 設(shè)計(jì)實(shí)現(xiàn)用Load命令建立原始Line控制的14個(gè)拷貝(因?yàn)楸肀P有12個(gè)點(diǎn)和時(shí)、分、秒共15個(gè)Line)，該控制數(shù)組每一個(gè)實(shí)例的端點(diǎn)坐標(biāo)屬性設(shè)置為每條線在時(shí)鐘表盤上的適當(dāng)位置。這些拷貝中大多數(shù)只放置一次，而3個(gè)Line控制每秒

26、鐘更新一次，產(chǎn)生時(shí)鐘指針移動(dòng)的感覺。在應(yīng)用程序代碼中并沒有直接擦除任何一條線。當(dāng)我們改變每一個(gè)Line控制的端點(diǎn)時(shí)，每一根針在移動(dòng)時(shí)擦除和重畫的所有技術(shù)工作都由VB來處理。 通過調(diào)整代碼中的屬性設(shè)置，可以改變時(shí)鐘的形狀。例如:通過改變每一個(gè)Line控制的Borderwidth屬性設(shè)置，可以建立更細(xì)或更粗的線。3.1添加image控件3.2修改時(shí)針的形狀 3.3計(jì)時(shí)器的Interval(間距)屬性設(shè)置計(jì)時(shí)器的Interval屬性設(shè)置為100，即為1/10秒。 程序的編寫與執(zhí)行 （1） 新建工程 先新建一個(gè)工程（工程類型為標(biāo)準(zhǔn)EXE），然后用“工具箱”中的工具加入一個(gè)Timer1（計(jì)時(shí)器）和lin

27、e1（直線），其index（指針）分別設(shè)置為空和、0。一、打開程序：點(diǎn)擊桌面上的 Visual Basic 圖標(biāo)，在彈出的如圖一的窗中選擇“創(chuàng)建標(biāo)準(zhǔn) EXE”按鈕。圖3.1 新建工程窗口 確定后的狀態(tài)如下圖。圖3.2 創(chuàng)建的新工程（2）編輯時(shí)鐘軟件的工程窗口，可執(zhí)行為一個(gè)“標(biāo)準(zhǔn) EXE”文件。具體代碼如下。圖3.3 時(shí)鐘編輯窗口 （3）時(shí)鐘軟件的運(yùn)行界面，此圖中時(shí)間為18點(diǎn)。圖3.4 時(shí)鐘界面（一）下圖即為時(shí)鐘軟件的運(yùn)行界面，此圖中時(shí)間為20點(diǎn)。滾動(dòng)字幕位置有所變化。系統(tǒng)時(shí)間也有變化。圖3.5時(shí)鐘界面（二）（4） 窗體屬性值設(shè)置圖3.6窗體屬性值窗口（5） 圖片屬性值 圖3.6窗體屬性值窗口（

28、7） 時(shí)鐘屬性值窗口 圖3.7時(shí)鐘屬性值窗口（8）標(biāo)簽屬性值圖3.8標(biāo)簽屬性值窗口（9） 文本框?qū)傩灾祱D3.9文本框?qū)傩灾荡翱?.4關(guān)鍵軟件代碼1、配置環(huán)境變量 Const PI = 3.1415926533、 建立坐標(biāo)系 Private Sub Form_Load() Scale (-14, 14)-(14, -14) Label1.FontSize = 12 Label2.FontSize = 18 Label2.FontBold = True Label1.FontBold = True Label2.ForeColor = vbGreen Text1.FontSize = 12End

29、Sub5、 時(shí)鐘主程序代碼 Private Sub Timer1_Timer() Dim x, y As Integer Dim s, m, h As Integer s = Second(Time) m = Minute(Time) h = Hour(Time) Cls DrawWidth = 8 h = h + m / 60 x = 6 * Sin(h * PI / 6) y = 6 * Cos(h * PI / 6) Line (0, 0)-(x, y), vbYellow DrawWidth = 5 x = 8 * Sin(m * PI / 30) y = 8 * Cos(m * PI

30、 / 30) Line (0, 0)-(x, y), vbRed DrawWidth = 3 x = 9 * Sin(s * PI / 30) y = 9 * Cos(s * PI / 30) Line (0, 0)-(x, y), vbBlue End Sub6、 顯示當(dāng)前系統(tǒng)時(shí)間代碼 Private Sub Timer2_Timer() Text1.Text = Format(Now, "HH:MM:SS")End Sub7、 滾動(dòng)文字代碼 Private Sub Timer3_Timer() If Label2.Left > Me.ScaleWidth Then

31、 Label2.Left = -Label2.Width Else: Label2.Left = Label2.Left + 3 End IfEnd Sub8、 雙擊退出程序代碼 Private Sub Picture1_DblClick() Unload Me End Sub第7章 總 結(jié)1、做鐘表的一般步驟如下： /鐘表窗口類 clock.h /鐘表窗口類實(shí)現(xiàn) clock.cpp /構(gòu)造函數(shù) 畫時(shí)針 畫分針 畫秒針 畫刻度 畫大刻度 畫小刻度 /或取當(dāng)前系統(tǒng)系統(tǒng)時(shí)間，秒針+，構(gòu)造函數(shù)里秒針動(dòng)一下然后分針，時(shí)針按照一定規(guī)則走動(dòng) /顯示滾動(dòng)字幕 /雙擊圖片退出 /設(shè)置窗體的屬性2、程序的編譯和

32、執(zhí)行 點(diǎn)擊VB“運(yùn)行”菜單中的“啟動(dòng)”或“全面編譯”命令，即可對(duì)程序編譯并運(yùn)行！第8章 實(shí)訓(xùn)心得經(jīng)過了這幾天的程序設(shè)計(jì)后，使我對(duì)VB由漸漸模糊逐有變的漸變的清晰起來，特別是在對(duì)vb面向?qū)ο蟾拍畹募由詈椭R(shí)點(diǎn)的了解上更加運(yùn)用自如了。這也大大增加了我對(duì)VB編程的了解，VB強(qiáng)大的編程功能需要我們一步步去學(xué)習(xí)，即使今后我們不會(huì)在課堂上學(xué)習(xí)VB了，但平時(shí)對(duì)VB的深入研究也將使我們受益匪淺。用VB課程設(shè)計(jì)的思想非常重要，沒有做不到只有想不到，這次的課程設(shè)計(jì)就是一個(gè)很好的例子。在這 5 天的實(shí)訓(xùn)中，給我們 更大的感覺是設(shè)計(jì)的任務(wù)繁重。 更大的感覺是設(shè)計(jì)的任務(wù)繁重。程序設(shè)計(jì)的嚴(yán)密性， 程序設(shè)計(jì)的嚴(yán)密性， 讓我

33、們清楚的了 這一課程。只有親身經(jīng)歷過，才知道其中的滋味。 解了 VB 這一課程。只有親身經(jīng)歷過，才知道其中的滋味。VB 設(shè)計(jì) 實(shí)訓(xùn)，對(duì)我們各方面的要求更是提高了一大步。 實(shí)訓(xùn)，對(duì)我們各方面的要求更是提高了一大步。 “要想為事業(yè)多添一把火， 要想為事業(yè)多添一把火， 要想為事業(yè)多添一把火 自己就得多添一捆材”。 通過此次實(shí)自己就得多添一捆材 。 訓(xùn)，我深深體會(huì)到了積累知識(shí)的重要性。有些題目書本上沒有提及， 我深深體會(huì)到了積累知識(shí)的重要性。有些題目書本上沒有提及， 所以我就沒有去研究過， 做的時(shí)候突然間覺得自己真的有點(diǎn)無知， 雖然現(xiàn)在去看依然可以解決問題， 但還是浪費(fèi)了許多時(shí)間， 這一點(diǎn)是我必須在以

34、后的學(xué)習(xí)中加以改進(jìn)的。另外一點(diǎn),也是在每次實(shí)也是在每次實(shí)訓(xùn)中必不可少的部分， 就是不懂的同學(xué)間可以互相幫助，有些東西感覺自己做 的是時(shí)候明明沒什么錯(cuò)誤， 偏偏最后運(yùn)行時(shí)候就是有錯(cuò)誤，讓其同學(xué) 幫忙看了一下，發(fā)現(xiàn)其實(shí)是個(gè)很小的錯(cuò)誤。所以說，相互幫助是很重要的一點(diǎn)。這在以后的工作或生活中也很關(guān)鍵的。 實(shí)訓(xùn)讓收獲頗豐，總的來說我對(duì)這次實(shí)訓(xùn)還是比較滿意的，它使我學(xué)到了很多東西，雖說有點(diǎn)頭疼，但是真的很感謝學(xué)校能夠給學(xué)生這樣實(shí)訓(xùn)的機(jī)會(huì)，讓我們明白了，只有多做才能熟能 生巧，才能游刃有余。我深刻理解了什么是程序設(shè)計(jì)，它不僅僅是份職業(yè)，更是一份細(xì)心 一份耐心 一份責(zé)任心=人生價(jià)值的詮釋 一份耐心+一份責(zé)任心

35、 人生價(jià)值的詮釋。同時(shí)我也認(rèn)識(shí)到要做一個(gè)合格的設(shè)計(jì)工作者并非我以前想像的那么容易，最重要的還是細(xì)致嚴(yán)謹(jǐn)。 總而言之，這次實(shí)訓(xùn) 讓我對(duì)程序設(shè)計(jì)工作有了比較清晰的認(rèn)識(shí)， 讓我對(duì)程序設(shè)計(jì)工作有了比較清晰的認(rèn)識(shí)，對(duì)程序設(shè)計(jì)工作有了比較清晰的認(rèn)識(shí)并在實(shí)際操作過程中找出 自身存在的不足，對(duì)今后的會(huì)計(jì)學(xué)習(xí)有了一個(gè)更為明確的方向和目 標(biāo)。 只有經(jīng)歷過，才知道其中的滋味” 對(duì)我而言，可以說通這幾 天的實(shí)訓(xùn)課， 天的實(shí)訓(xùn)課，真真切切的讓我了解了什么是 VB， 通過實(shí)訓(xùn)，我對(duì) 本課程的認(rèn)識(shí)進(jìn)一步加強(qiáng)。 總的來說，這次實(shí)訓(xùn)還是比較成功的。最后出來的系統(tǒng)，大家都很有成就感，這是我們一步步設(shè)計(jì)、一步步完善、辛苦付出后得到

36、的成果。小組合作、幫助隊(duì)友，無論是團(tuán)隊(duì)合作這方面還是個(gè)人動(dòng)手這方面，我們都得到了很好的鍛煉。當(dāng)然實(shí)訓(xùn)不僅使我們學(xué)到了知識(shí)，也幫助我們縮小了實(shí)踐和理論的差距，通過這次實(shí)訓(xùn)讓我們更深一步的對(duì)vb這門課程的知識(shí)有更進(jìn)一步的渴望，同時(shí)對(duì)自己的專業(yè)，對(duì)自己的能力，對(duì)自己所學(xué)的有正確的認(rèn)識(shí)，并且能在以后的學(xué)習(xí)工作中不斷提高和完善自己。此我要感謝我的指導(dǎo)老師張立霞對(duì)我細(xì)心地指導(dǎo)，感謝老師對(duì)我的幫助。在設(shè)計(jì)的過程中，我通過查過大量的資料與同學(xué)交流經(jīng)驗(yàn)和自學(xué)，使自己得到了不少知識(shí)。通過這學(xué)期來Visual Basic的學(xué)習(xí)，我初步掌握了Visual Basic語言的最基本的知識(shí)，主要包括VB基礎(chǔ)知識(shí)、常用程序結(jié)構(gòu)和算法、Windows用戶界面設(shè)計(jì)基礎(chǔ)、文件處理和程序調(diào)試技術(shù)基礎(chǔ)等內(nèi)容。于是在張老師的指導(dǎo)下動(dòng)手用Visual Basic編寫了這款時(shí)鐘軟件。在自動(dòng)控制工程中，常常用到時(shí)鐘及時(shí)間控制，比如，早起