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

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

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

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

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

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

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

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

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

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

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

11、，大家都很有成就感，這是我們一步一步設(shè)計(jì)、一步一步完善、辛苦付出后得到的成果。小組合作、幫助隊(duì)友，無(wú)論是團(tuán)隊(duì)合作這方面還是個(gè)人動(dòng)手這方面，我們都得到了很好的鍛煉。當(dāng)然，實(shí)訓(xùn)不僅使我們學(xué)到了知識(shí)，也幫助我們縮小了實(shí)踐和理論的差距，通過(guò)這次實(shí)訓(xùn)，讓我們更深一步的對(duì)Visual Basic這門(mén)課程的知識(shí)有更進(jìn)一步的渴望，同時(shí)對(duì)自己的專(zhuān)業(yè)，對(duì)自己的能力，對(duì)自己所學(xué)的有正確的認(rèn)識(shí)，并且能在以后的學(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 = "一個(gè)雞蛋的溫暖"Open App.Path + "一個(gè)雞蛋的溫暖.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 = "相愛(ài)，不只是一句承諾"Open App.Path + "相愛(ài)，不只是一句承諾.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 '隱藏第一個(gè)窗體Form2.Show '顯示第二

17、個(gè)窗體End SubPrivate Sub Command2_Click()End '退出End SubPrivate Sub Timer1_Timer() '在第一個(gè)窗體上添加一個(gè)打字效果的提示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)入！單擊左下角“開(kāi)始”準(zhǔn)備練習(xí)及測(cè)試！"Command1.Caption = "開(kāi)始"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