vb科學(xué)計(jì)算器

1、常工院 vb計(jì)算器課程設(shè)計(jì)報(bào)告課 程 設(shè) 計(jì) 指 導(dǎo) 書課 程 vb計(jì)算器程序設(shè)計(jì) 班 級(jí) 姓 名 學(xué) 號(hào) 目錄一 功能描述.3二 概要設(shè)計(jì)及設(shè)計(jì)流程框圖.3三 詳細(xì)設(shè)計(jì).3四 效果及運(yùn)行界面圖.4五 心得體會(huì).4六 附錄.6七 參考文獻(xiàn).6八 本人在改組中完成的部分.7九 進(jìn)度安排.7一、功能描述：窗體通過(guò)窗體命令按鈕或鍵盤輸入數(shù)字實(shí)現(xiàn)基本的數(shù)學(xué)運(yùn)算，使用窗體的功能按鈕計(jì)算某些特殊函數(shù)二、概要設(shè)計(jì)及設(shè)計(jì)流程框圖：使用vb設(shè)計(jì)科學(xué)型計(jì)算器，功能介于科學(xué)型和簡(jiǎn)單型之間,要求能進(jìn)行加、減、乘、除和開方、乘方、對(duì)數(shù)、三角函數(shù)計(jì)算,可以存儲(chǔ)與調(diào)出數(shù)據(jù)。在這個(gè)計(jì)算器的程序中，我用到了單行選擇語(yǔ)句if t

2、hen else,if語(yǔ)句的嵌套，多條件選擇語(yǔ)句select case?？茖W(xué)計(jì)算器數(shù)據(jù)的處理保存調(diào)出清除特殊運(yùn)算功能階乘平方對(duì)數(shù)三角函數(shù)開方基本運(yùn)算+*/三、詳細(xì)設(shè)計(jì)：本系統(tǒng)1個(gè)文本框，數(shù)個(gè)命令按鈕，數(shù)個(gè)數(shù)字按鈕用文本框顯示輸入的數(shù)字并將結(jié)果顯示在文本框中，用命令按鈕來(lái)計(jì)算和輸入數(shù)字。詳細(xì)內(nèi)容： command12(0-9)為數(shù)字的控件數(shù)組，command13(4-11)為功能函數(shù)的控件數(shù)組，command13(0-3)為運(yùn)算符的控件數(shù)組，command25為小數(shù)點(diǎn)按鈕，command26為等號(hào)按鈕，command1為開關(guān)按鈕，command2為清除按鈕。四、效果及運(yùn)行界面：基本能完成所有運(yùn)算

3、五、心得體會(huì) 為期一周的實(shí)訓(xùn)即將結(jié)束，通過(guò)這次的實(shí)訓(xùn)使我們學(xué)到了很多，同時(shí)也讓我們意識(shí)到我們要學(xué)的更多。本次實(shí)訓(xùn)的內(nèi)容是科學(xué)計(jì)算器的程序設(shè)計(jì)，以小組的形式進(jìn)行分工合作，我組共4個(gè)人，從程序的需求分析、可行性分析、設(shè)計(jì)到編寫、調(diào)試、修改、完善、到最后的實(shí)訓(xùn)報(bào)告，每個(gè)人都付出了時(shí)間和精力去做好自己的任務(wù)并努力地去完善它。實(shí)訓(xùn)的第一天接到任務(wù)時(shí)我們都覺得有點(diǎn)難度，很有挑戰(zhàn)性，畢竟計(jì)算器是一個(gè)比較系統(tǒng)、完善、功能相對(duì)較齊全的計(jì)算程序，因此程序編寫也十分復(fù)雜，工作量較大，編寫一定要認(rèn)真。一個(gè)小小的失誤都可能使程序出現(xiàn)大的漏洞。而我們只是學(xué)了點(diǎn)簡(jiǎn)單的vb程序編寫，沒有嘗試過(guò)這種相對(duì)來(lái)說(shuō)比較系統(tǒng)完善的系統(tǒng)。

