visual-basic-計(jì)算器課程設(shè)計(jì)

湖南理工學(xué)院南湖學(xué)院課程設(shè)計(jì)課程名稱: VisualBasic設(shè)計(jì)名稱: 高級(jí)電子計(jì)算器起止時(shí)間: 2013/11/25－2013/12/16系別: 機(jī)械與電子工程系專業(yè): 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)提交日期: 2013/12/16

課題來(lái)源指導(dǎo)教師擬定。設(shè)計(jì)內(nèi)容設(shè)計(jì)一個(gè)具有函數(shù)、統(tǒng)計(jì)功能的高級(jí)計(jì)算器。設(shè)計(jì)思路1、設(shè)計(jì)流程圖：除法除法乘法加法減法清零數(shù)的立方平方根數(shù)的平方數(shù)的階乘三角函數(shù)反三角函數(shù)基本運(yùn)算特殊運(yùn)算數(shù)據(jù)的處理計(jì)算器2、具體思路通過(guò)課堂簡(jiǎn)易計(jì)算器的設(shè)計(jì)和課后的資源共享，實(shí)現(xiàn)了基本的計(jì)算器功能。再此基礎(chǔ)上結(jié)合設(shè)計(jì)流程圖進(jìn)行下一步設(shè)計(jì)。數(shù)的平方、數(shù)的立方設(shè)計(jì)：VisualBasic已存在數(shù)的平方、立方的計(jì)算，直接調(diào)用函數(shù)實(shí)現(xiàn)功能算法。平方根：通過(guò)Sqr直接調(diào)用VisualBasic的語(yǔ)句，實(shí)現(xiàn)平方根的運(yùn)算。三角函數(shù)、反三角函數(shù)：輸入值text1為計(jì)算的角度，然而在VisualBasic中，三角函數(shù)運(yùn)算只能通過(guò)弧度求值。所以，用Text1*pi/180語(yǔ)句將text1轉(zhuǎn)化為弧度。在調(diào)用VisualBasic的函數(shù)進(jìn)行運(yùn)算；反三角函數(shù)功能實(shí)現(xiàn)，直接用1/三角函數(shù)值進(jìn)行運(yùn)算。數(shù)的階乘：運(yùn)用for...next循環(huán)語(yǔ)句，實(shí)現(xiàn)運(yùn)算。代碼如下：Dimp,ip=1Fori=1ToText1p=p*iNextText1.Text=p最后使用大量數(shù)學(xué)算式加以測(cè)試，測(cè)試無(wú)誤后方可投入使用。關(guān)鍵技術(shù)1、三角函數(shù)的功能算法：例如：Sin函數(shù)取一角度為參數(shù)值，并返回角的對(duì)邊長(zhǎng)度除以斜邊長(zhǎng)度的比值。結(jié)果的取值范圍在-1到1之間。

