今天设计出了1AA调光手电的程序（第五页好了，继续）

ldch · 发表于 2007-5-4 13:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

x

一直打算设计调光手电，无奈总是很忙。现在终于趁五一放假，把其中最关键的部分，调光用的单片机程序设计出来了。第一次先用12F675，因为去年为了学习PIC单片机买了两片，其实只要是有EEPROM的PIC都可以用。第一版程序设计比较简单，操作方式为：接通电路后如果在2秒钟内断开，再次通电时改变亮度，如果连续接通超过2秒则锁定当前亮度。第一次做先弄3档亮度：强、中、弱，以后再考虑暴闪什么的其他附加功能。我设计出来后的第一个好处就是：呵呵，不用说大家也该知道，操控方式可以通过修改程序而改变，可以随需DIY了。也就是说将开创调光手电DIY新时代了。争取今晚前装配一个完整的样品出来，到时再传照片。[em01][em01][em01]

[此帖子已经被作者于[lastedittime]1179246714[/lastedittime]编辑过]

zisui · 发表于 2007-5-4 13:32

不错，希望到时有成品卖，不知道效率如何？

noneedface · 发表于 2007-5-4 13:34

希望有成品电路板卖，这样就可以DIY调光手电了

qbq · 发表于 2007-5-4 14:41

东成的电路越来越好了，非常期待[em02][em02]

woaw · 发表于 2007-5-4 15:02

等出成品的时候买一下

li123456 · 发表于 2007-5-4 15:06

等出成品[em01][em01]

阿雷 · 发表于 2007-5-4 15:22

能人多多加油

ldch · 发表于 2007-5-4 16:50

首先多谢大家的鼓励。下午把烧好的单片机焊在电路板上，还不能说一帆风顺，还是遇到点问题，本来设计是三档，但是当把控制第二档的IC管脚焊上后电路不稳定，变成闪烁，只好去掉，这样就成了两档了。不管怎么说，已经迈出一步，算是成功一半了：

首先多谢大家的鼓励。下午把烧

由于IC不是贴片的，暂时尚未对此设计专门的电路板，所有调光的元件用搭焊的方式连接，难看点

首先多谢大家的鼓励。下午把烧

首先多谢大家的鼓励。下午把烧

首先多谢大家的鼓励。下午把烧

ldch · 发表于 2007-5-4 16:57

高亮档电池电流大约1.9A，低亮档大约550mA。目前实际测试来看，仍然存在若干问题:1、每次切换时都要闪烁一下，感觉不好：原因是程序初始化端口的方式不好，造成闪烁，需要继续优化源程序2、状态存储不稳定，容易受干扰而改变：需要仔细分析干扰源和干扰原因，从硬件和软件两个方面解决，力争使电路状态可靠、稳定

ldch · 发表于 2007-5-4 16:59

或者干脆改变控制方式，一开机就是高亮，然后多次点动开关调为低亮。有什么其他建议，欢迎大家献计献策！

ldch · 发表于 2007-5-4 17:01

