搜索
bottom↓
回复: 22

单片机+发光二极管+蜂鸣器=生日礼物

[复制链接]

出0入0汤圆

发表于 2012-5-16 20:20:41 | 显示全部楼层 |阅读模式
本帖最后由 w625419875 于 2012-5-16 20:22 编辑

最近没事,用0805贴片二级管,做了个小玩意,发给大家看看,高手绕过,没什么技术含量,
单片机用的是STC15F104E(51系列8脚) 用的内部晶振,电路图也比较简单,发光二级管全部并联

本人比较穷,没钱做板子,就用洞洞板焊了个也没原理图,用的是三级管驱动的。
下面是设计的参考图

随便弄了个流水灯效果,并且蜂鸣器播放生日快乐音乐

下面是录制的视频
h t t p : / / v.youku.com/v_show/id_XMzk3NTgyOTY0.html(删除空格)

下面是程序文件,用定时器0延时,这是就是讨厌增强型51单片机可恨之处了!


#include <reg51.h>
#define uchar unsigned char
#define uint unsigned int

#define uint8 unsigned char
#define uint16 unsigned int

#define              HIBYTE(v1)                           ((uint8)((v1)>>8))
#define              LOBYTE(v1)                           ((uint8)((v1)&0xff))

#define       CLOSE   0
#define       OPEN    !CLOSE

sbit beep=P3^4;

sbit L4=P3^0;
sbit L3=P3^1;
sbit L2=P3^2;
sbit L1=P3^3;

uint code song_tone[] ={1730,1730,1550,1730,1300,1390,1730,1730,1550,1730,1170,1300,
1730,1730,890,1060,1300,1390,1550,980,980,1060,1300,1170,1300,0};

uchar code song_long[]={9,3,12,12,12,24,9,3,12,12,12,24,
9,3,12,12,12,12,12,9,3,12,12,12,24,0};



void time0_init()
{
        TH0=TL0=0;
        TMOD=0x01;                //定时器0方式1
        ET0=1;
//        EA=1;
        TR0=0;
}

void delay (uint x)
{
        uchar t;
        while(x--)for(t=0;t<250;t++);
}

void timer_delay(uint16 time)
{        
        TH0 = HIBYTE(time);
        TL0 = LOBYTE(time);
        TR0 = OPEN;
        while(!TF0);
        TR0 = CLOSE;
        TF0 = 0;
}
void led(uchar temp)
{
        
        if(temp==0)
        {
                L1=0;
                delay(450);
                L1=1;
                delay(50);
        }
        if(temp==1)
        {
                L2=0;
                delay(450);
                L2=1;
                delay(50);
        }
        if(temp==2)
        {
                L3=0;
                delay(450);
                L3=1;
                delay(50);
        }
        if(temp==3)
        {
                L4=0;
                delay(450);
                L4=1;
                delay(50);
        }
        if(temp==4)
        {
                L1=0;        
                L2=0;        
                L3=0;        
                L4=0;
                delay(450);
                L1=1;        
                L2=1;        
                L3=1;        
                L4=1;
                delay(50);
        }

}

void play()
{
        
        uint i=0;
        uint j;
        for(i=0;i<=25;i++)
        {
                for (j=0;j<song_long*20;j++)
                {
                        beep=~beep;
                        timer_delay(65535-song_tone);                    
                }
                led(i%5);
        }

}
void main()
{
        beep=0;

        time0_init();
        while(1)
        {

                play();
        }
}

我以前账号wishtoyou登陆不上去了,有一段时间没来论坛了,不知道发生什么事,请阿莫帮我把账号密码重置下了,谢谢了!

本帖子中包含更多资源

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

x

阿莫论坛20周年了!感谢大家的支持与爱护!!

曾经有一段真挚的爱情摆在我的面前,我没有珍惜,现在想起来,还好我没有珍惜……

出0入0汤圆

发表于 2012-5-16 21:07:09 | 显示全部楼层
技术不是万能的,有心就好,赞一个

出0入0汤圆

发表于 2012-5-16 21:15:56 | 显示全部楼层
赞一个 给女友做过不少东西

出0入0汤圆

发表于 2012-5-16 21:26:30 | 显示全部楼层
小女孩喜欢的东西~~~~~~~~~

