全屏幕模拟时钟的C源程序

2016-02-19 13:25 4 1 收藏

清醒时做事,糊涂时读书,大怒时睡觉,无聊时关注图老师为大家准备的精彩内容。下面为大家推荐全屏幕模拟时钟的C源程序,无聊中的都看过来。

【 tulaoshi.com - 编程语言 】

#includegraphics.h
  #includemath.h
  #includedos.h
  #define pi 3.1415926
   #define X(a,b,c) x=a*cos(b*c*pi/180-pi/2)+300;
   #define Y(a,b,c) y=a*sin(b*c*pi/180-pi/2)+240;
   #define d(a,b,c) X(a,b,c);Y(a,b,c);line(300,240,x,y)
   void init()
   {int i,l,x1,x2,y1,y2;
   setbkcolor(1);
   circle(300,240,200);
   circle(300,240,205);
   circle(300,240,5);
   for(i=0;i60;i++)
   {if(i%5==0) l=15;
   else l=5;
   x1=200*cos(i*6*pi/180)+300;
   y1=200*sin(i*6*pi/180)+240;
   x2=(200-l)*cos(i*6*pi/180)+300;
   y2=(200-l)*sin(i*6*pi/180)+240;
   line(x1,y1,x2,y2);
   }
   }
   main()
   {
   int x,y;
   int gd=VGA,gm=2;
   unsigned char h,m,s;
   strUCt time t[1];
   initgraph(&gd,&gm,"d:c");
   init();
   setwritemode(1);
   gettime(t);
   h=t[0].ti_hour;
   m=t[0].ti_min;
   s=t[0].ti_sec;
   setcolor(7);
   d(150,h,30);
   setcolor(14);
   d(170,m,6);
   setcolor(4);
   d(190,s,6);
   while(!kbhit())
   {while(t[0].ti_sec==s)
   gettime(t);
   sound(400);
   delay(70);
   sound(200);
   delay(30);
   nosound();
   setcolor(4);
   d(190,s,6);
   s=t[0].ti_sec;
   d(190,s,6);
   if (t[0].ti_min!=m)
   {
   setcolor(14);
   d(170,m,6);
   m=t[0].ti_min;
   d(170,m,6);
   }
   if (t[0].ti_hour!=h)
   { setcolor(7);
   d(150,h,30);
   h=t[0].ti_hour;
   d(150,h,30);
   sound(1000);
   delay(240);
   nosound();
   delay(140);
   sound(2000);
   delay(240);
   nosound();
   }
   }
   getch();
   closegraph();
   }

来源:https://www.tulaoshi.com/n/20160219/1604196.html

延伸阅读
什么时候会用到全屏幕模式? 也许用到的机会很少,但JDK还是为我们提供了这个的功能。像许多软件中的打印预览功能,还有某些文本编辑器中为了获得更大的编辑画面,也用到了全屏幕模式,假如你有爱好写一个像ACDSee这样的软件,使用全屏幕模式可以让用户看到更大的图片画面。 如何使用全屏幕模式? 要害是Jav...
标签: 电脑入门
最近用ppt2010播放幻灯片时发现无法全屏,有时候竖直方向满屏了,横向无法铺满。这个问题困扰我了很久,最后发现是设置问题。解决方法如下: 打开PowerPoint2010页面设置(菜单文件--页面设置): 根据自己电脑屏幕大小,设置幻灯片大小: 然后,再播放幻灯片试试看,是不是全屏了呢?如果还是不行,就继续调整上述页面设置中的幻灯片大小...
分3步. 1: 编译。选取UltraEdit的菜单: 高级-〉工具配置编译C# Console命令行填:csc %n%e工作目录:%p名称随意。保存活动文件,输出到列表窗口,捕捉输出 这3个都选上。 最后点击 插入。 %P Path only ("C:\project\test\")%N fileName only ("test")%E Extension only (".c") 编译C# Console 有图标:csc /wi...
标签: ASP
  <% Function StripNonNumeric(strInput)     Dim iPos, sNew, iTemp     strInput = Trim(strInput)     If strInput < "" Then         iPos = 1         iTemp = Len...
Visual C#是微软公司推出的新一代程序开发语言,是微软.Net框架中的一个重要组成部分。屏幕保护程序是以scr为扩展名的标准Windows可执行程序。屏幕保护程序不仅可以延长显示器的使用寿命,还可以保护私人信息。本文向大家介绍一个.Net平台上用C#编写的一个动态文本及图形的屏幕保护程序。 一、具体实现步骤: (1)在Visual Stud...

经验教程

355

收藏

59
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部