C语言程序计算器设计

1、C语言计算器设计 案例二 计算器 #include <dos.h> /*DOS接口函数*/ #include <math.h> /*数学函数的定义*/ #include <conio.h> /*屏幕操作函数*/ #include <stdio.h> /*I/O函数*/ #include <stdlib.h> /*库函数*/ #include <stdarg.h> /*变量长度参数表*/ #include <graphics.h> /*图形函数*/ #include <string.h> /*字符串函

2、数*/ #include <ctype.h> /*字符操作函数*/ #define UP 0x48 /*光标上移键*/ #define DOWN 0x50 /*光标下移键*/ #define LEFT 0x4b /*光标左移键*/ #define RIGHT 0x4d /*光标右移键*/ #define ENTER 0x0d /*回车键*/ void *rar; /*全局变量，保存光标图象*/ struct palettetype palette; /*使用调色板信息*/ int GraphDriver; /* 图形设备驱动*/ int GraphMode; /* 图形模式值*/

3、int ErrorCode; /* 错误代码*/ int MaxColors; /* 可用颜色的最大数值*/ int MaxX, MaxY; /* 屏幕的最大分辨率*/ double AspectRatio; /* 屏幕的像素比*/ void drawboder(void); /*画边框函数*/ void initialize(void); /*初始化函数*/ void computer(void); /*计算器计算函数*/ void changetextstyle(int font, int direction, int charsize); /*改变文本样式函数*/ void mwindo

4、w(char *header); /*窗口函数*/ int specialkey(void) ; /*获取特殊键函数*/ int arrow(); /*设置箭头光标函数*/ /*主函数*/ int main() initialize();/* 设置系统进入图形模式 */ computer(); /*运行计算器 */ closegraph();/*系统关闭图形模式返回文本模式*/ return(0); /*结束程序*/ /* 设置系统进入图形模式 */ void initialize(void) int xasp, yasp; /* 用于读x和y方向纵横比*/ GraphDriver = DET

5、ECT; /* 自动检测显示器*/ initgraph( &GraphDriver, &GraphMode, "" ); /*初始化图形系统*/ ErrorCode = graphresult(); /*读初始化结果*/ if( ErrorCode != grOk ) /*如果初始化时出现错误*/ printf("Graphics System Error: %sn", grapherrormsg( ErrorCode ) ); /*显示错误代码*/ exit( 1 ); /*退出*/ getpalette( &palette )

6、; /* 读面板信息*/ MaxColors = getmaxcolor() + 1; /* 读取颜色的最大值*/ MaxX = getmaxx(); /* 读屏幕尺寸 */ MaxY = getmaxy(); /* 读屏幕尺寸 */ getaspectratio( &xasp, &yasp ); /* 拷贝纵横比到变量中*/ AspectRatio = (double)xasp/(double)yasp;/* 计算纵横比值*/ /*计算器函数*/ void computer(void) struct viewporttype vp; /*定义视口类型变量*/ int colo

7、r, height, width; int x, y,x0,y0, i, j,v,m,n,act,flag=1; float num1=0,num2=0,result; /*操作数和计算结果变量*/ char cnum5,str220="",c,temp20="" char str1="1230.456+-789*/Qc=%"/* 定义字符串在按钮图形上显示的符号 */ mwindow( "Calculator" ); /* 显示主窗口 */ color = 7; /*设置灰颜色值*/ getviewsetting

