同學(xué)的實訓(xùn)總結(jié)VIP

1、江西科技師范學(xué)院 數(shù)學(xué)與計算機(jī)科學(xué)學(xué)院 計算機(jī)科學(xué)與技術(shù)1班Visual Basic程序設(shè)計實訓(xùn)總結(jié) 姓 名 ： 蔣 建 偉前言：隨著科學(xué)技術(shù)的不斷提高，計算機(jī)科學(xué)日漸成熟，計算機(jī)已經(jīng)深入到工作和生活的各個角落，文字錄入是學(xué)習(xí)計算機(jī)非常重要的一部分。在手寫錄入技術(shù)和語音識別技術(shù)還不完善的同時大部分人還在使用鍵盤作為文字錄入的工具。所以我編了這樣一個小程序，同時也是我的畢業(yè)設(shè)計，希望能對電腦初學(xué)者和想提高打字速度的朋友們有所幫助。 計算機(jī)是人類社會20世紀(jì)的重大科技成果之一。自1946年世界第一臺電子數(shù)字計算機(jī)誕生至今，在短短50多年的時間里，計算機(jī)技術(shù)得到了飛速發(fā)展。目前計算機(jī)已廣泛應(yīng)用在工業(yè)

2、，農(nóng)業(yè)，科技，國防，文教，衛(wèi)生，家庭生活等各個領(lǐng)域中，已成為現(xiàn)代人類生活不可缺少的智能工具。二十世紀(jì)的后半期，尤其是90年代后，計算機(jī)取得了飛速的發(fā)展。近來，隨著網(wǎng)絡(luò)的發(fā)展，計算機(jī)已經(jīng)成為人們生活中不可缺少的一部分。提高人們對計算機(jī)的操作能力顯得尤為重要。而打字速度是衡量一個人操作熟練程度的一個重要方面。因此開發(fā)一種高效的打字系統(tǒng)顯得迫在眉睫。而我這次的實訓(xùn)就是利用已學(xué)的編程知識來制作一個相對比較簡單的打字系統(tǒng)。下面就是關(guān)于該次實訓(xùn)的總結(jié)。首先、先介紹一下我的實訓(xùn)內(nèi)容（打字練習(xí)）：用Visual Basic 6.0制作一個程序，它可以打開一個文本文件并讓該文件顯示在某個控件上面、用戶可對照該文

3、件來練習(xí)漢字輸入即練習(xí)打字，結(jié)束時點(diǎn)擊完成后可得出打字速度和正確率并將正確的字與錯誤的字區(qū)分或標(biāo)記出來。 其次、介紹一下該程序開發(fā)工具Visual Basic 6.0：本系統(tǒng)使用的開發(fā)工具是VB6.0，它是目前比較流行的開發(fā)工具。面向?qū)ο蟮某绦蛟O(shè)計Visual Basic6.0它提供了開發(fā)Microsoft Windows應(yīng)用程序的最迅速、最簡捷的方法。不論是Microsoft Windows 應(yīng)用程序的資深專業(yè)開發(fā)人員還是初學(xué)者，Visual Basic6.0都為他們提供了整套工具，以方便開發(fā)應(yīng)用程序。Visual Basic是面向?qū)ο蟪绦蛟O(shè)計的有利工具，它不僅秉承了BASIC的特點(diǎn)，而且為

4、人們揭開了開發(fā)Windows應(yīng)用程序的神秘面紗，有了它、您就能成為Windows環(huán)境下的編程高手。何謂Visual Basic？其中，“Visual”中文意義為“可視化”，它提供了一種創(chuàng)建圖形用戶接口（GUI）的方法。利用這種方法，用戶不必書寫復(fù)雜的描述接口元素外觀和位置的程序代碼，而只需將系統(tǒng)提供的對象放在屏幕上的適當(dāng)位置，并通過屬性窗口進(jìn)行適當(dāng)?shù)脑O(shè)置，即可設(shè)計一個優(yōu)秀的程序界面?！癇asic”指的是BASIC（Beginners A11-Purpose Symbolit Instruction Code）語方，一種在計算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語言。Visual Basic在原有BA

5、SIC編程語言的功能，而初學(xué)者只要掌握幾個關(guān)鍵詞就可以建立實用的應(yīng)用程序。程序的使用方法：打開程序時，可以看到一個進(jìn)入界面（如圖1-1），界面的右邊有一個用打字效果顯示的坐姿注意事項，再者、用戶可以選擇性地打開本地文件或直接打開系統(tǒng)內(nèi)置文件，打開的本地文件是從電腦中選擇txt格式的文章，直接打開的文件有四、三篇難度不同的文章，選擇之后還可以在三篇文章之間隨機(jī)切換；選擇后單擊“確定”后進(jìn)入打字界面（如圖1-2）。進(jìn)入鍵盤打字系統(tǒng)窗口后，之前選擇的文章就會顯示在上面供對照。點(diǎn)擊“開始”打字測試按鈕后，開始打字，打字過程中會顯示打字用時以及進(jìn)度，中途還可以暫停再繼續(xù)。結(jié)束打字時點(diǎn)擊“完成”就會用兩種

