vb課設計程簡易計算器說明書

1、交通與汽車工程學院課程設計說明書課 程 名 稱: 程序設計基礎課程設計 課 程 代 碼: 8234580 題 目: 簡易計算器程序設計 年級/專業(yè)/班: 2009級/熱能與動力工程（汽車發(fā)動機）/ 3班 學 生 姓 名: 魏學行 學 號:開 始 時 間: 2010 年 4 月 26 日完 成 時 間: 2010 年 5 月 21 日課程設計成績：學習態(tài)度及平時成績（30）技術水平與實際能力（20）創(chuàng)新（5）說明書（計算書、圖紙、分析報告）撰寫質量（45）總 分（100）指導教師簽名： 年 月 日目 錄摘要 - 2 -1 引言 - 3 -1.1 選題背景 - 3 -1.2 任務與分析 - 3 -

2、2 方案設計 - 4 -3 界面設計 - 4 -4 代碼設計及程序調試 - 5 -5 軟件使用說明 - 6 -總結與體會 - 12 -致謝 - 14 -參考文獻 - 15 -摘 要 隨著計算機的不斷更新發(fā)展,計算器扮演著極為重要的角色， Windows環(huán)境下的Visual Basic提供了豐富的圖形功能。本文主要通過對方案設計、界面設計、代碼編寫及調試以及軟件使用說明等的介紹，介紹了作者利用Visual Basic對“簡易計算器”應用軟件的開發(fā)設計過程，并分析了所開發(fā)軟件系統(tǒng)的優(yōu)點和不足。關鍵詞：Visual Basic 簡易計算器 程序設計 1 引 言 1.1 選題背景 通過一年來對Visu

3、al Basic 高級語言程序設計的學習，我已經(jīng)掌握了一些常用的控件的使用方法，對簡單的程序設計的常用算法也有了一定的了解，還掌握了對圖形和動畫的一些基本操作。為了進一步加深理解、驗證、鞏固課堂教學內容，加深對可視化編程思想的理解，強化Visual Basic對程序流程控制、常用控件的屬性、事件、方法的理解和使用；為了進一步提高編程能力、程序的調試能力，理論聯(lián)系實際的能力；鞏固所學的這些程序設計的方法，為了達到后續(xù)課程對實際編程計算能力的要求，特選定“簡易計算器”這個小題目作為課程設計實踐教學環(huán)節(jié)的題目，有助于培養(yǎng)綜合運用所學知識解決實際問題的能力，可以充分發(fā)揮想象力和創(chuàng)新能力；有助于提高獨立

4、思考能力，和自學能力。1.2 任務與分析 本軟件應具有運算加減乘除四則基本運算，其中涉及到了VB的很多知識點，例如：在界面設計中應熟悉掌握各個控件的屬性，各種循環(huán)語句，選擇語句，控件組等等。有助于培養(yǎng)綜合運用所學知識解決實際問題的能力，可以充分發(fā)揮想象力和創(chuàng)新能力；有助于提高獨立思考能力，和自學能力。2 方案設計 本軟件按照一般計算器的界面以及功能設計，具有最為基礎的加減乘除四則運算。先建立一個新的項目文件，里面包含一個Form1的窗體。然后，添加控件，包括一個Text框（Text1）。一個控件數(shù)組，包含17個按鈕，這17個按鈕使用的名稱都是Command1，只是Index屬性不同。按下數(shù)字鍵