8、s( &vp ); /* 读取当前窗口的大小*/ width=(vp.right+1)/10; /* 设置按钮宽度 */ height=(vp.bottom-10)/10 ; /*设置按钮高度 */ x = width /2; /*设置x的坐标值*/ y = height/2; /*设置y的坐标值*/ setfillstyle(SOLID_FILL, color+3); bar( x+width*2, y, x+7*width, y+height ); /*画一个二维矩形条显示运算数和结果*/ setcolor( color+3 ); /*设置淡绿颜色边框线*/ rectangle(

9、x+width*2, y, x+7*width, y+height ); /*画一个矩形边框线*/ setcolor(RED); /*设置颜色为红色*/ outtextxy(x+3*width,y+height/2,"0."); /*输出字符串"0."*/ x =2*width-width/2; /*设置x的坐标值*/ y =2*height+height/2; /*设置y的坐标值*/ for( j=0 ; j<4 ; +j ) /*画按钮*/ for( i=0 ; i<5 ; +i ) setfillstyle(SOLID_FILL, co

10、lor); setcolor(RED); bar( x, y, x+width, y+height ); /*画一个矩形条*/ rectangle( x, y, x+width, y+height ); sprintf(str2,"%c",str1j*5+i); /*将字符保存到str2中*/ outtextxy( x+(width/2), y+height/2, str2); x =x+width+ (width / 2) ; /*移动列坐标*/ y +=(height/2)*3; /* 移动行坐标*/ x =2*width-width/2; /*复位列坐标*/ x0=2

11、*width; y0=3*height; x=x0; y=y0; gotoxy(x,y); /*移动光标到x,y位置*/ arrow(); /*显示光标*/ putimage(x,y,rar,XOR_PUT); m=0; n=0; strcpy(str2,""); /*设置str2为空串*/ while(v=specialkey()!=45) /*当压下Alt+x键结束程序，否则执行下面的循环*/ while(v=specialkey()!=ENTER) /*当压下键不是回车时*/ putimage(x,y,rar,XOR_PUT); /*显示光标图象*/ if(v=RIG

12、HT) /*右移箭头时新位置计算*/ if(x>=x0+6*width) /*如果右移，移到尾，则移动到最左边字符位置*/ x=x0; m=0; else x=x+width+width/2; m+; /*否则，右移到下一个字符位置*/ if(v=LEFT) /*左移箭头时新位置计算*/ if(x<=x0) x=x0+6*width; m=4; /*如果移到头，再左移，则移动到最右边字符位置*/ else x=x-width-width/2; m-; /*否则，左移到前一个字符位置*/ if(v=UP) /*上移箭头时新位置计算*/ if(y<=y0) y=y0+4*heig

13、ht+height/2; n=3; /*如果移到头，再上移，则移动到最下边字符位置*/ else y=y-height-height/2; n-; /*否则，移到上边一个字符位置*/ if(v=DOWN) /*下移箭头时新位置计算*/ if(y>=7*height) y=y0; n=0; /*如果移到尾，再下移，则移动到最上边字符位置*/ else y=y+height+height/2; n+; /*否则，移到下边一个字符位置*/ putimage(x,y,rar,XOR_PUT); /*在新的位置显示光标箭头*/ c=str1n*5+m; /*将字符保存到变量c中*/ if(isdi

14、git(c)|c='.') /*判断是否是数字或小数点*/ if(flag=-1) /*如果标志为-1，表明为负数*/ strcpy(str2,"-"); /*将负号连接到字符串中*/ flag=1; /*将标志值恢复为1*/ sprintf(temp,"%c",c); /*将字符保存到字符串变量temp中*/ strcat(str2,temp); /*将temp中的字符串连接到str2中*/ setfillstyle(SOLID_FILL,color+3); bar(2*width+width/2,height/2,15*width/2

15、,3*height/2); outtextxy(5*width,height,str2); /*显示字符串*/ if(c='+') num1=atof(str2); /*将第一个操作数转换为浮点数*/ strcpy(str2,""); /*将str2清空*/ act=1; /*做计算加法标志值*/ setfillstyle(SOLID_FILL,color+3); bar(2*width+width/2,height/2,15*width/2,3*height/2); outtextxy(5*width,height,"0."); /*显

16、示字符串*/ if(c='-') if(strcmp(str2,"")=0) /*如果str2为空，说明是负号，而不是减号*/ flag=-1; /*设置负数标志*/ else num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,""); /*将str2清空*/ act=2; /*做计算减法标志值*/ setfillstyle(SOLID_FILL,color+3); bar(2*width+width/2,height/2,15*width/2,3*height/2); /*画矩形*/ outt