6、不同的顏色來區(qū)分并顯示打字的對與錯、速度及準(zhǔn)確率。圖1-1圖1-2實訓(xùn)過程、遇到的問題及心得體會：剛拿到實訓(xùn)題目及要求的時候，我覺得這個很難、也蠻復(fù)雜的，這不就是要我做一個像金山打字那樣的一個程序軟件嘛！最開始覺得它難，還有一個原因就是我們每周做的實驗都相對來說比較簡單。我們每五到六個人一組，我這組有五位同學(xué)。老師的要求就是我們五個人可以討論如何完成這個程序并把它做得更好，但最后我們都要自己完成自己的程序。接下來，我們就開始來完成它了。我作為一名計算機(jī)專業(yè)的學(xué)生，在程序設(shè)計方面，我還并不是很熟悉，還只是個初學(xué)者。這個程序編寫蠻復(fù)雜，工作量比較大，編寫一定要認(rèn)真。一個小小的失誤都可能使程序出現(xiàn)大

7、的漏洞。而我們只是學(xué)了點(diǎn)簡單的Visual Basic程序編寫，還沒有嘗試過這種相對來說比較系統(tǒng)完善的程序。所以在做這個項目的時候，我們倍感壓力、也更加的團(tuán)結(jié)協(xié)作，可即使如此我們還是出現(xiàn)了錯誤、問題，我們的程序在編寫、設(shè)計、思路上或多或少都存在過一些漏洞、不足甚至錯誤，導(dǎo)致調(diào)試時不能正常運(yùn)行、一直報錯，但是后來經(jīng)過老師的指導(dǎo)、我們的討論并做出調(diào)整，終于可以完美的運(yùn)行了。通過老師詳細(xì)的講解、指導(dǎo)，我們按照步驟去做，遇到問題的時候先自己想辦法解決，解決不了的就去問同學(xué)、跟同學(xué)討論，最后問老師，完成的過程中也發(fā)現(xiàn)了許多自己在學(xué)習(xí)方面的不足，取長補(bǔ)短，互相學(xué)習(xí)，共同進(jìn)步，我們不但學(xué)習(xí)了知識，也更好的證

8、明了實踐是檢驗真理的唯一標(biāo)準(zhǔn)。通過這種學(xué)習(xí)，我們收獲很大，學(xué)會了自己解決棘手問題，也知道了團(tuán)結(jié)的力量。經(jīng)過這次的Visual Basic程序設(shè)計的實訓(xùn)，讓我知道了更多的學(xué)習(xí)方法。概括具體如下：(1)保持良好的學(xué)習(xí)心態(tài)：第一，要有自信，自強(qiáng)，積極主動學(xué)習(xí)；第二，克服畏難情緒，樹立學(xué)好程序設(shè)計的信心。(2)要了解概念：VB程序設(shè)計本身并不復(fù)雜，變量，函數(shù)，條件語句，循環(huán)語句等概念較多.要真正能進(jìn)行程序設(shè)計，就要深入理解這些概念.應(yīng)該重視概念的學(xué)習(xí).(3)自己動手編寫程序，親自動手進(jìn)行程序設(shè)計是培養(yǎng)邏輯思維的好方法.因此我們得多動手編寫程序，逐漸提高寫程序的能力.自己動手，編寫一些程序，才會有成就感

9、，進(jìn)而對課程產(chǎn)生興趣，做起來才比較從容.等你在編寫大量程序之后(4)上機(jī)調(diào)試程序應(yīng)注意多問問同學(xué)，多問問老師、，把不懂的地方標(biāo)出來。(5)養(yǎng)成良好的編程習(xí)慣：第一，程序構(gòu)思要有說明;第二，學(xué)會如何調(diào)試程序; 第三，對運(yùn)行結(jié)果要做正確與否的分析。但是，如果以前上課的時候不認(rèn)真聽講的話，做這個程序設(shè)計就會有點(diǎn)困難，所以，同時也在提醒我們，學(xué)習(xí)，任何時候都要認(rèn)真！總之，在此次的Visual Basic程序設(shè)計中，如果沒有足夠的耐心，就不可能完成的很好。所以此次Visual Basic程序設(shè)計，讓我做事情更加有耐心，更加細(xì)心，學(xué)習(xí)更加認(rèn)真仔細(xì)。 在整個實訓(xùn)過程中，老師對我們親切、認(rèn)真、負(fù)責(zé)，很有耐心地

