xaybx
Üye
- Katılım
- 12 Ağu 2009
- Mesajlar
- 2
- Puanları
- 1
- Yaş
- 39
LIST P=16F84A
INCLUDE <P16F84A.INC>
__CONFIG _CP_OFF &_WDT_OFF &_PWRTE_ON &_XT_OSC
PORTB EQU 0X06
PORTA EQU 0X05
STATUS EQU 0X03
TRISB EQU 0X86
TRISA EQU 0X85
CMCON EQU 0X1F
;*********GÝRÝS/CIKIS AYARLARININ OLUSTURULMASI*********************
BSF STATUS,5 ;BANK1 E GEC
CLRF TRISB ;PORTB CIKIS
MOVLW b'01000011' ;RB0,RB1,RB7 GÝRÝÞ
MOVWF TRISA ;PORTA GÝRÝS
BCF STATUS,5 ;BANK0 A GEC
MOVLW b'00000111' ;BÜTÜN KARSILASTIRICILAR KAPALI
MOVWF CMCON ;TÜM PÝNLER GÝRÝS/CIKIS
CLRF PORTB ;BASLANGICTA TÜM LED LER SÖNÜK
;***************ANA PROGRAMIN OLUSTURULMASI**********************
;************* "E" HARFÝ ÝÇÝN*************************************
MOVLW b'01111111'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01001001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01001001'
MOVWF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
;************* "S" HARFÝ ÝÇÝN*************************************
MOVLW b'01000110'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01001001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01101001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01110001'
MOVWF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
;************* "D" HARFÝ ÝÇÝN*************************************
MOVLW b'01111111'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01000001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01000001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'00111110'
MOVWF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE2
GOTO BASLA
;***************1 MÝLÝSANÝYE GECÝKME YAP**************************
;***********LEDÝN BÝR PARCA YANIK KALMA SÜRESÝ********************
BEKLE1
MOVLW d'10000' ;YAKLASIK 1 MÝLÝSANÝYE
MOVWF 0X50 ;BEKLEME YAP
D1 MOVLW d'1'
MOVWF 0X20
D2 DECFSZ 0X20,1
GOTO D2
DECFSZ 0X21,1
GOTO D1
RETURN
;*****************95 MÝLÝSANÝYE GECÝKME YAP***********************
;************PROGRAM BOSLUGUNDA KÝ LEDÝN SÖNÜK KALMA SÜRESÝ*******
BEKLE2
MOVLW d'10000' ;YAKLASIK 74 MÝLÝSANÝYE
MOVWF 0X50 ;BEKLEME YAP
D3 MOVLW d'1000'
MOVWF 0X20
D4 DECFSZ 0X20,1
GOTO D4
DECFSZ 0X21,1
GOTO D3
RETURN
END
kodlar çalışıyor fakat motor son hıza ulaşınca yazının ilk harfiyle son harfi arka arkaya geliyor bi hesaplaması olması lazım geliyo ama bulamadım...
birde ikinci bi kelime eklemek için ne yapmam lazım örnegin ilk 15sn "ES D" yazıp sonraki 15sn başka bi yazı ... Kendim biyomedikal öğrencisi olmama rağmen Elektronik çok hoşuma gidiyo kendi başıma internetten kitaplardan öğrenmeye çalışıyorum fakat bu kadar oluyor yardımlarınız için şimdiden teşşekkürler...
INCLUDE <P16F84A.INC>
__CONFIG _CP_OFF &_WDT_OFF &_PWRTE_ON &_XT_OSC
PORTB EQU 0X06
PORTA EQU 0X05
STATUS EQU 0X03
TRISB EQU 0X86
TRISA EQU 0X85
CMCON EQU 0X1F
;*********GÝRÝS/CIKIS AYARLARININ OLUSTURULMASI*********************
BSF STATUS,5 ;BANK1 E GEC
CLRF TRISB ;PORTB CIKIS
MOVLW b'01000011' ;RB0,RB1,RB7 GÝRÝÞ
MOVWF TRISA ;PORTA GÝRÝS
BCF STATUS,5 ;BANK0 A GEC
MOVLW b'00000111' ;BÜTÜN KARSILASTIRICILAR KAPALI
MOVWF CMCON ;TÜM PÝNLER GÝRÝS/CIKIS
CLRF PORTB ;BASLANGICTA TÜM LED LER SÖNÜK
;***************ANA PROGRAMIN OLUSTURULMASI**********************
;************* "E" HARFÝ ÝÇÝN*************************************
MOVLW b'01111111'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01001001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01001001'
MOVWF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
;************* "S" HARFÝ ÝÇÝN*************************************
MOVLW b'01000110'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01001001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01101001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01110001'
MOVWF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
;************* "D" HARFÝ ÝÇÝN*************************************
MOVLW b'01111111'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01000001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'01000001'
MOVWF PORTB
CALL BEKLE1
MOVLW b'00111110'
MOVWF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE1
CLRF PORTB
CALL BEKLE2
GOTO BASLA
;***************1 MÝLÝSANÝYE GECÝKME YAP**************************
;***********LEDÝN BÝR PARCA YANIK KALMA SÜRESÝ********************
BEKLE1
MOVLW d'10000' ;YAKLASIK 1 MÝLÝSANÝYE
MOVWF 0X50 ;BEKLEME YAP
D1 MOVLW d'1'
MOVWF 0X20
D2 DECFSZ 0X20,1
GOTO D2
DECFSZ 0X21,1
GOTO D1
RETURN
;*****************95 MÝLÝSANÝYE GECÝKME YAP***********************
;************PROGRAM BOSLUGUNDA KÝ LEDÝN SÖNÜK KALMA SÜRESÝ*******
BEKLE2
MOVLW d'10000' ;YAKLASIK 74 MÝLÝSANÝYE
MOVWF 0X50 ;BEKLEME YAP
D3 MOVLW d'1000'
MOVWF 0X20
D4 DECFSZ 0X20,1
GOTO D4
DECFSZ 0X21,1
GOTO D3
RETURN
END
kodlar çalışıyor fakat motor son hıza ulaşınca yazının ilk harfiyle son harfi arka arkaya geliyor bi hesaplaması olması lazım geliyo ama bulamadım...
birde ikinci bi kelime eklemek için ne yapmam lazım örnegin ilk 15sn "ES D" yazıp sonraki 15sn başka bi yazı ... Kendim biyomedikal öğrencisi olmama rağmen Elektronik çok hoşuma gidiyo kendi başıma internetten kitaplardan öğrenmeye çalışıyorum fakat bu kadar oluyor yardımlarınız için şimdiden teşşekkürler...