同學(xué)的實(shí)訓(xùn)總結(jié)_第1頁(yè)
同學(xué)的實(shí)訓(xùn)總結(jié)_第2頁(yè)
同學(xué)的實(shí)訓(xùn)總結(jié)_第3頁(yè)
同學(xué)的實(shí)訓(xùn)總結(jié)_第4頁(yè)
同學(xué)的實(shí)訓(xùn)總結(jié)_第5頁(yè)
已閱讀5頁(yè),還剩10頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論