文号
t51085
阅读
11518
回复
7
收藏
7
等下又要回学校了.发一个昨晚无聊的眩目器
2012/10/04
IP:广东
这个是我昨天晚上无聊的产物..
今天早上请教了小会会.打扰了他的清梦.不好意思
正片
IMAG0009_副本.jpg

本来是用3W的强光LED+200MW红激光.不过还没到货.于是随便找些垃圾代替一下
程序如下


/*通过两个按键来选择 普通照明 12hz闪烁 关灯*/
/*用了不小心买错的2052ad做主控+两个s8050(H ttl)+限流电阻200OHM .电路图过于简单.不画了*/
#include<stc12c2052ad.h>


#define uchar unsigned char
#define uint unsigned int
uchar a,b,c,d;
sbit j1=P1^0;
sbit j2=P1^1;
sbit key1=P1^2;
sbit key2=P1^3;
void delay (uint x)
{
    while(x--);
}
void main()
{
    a=0;
    b=0;
    key1=1;
    key2=1;
    j1=0;
    j2=0;
    TMOD=0x11;
    AUXR&=0x7F;
    TL0 =0xB0;        
    TH0 =0x3C;            
    TL1 =0xbf;        
    TH1 =0x0F;
    EA=1;
    ET0=1;
    ET1=1;                    
    while(1)
    {
        
        
        if(key2==0)
        {
            delay(200000);
            if(key2==0)
            {
                if(b==0)
                {
                    j2=0;
                    TR1=0;
                    b=1;
                    while(!key2);
                }
                else if(b==1)
                {
                    j2=0;
                    TR1=1;
                    b=2;
                    while(!key2);
                }
                else if(b==2)
                {
                    j2=1;
                    TR1=0;
                    b=0;
                    while(!key2);
                }
            }
        }
        if(key1==0)
        {
        delay(200000);
            if(key1==0)
            {
                if(a==0)
                {
                    j1=0;
                    TR0=0;
                    a=1;
                    while(!key1);
                }
                else if(a==1)
                {
                    j1=1;
                    TR0=0;
                    a=2;
                    while(!key1);
                }
                else if(a==2)
                {
                    j1=0;
                    TR0=1;
                    a=0;
                    while(!key1);
                }
                while(!key1);
            }
        }
    }




}
void t1() interrupt 1
{
    TL0 =  0xB0;        
    TH0 = 0x3C;
    c++;
    if(c==3)
    {
        j1=~j1;
        c=0;
    }


}
void t2() interrupt 3
{
    TL1 =0xBF;        
    TH1 =0x0F;        
    d++;
    if(d==2)
    {
        j2=~j2;
        d=0;
    }
}
+10
科创币
cccyl
2012/10/04
用的是哪种单片机?
14年3个月前IP:未同步
457128
1楼
用的是哪种单片机?
引用
评论
eleunx作者
14年3个月前IP:未同步
457131
2楼
回 1楼(cccyl) 的帖子
stc12c2052ad 很MINI,
引用
评论
14年3个月前IP:未同步
457341
3楼
目测LZ是LOLI控
求电路图
求效果图[s:275]
引用
评论
14年2个月前IP:未同步
461328
4楼
致盲效果吗?求原理
引用
评论
14年2个月前IP:未同步
461337
5楼
回 3楼(badboy-fly) 的帖子
电路图很简单的,看程序就知道了
引用
评论
eleunx作者
14年2个月前IP:未同步
462270
6楼
很简单…我是萝莉控我会到处乱说吗…12赫兹的闪屏可以暂时致瞎 200mw激光足够…搞好散光就可以了…你是三极管驱动
引用
评论
10年7个月前IP:北京
818889
7楼
白天也可以吗、
引用
评论
笔记
{{note.content}}
{{n.user.username}}
{{fromNow(n.toc)}} {{n.status === noteStatus.disabled ? "已屏蔽" : ""}} {{n.status === noteStatus.unknown ? "正在审核" : ""}} {{n.status === noteStatus.deleted ? '已删除' : ''}}
  • 编辑
  • 删除
  • {{n.status === 'disabled' ? "解除屏蔽" : "屏蔽" }}
我也是有底线的