10、對我們進(jìn)行講解并指導(dǎo)我們解決遇到的難題。老師交會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整地完成一個模塊，首先要進(jìn)行程序的設(shè)計，全面分析會用到的東西以及考慮可能會出現(xiàn)的情況，理清思緒、寫出大致的要點(diǎn)后再上機(jī)編寫程序以及操作。否則像一開始的我們馬上上機(jī)編寫、想到什么就補(bǔ)什么，不僅浪費(fèi)時間也亂了之前寫好的一些程序。系統(tǒng)分析越準(zhǔn)確，設(shè)計的系統(tǒng)越精確，可以大大減少后期的修改、維護(hù)工作。當(dāng)然做好、做對一個項目固然重要，同時美觀程度也是必不可少的，無論是從參觀者的角度還是自己看的角度都很重要。所以后期我們都給自己的程序加了一個很漂亮的進(jìn)入界面?？偟膩碚f，這次實訓(xùn)、還是比較成功的。最后出來的系統(tǒng)

11、，大家都很有成就感，這是我們一步一步設(shè)計、一步一步完善、辛苦付出后得到的成果。小組合作、幫助隊友，無論是團(tuán)隊合作這方面還是個人動手這方面，我們都得到了很好的鍛煉。當(dāng)然，實訓(xùn)不僅使我們學(xué)到了知識，也幫助我們縮小了實踐和理論的差距，通過這次實訓(xùn)，讓我們更深一步的對Visual Basic這門課程的知識有更進(jìn)一步的渴望，同時對自己的專業(yè)，對自己的能力，對自己所學(xué)的有正確的認(rèn)識，并且能在以后的學(xué)習(xí)工作中不斷提高和完善自己。附-程序代碼：Form1:Option ExplicitDim ss As StringDim sp As IntegerDim cs As StringPrivate Sub Fo

12、rm_Load()Dim s As String, nl As String * 2Text1.Text = ""ss = ""sp = 0nl = Chr$(13) & Chr(10)Open App.Path + "20101988.txt" For Input As #2While Not EOF(2) Line Input #2, s ss = ss & s & nlWendClose #2End SubPrivate Sub Option1_Click()Form2.Label6.Caption =

13、""Form2.Label4.Caption = "一個雞蛋的溫暖"Open App.Path + "一個雞蛋的溫暖.txt" For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option2_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "跳下懸崖找活路

14、"Open App.Path + "跳下懸崖找活路.txt" For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option3_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "相愛，不只是一句承諾"Open App.Path + "相愛，不只是一句承諾.txt&qu

15、ot; For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option4_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "本地文章"CommonDialog1.Filter = "文本文件*txt/*.txt"CommonDialog1.InitDir = "桌面:"

16、;CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenOpen Me.CommonDialog1.FileName For Input As #1Do While Not EOF(1) Line Input #1, cs Form2.Label6.Caption = Form2.Label6.Caption + Trim(cs) + Chr(13) + Chr(10)LoopClose #1End SubPrivate Sub Command1_Click()Form1.Hide '隱藏第一個窗體Form2.Show '顯示第二

17、個窗體End SubPrivate Sub Command2_Click()End '退出End SubPrivate Sub Timer1_Timer() '在第一個窗體上添加一個打字效果的提示Dim sw As String, curx As Single, cury As Singlecurx = Picture1.CurrentXcury = Picture1.CurrentYPicture1.Line (curx, cury)-(curx + 300, cury + 300), Picture1.BackColor, BFPicture1.CurrentX = cur

18、xPicture1.CurrentY = curysp = sp + 1If sp > Len(ss) Then Timer1.Enabled = FalseElse sw = Mid(ss, sp, 1) If Asc(sw) = 13 Then Picture1.Print "" sp = sp + 1 sw = Mid(ss, sp, 1) Else Picture1.Print sw; End If curx = Picture1.CurrentX cury = Picture1.CurrentY Picture1.Line (curx + 20, cury

19、+ 230)-(curx + 120, cury + 240), QBColor(10), BF Picture1.CurrentX = curx Picture1.CurrentY = curyEnd IfEnd SubForm2:Option ExplicitDim m, n, t, i As IntegerPrivate Sub Form_Load()Label5.Caption = Form1.Text1.Text & "你好，歡迎進(jìn)入！單擊左下角“開始”準(zhǔn)備練習(xí)及測試！"Command1.Caption = "開始"End SubPri

20、vate Sub RichTextBox1_Change()ProgressBar1.Max = Len(Label6.Caption)ProgressBar1.Min = 0ProgressBar1.Value = Len(RichTextBox1.Text)Label8.Caption = Format(Len(RichTextBox1.Text) / Len(Label6.Caption), "0.00%")End SubPrivate Sub Timer1_Timer()t = t + 1Text3.Text = Int(t / 60) & "分&

21、quot; & t Mod 60 & "秒"End SubPrivate Sub Command1_Click()RichTextBox1.Locked = Falsem = m + 1If m Mod 2 = 1 Then RichTextBox1.SetFocus: Timer1.Enabled = True: Command1.Caption = "暫停"If m Mod 2 = 0 Then Timer1.Enabled = False: Command1.Caption = "繼續(xù)": RichTextBox1.Locked = TrueEnd SubPrivate Sub Command2_Click()For i = 1 To Len(RichTextBox1.Text)I