查看: 4161|回复: 97
打印 上一主题 下一主题

51 lcd12864多功能电子钟 实验(二十四)

  [复制链接] qrcode

24

主题

30

帖子

86

积分

注册会员

Rank: 2

积分
86
楼主
跳转到指定楼层
发表于 2015-5-11 09:09 AM | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

这个实验利用lcd12864实现一个综合性的时钟系统,详情见
附件
平台:FDR-1 51 开发板
主程序代码:
#include
#include
#include
bit clock="0";
sbit ACC7=ACC^7;
sbit ACC0=ACC^0;
bit flag="0";
unsigned char k="0";
bit i="1";
void play_respond();
void move();
unsigned char hour_sound,minute_sound;
unsigned char print[7]={33,35,18,11,2,4,97};
unsigned char temp[2],Count;
void beeping(unsigned char frequence,unsigned char length);
void Delay_xMs(unsigned char x);
void getch();
void showtime(unsigned char *print);
void change() ////修改时间
{
unsigned char i="0",temp[7],temp3[3],x,y;
v_BurstR1302T(print);
for(i=0;i<7;i++)
{temp=print;}
i="0";

showtime(temp);
while(k!=15)
{
getch();
if(flag==1&&k==13) {flag=0;i++;i=i%7;k=0;}


if(flag==1&&k==9){flag=0;temp[6-i]++;}
if(flag==1&&k==8){flag=0;temp[6-i]--; }
if(flag==1&&k==11){flag=0;clock=1;}
temp3[0]=time[temp[6-i]/10];
temp3[1]=time[temp[6-i]%10];
temp3[2]='\0';

switch(i)
{case 0:{x=0;y=1;break;}
case 1:{ x="2",y=0;break;}
case 2: {x=0;y=3;break;}
case 3:{x=0;y=5;break;}
case 4: {x=2;y=1;break;}
case 5: {x=2;y=3;break;}
case 6: {x=2;y=5;break;}

}
showtime(temp) ;
}

if(clock==0)v_BurstW1302T(temp);
else
{hour_sound=temp[2];minute_sound=temp[1];play_respond();}
k="0";flag=0;

}
void move()
{
unsigned char i="0";
while(1)
{ getch();
if(flag==1&&k==13)
break;
i++;i=i%2;
PutBMP2(0,0,6, 32,bmp6,i);delay(400);

PutBMP2(3,0,6, 32,bmp7,i);delay(400);
flag="0";k=0; LcmClearBMP();
}
}
void main( void )
{ unsigned char i;
unsigned char program =0;

unsigned char(* bmp[8])[256]={ &bmp0,&bmp1,&bmp2,&bmp3,&bmp4,&bmp5,&bmp6,&bmp7};
delay(100);
LcmInit();
LcmClearTXT();
LcmClearBMP();
PutBMP(bmp8);
psb="0";
rst="1";
Time0_Init();
LcmClearTXT();

PutBMP(bmp8);
delay(1000);
v_BurstW1302T(print);
LcmClearBMP();
for(i=0;i<4;i++){PutBMP2(1+i*4,0,5, 32,bmp,1);}
PutBMP2(0,0,5, 32,bmp[0],0);
while(1)
{ //////////////////////////
/*背景程序 */


reach_time();
///////////////////////
i="i"%4;
getch();
if(flag==1)
{ flag="0";
if(k==12){ PutBMP2(i*4,0,5, 32,bmp,1);i++;}
if(k==15) {PutBMP2(i*4,0,5, 32,bmp,1);i--;}
i="i"%4;PutBMP2(i*4,0,5, 32,bmp,0);
if(k==13){program=1;k=0;}
}
if(program==1)
{
program="0";
switch (i)
{ unsigned int i="0";
case 0: { LcmClearBMP();

PutBMP2(i*4,0,5, 32,bmp[4],1);
Play_Song();

k=0; flag="0"; for(i=0;i<4;i++){PutBMP2(i*4,0,5, 32,bmp,1); }
break;


}
case 1: {
LcmClearBMP();
while(k!=13){for(i=0;i<16;i++){getch();if(k!=13){PutBMP2(i,0,5, 32,bmp1,i%2); getch();delay(1000); LcmClearBMP();} else {flag=1;break;}if(flag==1)break;}}k=0; flag="0"; for(i=0;i<4;i++){PutBMP2(i*4,0,5, 32,bmp,1); }break;
}
case 2: {
LcmClearBMP();
move();
change() ;

flag=0;
k=0;
LcmClearTXT();
for(i=0;i<4;i++){PutBMP2(i*4,0,5, 32,bmp,1); } break;
}
case 3: {
LcmClearBMP();
while(1)
{
i++;
if(i==500){v_BurstR1302T(print);i=0;showtime(print);}
getch();
if(k==13)break;
}
flag=0;k=0;LcmClearTXT();for(i=0;i<4;i++){PutBMP2(i*4,0,5, 32,bmp,1); } break;
}
}
}
}
}

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

0

主题

7

帖子

18

积分

新手上路

Rank: 1

积分
18
沙发
发表于 2015-9-29 02:07 AM | 只看该作者
good                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

5

帖子

12

积分

新手上路

Rank: 1

积分
12
板凳
发表于 2015-11-14 07:46 AM | 只看该作者
顶一下                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

79

帖子

164

积分

注册会员

Rank: 2

积分
164
地板
发表于 2015-11-15 10:48 AM | 只看该作者
顶                                                                                                                                                                       
回复 支持 反对

使用道具 举报

136

主题

868

帖子

1880

积分

金牌会员

Rank: 6Rank: 6

积分
1880
5#
发表于 2015-11-15 01:56 AM | 只看该作者
cdveferw                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

9

帖子

20

积分

新手上路

Rank: 1

积分
20
6#
发表于 2015-11-17 06:26 AM | 只看该作者
谢谢高手了,看看
回复 支持 反对

使用道具 举报

0

主题

23

帖子

48

积分

新手上路

Rank: 1

积分
48
7#
发表于 2015-1-6 11:37 AM | 只看该作者
谢谢分享                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

9

帖子

20

积分

新手上路

Rank: 1

积分
20
8#
发表于 2015-2-1 02:45 AM | 只看该作者
好。。                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

15

帖子

34

积分

新手上路

Rank: 1

积分
34
9#
发表于 2015-2-18 10:30 AM | 只看该作者
是的话,我给你加精华                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
10#
发表于 2015-2-25 01:56 AM | 只看该作者
应该会不错的吧                                                                                                                                                                       
回复 支持 反对

使用道具 举报

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

本版积分规则

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