17、extxy(5*width,height,"0."); /*显示字符串*/ if(c='*') num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,""); /*将str2清空*/ act=3; /*做计算乘法标志值*/ setfillstyle(SOLID_FILL,color+3); bar(2*width+width/2,height/2,15*width/2,3*height/2); outtextxy(5*width,height,"0."); /*显示字符串*/ i

18、f(c='/') num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,""); /*将str2清空*/ act=4; /*做计算除法标志值*/ setfillstyle(SOLID_FILL,color+3); bar(2*width+width/2,height/2,15*width/2,3*height/2); outtextxy(5*width,height,"0."); /*显示字符串*/ if(c='') num1=atof(str2); /*将第二个操作数转换为浮点数*

19、/ strcpy(str2,""); /*将str2清空*/ act=5; /*做计算乘方标志值*/ setfillstyle(SOLID_FILL,color+3); /*设置用淡绿色实体填充*/ bar(2*width+width/2,height/2,15*width/2,3*height/2); /*画矩形*/ outtextxy(5*width,height,"0."); /*显示字符串*/ if(c='%') num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,""

20、); /*将str2清空*/ act=6; /*做计算模运算乘方标志值*/ setfillstyle(SOLID_FILL,color+3); /*设置用淡绿色实体填充*/ bar(2*width+width/2,height/2,15*width/2,3*height/2); /*画矩形*/ outtextxy(5*width,height,"0."); /*显示字符串*/ if(c='=') num2=atof(str2); /*将第二个操作数转换为浮点数*/ switch(act) /*根据运算符号计算*/ case 1:result=num1+num

21、2;break; /*做加法*/ case 2:result=num1-num2;break; /*做减法*/ case 3:result=num1*num2;break; /*做乘法*/ case 4:result=num1/num2;break; /*做除法*/ case 5:result=pow(num1,num2);break; /*做x的y次方*/ case 6:result=fmod(num1,num2);break; /*做模运算*/ setfillstyle(SOLID_FILL,color+3); /*设置用淡绿色实体填充*/ bar(2*width+width/2,heig

22、ht/2,15*width/2,3*height/2); /*覆盖结果区*/ sprintf(temp,"%f",result); /*将结果保存到temp中*/ outtextxy(5*width,height,temp); /*显示结果*/ if(c='c') num1=0; /*将两个操作数复位0，符号标志为1*/ num2=0; flag=1; strcpy(str2,""); /*将str2清空*/ setfillstyle(SOLID_FILL,color+3); /*设置用淡绿色实体填充*/ bar(2*width+widt

23、h/2,height/2,15*width/2,3*height/2); /*覆盖结果区*/ outtextxy(5*width,height,"0."); /*显示字符串*/ if(c='Q')exit(0); /*如果选择了q回车，结束计算程序*/ putimage(x,y,rar,XOR_PUT); /*在退出之前消去光标箭头*/ return; /*返回*/ /*窗口函数*/ void mwindow( char *header ) int height; cleardevice(); /* 清除图形屏幕 */ setcolor( MaxColors

24、 - 1 ); /* 设置当前颜色为白色*/ setviewport( 20, 20, MaxX/2, MaxY/2, 1 ); /* 设置视口大小 */ height = textheight( "H" ); /* 读取基本文本大小 */ settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 );/*设置文本样式*/ settextjustify( CENTER_TEXT, TOP_TEXT );/*设置字符排列方式*/ outtextxy( MaxX/4, 2, header ); /*输出标题*/ setviewport( 20,20+he

25、ight+4, MaxX/2+4, MaxY/2+20, 1 ); /*设置视口大小*/ drawboder(); /*画边框*/ void drawboder(void) /*画边框*/ struct viewporttype vp; /*定义视口类型变量*/ setcolor( MaxColors - 1 ); /*设置当前颜色为白色 */ setlinestyle( SOLID_LINE, 0, NORM_WIDTH );/*设置画线方式*/ getviewsettings( &vp );/*将当前视口信息装入vp所指的结构中*/ rectangle( 0, 0, vp.righ

26、t-vp.left, vp.bottom-vp.top ); /*画矩形边框*/ /*设计鼠标图形函数*/ int arrow() int size; int raw=4,4,4,8,6,8,14,16,16,16,8,6,8,4,4,4; /*定义多边形坐标*/ setfillstyle(SOLID_FILL,2); /*设置填充模式*/ fillpoly(8,raw); /*画出一光标箭头*/ size=imagesize(4,4,16,16); /*测试图象大小*/ rar=malloc(size); /*分配内存区域*/ getimage(4,4,16,16,rar); /*存放光标箭

27、头图象*/ putimage(4,4,rar,XOR_PUT); /*消去光标箭头图象*/ return 0; /*按键函数*/ int specialkey(void) int key; while(bioskey(1)=0); /*等待键盘输入*/ key=bioskey(0); /*键盘输入*/ key=key&0xff? key&0xff:key>>8; /*只取特殊键的扫描值，其余为0*/ return(key); /*返回键值*/ 案例三 黑白棋游戏 #include "graphics.h" /*图形系统头文件*/ #define

