- 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
您可能关注的文档
最近下载
- 幕墙成品保护措施及细则.docx VIP
- 巴西-狂欢节含内容.pptx VIP
- 蛋鸡合理的蛋白能量比.doc VIP
- 350MW超临界循环流化床机组调试大纲.doc VIP
- 初中奥数二次根式计算专项讲义.docx VIP
- 《基于MATLAB的10kV小电流接地系统中单相接地故障仿真研究》6500字.docx VIP
- 2025年第四季度电网工程设备材料信息参考价.docx VIP
- 深度解析(2026)《GBT 3511-2018硫化橡胶或热塑性橡胶 耐候性》.pptx VIP
- 深度解析(2026)GBT 14834-2009硫化橡胶或热塑性橡胶 与金属粘附性及对金属腐蚀作用的测定.pptx VIP
- 深度解析(2026)GBT 11211-2009硫化橡胶或热塑性橡胶 与金属粘合强度的测定 二板法.pptx VIP
原创力文档

文档评论(0)