5、在液晶屏上會出現(xiàn)數(shù)字，這是最基本的功能。第一次按下運算鍵，再按下數(shù)字鍵，將重新輸入第二個數(shù)字，再次按下運算鍵，將算出前兩個數(shù)的結果，然后按下數(shù)字鍵，將又重新輸入新的數(shù)字。輸入數(shù)字后，按下“等于鍵”將仍輸出原來的數(shù)字，輸入運算符和第二個數(shù)字后在按下“等于”，將得到二者的結果。然后又重復第二、三步。 按下“清除”，數(shù)據(jù)被全部清除。所以還將運用到賦值。3 界面設計控件名稱屬性控件名稱屬性控件名稱屬性Command1(00Command1(11Command1(22Command1(33Command1(44Command1(55Command1(66Command1(77Command1(88Com

6、mand1(88Command1(10.Command1(11=Command1(12+Command1(13-Command1(14*Command1(15/Command1(16ACText1“”Image4 代碼設計及程序調試1. 先在General里聲明窗體級全局變量： Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean '判斷是否是數(shù)字開頭2. 字符型變量轉變?yōu)閷嵭妥兞恳驗門ext1里是存放字符串的，所以要把輸入的數(shù)據(jù)進行運算，必須把字符型變量轉變?yōu)閷嵭妥兞?，分別用Num1

7、、Num2和StrNum1、StrNum2進行存放。 在Form_Load事件里給變量初賦值： Num1 = 0Num2 = 0StrNum1 = ""StrNum2 = ""FirstNum = True3. Select Case語句區(qū)分各個按鈕因為17個按鈕使用的是同一事件，所以我們用一個Select Case語句區(qū)分各個按鈕，雙擊任意按鈕輸入代碼： Private Sub Command1_Click(Index As IntegerSelect Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str

8、(Index實型轉字符型FirstNum = False初賦值為假Else非初賦值StrNum1 = StrNum1 + Str(IndexEnd IfText1.Text = StrNum1顯示<還有其他語句，等待插入>End SelectEnd Sub4. 處理小數(shù)點。 在General里聲明新的變量： Dim PointFlag As Boolean '判斷是否已有小數(shù)點在Form_Load里進行初賦值：PointFlag = False在Command的單擊事件里接著上面輸入新的代碼：Case 10If Not PointFlag Then如果沒有小數(shù)點If Fir

9、stNum Then如果是第一個字符StrNum1 = "0."FirstNum = FalseElseStrNum1 = StrNum1 + "."End IfElse已有小數(shù)點Exit Sub則退出單擊事件End IfPointFlag = TrueText1.Text = StrNum15. 處理四則運算：先在General里聲明新變量：Dim Runsign As Integer '儲存運算符號Dim SignFlag As Boolean '判斷是否已有運算符號然后在Form_Load中進行初賦值：Runsign = 0Sign

10、Flag = False在接下的Command1_Click中繼續(xù)輸入代碼：Case 12 To 15FirstNum = True使下一次可以輸入新數(shù)據(jù)PointFlag = False'還原標記值If SignFlag Then前面已有運算符未運算Call RunElseSignFlag = TrueStrNum2 = StrNum1把字符串1復制給字符串2StrNum1 = ""字符串1清空End IfRunsign = Index - 11 儲存鍵入的運算符里面運算的部分我用了一個過程，是因為在按下等號時還會調用到運算過程，這樣可以減少代碼的輸入，也使程序便

11、于瀏覽。建立過程（Procedure），可以在General部分直接輸入，也可以通過菜單里的“Add Procedure”添加。Run的代碼如下：Sub Run(Num1 = Val(StrNum2Num2 = Val(StrNum1Select Case RunsignCase 1加equal = Num1 + Num2Case 2減equal = Num1 - Num2Case 3乘equal = Num1 * Num2Case 4除equal = Num1 / Num2End SelectStrNum2 = Str(equalStrNum1 = StrNum2Text1.Text = S

12、trNum2End Sub6. 下面是其余的代碼：（在Command1_Click事件里，接著寫Case 11If Not SignFlag ThenText1.Text = StrNum1equal = Val(StrNum1FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd IfCase Else清除按鈕Call ClearData里面又用到了一個ClearData過程，實際上就是Form_Load里的變量初賦值，代碼如下：Sub ClearData(Num1 = 0Num2 = 0StrNum1 = "

13、"StrNum2 = ""FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = FalseText1.Text = "0."End Sub下面給出完整的程序代碼：Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean '判斷是否是數(shù)字開頭Dim PointFlag As Boolean '判斷是否已有小數(shù)點Dim Runsign As Integer '儲存運算符號Di

14、m SignFlag As Boolean '判斷是否已有運算符號Sub ClearData(Num1 = 0Num2 = 0StrNum1 = ""StrNum2 = ""FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = FalseText1.Text = "0."End SubSub Run(Num1 = Val(StrNum2Num2 = Val(StrNum1Select Case RunsignCase 1equal = Num1 + Num2Case 2eq

15、ual = Num1 - Num2Case 3equal = Num1 * Num2Case 4equal = Num1 / Num2End SelectStrNum2 = Str(equalStrNum1 = StrNum2Text1.Text = StrNum2End SubPrivate Sub Command1_Click(Index As IntegerSelect Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(IndexFirstNum = FalseElseStrNum1 = StrNum1 + Str(IndexEnd I

16、fText1.Text = StrNum1Case 10If Not PointFlag ThenIf FirstNum ThenStrNum1 = "0."FirstNum = FalseElseStrNum1 = StrNum1 + "."End IfElseExit SubEnd IfPointFlag = TrueText1.Text = StrNum1Case 12 To 15FirstNum = TruePointFlag = False'還原標記值If SignFlag ThenCall RunElseSignFlag = True

17、StrNum2 = StrNum1StrNum1 = ""End IfRunsign = Index - 11Case 11If Not SignFlag ThenText1.Text = StrNum1equal = Val(StrNum1FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd IfCase ElseCall ClearDataEnd SelectEnd SubPrivate Sub Form_Load(Call ClearDataEnd Sub5 軟件使用說明本軟件使用十分簡單，按照

18、普通計算器的使用方法即可。先按下需要計算的第一個數(shù)字，再按下運算符號，再按下第二個計算數(shù)字，最后按下等號即可得到運算結果?？偨Y與體會本段具體內容為本次課程設計整體上的總結與體會，可包含所設計軟件的優(yōu)點和不足的分析，遇到的困難及解決方法等。例如：在這個系統(tǒng)課設創(chuàng)作的過程中，我學會了基本的VB編程技能，對軟件制作也有了初步的了解。同時也遇到了種種困難，體驗到了編程的艱辛。在實現(xiàn)“車次查詢”的過程中，語句格式不清楚，無法與數(shù)據(jù)庫實現(xiàn)鏈接。點擊“查詢”后，無法顯示車站序列名。后來，我們通過相互討論及查詢相關資料，細心檢查語句。不斷使邏輯和格式趨于完善。最終，問題得以解決。軟件的制作是一件辛苦而費力的工

19、作，但在老師和同學的幫助下，我不但按時完成，而且從中學到了許多課本上沒有的東西，首先是團隊的合作精神。現(xiàn)代軟件的制作不是一個人可以完成的，個人始終需要集體的支持。在遇到困難時，大家集中在一起進行分析討論，共同解決。其次是學習與實踐的關系。在課本上學到了VB程序的基礎知識。但在實踐中，需要大量的拓展知識。我們在理解書本知識的基礎上，查閱了大量的書籍，不僅找到了問題的解決方法，而且優(yōu)中取優(yōu)，盡量選取最簡方法，從而促進了我們VB知識的提高。或者：在設計過程中，我通過查閱大量有關資料，與同學交流經(jīng)驗和自學，并向老師請教等方式，使自己學到了不少知識，也經(jīng)歷了不少艱辛，但收獲同樣巨大。在整個設計中我懂得了許多東西，大大提高了自己的動手能力，使我充分體會到了在創(chuàng)造過程中探索的艱難和成功時的喜悅。雖然這個設計做的也不太好，但是在設計過程中所學到的東西是這次畢業(yè)設計的最大收獲和財富，使我終身受益。當然，我也深刻地體會到從理論到實踐是很難的過程，每一個參數(shù)的選擇都需要仔細地思考，稍微差一點就會使計算的結果相差很遠。還有就是在編程的過程中，需要學習很多以前沒有學過的有關知識。在設計中會遇到很多