簡單計算器可視化程序編程

1、簡單計算器、基本功能描述二進制、八進制、十進制及十六進制數(shù)的加、減、乘、除、乘方、取模等簡單計科學(xué)計算函數(shù)，包括（反）正弦、（反）余弦、（反）正切、（反）余切、開方、指數(shù)等函數(shù)運行以角度、弧度兩種方式實現(xiàn)上述部分函數(shù)具備歷史計算的記憶功能對不正確的表達式能指出其錯誤原因流程圖輸入數(shù)據(jù)子函數(shù)圖1輸入數(shù)據(jù)子函數(shù)流程圖三、設(shè)計步驟打開MicrosoftVisualC+6.0,在文件中點擊新建，在彈出框內(nèi)選擇MFCAppWizardexe工程，輸入工程名Calculter及其所在位置，點擊確定，如圖3所示。新建團區(qū)文件工程工作區(qū)其它文檔ATLCOMApWiaardClusterRcsourcf?Typ

2、eWizardCustomAppWiz9rd蹄口加baseProjectDevSludioAdd-iiWizard國ExtendedStoredProcWizard,fjlSAPIExtensionWizardMakefile編MFCActiveXConlrolWizard囹MFCAppWizard(dll)MhCAppWiz3rdlexeijNcwDatabaseWizardT|UtilityProject3Win32Application1Win32CunaolcApplicationyWin32Dynamic-LinkLibrayWin32StaticLibrary工程名稱回：|Calc

3、ulator色置理|DiVCCalculator|行創(chuàng)建新的工作空間但）摩加到當(dāng)前工作空間回r從屬干Di：II3平臺舊:Win32圖3新建MFCAppWizardexe工程將彈出MFCAppWizard-step1對話框，選擇基本對話框，點擊完成，如圖4所示。圖4基本對話框這樣，MFCAppWizard就建立了一個基于對話窗口的程序框架，如圖5所示。圖5新建的對話框四、界面設(shè)計1、創(chuàng)建控件在圖5所示的ResoureView選項卡中打開Dialog資源組，雙擊IDD_CALCULATOR_DIALOG在右邊的窗口中顯示出待編輯的對話框。開始擺放控件，包括編輯框和按鈕的創(chuàng)建。按鈕的創(chuàng)建以“1為例進

4、行介紹，其他按鈕的創(chuàng)建可參照此進行操作。1）在圖5中Controls的編輯框”按鈕上單擊鼠標(biāo)左鍵，在對話框編輯窗口上合適的位置按下鼠標(biāo)左鍵并拖動鼠標(biāo)畫出一個大小合適的編輯框。在編輯框上單擊鼠標(biāo)右鍵，在彈出的快捷萊單中選擇屬性選項，此時彈出Edit屬性對話框，如圖6所示，在該對話框中輸入ID屬性。圖6Edit屬性對話框2）在圖3中Controls的"Button按鈕上單擊鼠標(biāo)左鍵，在對話框上的合適的位置上按下鼠標(biāo)左鍵并拖動鼠標(biāo)畫出一個大小合適的下壓式按鈕。在按鈕上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇屬性選項，此時也彈出PushButton屬性對話框，如圖7所示，在該對話框中輸入控件的I

5、D值和標(biāo)題屬性。圖7PushButton屬性按照上面的操作過程編輯其他按鈕和編輯框等對象的屬性。表1各按鈕和編輯框等對象的屬性對象ID標(biāo)題或說明編輯框IDC_DC_EDIT_INPUT結(jié)果顯示按鈕IDC_BUTTON11按鈕IDC_BUTTON22按鈕IDC_BUTTON313按鈕IDC_BUTTON44按鈕IDC_BUTTON55按鈕IDC_BUTTON66按鈕IDC_BUTTON77按鈕IDC_BUTTON88按鈕IDC_BUTTON919按鈕IDC_BUTTON100按鈕IDC_BUTTON11.按鈕IDC_BUTTON121空格按鈕IDC_BUTTON23-按鈕IDC_BUTTON26