為了將角度轉(zhuǎn)換為弧度，請(qǐng)將角度乘以pi/180。為了將弧度轉(zhuǎn)換為角度，請(qǐng)將弧度乘以180/pi。（注釋：在VisualBasic中，三角函數(shù)運(yùn)算只能通過(guò)弧度求值。所以設(shè)計(jì)計(jì)算器三角函數(shù)鍵時(shí)應(yīng)特別注意，將輸入的Text1的值要轉(zhuǎn)化為弧度，在帶入函數(shù)公式中求值。）數(shù)的階乘的功能算法：運(yùn)用for...next的循環(huán)語(yǔ)句，實(shí)現(xiàn)數(shù)的階乘。設(shè)計(jì)成果成果的形式：(計(jì)算器界面)測(cè)試：(計(jì)算器輸入5，界面顯示)（進(jìn)行5的平方運(yùn)算，結(jié)果顯示）計(jì)算器經(jīng)過(guò)多組數(shù)學(xué)算式加以測(cè)試，無(wú)錯(cuò)誤提醒且結(jié)果無(wú)誤。用法：實(shí)現(xiàn)了基礎(chǔ)的四則運(yùn)算以及復(fù)雜的函數(shù)、統(tǒng)計(jì)運(yùn)算。六、源代碼OptionExplicit'要求聲明變量DimstateAsLong'狀態(tài)標(biāo)志DimnumberAsSingle'數(shù)DimoperatorAsString'運(yùn)算符PrivateSubCommand1_Click()'數(shù)字鍵1SelectCasestateCase0:'初始狀態(tài)Text1.Text=1'顯示屏顯示1state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&1'顯示屏顯示內(nèi)容后接字符1EndSelectEndSubPrivateSubCommand13_Click()'清零鍵Text1.Text=0state=0EndSubPrivateSubCommand19_Click()'sin鍵Constpi=3.1415926'限定變量paiDimMyAngle'定義變量名MyAngle=Text1*pi/180'將所求角度轉(zhuǎn)為弧度Text1.Text=Sin(MyAngle)'顯示結(jié)果EndSubPrivateSubCommand20_Click()'cos鍵Constpi=3.1415926'限定變量paiDimMyAngleMyAngle=Text1*pi/180Text1.Text=Cos(MyAngle)EndSubPrivateSubCommand21_Click()'tan鍵Constpi=3.1415926DimMyAngleMyAngle=Text1*pi/180Text1.Text=Tan(MyAngle)EndSubPrivateSubCommand22_Click()Constpi=3.1415926DimMyAngleMyAngle=Text1*pi/180Text1.Text=1/Sin(MyAngle)EndSubPrivateSubCommand23_Click()Constpi=3.1415926DimMyAngleMyAngle=Text1*pi/180Text1.Text=1/Cos(MyAngle)EndSubPrivateSubCommand24_Click()Constpi=3.1415926DimMyAngleMyAngle=Text1*pi/180Text1.Text=1/Tan(MyAngle)EndSubPrivateSubCommand25_Click()'平方根鍵DimMySqr'定義MySqr=Sqr(Text1)'調(diào)用函數(shù)Text1.Text=MySqrEndSubPrivateSubCommand26_Click()operating'運(yùn)算operator="^3"EndSubPrivateSubCommand27_Click()'1/x鍵DimRes'定義Res=1/Text1'調(diào)用函數(shù)Text1.Text=Res'輸出結(jié)果EndSubPrivateSubCommand28_Click()'階乘鍵Dimp,i'定義p=1Fori=1ToText1p=p*iNext'實(shí)現(xiàn)for..next循環(huán)Text1.Text=p'輸出結(jié)果EndSubPrivateSubCommand4_Click()'數(shù)字鍵2SelectCasestateCase0:'初始狀態(tài)Text1.Text=2'顯示屏顯示2state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&2'顯示屏顯示內(nèi)容后接字符2EndSelectEndSubPrivateSubCommand5_Click()'數(shù)字鍵3SelectCasestateCase0:'初始狀態(tài)Text1.Text=3'顯示屏顯示3state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&3'顯示屏顯示內(nèi)容后接字符3EndSelectEndSubPrivateSubCommand6_Click()'數(shù)字鍵4SelectCasestateCase0:'初始狀態(tài)Text1.Text=4'顯示屏顯示4state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&4'顯示屏顯示內(nèi)容后接字符4EndSelectEndSubPrivateSubCommand7_Click()'數(shù)字鍵5SelectCasestateCase0:'初始狀態(tài)Text1.Text=5'顯示屏顯示5state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&5'顯示屏顯示內(nèi)容后接字符5EndSelectEndSubPrivateSubCommand8_Click()'數(shù)字鍵6SelectCasestateCase0:'初始狀態(tài)Text1.Text=6'顯示屏顯示6state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&6'顯示屏顯示內(nèi)容后接字符6EndSelectEndSubPrivateSubCommand9_Click()'數(shù)字鍵7SelectCasestateCase0:'初始狀態(tài)Text1.Text=7'顯示屏顯示7state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&7'顯示屏顯示內(nèi)容后接字符7EndSelectEndSubPrivateSubCommand10_Click()'數(shù)字鍵8SelectCasestateCase0:'初始狀態(tài)Text1.Text=8'顯示屏顯示8state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&8'顯示屏顯示內(nèi)容后接字符8EndSelectEndSubPrivateSubCommand11_Click()'數(shù)字鍵9SelectCasestateCase0:'初始狀態(tài)Text1.Text=9'顯示屏顯示9state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&9'顯示屏顯示內(nèi)容后接字符9EndSelectEndSubPrivateSubCommand12_Click()'數(shù)字鍵0SelectCasestateCase0:'初始狀態(tài)Text1.Text=0'顯示屏顯示0state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&0'顯示屏顯示內(nèi)容后接字符0EndSelectEndSubPrivateSubCommand17_Click()'小數(shù)點(diǎn)鍵SelectCasestateCase0:'初始狀態(tài)Text1.Text="."'顯示屏顯示0state=1'繼續(xù)輸入數(shù)字狀態(tài)Case1:'繼續(xù)輸入數(shù)字狀態(tài)Text1.Text=Text1.Text&"."'顯示屏顯示內(nèi)容后接字符0EndSelectEndSubPrivateSubCommand2_Click()'功能鍵+operating'運(yùn)算operator="+"EndSubPrivateSubCommand3_Click()'功能鍵=operating'運(yùn)算operator="="EndSubPrivateSubCommand14_Click()'功能鍵-operating'運(yùn)算operator="-"EndSubPrivateSubCommand15_Click()'功能鍵*operating'運(yùn)算operator="*"EndSubPrivateSubCommand16_Click()'功能鍵/operating'運(yùn)算operator="/"EndSubPrivateSubCommand18_Click()operating'運(yùn)算operator="^2"EndSubPrivateSubForm_Load()'窗體裝載事件BorderStyle=4'窗體邊框固定，必須放在其他修改窗體屬性的語(yǔ)句之前Caption="簡(jiǎn)單的計(jì)算器"'窗體標(biāo)題WithText1.Alignment=1'文本框的文本左對(duì)齊.Enabled=False'不允許用戶修改文本框的文本.Text="0"'初始顯示值EndWithCommand1.Caption=1'按鈕的標(biāo)題顯示數(shù)字鍵1Command2.Caption="+"'按鈕的標(biāo)題顯示功能鍵+Command3.Caption="="'按鈕的標(biāo)題顯示功能鍵=EndSubPrivateSuboperating()'運(yùn)算SelectCaseoperator'運(yùn)算符Case"+":number=number+Text1.Text'運(yùn)算Text1.Text=number'顯示屏顯示運(yùn)算結(jié)果Case"-":number=number-Text1.Text'運(yùn)算Text1.Text=number'顯示屏顯示運(yùn)算結(jié)果Case"*":number=number*Text1.Text'運(yùn)