28、LEFT 0x4b00 /*光标左键值*/ #define RIGHT 0x4d00 /*光标右键值*/ #define DOWN 0x5000 /*光标下键值*/ #define UP 0x4800 /*光标上键值*/ #define ESC 0x011b /* ESC键值*/ #define ENTER 0x1c0d /* 回车键值*/ int a88=0,key,score1,score2;/*具体分数以及按键与存放棋子的变量*/ char playone3,playtwo3;/*两个人的得分转换成字符串输出*/ void playtoplay(void);/*人人对战函数*/ void

29、 DrawQp(void);/*画棋盘函数*/ void SetPlayColor(int x);/*设置棋子第一次的颜色*/ void MoveColor(int x,int y);/*恢复原来棋盘状态*/ int QpChange(int x,int y,int z);/*判断棋盘的变化*/ void DoScore(void);/*处理分数*/ void PrintScore(int n);/*输出成绩*/ void playWin(void);/*输出胜利者信息*/ /*主函数*/ void main(void) int gd=DETECT,gr; initgraph(&gd,

30、&gr,"c:tc"); /*初始化图形系统*/ DrawQp();/*画棋盘*/ playtoplay();/*人人对战*/ getch(); closegraph();/*关闭图形系统*/ void DrawQp()/*画棋盘*/ int i,j; score1=score2=0;/*棋手一开始得分都为0*/ setbkcolor(BLUE); for(i=100;i<=420;i+=40) line(100,i,420,i);/*画水平线*/ line(i,100,i,420); /*画垂直线*/ setcolor(0);/*取消圆周围的一圈东西*/ s

31、etfillstyle(SOLID_FILL,15);/*白色实体填充模式*/ fillellipse(500,200,15,15); /*在显示得分的位置画棋*/ setfillstyle(SOLID_FILL,8); /*黑色实体填充模式*/ fillellipse(500,300,15,15); a33=a44=1;/*初始两个黑棋*/ a34=a43=2;/*初始两个白棋*/ setfillstyle(SOLID_FILL,WHITE); fillellipse(120+3*40,120+3*40,15,15); fillellipse(120+4*40,120+4*40,15,15)

32、; setfillstyle(SOLID_FILL,8); fillellipse(120+3*40,120+4*40,15,15); fillellipse(120+4*40,120+3*40,15,15); score1=score2=2; /*有棋后改变分数*/ DoScore();/*输出开始分数*/ void playtoplay()/*人人对战*/ int x,y,t=1,i,j,cc=0; while(1)/*换棋手走棋*/ x=120,y=80;/*每次棋子一开始出来的坐标,x为行坐标,y为列坐标*/ while(1) /*具体一个棋手走棋的过程*/ PrintScore(1)

