找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 517549|回復(fù): 1158
打印 上一主題 下一主題
收起左側(cè)

[原創(chuàng)][分享]新手寫的多功能電子鐘

  [復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:8456 發(fā)表于 2009-5-27 20:33 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式

剛學(xué)的單片機(jī),下面的程序是在學(xué)習(xí)中斷和定時器時寫的,已調(diào)試通過,
多功能電子鐘有如下功能:
1,可以用來做電子鐘
2,可以用做報警器(按P3.2時,用做報警)
3,可以用做鬧鐘(按P1.6時,用做鬧鐘)
4,可以顯示星期
程度當(dāng)中還有好多的不妥之處,還請高手門幫忙指正.
程序如下:
(由于注解太多,所以沒有能寫出來,請見諒!!),制作成功后的圖片如附件.
內(nèi)容如下:

#include <AT89X51.H>
#define uchar unsigned char
#define uint unsigned int
uchar code dispcode[]={0x81,0x9f,0xa4,0x8c,0x9a,0xc8,0xc0,0x9d,0x80,0x88};
uchar code DATA[]={0xfc,0x92,0x98,0xac,0x89,0x01,0x5c,0x80,0x88};
uchar dispbitcode[]={0xfe,0xfd,0xfb,0xf7};
uchar dispbuf[8]={0,0,0,0};
uchar dispbitcnt;
uchar second,minite,hour,day;
uchar clockhour,clockminite;
uint tcnt;
uchar mstcnt;
uchar t;
uint a;
//上面的是定義各個變量和數(shù)碼管緩存
void yanshi(uint t)
{
for(;t>0;t--);
}//延時子程序

void beep()
{
while(hour<clockhour){
for(a=0;a<1000;a++)
{yanshi(5);
P1_4=~P1_4;}
for(a=0;a<1000;a++)
{yanshi(5);
P1_4=~P1_4;}
for(a=0;a<5000;a++)
{yanshi(6);
P1_4=~P1_4;}
if(P3_6==0){break;}}
while(minite<clockminite){
for(a=0;a<1000;a++)
{yanshi(5);
P1_4=~P1_4;}
for(a=0;a<1000;a++)
{yanshi(5);
P1_4=~P1_4;}
for(a=0;a<5000;a++)
{yanshi(6);
P1_4=~P1_4;}
if(P3_6==0){break;}}}//報警子程序(P1.4接的是BEEP,P3.6為O時跳出)

void baojing()
{
if(P1_7==0){
yanshi(500);
if(P1_7==0){
while(1){
if(P1_7==1){
while(1){
beep();
if(P3_6==0)
{break;}}}
if(P3_6==0){break;}}}}}//報警執(zhí)行子程序(用P1.7做信號檢測腳,同樣當(dāng)P3.6為0時跳出)

void clock()
{
if(P3_3==0){yanshi(500);
if(P3_3==0){clockminite++;
if(clockminite==60)
{clockminite=0;}
dispbuf[3]=clockminite%10;
dispbuf[2]=clockminite/10;             
while(P3_3==0);}}
if(P3_6==0){yanshi(500);
if(P3_6==0){clockhour++;
if(clockhour==24){clockhour=0;}
dispbuf[1]=clockhour%10;
dispbuf[0]=clockhour/10;
while(P3_6==0);}}}//設(shè)定鬧鐘子程序

void key()
{
if(P3_6==0){yanshi(500);
if(P3_6==0){second++;
if(second==60){second=0;}           
while(P3_6==0);}}
if(P3_5==0){yanshi(1000);
if(P3_5==0){minite++;
if(minite==60){minite=0;}
dispbuf[3]=minite%10;
dispbuf[2]=minite/10;
while(P3_5==0);}}
if(P3_7==0){yanshi(500);
if(P3_7==0){hour++;
if(hour==24){hour=0;}
dispbuf[1]=hour%10;
dispbuf[0]=hour/10;
while(P3_7==0);}}
if(P3_4==0){yanshi(500);
if(P3_4==0){day++;
if(day==7){day=0; }
P2=DATA[day];
while(P3_4==0);}}
}//設(shè)定時間子程序

void laozhong()
{
if(hour==clockhour){
if(minite==clockminite){
for(a=0;a<1000;a++)
{yanshi(5);
P1_4=~P1_4;}
for(a=0;a<1000;a++)
{yanshi(5);
P1_4=~P1_4;}
for(a=0;a<5000;a++)
{yanshi(6);
P1_4=~P1_4;}}}}//鬧鐘子程序

void display()
{
dispbuf[3]=minite%10;
dispbuf[2]=minite/10;
dispbuf[1]=hour%10;
dispbuf[0]=hour/10;
P2=DATA[day];
}//顯示子程序

void displayclock()
{
dispbuf[7]=clockminite%10;
dispbuf[6]=clockminite/10;
dispbuf[5]=clockhour%10;
dispbuf[4]=clockhour/10;
}//鬧鐘顯示子程序

void time()
{
tcnt++;
if(tcnt==4000){tcnt=0;
second++;
if(second==60){second=0;
minite++;
if(minite==60){minite=0;
hour++;
if(hour==24){hour=0;
day++;
if(day==7){day=0;}}}}
display();}}//時間子程序

void t0(void) interrupt 1 using 0
{
mstcnt++;
if(mstcnt==4){mstcnt=0;
P0=dispcode[dispbuf[dispbitcnt]];
P1=dispbitcode[dispbitcnt];
P2=DATA[day];
dispbitcnt++;}
if(dispbitcnt==4){dispbitcnt=0;}
time();displayclock();}//中斷

void main(void)
{
TMOD=0x02;
TH0=0x06;
TL0=0x06;
TR0=1;
ET0=1;
EA=1;
while(1)
{
key();clock();
if(P1_6==0)
{while(1){laozhong();
if(P3_6==0){break;}}}
if(P3_2==0){yanshi(10000);
if(P3_2==0){while(1)
{baojing();
if(P3_6==0)
{break;}
}}}}}
//S1:啟動報警器(P3.2)
//S2: clock minite 加(P3.3)
//S3: 星期加(P3.4)
//S4:time minite 加(P3.5)
//S5: clock hour 加/退出報警器(P3.6)
//S6:time hour 加(P3.7)
//P1-7為信號檢測腳


[此貼子已經(jīng)被作者于2009-6-9 9:40:09編輯過]
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏1 分享淘帖 頂 踩
回復(fù)

使用道具 舉報

沙發(fā)
ID:12101 發(fā)表于 2009-5-28 08:56 | 只看該作者
不錯!!!
回復(fù)

使用道具 舉報

板凳
ID:12101 發(fā)表于 2009-5-28 08:56 | 只看該作者
如果能用匯編寫就更有挑戰(zhàn)性了。
回復(fù)

使用道具 舉報

地板
ID:13539 發(fā)表于 2009-5-28 15:48 | 只看該作者
來看看
回復(fù)

使用道具 舉報

5#
ID:13521 發(fā)表于 2009-5-28 18:33 | 只看該作者
學(xué)習(xí)下
回復(fù)

使用道具 舉報

6#
ID:13508 發(fā)表于 2009-5-28 20:52 | 只看該作者

新手想學(xué)習(xí)一下~謝謝了

回復(fù)

使用道具 舉報

7#
ID:12253 發(fā)表于 2009-5-28 23:07 | 只看該作者
學(xué)習(xí)學(xué)習(xí)
回復(fù)

使用道具 舉報

8#
ID:12322 發(fā)表于 2009-5-29 10:28 | 只看該作者

好東西多傳傳啊

回復(fù)

使用道具 舉報

9#
ID:13578 發(fā)表于 2009-5-29 14:04 | 只看該作者

好東西多傳傳啊

回復(fù)

使用道具 舉報

10#
ID:12718 發(fā)表于 2009-5-29 17:03 | 只看該作者
拜讀一下
回復(fù)

使用道具 舉報

11#
ID:12718 發(fā)表于 2009-5-29 17:11 | 只看該作者
提個建議好嗎;unsigned int 何不在前面先宏定義為
#define uint unsigned int
編程可以少寫字嘛
回復(fù)

使用道具 舉報

12#
ID:10558 發(fā)表于 2009-5-30 15:54 | 只看該作者
有我需要的部分,謝謝
回復(fù)

使用道具 舉報

13#
ID:7019 發(fā)表于 2009-5-30 16:22 | 只看該作者
學(xué)習(xí)了
回復(fù)

使用道具 舉報

14#
ID:13622 發(fā)表于 2009-5-30 17:27 | 只看該作者

學(xué)習(xí)了

回復(fù)

使用道具 舉報

15#
ID:8455 發(fā)表于 2009-5-30 21:07 | 只看該作者
看下,怎么樣。
回復(fù)

使用道具 舉報

16#
ID:13633 發(fā)表于 2009-5-30 21:38 | 只看該作者

不錯不錯

回復(fù)

使用道具 舉報

17#
ID:5727 發(fā)表于 2009-5-30 22:26 | 只看該作者

good

回復(fù)

使用道具 舉報

18#
ID:951 發(fā)表于 2009-5-31 08:23 | 只看該作者
學(xué)習(xí)中!!!
回復(fù)

使用道具 舉報

19#
ID:13679 發(fā)表于 2009-5-31 21:43 | 只看該作者
學(xué)習(xí)一下
回復(fù)

使用道具 舉報

20#
ID:3659 發(fā)表于 2009-5-31 21:55 | 只看該作者

我也是新手啊

回復(fù)

使用道具 舉報

21#
ID:7193 發(fā)表于 2009-6-1 04:33 | 只看該作者
來看看~~~~~
回復(fù)

使用道具 舉報

22#
ID:11531 發(fā)表于 2009-6-2 09:04 | 只看該作者

學(xué)習(xí)一下!

回復(fù)

使用道具 舉報

23#
ID:13814 發(fā)表于 2009-6-5 15:33 | 只看該作者
也是新手,學(xué)學(xué)。
回復(fù)

使用道具 舉報

24#
ID:13857 發(fā)表于 2009-6-6 14:13 | 只看該作者
新手

回復(fù)

使用道具 舉報

25#
ID:12101 發(fā)表于 2009-6-7 14:15 | 只看該作者
不錯呀!。
回復(fù)

使用道具 舉報

26#
ID:13897 發(fā)表于 2009-6-7 16:53 | 只看該作者
來看看咯
回復(fù)

使用道具 舉報

27#
ID:12866 發(fā)表于 2009-6-8 16:28 | 只看該作者
很想學(xué)學(xué)
回復(fù)

使用道具 舉報

28#
ID:12866 發(fā)表于 2009-6-8 19:19 | 只看該作者

美中不足:
  對于新手程序應(yīng)該有解釋,不能說每一句都要解釋,最起碼的要有,這個程序上 P1_4;P1_7;P3_3;P3_4;P3_5P3_6;P3_7;以及P0;P1;P2;由于沒有電路原理圖,他們都是什么作用?應(yīng)該加以注釋;這樣會更好一些,便于初學(xué)者入門,哈哈!當(dāng)讓行家一看就知道是怎么連接的

回復(fù)

使用道具 舉報

29#
ID:13329 發(fā)表于 2009-6-8 21:25 | 只看該作者

看看,有實用先仿制

回復(fù)

使用道具 舉報

30#
ID:13318 發(fā)表于 2009-6-8 22:31 | 只看該作者
參考一下
回復(fù)

使用道具 舉報

31#
ID:8456 發(fā)表于 2009-6-9 09:34 | 只看該作者
yimajiadian 
說的是,我當(dāng)時是嫌麻煩,所以沒有寫上,我從新修改了下
回復(fù)

使用道具 舉報

32#
ID:14011 發(fā)表于 2009-6-9 19:53 | 只看該作者
以下是引用wuchengnian在2009-5-31 21:55:35的發(fā)言:

我也是新手啊

回復(fù)

使用道具 舉報

33#
ID:14016 發(fā)表于 2009-6-9 20:11 | 只看該作者
回復(fù)

使用道具 舉報

34#
ID:14031 發(fā)表于 2009-6-9 23:40 | 只看該作者
 看一下
回復(fù)

使用道具 舉報

35#
ID:14076 發(fā)表于 2009-6-10 20:53 | 只看該作者
學(xué)習(xí)一下,看看是什么來著
回復(fù)

使用道具 舉報

36#
ID:3751 發(fā)表于 2009-6-11 08:44 | 只看該作者
212313113131
回復(fù)

使用道具 舉報

37#
ID:14101 發(fā)表于 2009-6-11 11:20 | 只看該作者
來學(xué)習(xí)的
回復(fù)

使用道具 舉報

38#
ID:14127 發(fā)表于 2009-6-12 00:42 | 只看該作者

要學(xué)習(xí)學(xué)習(xí)!

回復(fù)

使用道具 舉報

39#
ID:11838 發(fā)表于 2009-6-12 09:25 | 只看該作者
來借鑒學(xué)習(xí)~~
回復(fù)

使用道具 舉報

40#
ID:14142 發(fā)表于 2009-6-12 12:42 | 只看該作者
來看看
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表