PIC ILE SMPS

Başlatan bulut_01, 25 Haziran 2010, 16:44:53

bulut_01

sLm öncelıkle ıyı gunler bi proje hazırlamıstım yanlız bıraz spesifik bi smps tasarladım yanlız arkadaslar ilgilenirlerse sevinirim hatalı oldugum yerlerı belirtirseniz hatamı bulmus olurum bu devrede asırı akm asırı ısı ve gerilim çökmesine karsı özellıklerı bulunmaktadır sema ve kod ekledım sımdıden ıyı gunler





@ DEVICE pic16F628A 			
@ DEVICE pic16F628A, WDT_ON
@ DEVICE pic16F628A, PWRT_ON
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_OFF
@ DEVICE pic16F628A, XT_OSC 
CMCON=7  
TRISA=%00000 			         
TRISB=%00000000  
LED var byte
TUS VAR BYTE
SYMBOL TUS1=PORTB.0
SYMBOL TUS2=PORTB.1
SYMBOL TUS3=PORTB.2
SYMBOL LED1=PORTA.0
SYMBOL LED2=PORTA.1
SYMBOL LED3=PORTA.2
TRISA=%00000 			         
TRISB=%00000111
PORTA=0
PORTB=0

BASLA:
IF TUS1=1 AND TUS2=0 AND TUS3=1 THEN 
low LED1
ELSE 
high LED1
ENDIF
PAUSE 10

IF TUS1=1 AND TUS2=0 AND TUS3=1 THEN
HIGH LED3
ELSE
LOW LED3
ENDIF

IF LED1=0 THEN
HIGH LED2
PAUSE 150
LOW LED2
pause 75
ENDIF

IF TUS1=1 AND TUS2=1 AND TUS3=1 THEN
HIGH LED2
PAUSE 150
LOW LED2
pause 75

ENDIF

IF TUS1=1 AND TUS2=0 AND TUS3=0 THEN
high LED1
else
low LED1
ENDIF

IF TUS1=1 AND TUS2=0 AND TUS3=0 THEN
HIGH LED3
PAUSE 150
LOW LED3
pause 75
ENDIF

IF TUS1=1 AND TUS2=1 AND TUS3=0 THEN
HIGH LED1
else
LOW LED1
ENDIF

IF TUS1=1 AND TUS2=1 AND TUS3=0 THEN
HIGH LED2
PAUSE 150
LOW LED2
pause 75
ENDIF
GOTO BASLA
END
YENİLMEZ..