4、所以在做項(xiàng)目的時(shí)候我們倍感壓力、更加的團(tuán)結(jié)協(xié)作，可即使如此我們還是出現(xiàn)了錯(cuò)誤，我們的程序在編寫上存在一些漏洞，導(dǎo)致調(diào)試時(shí)不能正常運(yùn)行，后經(jīng)過(guò)老師的指導(dǎo)、我們的調(diào)整，終于可以完美的運(yùn)行，這里也耽誤了我們很多寶貴的時(shí)間，直接導(dǎo)致了我們?cè)陧?xiàng)目調(diào)試上速度不夠快?？偟膩?lái)說(shuō)，這次實(shí)訓(xùn)還是比較成功的。最后出來(lái)的系統(tǒng)，大家都很有成就感，這是我們一步步設(shè)計(jì)、一步步完善、辛苦付出后得到的成果。小組合作、幫助隊(duì)友，無(wú)論是團(tuán)隊(duì)合作這方面還是個(gè)人動(dòng)手這方面，我們都得到了很好的鍛煉。當(dāng)然實(shí)訓(xùn)不僅使我們學(xué)到了知識(shí)，也幫助我們縮小了實(shí)踐和理論的差距，通過(guò)這次實(shí)訓(xùn)讓我們更深一步的對(duì)vb這門課程的知識(shí)有更進(jìn)一步的渴望，同時(shí)對(duì)自己

5、的專業(yè)，對(duì)自己的能力，對(duì)自己所學(xué)的有正確的認(rèn)識(shí)，并且能在以后的學(xué)習(xí)工作中不斷提高和完善自己。 六、附錄：數(shù)字private sub command12_click(index as integer)num = num + command12(index).captiontext1.text = numend sub小數(shù)點(diǎn)private sub command25_click()if instr(num, ".") <> 0 thenexit subelsenum = num + "."end iftext1.text = sumend sub

6、對(duì)數(shù) 開方 平方 階乘 三角函數(shù) 加減乘除 private sub command13_click(index as integer)if text1.text <> "" thennum1 = numtext1.text = ""num = "" '清空所有記錄，并保存輸入數(shù)end ifop = command13(index).captionend sub開關(guān)private sub command1_click()if command1.caption = "no" thencommand1

7、.caption = "off"command2.enabled = trueelsecommand1.caption = "no"end ifend sub清除private sub command2_click()text1.text = ""num = ""num1 = ""end sub等于號(hào)private sub command26_click()select case opcase "+"sum = cstr(val(num1) + val(num)case &q

8、uot;-"sum = val(num1) - val(num)case "×"sum = val(num1) * val(num)case "÷"if num = "0" thenmsgbox "除數(shù)不能為零,請(qǐng)重新輸入"num = ""elsesum = val(num1) / val(num)end ifcase "in"sum = log(val(num1)case "exp"sum = exp(num1)case &

9、quot;sqr"sum = sqr(num1)case "sinx"sum = sin(num * 3.141592654 / 180)case "cosx"sum = cos(num * 3.141592654 / 180)case "tanx"sum = tan(num * 3.141592654 / 180)case "x2"sum = num * numcase "!"sum = num1for i = 1 to num1 - 1sum = sum * (num1 - i)n

10、ext iend selecttext1.text = sumend sub七、參考文獻(xiàn)1visual basic6.0編程案例精解 張路平 電子出版社2visual basic程序設(shè)計(jì)王學(xué)軍 中國(guó)鐵道出版社3計(jì)算機(jī)軟件技術(shù)基礎(chǔ)徐士良 葛兵 清華大學(xué)出版社4visual basic 程序設(shè)計(jì)上機(jī)指導(dǎo)與習(xí)題解答、visual basic程序設(shè)計(jì) 機(jī)械工業(yè)出版社5visual basic程序設(shè)計(jì)北京郵電大學(xué)出版社6visual basic程序設(shè)計(jì)完全自學(xué)手冊(cè)人民郵電出版社 7百度文庫(kù)vb計(jì)算器。 八、本人在該組中完成的部分： 查閱資料，設(shè)計(jì)計(jì)算器界面，編寫vb的三角函數(shù)，開方，平方，對(duì)數(shù)。九、進(jìn)度