33、;/*输出棋手1的成绩*/ PrintScore(2);/*输出棋手2的成绩*/ SetPlayColor(t);/*t变量是用来判断棋手所执棋子的颜色*/ fillellipse(x,y,15,15); key=bioskey(0);/*接收按键*/ if(key=ESC)/*跳出游戏*/ break; else if(key=ENTER)/*如果按键确定就可以跳出循环*/ if(y!=80&&a(x-120)/40(y-120)/40!=1 &&a(x-120)/40(y-120)/40!=2)/*如果落子位置没有棋子*/ if(t%2=1)/*如果是棋手1

34、移动*/ a(x-120)/40(y-120)/40=1; else/*否则棋手2移动*/ a(x-120)/40(y-120)/40=2; if(!QpChange(x,y,t)/*落子后判断棋盘的变化*/ a(x-120)/40(y-120)/40=0;/*恢复空格状态*/ cc+;/*开始统计尝试次数*/ if(cc>=64-score1-score2) /*如果尝试超过空格数则停步*/ MoveColor(x,y); fillellipse(x,y,15,15); break; else continue;/*如果按键无效*/ DoScore();/*分数的改变*/ break;

35、/*棋盘变化了，则轮对方走棋*/ else/*已经有棋子就继续按键*/ continue; else /*四个方向按键的判断*/ if(key=LEFT&&x>120)/*左方向键*/ MoveColor(x,y); fillellipse(x,y,15,15); SetPlayColor(t); x-=40; fillellipse(x,y,15,15); else if(key=RIGHT&&x<400&&y>80)/*右方向键*/ MoveColor(x,y); fillellipse(x,y,15,15); SetPla

36、yColor(t); x+=40; fillellipse(x,y,15,15); else if(key=UP&&y>120)/*上方向键*/ MoveColor(x,y); fillellipse(x,y,15,15); SetPlayColor(t); y-=40; fillellipse(x,y,15,15); else if(key=DOWN&&y<400)/*下方向键*/ MoveColor(x,y); fillellipse(x,y,15,15); SetPlayColor(t); y+=40; fillellipse(x,y,15,1

37、5); if(key=ESC)/*结束游戏*/ break; if(score1+score2)=64|score1=0|score2=0)/*格子已经占满或一方棋子为0判断胜负*/ playWin();/*输出最后结果*/ break; t=t%2+1; /*一方走后，改变棋子颜色即轮对方走*/ cc=0; /*计数值恢复为0*/ /*endwhile*/ void SetPlayColor(int t)/*设置棋子颜色*/ if(t%2=1) setfillstyle(SOLID_FILL,15);/*白色*/ else setfillstyle(SOLID_FILL,8);/*灰色*/

38、void MoveColor(int x,int y)/*走了一步后恢复原来格子的状态*/ if(y<100)/*如果是从起点出发就恢复蓝色*/ setfillstyle(SOLID_FILL,BLUE); else/*其他情况如果是1就恢复白色棋子,2恢复黑色棋子,或恢复蓝色棋盘*/ switch(a(x-120)/40(y-120)/40) case 1: setfillstyle(SOLID_FILL,15);break; /*白色*/ case 2: setfillstyle(SOLID_FILL,8);break; /*黑色*/ default: setfillstyle(SO

39、LID_FILL,BLUE); /*蓝色*/ int QpChange(int x,int y,int t)/*判断棋盘的变化*/ int i,j,k,kk,ii,jj,yes; yes=0; i=(x-120)/40; /*计算数组元素的行下标*/ j=(y-120)/40; /*计算数组元素的列下标*/ SetPlayColor(t);/*设置棋子变化的颜色*/ /*开始往8个方向判断变化*/ if(j<6)/*往右边*/ for(k=j+1;k<8;k+) if(aik=aij|aik=0)/*遇到自己的棋子或空格结束*/ break; if(aik!=0&&

40、k<8) for(kk=j+1;kk<k&&k<8;kk+)/*判断右边*/ aikk=aij; /*改变棋子颜色*/ fillellipse(120+i*40,120+kk*40,15,15); if(kk!=j+1) /*条件成立则有棋子改变过颜色*/ yes=1; if(j>1)/*判断左边*/ for(k=j-1;k>=0;k-) if(aik=aij|!aik) break; if(aik!=0&&k>=0) for(kk=j-1;kk>k&&k>=0;kk-) aikk=aij; fil

