↑ ↓

PWM dısplay göstergeli

Başlatan seco06, 06 Mayıs 2006, 22:05:58

Yazdır
Aşağı git
Kullanıcı Eylemleri

seco06

06 Mayıs 2006, 22:05:58
Proteusta ve kart üzerinde denenmiş bir devre.
http://rapidshare.de/files/19789652/pwm1.rar.html
 LIST P=16F84A
	INCLUDE"P16F84A.INC"
	__CONFIG   _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
LT	EQU	H'20'
HT	EQU	H'21'
LT1	EQU	H'22'
HT1	EQU	H'23'
LSB	EQU	H'24'
MSB	EQU	H'25'
AYAR	EQU	H'26'
SIFIR   EQU     D'119'		
BIR     EQU     H'06'
IKI     EQU     H'5B'
UC      EQU     H'4F'
DORT    EQU     H'66'
BES     EQU     H'6D'
ALTI    EQU     H'7D'
YEDI    EQU     H'07'
SEKIZ   EQU     H'7F'
DOKUZ   EQU     H'6F'
ON	EQU	D'113'
K_BIR	EQU     D'25'
K_IKI	EQU     D'50'
K_US	EQU     D'75'
K_DORT	EQU     D'100'
K_BES	EQU     D'128'
K_ALTI	EQU     D'150'
K_YEDI	EQU     D'175'
K_SEKIZ	EQU     D'200'
K_DOKUZ	EQU     D'225'
K_ON	EQU     D'255'
;----------------------
	ORG	0X00
BASLA
	CLRF	PORTB
	CLRF	AYAR	
	CLRF	LSB
	CLRF	MSB
	BSF	STATUS,5
	MOVLW	B'00011'; 
	MOVWF	TRISA
	CLRF	TRISB
	BCF	STATUS,5
	BCF	PORTA,3
	GOTO	TEST
TEST
	CALL	GOSTER
	MOVWF	PORTB
	BTFSS	PORTA,0
	GOTO	AZAL
	BTFSS	PORTA,1
	GOTO	ART
	GOTO	HAZIRLA
AZAL
	CALL	BEKLE
	MOVLW	D'0'
	SUBWF	AYAR,W
	BTFSC	STATUS,Z
	GOTO	TEST
	DECF	AYAR,F
	CALL	GOSTER
	MOVWF	PORTB
	GOTO	HAZIRLA
ART
	CALL	BEKLE
	MOVLW	D'10'
	SUBWF	AYAR,W
	BTFSC	STATUS,Z
	GOTO	TEST
	INCF	AYAR,F
	CALL	GOSTER
	MOVWF	PORTB
	GOTO	HAZIRLA
GOSTER
	MOVF	AYAR,W
KODLA
        ADDWF   PCL,F
        RETLW   SIFIR
        RETLW   BIR
        RETLW   IKI
        RETLW   UC
        RETLW   DORT
        RETLW   BES
        RETLW   ALTI
        RETLW   YEDI
        RETLW   SEKIZ
        RETLW   DOKUZ
        RETLW   ON
        RETLW   K_BIR
        RETLW   K_IKI
        RETLW   K_US
        RETLW   K_DORT
        RETLW   K_BES
        RETLW   K_ALTI
        RETLW   K_YEDI
        RETLW   K_SEKIZ
        RETLW   K_DOKUZ
        RETLW   K_ON
;--------------------
HAZIRLA
	CLRF	HT1
	CLRF	LT1
	MOVLW	D'0'
	SUBWF	AYAR,W
	BTFSC	STATUS,Z
	GOTO	TEST
ISLEM
	MOVF	AYAR,W
	ADDLW	D'10'
	CALL	KODLA
	MOVWF	HT1
	SUBLW	D'255'	
	BTFSC	STATUS,Z
	INCF	LT1,W
	MOVWF	LT1
	GOTO	CALIS
CALIS
	MOVF	HT1,W
	MOVWF	HT
	MOVF	LT1,W
	MOVWF	LT
SIFIR0
	BCF	PORTA,3  ; PORTA,3'Ü "0" YAP
	CALL	SAYAC
	DECFSZ	LT,F
	GOTO	SIFIR0
;----------------------
	BTFSS	PORTA,0
	GOTO	AZAL
	BTFSS	PORTA,1
	GOTO	ART
;----------------------
BIR1
	BSF	PORTA,3  ; PORTA,3'Ü "1" YAP
	CALL	SAYAC
	DECFSZ	HT,F
	GOTO	BIR1
	GOTO	CALIS
;----------------------
SAYAC
	MOVLW	D'10'
	MOVWF	LSB
SAY
	DECFSZ  LSB,F
	GOTO SAY
	RETURN
;----------------------
BEKLE
	MOVLW H'FF'
	MOVWF LSB
D1
	MOVLW H'FF'
	MOVWF MSB
D2	
	DECFSZ  MSB,F
	GOTO D2
	DECFSZ  LSB,F
	GOTO D1
	RETURN
;============================================================================;

	END

supermakarna

#1
07 Mayıs 2006, 11:47:25
arkadaşlar artık www.hemenpaylas.com'u kullansak daha iyi olmazmı?

babali

#2
07 Mayıs 2006, 16:10:02
rabiden ınmıyor hemen paylaş cok guzel

bigbey

#3
10 Mayıs 2006, 23:45:46
pwm1.dsn dosyasını açamadım bende proteus 6.0 var. Şemanın kullanıldığı proteus versiyonu kaç ? 6.0 dan ileri ise nerden bulabilirim.
TA6R

seco06

#4
11 Mayıs 2006, 20:05:42
Alıntı yapılan: "bigbey"pwm1.dsn dosyasını açamadım bende proteus 6.0 var. Şemanın kullanıldığı proteus versiyonu kaç ? 6.0 dan ileri ise nerden bulabilirim.
Versiyon 6.7 sp3 .formu araştırırsan mutlaka bulursun
http://picproje.com/index.php/topic,5469
Yazdır
Yukarı git
Kullanıcı Eylemleri
▲