鱼C论坛

 找回密码
 立即注册
查看: 2705|回复: 5

时钟

 关闭 [复制链接]
发表于 2014-9-16 20:54:31 | 显示全部楼层 |阅读模式
10鱼币
做时钟只要简单的只要有判断清屏要定义函数做毫秒,毫秒比秒快10倍

最佳答案

查看完整内容

#include #define uchar unsigned char sbit ti=P0^1; sbit qi=P0^2; sbit nkey=P3^1; sbit ikey=P3^2; sbit mkey=P3^3; uchar code sin[]={0x3f,0x60,0x5b,0x4f,0x66, 0x6d,0x7d,0x07,0x7f,0x6f}; uchar a,shi,fen,miao; void play(uchar,uchar,uchar); void delay(uchar z) { uchar q,w; for(q==z;q>0;q--) for(w==100;w>0;w--); } void main() { EA=1; ET1=1; TMOD=0x10; TH1=15536/256; TL1=15536%256; ...
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-9-16 20:54:32 | 显示全部楼层
#include<reg52.h>
#define uchar unsigned char
sbit ti=P0^1;
sbit qi=P0^2;
sbit nkey=P3^1;
sbit ikey=P3^2;
sbit mkey=P3^3;
uchar code sin[]={0x3f,0x60,0x5b,0x4f,0x66,
0x6d,0x7d,0x07,0x7f,0x6f};
uchar a,shi,fen,miao;
void play(uchar,uchar,uchar);
void delay(uchar z)
{
uchar q,w;
for(q==z;q>0;q--)
for(w==100;w>0;w--);
}
void main()
{
EA=1;
ET1=1;
TMOD=0x10;
TH1=15536/256;
TL1=15536%256;
TR1=1;
while(1)
  {
  if(nkey==0)
  {
  delay(200);
  {
  if(nkey==0)
  {
  if(miao==60)
  miao=0;
  if(ikey==0)
  {
  delay(200);
  if(ikey==0)
  {
  if(fen==60)
  {
  fen=0;
  if(mkey==0)
  {
  delay(200);
  if(mkey==0)
  {
  if(shi==24)
  shi=0;
  if(a==20)
  {
  a=0;
  miao++;
  if(miao==60)
  {
  miao=0;
  fen++;
  if(fen==60)
  {
  fen=0;
  shi++;
  if(shi==24)
  {
  shi=0;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
play(shi,fen,miao);
  }
}
void tx()interrupt 3
{
TH1=15536/256;
TL1=15536%256;
a++;
}
void play(uchar shi,uchar fen,uchar miao)
{
P0=sin[shi/10];
ti=1;
ti=0;
P0=0xfe;
qi=1;
qi=0;
delay(10);
P0=sin[shi%10];
ti=1;
ti=0;
P0=0xfb;
qi=1;
qi=0;
delay(10);
P0=sin[fen/10];
ti=1;
ti=0;
P0=0xf7;
qi=1;
qi=0;
delay(10);
P0=sin[fen%10];
ti=1;
ti=0;
P0=0xef;
qi=1;
qi=0;
delay(10);
P0=sin[miao/10];
ti=1;
ti=0;
P0=0xbf;
qi=1;
qi=0;
delay(10);
P0=sin[miao%10];
ti=1;
ti=0;
P0=0x7f;
qi=1;
qi=0;
delay(10);
P0=0x40;
ti=1;
ti=0;
P0=0xfb;
qi=1;
qi=0;
delay(10);
}
时钟加独立键盘程序
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2014-9-16 20:55:15 | 显示全部楼层
要求简单的
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2014-9-20 14:24:40 | 显示全部楼层
算了
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-9-20 17:20:45 | 显示全部楼层
你的问题   表示看不懂!!!  说清楚点
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-9-21 09:15:33 | 显示全部楼层
你在说什么啊??
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-25 02:01

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表