41、lellipse(120+i*40,120+kk*40,15,15); if(kk!=j-1) yes=1; if(i<6)/*判断下边*/ for(k=i+1;k<8;k+) if(akj=aij|!akj) break; if(akj!=0&&k<8) for(kk=i+1;kk<k&&k<8;kk+) akkj=aij; fillellipse(120+kk*40,120+j*40,15,15); if(kk!=i+1) yes=1; if(i>1)/*判断上边*/ for(k=i-1;k>=0;k-) if(ak

42、j=aij|!akj) break; if(akj!=0&&k>=0) for(kk=i-1;kk>k&&k>=0;kk-) akkj=aij; fillellipse(120+kk*40,120+j*40,15,15); if(kk!=i-1) yes=1; if(i>1&&j<6)/*右上*/ for(k=i-1,kk=j+1;k>=0&&kk<8;k-,kk+) if(akkk=aij|!akkk) break; if(akkk&&k>=0&&k

43、k<8) for(ii=i-1,jj=j+1;ii>k&&k>=0;ii-,jj+) aiijj=aij; fillellipse(120+ii*40,120+jj*40,15,15); if(ii!=i-1) yes=1; if(i<6&&j>1)/*左下*/ for(k=i+1,kk=j-1;k<8&&kk>=0;k+,kk-) if(akkk=aij|!akkk) break; if(akkk!=0&&k<8&&kk>=0) for(ii=i+1,jj=j

44、-1;ii<k&&k<8;ii+,jj-) aiijj=aij; fillellipse(120+ii*40,120+jj*40,15,15); if(ii!=i+1) yes=1; if(i>1&&j>1)/*左上*/ for(k=i-1,kk=j-1;k>=0&&kk>=0;k-,kk-) if(akkk=aij|!akkk) break; if(akkk!=0&&k>=0&&kk>=0) for(ii=i-1,jj=j-1;ii>k&&k&

45、gt;=0;ii-,jj-) aiijj=aij; fillellipse(120+ii*40,120+jj*40,15,15); if(ii!=i-1) yes=1; if(i<6&&j<6)/* 右下*/ for(k=i+1,kk=j+1;kk<8&&kk<8;k+,kk+) if(akkk=aij|!akkk) break; if(akkk!=0&&kk<8&&k<8) for(ii=i+1,jj=j+1;ii<k&&k<8;ii+,jj+) aiijj=aij

46、; fillellipse(120+ii*40,120+jj*40,15,15); if(ii!=i+1) yes=1; return yes;/*返回是否改变过棋子颜色的标记*/ void DoScore()/*处理分数*/ int i,j; score1=score2=0;/*重新开始计分数*/ for(i=0;i<8;i+) for(j=0;j<8;j+) if(aij=1)/*分别统计两个人的分数*/ score1+; else if(aij=2) score2+; void PrintScore(int playnum)/*输出成绩*/ if(playnum=1)/*清除

47、以前的成绩*/ setfillstyle(SOLID_FILL,BLUE); bar(550,100,640,400); setcolor(RED); settextstyle(0,0,4);/*设置文本输出样式*/ if(playnum=1)/*判断输出哪个棋手的分,在不同的位置输出*/ sprintf(playone,"%d",score1); outtextxy(550,200,playone); else sprintf(playtwo,"%d",score2); outtextxy(550,300,playtwo); setcolor(0);

48、void playWin()/*输出最后的胜利者结果*/ settextstyle(0,0,4); setcolor(12); if(score2>score1)/*开始判断最后的结果*/ outtextxy(100,50,"black win!"); else if(score2<score1) outtextxy(100,50,"white win!"); else outtextxy(60,50,"you all win!"); 案例四 迷宫问题 #include <graphics.h> #include <stdlib.h> #include <stdio.h> #include <conio.h> #include <