奥运倒计时: 设为首页 加入收藏
点击进入太平洋安全网首页
论坛登陆 用户名: 密码:
首页 新闻资讯 文章中心 黑客资源 黑客点睛 安全防护 软件下载 动画教程 会员咨询 技术问答 论坛社区
文章 下载 图片
资源  
 您现在的位置: 太平洋安全网 >> 资源 >> 程序设计 >> C语言 >> 正文

用C语言实现的闹钟程序

作者:放弃    资源来源:网上采集    点击数:    更新时间:2008-3-30

#include 
#include 
#include 
#include 
#include 
void main() 

int gd=DETECT,gm; 
int x=320,y=240,r=200,i,h,m,s,thetamin,thetasec; 
struct  time t; 
char n[12][3]={"3","2","1","12","11","10","9","8","7","6","5","4"}; 
inITgraph(&gd,&gm,"g:\\tc\\bgi");//图形驱动器路径,根据自己的系统更换。 
circle(x,y,210); 
setcolor(4); 
settextstyle(4,0,5); 
for(i=0;i<12;i++) 

if(i!=3) 
outtextxy(x+(r-14)*cos(M_PI/6*i)-10,y-(r-14)*sin(M_PI/6*i)-26,n[i]); 
else 
outtextxy(x+(r-14)*cos(M_PI/6*i)-20,y-(r-14)*sin(M_PI/6*i)-26,n[i]); 

gettime(&t); 
printf("The current time is: %2d:%02d:%02d.%02d\n",t.ti_hour, t.ti_min, 
t.ti_sec, t.ti_hund); 
while(!kbhIT()) 

setcolor(5); 
setfillstyle(1,5); 
circle(x,y,10); 
floodfill(x,y,5); 
gettime(&t); 
if(t.ti_min!=m) 

setcolor(0); 
line(x,y,x+(r-60)*cos(thetamin*(M_PI/180)),y-(r-60)*sin(thetamin*(M_PI/180 
))); 
circle(x+(r-80)*cos(thetamin*(M_PI/180)),y-(r-80)*sin(thetamin*(M_PI/180)) 
,10); 
line(x,y,x+(r-110)*cos(M_PI/6*h-((m/2)*(M_PI/180))),y-(r-110)*sin(M_PI/6*h 
-((m/2)*(M_PI/180)))); 
circle(x+(r-130)*cos(M_PI/6*h-((m/2)*(M_PI/180))),y-(r-130)*sin(M_PI/6*h-( 
(m/2)*(M_PI/180))),10); 

if(t.ti_hour>12) 
t.ti_hour=t.ti_hour-12; 
if(t.ti_hour<4) 
h=abs(t.ti_hour-3); 
else&n
bsp;
h=15-t.ti_hour; 
m=t.ti_min; 
if(t.ti_min<=15) 
thetamin=(15-t.ti_min)*6; 
else 
thetamin=450-t.ti_min*6; 
if(t.ti_sec<=15) 
thetasec=(15-t.ti_sec)*6; 
else 
thetasec=450-t.ti_sec*6; 
setcolor(4); 
line(x,y,x+(r-110)*cos(M_PI/6*h-((m/2)*(M_PI/180))),y-(r-110)*sin(M_PI/6*h 
-((m/2)*(M_PI/180)))); 
circle(x+(r-130)*cos(M_PI/6*h-((m/2)*(M_PI/180))),y-(r-130)*sin(M_PI/6*h-( 
(m/2)*(M_PI/180))),10); 
line(x,y,x+(r-60)*cos(thetamin*(M_PI/180)),y-(r-60)*sin(thetamin*(M_PI/180 
))); 
circle(x+(r-80)*cos(thetamin*(M_PI/180)),y-(r-80)*sin(thetamin*(M_PI/180)) 
,10); 
setcolor(15); 
line(x,y,x+(r-70)*cos(thetasec*(M_PI/180)),y-(r-70)*sin(thetasec*(M_PI/180 
))); 
delay(1000); 
setcolor(0); 
line(x,y,x+(r-70)*cos(thetasec*(M_PI/180)),y-(r-70)*sin(thetasec*(M_PI/180 
))); 

[1] [2] 下一页

资源录入:放弃    责任编辑:放弃 
  • 上一资源资源:

  • 下一资源资源:
  • 发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
       推荐文章
    推荐资源Windows 2000 设置Internet连接属性
    推荐资源Windows 2000 建立Internet连接
    推荐资源Windows 2000 浏览器窗口简介
    推荐资源Windows 2000 浏览器功能的增强
    推荐资源Windows 2000 快速使用共享资源
    推荐资源Windows 2000 软件资源共享
    推荐资源Windows 2000 硬件资源共享
    推荐资源Windows 2000 WINS服务器配置
       热门文章
    推荐资源Windows 2000 设置Internet连接属性
    推荐资源Windows 2000 建立Internet连接
    推荐资源Windows 2000 浏览器窗口简介
    推荐资源Windows 2000 浏览器功能的增强
    推荐资源Windows 2000 快速使用共享资源
    推荐资源Windows 2000 软件资源共享
    推荐资源Windows 2000 硬件资源共享
    推荐资源Windows 2000 WINS服务器配置
        本站推荐

    关于我们 | 联系方法 | 招聘信息 | 加入会员 | 诚征代理 | 广告服务 | 欢迎投稿 | 站长信箱 | 友情链接 | 网站地图
    24小时客服:0374-7126138 技术支持:0374-7126138 投诉电话:0374-7967536
    客服QQ:883039 售后QQ:827520 技术QQ:78305152 投稿-商业:576880739
    Copyright 太平洋科技 2003-2007 版权所有 All Rights Reserved
      许可证号:豫ICP备07005385号