等下又要回学校了.发一个昨晚无聊的眩目器
eleunx2012/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 用的是哪种单片机?
来自:物理高能技术 / 强激光
7
已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
cccyl
12年3个月前 IP:未同步
457128
用的是哪种单片机?
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
eleunx作者
12年3个月前 IP:未同步
457131
回 1楼(cccyl) 的帖子
stc12c2052ad 很MINI,
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
badboy-fly
12年3个月前 IP:未同步
457341
目测LZ是LOLI控
求电路图
求效果图[s:275]
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
gurite
12年3个月前 IP:未同步
461328
致盲效果吗?求原理
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
wenrui
12年3个月前 IP:未同步
461337
回 3楼(badboy-fly) 的帖子
电路图很简单的,看程序就知道了
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
eleunx作者
12年3个月前 IP:未同步
462270
很简单…我是萝莉控我会到处乱说吗…12赫兹的闪屏可以暂时致瞎 200mw激光足够…搞好散光就可以了…你是三极管驱动
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
战士战士
8年8个月前 IP:北京
818889
白天也可以吗、
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论

想参与大家的讨论?现在就 登录 或者 注册

eleunx
笔友
文章
28
回复
263
学术分
0
2012/05/12注册,6年11个月前活动
暂无简介
主体类型:个人
所属领域:无
认证方式:邮箱
IP归属地:未同步
文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}
视频暂不能访问,请登录试试
仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。
音频暂不能访问,请登录试试
支持的图片格式:jpg, jpeg, png
插入公式
评论控制
加载中...
文号:{{pid}}
投诉或举报
加载中...
{{tip}}
请选择违规类型:
{{reason.type}}

空空如也

加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}