出0入0汤圆

发表于 2012-5-16 21:32:26 | 显示全部楼层
http://v.youku.com/v_show/id_XMzk3NTgyOTY0.html
帮楼主贴上来

出0入0汤圆

发表于 2012-5-16 21:34:28 | 显示全部楼层
呃,不是打击你啊,送女朋友,还是得精致一点的好~

出0入0汤圆

发表于 2012-5-16 22:00:30 | 显示全部楼层
做的有点粗糙,不过用心就好。

出0入0汤圆

发表于 2012-5-16 23:37:26 | 显示全部楼层
不  错 的 礼物   

出0入0汤圆

 楼主| 发表于 2012-5-18 19:18:13 | 显示全部楼层
本帖最后由 w625419875 于 2012-5-18 19:19 编辑

做成版子就会好多了
renpeng009  多谢帮我贴出视频

出0入0汤圆

发表于 2012-5-18 19:22:59 | 显示全部楼层
完了~~~~有要散一对~~~~~~~

出0入0汤圆

发表于 2012-5-18 22:41:58 | 显示全部楼层
LS的别这样说呀、感觉还好吧,

出0入0汤圆

 楼主| 发表于 2012-6-2 19:51:15 | 显示全部楼层
怎么没人顶啊

出0入0汤圆

发表于 2012-7-22 08:56:57 | 显示全部楼层
楼主,你的驱动是怎么处理???

出0入0汤圆

发表于 2012-7-22 09:08:00 | 显示全部楼层
创意还不错  

出0入0汤圆

发表于 2012-7-22 09:15:51 | 显示全部楼层
语重心长的跟你说,
还是鲜花+蛋糕+公仔, 或者首饰吧

出0入0汤圆

发表于 2012-7-22 16:08:47 | 显示全部楼层
显示字的时间太快了。创意不错呀,用个骗女孩子,肯定能成,呵呵~!

出0入0汤圆

发表于 2012-7-22 21:36:53 | 显示全部楼层
楼主  很给力啊呵呵 我刚上大学的时候也弄过个 ,当时懂得东西太少了

出0入0汤圆

发表于 2012-7-23 10:50:45 | 显示全部楼层
PEcontrol 发表于 2012-7-22 09:15
语重心长的跟你说,
还是鲜花+蛋糕+公仔, 或者首饰吧

广东人吧~

出0入0汤圆

发表于 2012-7-23 11:03:58 | 显示全部楼层
工科男的求爱方式

出0入0汤圆

发表于 2012-7-23 11:52:39 | 显示全部楼层
不错嘛,楼主,
包装一下,就是泡MM的武器了;
顶。。。。。。。。。

出0入0汤圆

发表于 2012-7-23 13:45:41 | 显示全部楼层
.........................

本帖子中包含更多资源

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

x

出0入0汤圆

发表于 2012-7-23 14:16:40 | 显示全部楼层
字显示的太快、太亮。根本还没看清是啥就灭了。

出0入0汤圆

发表于 2012-7-23 15:49:51 | 显示全部楼层
呵呵 自己做的最好,表现出了心意啊
回帖提示: 反政府言论将被立即封锁ID 在按“提交”前,请自问一下:我这样表达会给举报吗,会给自己惹麻烦吗? 另外:尽量不要使用Mark、顶等没有意义的回复。不得大量使用大字体和彩色字。【本论坛不允许直接上传手机拍摄图片,浪费大家下载带宽和论坛服务器空间,请压缩后(图片小于1兆)才上传。压缩方法可以在微信里面发给自己(不要勾选“原图),然后下载,就能得到压缩后的图片。注意:要连续压缩2次才能满足要求!!】。另外,手机版只能上传图片,要上传附件需要切换到电脑版(不需要使用电脑,手机上切换到电脑版就行,页面底部)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|Archiver|amobbs.com 阿莫电子技术论坛 ( 粤ICP备2022115958号, 版权所有:东莞阿莫电子贸易商行 创办于2004年 (公安交互式论坛备案:44190002001997 ) )

GMT+8, 2024-8-26 17:21

© Since 2004 www.amobbs.com, 原www.ourdev.cn, 原www.ouravr.com

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