c语言实现的时钟.docxVIP

  • 5
  • 0
  • 约3.55千字
  • 约 4页
  • 2023-05-12 发布于上海
  • 举报
C 语言控制台时钟 环境:vc6.0 Windows all /* Clock.c */ #includewindows.h #includestdio.h #includemath.h #includetime.h CONSOLE_SCREEN_BUFFER_INFO csbiInfo; extern WINBASEAPI HWND WINAPI GetConsoleWindow(); time_t T; struct tm * now; int min,sec; float hour; void ti(){ time ( T ); now = localtime ( T ); hour=now-tm_hour%12; min=now-tm_min-15; sec=now-tm_sec-15; } void main() { float a,b,c; float x=0,y=0,ex=400,ey=260,radian=0,oldx,oldy,radius=190; float mx=0,my=0,oldmx,oldmy,mradius=140; float hx=0,hy=0,oldhx,oldhy,hradius=100; int kd_r1,kd_r2,kd_radius=230,kd_radius1,old_kd_x,old_kd_y,kd_radian=0,k=0,q=0,oldk,oldq; HWND hwnd; HANDLE hOut; HDC hdc; HBRUSH hbr; HPEN hpn,gpn,rpn,ppn2,ypn,bpn,kdpn,rkdpn,dotpn,blue,black,blkdpn,pkdpn; hwnd=GetConsoleWindow(); system(mode con cols=100 lines=34 ); hdc = GetDC(hwnd); hOut = GetStdHandle(STD_OUTPUT_HANDLE); hbr= CreateSolidBrush(RGB(0,0,00)); rpn=CreatePen(PS_SOLID,1,RGB(255,0,0)); ppn2=CreatePen(PS_SOLID,2,RGB(255,255,0)); hpn=CreatePen(PS_SOLID,1,RGB(0,255,255)); blue=CreatePen(PS_SOLID,3,RGB(0,0,255)); bpn=CreatePen(PS_SOLID,1,RGB(255,255,255)); gpn=CreatePen(PS_SOLID,2,RGB(0,255,0)); pkdpn=CreatePen(PS_SOLID,3,RGB(255,0,255)); kdpn=CreatePen(PS_SOLID,1,RGB(255,255,0)); rkdpn=CreatePen(PS_SOLID,5,RGB(255,0,0)); blkdpn=CreatePen(PS_SOLID,6,RGB(0,0,0)); black=CreatePen(PS_SOLID,3,RGB(0,0,0)); SelectObject(hdc,hbr); SelectObject(hdc,hpn); Ellipse(hdc,ex-radius-25,ey-radius-25,ex+radius+25,ey+radius+25); SelectObject(hdc,gpn); Ellipse(hdc,ex-radius,ey-radius,ex+radius,ey+radius); SetTextColor(hdc,RGB(0,255,0)); SetBkColor(hdc,RGB(0,0,0)); while(kd_radian=360){//时钟时刻模块 if(kd_radian%5==0){ if(kd_radian%90==0){ kd_radius=230; SelectObject(hdc,rkdpn); } else{ kd_radius=225; SelectObject(hdc,pkdpn); } } else{ kd_radius=215; SelectObject(hdc, kdpn); kd_radius1=205; } a=sin(kd_radian/180.0*3.14); b=cos(kd_radian/180.0*3.14); y=kd_radius*a; x=kd_radius*b; MoveToEx(hdc,ex,ey,NULL); LineTo(hdc,ex+x,ey+y); y=kd_radius1*a; x=kd_radius1*b; old_kd_x

文档评论(0)

1亿VIP精品文档

相关文档