用單片機控制的12V鎮流器,源碼公開

采用HT MCU控制的PL13W鎮流器,源碼稍后公開.

全部回復(13)

只看樓主

正序查看

倒序查看

miky1188

LV.6

2006-12-21 13:00

工作原理:上電復位---預熱---22KHz工作.MCU PIN11(PB5)為控制信號輸入腳,低電平有效;可接CDS光敏電阻或其它設備的輸出信號達到自動控制的目的.

回復

miky1188

LV.6

2006-12-21 13:36

@miky1188

工作原理:上電復位---預熱---22KHz工作.MCUPIN11(PB5)為控制信號輸入腳,低電平有效;可接CDS光敏電阻或其它設備的輸出信號達到自動控制的目的.

INCLUDE HT48RA0A.INC

DATA   .SECTION  AT 20H  'DATA'
;------------------------------------------------
counter0 db ?
counter1 db ?
keycount db ?
keystatus db  ?
;------------------------------------------------
CODE   .SECTION
   ORG 00H
   Jmp initial

;------------------------------------------------
   ORG 010H
Initial:      ;淸除所有的資料記憶體從20H至3FH
   mov A,20H
   mov MP,A
   jmp clramloop

clramloop:
   clr R0
   inc MP

   mov A,0BFH
   sub A,MP
   sz STATUS.0
   jmp clramloop ;MP0<3FH 跳轉至clramloop

;------------------------------------------------

;------------------------------------------------
;   -- 主程式 --
;------------------------------------------------
initial_mode:
   clr keycount

   mov A,00000011B ;設置PA0 和PA1 輸出為″1″
   mov PA,A

   mov A,00000000B ;
   mov PC,A
;------------------------------------------------

   mov A,0E0H;
   mov counter1,A ;100×256×32=第一次點火時間
        ;(4MHz=E0H=0.8 秒)
;................................................
;................................................
sign_test:
   sz keystatus.0 ;檢測PB5引腳準位
   jmp ignite  ;如果PB5準位爲低,點亮燈管

   call delay_46
   call delay_46

   sz PB5
   jmp clr_sign
   inc keycount
   mov A,0FAH
   sub A,keycount
   sz status.0
   jmp sign_test
   set keystatus.0 ;
   jmp sign_test
clr_sign:
   clr keycount
   mov A,00000011B ;設置PA0 和PA1 輸出為″1″
   jmp sign_test

;................................................
ignite:
   clr keycount
   call ignite_sub ;點火模式:第一次子程式
;
   mov A,0FCH  ;4MHz=FCH=0.1秒
   mov counter1,A ;110×256×4=第二次點火時間

ignite_se:       ;點火模式:第二次
   mov A,00000001b
   clr pa
   mov PA,A

   call delay_46
   nop
   nop
   nop
   nop
;..
   mov A,00000010b
   clr pa
   mov PA,A

   call delay_46
   nop
   siz counter0
   jmp ignite_se

   siz counter1
   jmp ignite_se

;................................................
run_mode:      ;運作模式:固定頻率在22kHz

   mov A,00000001b
   clr pa
   mov PA,A
   call delay_run
   snz keystatus.0 ;
   jmp initial_mode ;PB5爲高準位,熄滅燈管
;.......
   mov A,00000010b
   clr pa
   mov PA,A
   call delay_run
   jmp run_mode

;--------------------------------------------------
;   -- 子程式 --
;--------------------------------------------------
;delay_run:
   clr wdt

   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1

   ret
;
delay_run:
   clr wdt

   snz PB5   ;檢測PB5引腳準位
   jmp delay_run1 ;如果PB5準位爲高,熄滅燈管

   inc keycount
   mov A,0FAH
   sub A,keycount
   sz status.0
   jmp delay_run2
   clr keystatus.0
   jmp delay_run3

delay_run1:
   nop
   jmp $+1
   jmp $+1

delay_run2:
   jmp $+1
delay_run3:
   jmp $+1

   ret

delay_46:
   clr wdt

   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1

   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1

   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1

   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1
   jmp $+1

   jmp $+1
   nop
   ret

;--------------------------------------------------
;   -- 子程式 --
;--------------------------------------------------
ignite_sub:

   mov A,00000001b
   mov PA,A
;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;
   mov A,00000010b
   mov PA,A
;.......
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A

;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;.......
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A

;.....
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;.....
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A

;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
;..
   mov A,00000001b
   mov PA,A
;;
   mov A,00000010b
   mov PA,A
   clr wdt

   siz counter0
   jmp ignite_sub

   siz counter1
   jmp ignite_sub

   clr pa
;..................................

   ret

   end

回復

miky1188

LV.6

2006-12-21 13:42

500) {this.resized=true; this.width=500; this.alt='這是一張縮略圖，點擊可放大。\n按住CTRL，滾動鼠標滾輪可自由縮放';this.style.cursor='hand'}" onclick="if(!this.resized) {return true;} else {window.open('http://u.dianyuan.com/bbs/u/48/1166679750.jpg');}" onmousewheel="return imgzoom(this);">

回復

luoyun

LV.5

2006-12-22 11:03

@miky1188

[圖片]500){this.resized=true;this.width=500;this.alt='這是一張縮略圖，點擊可放大。\n按住CTRL，滾動鼠標滾輪可自由縮放';this.style.cursor='hand'}"onclick="if(!this.resized){returntrue;}else{window.open('http://u.dianyuan.com/bbs/u/48/1166679750.jpg');}"onmousewheel="returnimgzoom(this);">

好!非常好!如果把異常保護加上去,產品的可行性更高;我正想用PIC12系列產品DIP-8的單片機來控制,希望大家提建議.

回復