资源描述:
《以钟表的形式实时显示系统时间》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、以钟表的形式实时显示系统时间以钟表的形式实时显示系统时间作者:未知文章来源:中国学习联盟点击数:更新时间:2005-6-7【字体:小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】/*CLOCK.C--以钟表的形式实时显示系统时间*/#include"stdlib.h"#include"conio.h"#include"stdio.h"#include"graphics.h"#include"math.h"#include"dos.h"#defineBB3.14159/180voidInitGr
2、a(void);voidSysTime(intx,inty,intr);intClock(intx,inty,intr);voidClockPict(intx,inty,intr);intmain(void){intx,y,r;/*定义表盘的中心及半径*/x=310;y=240;r=42;InitGra();SysTime(x,y,r);closegraph();return(0);}voidInitGra(void){intGraphDrive=DETECT,GraphMode;registerbgidriv
3、er(EGAVGA_driver);initgraph(&GraphDrive,&GraphMode,"");}voidSysTime(intx,inty,intr)/*表盘中心坐标,半径*/{ClockPict(x,y,r);while((Clock(x,y,r)!=1)&&(!kbhit()));/*钟表运行直到按键为止*/}intClock(intx,inty,intr)/*表盘中心,表盘半径*/{floathr,mt,sd,dh,dm,ds,ds0;inti,Fst=1;unionREGSin,out;
4、setcolor(0);setfillstyle(1,0);pieslice(x,y,0,360,r-11);in.h.ah=0x2c;int86(0x21,&in,&out);hr=out.h.ch;/*时*/mt=out.h.cl;/*分*/sd=out.h.dh;/*秒*/if(hr>12)hr=hr-12;hr=hr+mt/60;dh=270+30*hr;if(dh>360)dh=dh-360;dh=dh*BB;dm=270+6*mt;if(dm>360)dm=dm-360;dm=dm*BB;ds=27
5、0+6*sd;if(ds>360)ds=ds-360;ds=ds*BB;setcolor(15);setlinestyle(0,0,3);line(x,y,x+(r-20)*cos(dh),y+(r-20)*sin(dh));/*画时针*/setlinestyle(0,0,1);line(x,y,x+(r-15)*cos(dm),y+(r-15)*sin(dm));/*画分针*/setwritemode(XOR_PUT);for(i=0;i<300;i++){in.h.ah=0x2c;/*循环内执行秒针的走动*
6、/int86(0x21,&in,&out);sd=out.h.dh;ds=270+6*sd;if(ds>360)ds=ds-360;ds=ds*BB;if(Fst)ds0=ds;setlinestyle(0,0,1);setcolor(12);if(!Fst)line(x,y,x+(r-12)*cos(ds0),y+(r-12)*sin(ds0));/*擦去原秒针*/line(x,y,x+(r-12)*cos(ds),y+(r-12)*sin(ds));/*重画秒针*/ds0=ds;Fst=0;if(kbhit
7、())return(1);/*如果有按键,返回*/elsedelay(100);}}voidClockPict(intx,inty,intr)/*画表盘*/{floataf;inti,Dlt;setwritemode(COPY_PUT);setlinestyle(0,0,1);setcolor(0);setfillstyle(1,0);pieslice(x,y,0,360,r+2);setcolor(14);circle(x,y,r);line(x+r+5,y-2,x+r+10,y-2);line(x+r+5,
8、y+2,x+r+10,y+2);setlinestyle(0,0,3);rectangle(x+r+5,y-6,x+r+10,y+6);circle(x,y,r+5);for(i=0;i<360;i+=30)/*画表的时刻刻度*/{af=i*BB;if(i==0
9、
10、i==90
11、
12、i==180
13、
14、i==270)Dlt=8;/*3,6,9,12点刻度稍长*/elseDlt=5;line(x