#include "P12F675.INC"EEADDRA EQU 20H EEADDRB EQU 21H TEMP EQU 22H EEREADA EQU 23H EEREADB EQU 24H DELY1 EQU 25H DELY2 EQU 26H DELY3 EQU 27H ORG 0x0000STAR  BCF STATUS,RP0  ;体选择BANK0  MOVLW 01H  MOVWF EEADDRA  ;初始化A地址  MOVLW 02H  MOVWF EEADDRB  ;初始化B地址 CLRF GPIO  ;清GPIO寄存器 MOVLW 07H  MOVWF CMCON  ;关闭比较器19H BSF STATUS,RP0  ;体选择BANK1  BCF INTCON,GIE  ;禁止中断  CLRF ANSEL  ;清9FH模拟选择寄存器 MOVLW 08H  MOVWF TRISIO  ;除GPIO3外，其他管脚都是输出 BCF STATUS,RP0  CALL DELAY1 CALL EEREAD_A  CALL EEREAD_B MOVF EEREADB,W  XORLW 01H  BTFSS STATUS,Z  GOTO A3  GOTO AA   A3  BCF STATUS,RP0  INCF EEREADA  MOVF EEREADA,W  XORLW 04H  BTFSS STATUS,Z  GOTO WRA  GOTO A_3   WRA  MOVF EEREADA,W  MOVWF TEMP  CALL WREEA  GOTO AA   A_3  MOVLW 01H  MOVWF EEREADA  GOTO WRA   AA  BCF STATUS,RP0  MOVF EEREADA,W  XORLW 01H  BTFSS STATUS,Z  GOTO AA2  MOVLW 0FFH  MOVWF GPIOFINISH  BCF STATUS,RP0  MOVLW 00H  MOVWF TEMP  CALL WREEB  CALL DELAY  BCF STATUS,RP0  MOVLW 01H  MOVWF TEMP  CALL WREEB  BCF STATUS,RP0  MOVF EEREADA,W  MOVWF TEMP  CALL WREEA LOOP  GOTO LOOP   AA2  BCF STATUS,RP0  MOVF EEREADA,W  XORLW 02H  BTFSS STATUS,Z  GOTO AA3  MOVLW 0FDH  MOVWF GPIO  GOTO FINISHAA3  BCF STATUS,RP0  MOVF EEREADA,W  XORLW 03H  BTFSS STATUS,Z  GOTO AA1  MOVLW 0FBH  MOVWF GPIO  GOTO FINISHAA1  MOVLW 01H  MOVWF EEREADA  GOTO WRA    EEREAD_A  BCF STATUS,RP0  MOVF EEADDRA,W  BSF STATUS,RP0  MOVWF EEADR  BSF EECON1,RD  MOVF EEDATA,W  BCF STATUS,RP0  MOVWF EEREADA  RETURNEEREAD_B  BCF STATUS,RP0  MOVF EEADDRB,W  BSF STATUS,RP0  MOVWF EEADR  BSF EECON1,RD  MOVF EEDATA,W  BCF STATUS,RP0  MOVWF EEREADB  RETURN   WREEA  ;写A，TEMP传送写入数据  BCF STATUS,RP0  ;取BANK0  MOVF EEADDRA,W  ;取A地址  BSF STATUS,RP0  ;取BANK1  MOVWF EEADR  ;A地址进入EEADR  BCF STATUS,RP0  ;取BANK0  MOVF TEMP,W  ;取写入数据  BSF STATUS,RP0  ;取BANK1  MOVWF EEDATA  ;待写数据进入EEDATA  BSF EECON1,WREN  BCF INTCON,GIE  MOVLW 55H  MOVWF EECON2  MOVLW 0AAH  MOVWF EECON2  BSF EECON1,WR  NOP  NOP  RETURNWREEB  ;写B，TEMP传送写入数据  BCF STATUS,RP0  ;取BANK0  MOVF EEADDRB,W  ;取A地址  BSF STATUS,RP0  ;取BANK1  MOVWF EEADR  ;A地址进入EEADR  BCF STATUS,RP0  ;取BANK0  MOVF TEMP,W  ;取写入数据  BSF STATUS,RP0  ;取BANK1  MOVWF EEDATA  ;待写数据进入EEDATA  BSF EECON1,WREN  BCF INTCON,GIE  MOVLW 55H  MOVWF EECON2  MOVLW 0AAH  MOVWF EECON2  BSF EECON1,WR  NOP  NOP  RETURNDELAY  MOVLW   10H  ;外循环常数  MOVWF  DELY1  ;外循环寄存器 LOP0 MOVLW  0FFH  ;中循环常数  MOVWF  DELY2  ;中循环寄存器 LOP1 MOVLW  0EEH  ;内循环常数  MOVWF  DELY3  ;内循环寄存器 LOP2 DECFSZ  DELY3  ;内循环寄存器递减  GOTO  LOP2  ;继续内循环  DECFSZ  DELY2  ;中循环寄存器递减  GOTO  LOP1  ;继续中循环  DECFSZ  DELY1  ;外循环寄存器递减  GOTO  LOP0  ;继续外循环  RETURNDELAY1  MOVLW  9FH     ;外循环常数  MOVWF  DELY1     ;外循环寄存器 LOOP0 MOVLW  0FFH     ;中循环常数  MOVWF  DELY2     ;中循环寄存器 LOOP1 DECFSZ  DELY2     ;中循环寄存器递减  GOTO  LOOP1     ;继续中循环  DECFSZ  DELY1     ;外循环寄存器递减  GOTO  LOOP0     ;继续外循环  RETURNEND