6、*按鈕IDC_BUTTON27/按鈕IDC_BUTTON38sqrt按鈕IDC_BUTTON30%按鈕IDC_BUTTON25A按鈕IDC_BUTTON31sin按鈕IDC_BUTTON32cos按鈕IDC_BUTTON33tan按鈕IDCBUTTON34cot按鈕IDCBUTTON40sin1按鈕IDCBUTTON41cos1按鈕IDCBUTTON35log按鈕IDCBUTTON36In按鈕IDC_BUTTON14a按鈕IDCBUTTON15b按鈕IDCBUTTON16c按鈕IDC_BUTTON17d按鈕IDC_BUTTON18e按鈕IDC_BUTTON19f按鈕IDC_BUTTON13退格

7、按鈕IDC_BUTTON37eA按鈕IDC_BUTTON22清空按鈕IDOK計算按鈕IDC_RADIO_DEGREE角度按鈕IDC_RADIO_RADIAN弧度按鈕IDC_STATIC計算結(jié)果按鈕IDC_BTN_HISTREXP歷史表達式按鈕IDCANCEL退出按鈕IDC_BTN_CONVERT進制完成后界面如圖8所小圖8計算器界面五、計算器源程序代碼/Calculation.cpp:implementationoftheCCalculationclass./#include"stdafx.h"#include"Calculator.h"#include

8、"Calculation/"#include"math.h"#ifdef_DEBUG#undefTHIS_FILEstaticcharTHIS_FILE=_FILE_;#definenewDEBUG_NEW#endif# defineFUNCNUM15/函數(shù)個數(shù)# defineCONSTNUM11/常數(shù)個數(shù)# definePI3.14159/Construction/Destruction/CCalculation:CCalculation()初始化函數(shù)和常數(shù)m_bDegree=0;m_nOutputFlag=0;opt0="eA"o

9、pt1="ch"opt2="sqr"opt3="sh"opt4="log"opt5="cos"opt6="sin"opt7="tan"opt8="ln"opt9="abs"opt10="at"opt11="as"opt12="ac"opt13="th"opt14="cot"opt20=w；opt21='/

10、9;opt22='*'opt23='%'opt24='+'opt25='-'m_strConName1="GG"m_strConName2="EF"m_strConName3="VM"m_strConName4="BC"m_strConName5="MG"m_strConName6="GR"m_strConName7="NA"m_strConValue1="9.80665"

