用c語(yǔ)言編寫(xiě)的計(jì)算器源代碼

1、作品：科學(xué)計(jì)算器 作者：歐宗龍編寫(xiě)環(huán)境：vc+6.0語(yǔ)言：c#include "stdafx.h"#include <stdio.h>#include <windows.h>#include <windowsx.h>#include "resource.h"#include "MainDlg.h"#include <math.h>#include <string.h>#define PI 3.141593BOOL A_Op=FALSE;BOOL WINAPI Main_Pro

2、c(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) switch(uMsg) HANDLE_MSG(hWnd, WM_INITDIALOG, Main_OnInitDialog); HANDLE_MSG(hWnd, WM_COMMAND, Main_OnCommand);HANDLE_MSG(hWnd,WM_CLOSE, Main_OnClose); return FALSE;BOOL Main_OnInitDialog(HWND hwnd, HWND hwndFocus, LPARAM lParam) return TRUE;void

3、TrimNumber(char a)/判斷并刪除小數(shù)點(diǎn)后無(wú)用的零for(unsigned i=0;i<strlen(a);i+)if(ai='.')for(unsigned j=strlen(a)-1;j>=i;j-)if(aj='0')aj='0'else if(aj='.')aj='0'else break;double Operate(char Operator,double n1,double n2) /判斷符號(hào)，進(jìn)行相應(yīng)的運(yùn)算 if(Operator='0')if(Operat

4、or='+')n2+=n1;if(Operator='-')n2=n1-n2;if(Operator='*')n2*=n1;if(Operator='/')n2=n1/n2;if(Operator='')n2=pow(n1,n2);returnn2;/void IntBinary(char a,int n) if(n>1)IntBinary(a,n/2); sprintf(a,"%s%i",a,n%2);void decimal(char a,double m) if(m>0.000

5、001) m=m*2; sprintf(a,"%s%d",a,(long)m); decimal(a,m-(long)m); void Binary(char a,double Num)char DecP256=""double x,y;double *iptr=&y;x=modf(Num,iptr);decimal(DecP,x);IntBinary(a,(int)y);strcat(a,".");strcat(a,DecP);/void Main_OnCommand(HWND hwnd, int id, HWND hwnd

6、Ctl, UINT codeNotify)static DELTIMES=0;static char str256;static char Operator='0'static double RNum3; switch(id) case IDC_BUTTONN1:/數(shù)字1if(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"1"); SetDlgItemText(hwnd,IDC_EDIT,str);RNum1=a

7、tof(str);A_Op=FALSE;break;case IDC_BUTTONN2:/數(shù)字2if(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"2"); SetDlgItemText(hwnd,IDC_EDIT,str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONN3:/數(shù)字3if(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDl

8、gItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"3"); SetDlgItemText(hwnd,IDC_EDIT,str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONN4:/數(shù)字4if(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"4"); SetDlgItemText(hwnd,IDC_EDIT,

9、str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONN5:/數(shù)字5if(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"5"); SetDlgItemText(hwnd,IDC_EDIT,str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONN6:/數(shù)字6if(A_Op)SetDlgItemText(hwnd,IDC_EDIT

10、,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"6"); SetDlgItemText(hwnd,IDC_EDIT,str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONN7:/數(shù)字7if(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"7"); SetDlgItemText(hw

11、nd,IDC_EDIT,str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONN8:/數(shù)字8if(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"8"); SetDlgItemText(hwnd,IDC_EDIT,str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONN9:/數(shù)字9if(A_Op)SetDlgItemText(h

12、wnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"9"); SetDlgItemText(hwnd,IDC_EDIT,str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONN0:/數(shù)字0if(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);strcat(str,"0"); SetDl

13、gItemText(hwnd,IDC_EDIT,str);RNum1=atof(str);A_Op=FALSE;break;case IDC_BUTTONDEL:/小數(shù)點(diǎn).delif(A_Op)SetDlgItemText(hwnd,IDC_EDIT,NULL);GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);if(DELTIMES=0) strcat(str,".");DELTIMES+; SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=FALSE;break;case IDC_BUTTONADD:

14、/加法運(yùn)算RNum1=atof(str);RNum0=RNum1;RNum1=RNum2;RNum2=Operate(Operator,RNum1,RNum0);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);Operator='+'DELTIMES=0;A_Op=TRUE;break;case IDC_BUTTONSUB: /減法運(yùn)算RNum1=atof(str);RNum0=RNum1;RNum1=RNum2;RNum2=Operate(Operator,

15、RNum1,RNum0);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);DELTIMES=0;A_Op=TRUE;Operator='-'break;case IDC_BUTTONMUL: /乘法運(yùn)算RNum1=atof(str);RNum0=RNum1;RNum1=RNum2;RNum2=Operate(Operator,RNum1,RNum0);sprintf(str,"%f",RNum2);TrimNumber(str);SetDl

16、gItemText(hwnd,IDC_EDIT,str);Operator='*'DELTIMES=0;A_Op=TRUE;break;case IDC_BUTTONDIV: /除法運(yùn)算RNum1=atof(str);RNum0=RNum1;RNum1=RNum2;RNum2=Operate(Operator,RNum1,RNum0);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);Operator='/'DELTIMES=0;A_Op=TRU

17、E;break;case IDC_BUTTONXY:/x的y次方GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum1=atof(str);RNum0=RNum1;RNum1=RNum2;RNum2=Operate(Operator,RNum1,RNum0);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);Operator=''DELTIMES=0;break;case IDC_BUTTONPI: /圓周率PI，弧

18、度GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);if(atof(str)!=0)RNum2=atof(str)*PI;sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);elsesprintf(str,"%f",PI);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTONSQRT: /開(kāi)根號(hào)GetDlgItemText(hwnd,IDC_E

19、DIT,str,sizeof(str);RNum2=sqrt(atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTONSIN: /三角函數(shù)sin函數(shù)GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum2=sin(atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText

20、(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTONCOS:/三角函數(shù)cos函數(shù)GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum2=cos(atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTONTAN:/三角函數(shù)tan函數(shù)GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(s

21、tr);RNum2=tan(atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTONSQ: /平方GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum2=atof(str)*atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str)

22、;A_Op=TRUE;break;case IDC_BUTTONCUBE:/三次方GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum2=atof(str)*atof(str)*atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTONEX:/e的x次方GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum2=exp

23、(atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTON10X:/10的x次方GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum2=pow(10,atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;b

24、reak;case IDC_BUTTONLN: /ln x GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum2=log(atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTONLOG10: /log10 GetDlgItemText(hwnd,IDC_EDIT,str,sizeof(str);RNum2=log10(atof(str);sprintf(str,"%f",RNum2);TrimNumber(str);SetDlgItemText(hwnd,IDC_EDIT,str);A_Op=TRUE;break;case IDC_BUTTONBINARY: /十進(jìn)制轉(zhuǎn)換為二進(jìn)制 char a256="