資源描述:
《打字源程序打字系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn).doc》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。
1、打字系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)本工程以一個(gè)比較實(shí)用的例子,主要用來(lái)實(shí)現(xiàn)對(duì)打字速度、打字準(zhǔn)確率進(jìn)行評(píng)測(cè),并給出適當(dāng)?shù)某煽?jī),是一個(gè)用于測(cè)試打字的應(yīng)用程序。通過(guò)本系統(tǒng),可以了解如何使用VisualBasic來(lái)開(kāi)發(fā)一個(gè)比較完整的應(yīng)用程序。但限于篇幅,有一些功能沒(méi)有實(shí)現(xiàn),如用戶管理,系統(tǒng)配置以及登錄、啟動(dòng)屏幕(SplashScreen)等。本工程將使用VB的多種控件,如文件對(duì)話框控件、時(shí)間控件、SSTab控件、狀態(tài)欄以及通用控件等。本系統(tǒng)可以完成以下任務(wù):l以隨機(jī)抽取文本方式或指定具體文本文件的方式,來(lái)獲得打字測(cè)試的內(nèi)容。但文件不能超過(guò)40
2、96字節(jié)(而且,最多是前300個(gè)字有效)。l用戶可以設(shè)置各種系統(tǒng)參數(shù)。如考試時(shí)間設(shè)定、字?jǐn)?shù)設(shè)置。l打字速度、準(zhǔn)確率、成績(jī)的測(cè)試。圖1-1、1-2顯示的是程序運(yùn)行后的外觀圖1-2運(yùn)行時(shí)的“系統(tǒng)設(shè)置”界面圖1-2運(yùn)行時(shí)的“打字測(cè)試”界面首先,現(xiàn)在窗體上添加各種控件,如圖1-3、1-4設(shè)計(jì)屏幕,然后添加程序代碼。在圖1-3的“打字測(cè)試”設(shè)計(jì)界面窗體中,其控件、主要屬性、控件說(shuō)明(一些次要屬性如Height、Width除非特別,否則將不特別說(shuō)明,讀者可以根據(jù)具體情況來(lái)設(shè)定)如下:控件名稱主要控件屬性名稱屬性值功能說(shuō)明Form1C
3、aption打字測(cè)試系統(tǒng)BorderStyle3–FixedDialogStartUpPosition2-屏幕中心CommonDialog名稱dbFileTimer名稱Timer1用于時(shí)間限定和倒計(jì)時(shí)顯示Interval1000名稱Timer2用于在狀態(tài)欄中顯示時(shí)間和日期Interval500SSTabCaption打字測(cè)試ForeColor&H00FF0000&(藍(lán)色)TabOrientation1-ssTabOrientationBottomLabel名稱lblTime顯示倒計(jì)時(shí)計(jì)時(shí)器BackColor淺藍(lán)Borde
4、rStyle1–FixedSingleCaption10:00名稱lblGetText存放測(cè)試內(nèi)容,順序置后BorderStyle1–FixedSingleWordWrapTrue名稱lblWrite指示打入字符的進(jìn)度,順序在lblGetText的前面。BackStyle0–Transpare(透明)BorderStyle1–FixedSingleForeColor&H00FF0000&(藍(lán)色)名稱lblError指示出打錯(cuò)的文本,打?qū)Φ挠每崭裉畛銪adkStyle0–Transpare(透明)BorderStyle1–
5、FixedSingleForeColor&H000000FF&(紅色)名稱lblInfo用來(lái)顯示打字速度以及準(zhǔn)確率等BorderStyle1–FixedSingleTextBox名稱txtGetText用來(lái)輸入字符(漢字)EnabledFalseMultiLineTrueCommandButton名稱cmdStart開(kāi)始測(cè)試按鈕Caption開(kāi)始名稱Command1以打開(kāi)文件方式選取測(cè)試內(nèi)容Caption指定文件名稱CmdExit退出系統(tǒng)Caption退出StatusBar名稱StatusBar1狀態(tài)欄,顯示時(shí)間注:其中
6、,lblGetText、lblWrite、lblError在設(shè)計(jì)時(shí)應(yīng)該在風(fēng)格、位置和大小上一致,運(yùn)行時(shí)也須一致(見(jiàn)相關(guān)代碼)。這里相互錯(cuò)開(kāi),主要是要大家清楚界面的設(shè)計(jì)。圖1-3“打字測(cè)試”設(shè)計(jì)界面在圖1-4的“系統(tǒng)設(shè)置”設(shè)計(jì)界面窗體中,其控件、主要屬性、控件說(shuō)明如下:控件名稱主要控件屬性名稱屬性值功能說(shuō)明SSTabCaption系統(tǒng)設(shè)置ForeColor&H00FF0000&(藍(lán)色)ComboBox名稱cmbSetTime設(shè)定測(cè)試時(shí)間,其值見(jiàn)代碼Text10Frame名稱Frame1Caption測(cè)試時(shí)間設(shè)置Option
7、Button名稱Option1這是控件數(shù)組,用于指定測(cè)試內(nèi)容選擇Label名稱lblTip在“設(shè)置說(shuō)明”框架內(nèi),進(jìn)行各項(xiàng)說(shuō)明圖1-4“系統(tǒng)設(shè)置”設(shè)置界面本系統(tǒng)采用的主要原理:l系統(tǒng)初始化:完成系統(tǒng)的各項(xiàng)初始化。PrivateSubForm_Load()‘使得目標(biāo)文字的各項(xiàng)標(biāo)簽的位置、大小一直lblError.Left=lblGetText.LeftlblError.Top=lblGetText.ToplblError.Height=lblGetText.HeightlblError.Width=lblGetText.Wi
8、dthlblWrite.Left=lblGetText.LeftlblWrite.Top=lblGetText.ToplblWrite.Height=lblGetText.HeightlblWrite.Width=lblGetText.WidthlblWrite.Font.Size=lblGetText.Font.S