11、m_strConValue2="(8.988*10A9)"m_strConValue3="0.02241383"m_strConValue4="(1.380662*10A(-23)”;m_strConValue5="8.3144"m_strConValue6="(6.6720*10A(-11)”;m_strConValue7="(6.022045*10A23)"CCalculation:CCalculation()boolCCalculation:IsDigital(CStringstr)whi

12、le(str.GetAt(0)='-')str.Delete(0);for(inti=0;i<FUNCNUM;i+)if(str.Find(opti)!=-1)return0;for(i=0;i<6;i+)if(str.Find(opt2i)!=-1)return0;return1;CStringCCalculation:NtoS(doubled)intdecimal,sign;char*buffer;buffer=_ecvt(d,16,&decimal,&sign);CStringstr=buffer;if(decimal>=0&&a

13、mp;decimal<=16)str.Insert(decimal,".");elseif(decimal>16)for(inti=str.GetLength();i<decimal;i+)str+="0"str+=".0"elsefor(inti=0;i<-decimal;i+)str.Insert(0,"0");str.Insert(0,".");if(sign=1)str.Insert(0,"-");returnstr;doubleCCalcul

14、ation:StoN(CStringstr)char*stopstring;doublex;x=strtod(str.GetBuffer(0),&stopstring);m_strTmp=stopstring;returnx;CStringCCalculation:TwoE(CStringstrExp)doublex2,y,x1=StoN(strExp);strExp=m_strTmp;charop=strExp.GetAt(0);strExp.Delete(0);x2=StoN(strExp);if(m_strTmp!="")return"ERROR_&

15、quot;+m_strTmp+"未知符號if(op='+')y=x1+x2;elseif(op='*')y=x1*x2;elseif(op='-')y=x1-x2;elseif(op=w)y=pow(x1,x2);elseif(op='/')y=x1/x2;elseif(op='%')y=fmod(x1,x2);elsereturn"ERROR_"+m_strTmp+"未知運算符_"returnNtoS(y);CStringCCalculation:SingleE(

16、CStringop,doubledx)if(op="ln")returnNtoS(log(dx);elseif(op="log")returnNtoS(log10(dx);elseif(op="sqr")returnNtoS(sqrt(dx);elseif(op="eA")returnNtoS(exp(dx);elseif(op="abs")returnNtoS(fabs(dx);elseif(op="ac")returnNtoS(acos(dx);elseif(op=&qu

17、ot;as")returnNtoS(asin(dx);elseif(op="at")returnNtoS(atan(dx);if(m_bDegree)dx=dx*PI/180;if(op="tan")returnNtoS(tan(dx);elseif(op="sin")returnNtoS(sin(dx);elseif(op="cos")returnNtoS(cos(dx);elseif(op="cot")returnNtoS(1/tan(dx);elseif(op="sh&

18、quot;)returnNtoS(sinh(dx);else if(op="ch")returnNtoS(cosh(dx);elseif(op="th")returnNtoS(sinh(dx)/cosh(dx);elseif(op="exp")returnNtoS(pow(10,dx);return"ERROR"+op+"_未知函數(shù)_"intCCalculation:LocateLBra(CStringstrExp)intlen=strExp.GetLength();intpos=-1;for(

19、inti=0;i<len;i+)if(pos>=0&&strExp.GetAt(i)=')')break;if(strExp.GetAt(i)='(')pos=i;returnpos;voidCCalculation:DelBracket(CString*strExp)intpos=LocateLBra(*strExp);inti,len=strExp->GetLength();if(pos=-1)*strExp="ERROR_無效表達式_"return;for(i=pos;i<len;i+)if(st

20、rExp->GetAt(i)=')')break;CStringstr;str=strExp->Mid(pos+1,i-pos-1);MultiE(&str);strExp->Delete(pos,i-pos+1);strExp->Insert(pos,str);voidCCalculation:MultiE(CString*strExp)if(strExp->IsEmpty()*strExp="ERROR_函數(shù)表達式為空_"if(IsDigital(*strExp)return;while(1)/*處理所有的一元運算*

21、/for(inti=0;i<FUNCNUM;i+)intpos=strExp->Find(opti);if(pos!=-1)CStringstr=strExp->Right(strExp->GetLength()-pos-opti.GetLength();doubledx=StoN(str);if(m_strTmp=str)*strExp="ERROR"+str+"_無法識別的函數(shù)_"return;strExp->Delete(pos,strExp->GetLength()-pos);*strExp+=SingleE(

22、opti,dx)+m_strTmp;MinusMinus(strExp);if(pos>=1)charch=strExp->GetAt(pos-1);if(ch>=48&&ch<=57)*strExp="ERROR_缺少二元運算符_"return;break;if(i=FUNCNUM)break;/按運算符優(yōu)先級處理二元運算intpos=-1;while(1)pos=strExp->Find('A');if(pos=-1)break;elseCalcu(strExp,pos);while(1)pos=strExp

23、->Find('/');if(pos=-1)break;elseCalcu(strExp,pos);while(1)pos=strExp->Find('*');if(pos=-1)break;elseCalcu(strExp,pos);while(1)pos=strExp->Find('%');if(pos=-1)break;elseCalcu(strExp,pos);pos=0;if(strExp->GetAt(0)='-'|strExp->GetAt(0)='+')strExp-&

24、gt;Insert(0,"0");while(1)inttmpos=strExp->Right(strExp->GetLength()-pos).Find('-');if(tmpos=-1)break;elsepos+=tmpos;if(pos=0&&strExp->GetAt(pos+1)='-'|pos>0)if(strExp->GetAt(pos+1)='+')strExp->Delete(pos+1);pos=0;continue;/*處理連減（如：1）的情況*/in

25、tnCount=0;while(1)if(+pos>0)if(strExp->GetAt(pos)!='-')break;elsenCount+;elsebreak;if(nCount>0)strExp->Delete(pos-nCount-1,nCount+1);if(nCount%2=0)strExp->Insert(pos-nCount-1,"-");elseif(pos-nCount-1>0)strExp->Insert(pos-nCount-1,"+");pos=0;continue;e

26、lsepos-;/*/if(pos>0&&strExp->GetAt(pos-1)='+')pos+;continue;Calcu(strExp,pos);elsepos+;pos=0;while(1)pos=strExp->Find('+');/inttmpos=strExp->Right(strExp->GetLength()-pos).Find('+');if(pos=-1)break;/elsepos+=tmpos;if(pos=0&&strExp->GetAt(pos+

27、1)='+'|pos>0)/*處理連加（如：+1）的情況*/intnCount=0;while(1)if(+pos>0)if(strExp->GetAt(pos)!='+')break;elsenCount+;elsebreak;if(nCount>0)strExp->Delete(pos-nCount-1,nCount+1);strExp->Insert(pos-nCount-1,"+");pos=0;continue;elsepos-;/*/Calcu(strExp,pos);elsepos+;void

28、CCalculation:Calcu(CString*strExp,intpos)charch;for(intj=pos-1;j>=0;j-)ch=strExp->GetAt(j);if(ch='+'|ch='-'|ch='*'|ch='/'|ch='%'11ch=w)if(j=0&&ch!='-')*strExp="ERROR_缺少參數(shù)_"return;if(j=0&&ch='-')j=-1;/防止把負號誤判為減號el

29、seif(j>0&&ch='-'&&!IsDigital(strExp->Mid(j-1,1)j-;break;for(intk=pos+1;k<strExp->GetLength();k+)ch=strExp->GetAt(k);if(ch='+'|ch='-'|ch='*'|ch='/'|ch='%'11ch=w)if(ch='-'&&k>pos+1)break;if(ch='-'

30、&&k>0&&IsDigital(strExp->Mid(k+1,1)k+;elsebreak;CStringstrExp2=strExp->Mid(j+1,k-j-1);*strExp=strExp->Left(j+1)+TwoE(strExp2)+strExp->Right(strExp->GetLength()-k);if(strExp->Find("#IN")!=-1)*strExp="ERROR_結(jié)果有溢出或值域越界_"return;if(!SynRes(strExp)*

31、strExp="ERROR_缺少運算符_"return;MinusMinus(strExp);CStringCCalculation:MainPro(CStringstrExp)if(strExp.IsEmpty()return"表達式不能為空"Macro(&strExp);*/strExp.MakeLower();/表達式全部小寫/*給表達式加上保護括號strExp.Insert(0,"(");strExp+=")"/*/intpos=strExp.Find("");intn=BraC

32、heck(strExp);CStringstr;str.Format("%d",abs(n);if(n=1)strExp+=")"elseif(n=-1)strExp.Insert(0,"(");elseif(n>0)return"缺少"+str+"個右括號"elseif(n<0)return"缺少"+str+"個左括號"while(pos!=-1)/去掉表達式中的空格符strExp.Delete(pos);pos=strExp.Find(&q

33、uot;");Oct2Dec(&strExp);/將表達式中的八進制數(shù)轉(zhuǎn)換成十進制Hex2Dec(&strExp);/將表達式中的十六進制數(shù)轉(zhuǎn)換成十進制Bin2Dec(&strExp);/將表達式中的二進制數(shù)轉(zhuǎn)換成十進制while(!IsDigital(strExp)DelBracket(&strExp);if(!SynRes(&strExp)returnstrExp;if(!SynRes(&strExp)returnstrExp;elsereturnModiResult(strExp);voidCCalculation:Macro(C

34、String*strExp)intpos;for(inti=0;i<CONSTNUM;i+)pos=strExp->Find(m_strConNamei);while(pos!=-1)strExp->Delete(pos,m_strConNamei.GetLength();strExp->Insert(pos,m_strConValuei);if(pos>=1)charch=strExp->GetAt(pos-1);if(ch>=48&&ch<=57|ch=41)*strExp="缺少二元運算符"return;

35、pos=strExp->Find(m_strConNamei);CStringCCalculation:ModiResult(CStringstrRes)if(strRes.Find("#IN")!=-1)return"結(jié)果有溢出或值域越界"/*去掉保護括號*/if(strRes.GetAt(0)='(')strRes.Delete(0);if(strRes.GetAt(strRes.GetLength()-1)=')')strRes.Delete(strRes.GetLength()-1);/*/intpos=st

36、rRes.Find(".");CStringstr=""if(pos!=-1)if(pos=0)strRes="0"+strRes;elseif(strRes.GetAt(0)='-'&&strRes.GetAt(1)='.')strRes.Insert(1,"0");if(pos>16)strRes.Delete(pos);strRes.Insert(1,".");str.Format("%d",pos-1);str=&

37、quot;E"+str;pos=strRes.Find(".");if(pos=0|pos=1&&strRes.GetAt(0)='0')for(inti=pos+1;i<strRes.GetLength();i+)if(strRes.GetAt(i)!='0')break;if(i>4)str.Format("E-%d",i-2);strRes.Delete(pos,i-1);strRes.Insert(1,".");strRes=strRes.Left(pos+

38、16)+str;/截取小數(shù)點后16位returnstrRes;boolCCalculation:SynRes(CString*strExp)intpos=strExp->Find("ERROR");if(pos!=-1)pos=strExp->ReverseFind('_');strExp->Delete(pos,strExp->GetLength()-pos);pos=strExp->ReverseFind('_');strExp->Delete(0,pos+1);return0;return1;void

39、CCalculation:MinusMinus(CString*strExp)intpos=strExp->Find("-");if(pos!=-1)strExp->Delete(pos,2);strExp->Insert(pos,"+");if(strExp->GetAt(0)='+')strExp->Delete(0);intCCalculation:BraCheck(CStringstr)intlb=0,rb=0,len=str.GetLength();for(inti=0;i<len;i+)if

40、(str.GetAt(i)='(')lb+;elseif(str.GetAt(i)=')')rb+;returnlb-rb;voidCCalculation:Oct2Dec(CString*strExp)intlen,i,index,pos=strExp->Find("xo");CStringstrTmp,strDF;charch;doubledx;while(pos!=-1)dx=0;strTmp=""strDF=""strExp->Delete(pos,2);for(i=pos-1;i&

41、gt;=0;i-)ch=strExp->GetAt(i);if(ch=56|ch=57|ch>=97&&ch<=102)*strExp="ERROR_八進制數(shù)越界_"return;if(ch>=48&&ch<=55|ch=46)strTmp.Insert(0,strExp->Mid(i,1);strExp->Delete(i);elsebreak;if(i=pos-1)*strExp="ERROR_缺少二元運算符_"return;index=i;pos=strTmp.Find(&q

42、uot;.");if(pos!=-1)strDF=strTmp.Right(strTmp.GetLength()-pos-1);strTmp.Delete(pos,strTmp.GetLength()-pos);strTmp.MakeReverse();len=strTmp.GetLength();for(i=0;i<len;i+)ch=strTmp.GetAt(i);dx+=(ch-48)*pow(8,i);len=strDF.GetLength();for(i=0;i<len;i+)ch=strDF.GetAt(i);dx+=(ch-48)*pow(8,-i-1);s

43、trTmp=NtoS(dx);strExp->Insert(index+1,strTmp);pos=strExp->Find("xo");voidCCalculation:Hex2Dec(CString*strExp)intlen,i,index,pos=strExp->Find("xh");CStringstrTmp,strDF;charch;doubledx;while(pos!=-1)dx=0;strTmp=""strDF=""strExp->Delete(pos,2);for(i=p

44、os-1;i>=0;i-)ch=strExp->GetAt(i);if(ch>=48&&ch<=57|ch>=97&&ch<=102|ch=46)strTmp.Insert(0,strExp->Mid(i,1);strExp->Delete(i);elsebreak;if(i=pos-1)*strExp="ERROR_缺少二元運算符_"return;index=i;pos=0;for(i=0;i<strTmp.GetLength();i+)if(strTmp.GetAt(i)='.

45、')pos+;if(pos>1)*strExp="ERROR_缺少二元運算符_"return;pos=strTmp.Find(".");if(pos!=-1)strDF=strTmp.Right(strTmp.GetLength()-pos-1);strTmp.Delete(pos,strTmp.GetLength()-pos);strTmp.MakeReverse();len=strTmp.GetLength();for(i=0;i<len;i+)ch=strTmp.GetAt(i);if(ch>=48&&ch

46、<=57)/該數(shù)在09之間dx+=(ch-48)*pow(16,i);elseif(ch>=97&&ch<=102)/該數(shù)在af之間dx+=(ch-87)*pow(16,i);len=strDF.GetLength();for(i=0;i<len;i+)ch=strDF.GetAt(i);if(ch>=48&&ch<=57)/該數(shù)在09之間dx+=(ch-48)*pow(16,-i-1);elseif(ch>=97&&ch<=102)/該數(shù)在af之間dx+=(ch-87)*pow(16,-i-1);

47、strTmp=NtoS(dx);strExp->Insert(index+1,strTmp);pos=strExp->Find("xh");voidCCalculation:Bin2Dec(CString*strExp)intlen,i,index,pos=strExp->Find("xb");CStringstrTmp,strDF;charch;doubledx;while(pos!=-1)dx=0;strTmp=""strDF=""strExp->Delete(pos,2);for(i=

48、pos-1;i>=0;i-)ch=strExp->GetAt(i);if(ch>=50&&ch<=57|ch>=97&&ch<=102)*strExp="ERROR_二進制數(shù)越界_"return;if(ch='0'|ch='1'|ch=46)strTmp.Insert(0,strExp->Mid(i,1);strExp->Delete(i);elsebreak;if(i=pos-1)*strExp="ERROR_缺少二元運算符_"return;

49、index=i;pos=strTmp.Find(".");if(pos!=-1)strDF=strTmp.Right(strTmp.GetLength()-pos-1);strTmp.Delete(pos,strTmp.GetLength()-pos);strTmp.MakeReverse();len=strTmp.GetLength();for(i=0;i<len;i+)ch=strTmp.GetAt(i);dx+=(ch-48)*pow(2,i);len=strDF.GetLength();for(i=0;i<len;i+)ch=strDF.GetAt(i)

50、;dx+=(ch-48)*pow(2,-i-1);strTmp=NtoS(dx);strExp->Insert(index+1,strTmp);pos=strExp->Find("xb");voidCCalculation:Dec2Hex(CString*strExp/*strExp須為數(shù)字*/)boolbMinus=0;if(strExp->GetAt(0)='-')bMinus=1;strExp->Delete(0);intpos=strExp->Find('.');CStringstr,strDec;int

51、nDecInt;doubledDec;if(pos!=-1)strDec=strExp->Left(pos);nDecInt=atoi(strDec.GetBuffer(0);strDec=strExp->Right(strExp->GetLength()-pos);elsenDecInt=atoi(strExp->GetBuffer(0);strExp->Empty();while(nDecInt!=0)intnTmp=nDecInt%16;if(nTmp=10)str="a"elseif(nTmp=11)str="b"e

52、lseif(nTmp=12)str="c"elseif(nTmp=13)str="d"elseif(nTmp=14)str="e"elseif(nTmp=15)str="f"elsestr.Format("%d",nTmp);nDecInt/=16;strExp->Insert(0,str);*strExp+="."if(pos!=-1)dDec=StoN(strDec);intnCount=0;while(dDec!=0)dDec*=16;intnTmp=dDec;if(nTmp=10)str="a"elseif(nTmp=11)str="b"elseif(nTmp=12)str="c"elseif(nTmp=13)str="d"elseif(nTmp=14)str="e"elseif(nTmp=15)str="f"elsestr.Format("%d",nTmp);*