Soft olarak Assembly ile çok da güzel oluyor.
@Main_Loop,
Bu proje için R2R yapısını nasıl kullanmayı düşünüyorsunuz?
LIST P=16C57
;26.08.2008 tyrgay güneş için led lambaları pwm yakma reklam panosu için yapıldı
__CONFIG B'0001'
__IDLOCS H'0104'
#DEFINE C 00H
#DEFINE DC 01H
#DEFINE Z 02H
INDF EQU 00h
RTCC EQU 01h
PC EQU 02h
STATUS EQU 03h
FSR EQU 04h
PORT_A EQU 05h
PORT_B EQU 06h
PORT_C EQU 07h
TEMP EQU 08H
TEMP1 EQU 09H
TEMP2 EQU 0AH
TEMP3 EQU 0BH
;PORT C TANIMLARI
#DEFINE LED1 PORT_C,0
#DEFINE LED2 PORT_C,1
#DEFINE LED3 PORT_C,2
#DEFINE LED4 PORT_C,3
#DEFINE YAZI1 PORT_C,4
#DEFINE YAZI2 PORT_C,5
#DEFINE YAZI3 PORT_C,6
#DEFINE YAZI4 PORT_C,7
ORG 0h
PWRUP MOVLW 0H
TRIS PORT_A
TRIS PORT_B
TRIS PORT_C
CLRF PORT_A
CLRF PORT_B
CLRF PORT_C
CLRF TEMP
CLRF TEMP1
CLRF TEMP2
CLRF TEMP3
GOTO BASLA
;***********************************************
BEKLE1SN NOP
MOVLW .10 ;10 X 100 MS=1 SN
MOVWF TEMP3
T2 CLRF TEMP1
MOVLW .130
MOVWF TEMP2
D3 CLRWDT
DECFSZ TEMP1,F
GOTO D3
DECFSZ TEMP2,F
GOTO D3
DECFSZ TEMP3,F
GOTO T2
RETLW 0
;***********************************
BEKLE3SN NOP
MOVLW .30 ;30 X 100 MS=3 SN
MOVWF TEMP3
T1 CLRF TEMP1
MOVLW .130
MOVWF TEMP2
D2 CLRWDT
DECFSZ TEMP1,F
GOTO D2
DECFSZ TEMP2,F
GOTO D2
DECFSZ TEMP3,F
GOTO T1
RETLW 0
;***********************************
BEKLE10SN NOP
MOVLW .100 ;30 X 100 MS=3 SN
MOVWF TEMP3
T3 CLRF TEMP1
MOVLW .130
MOVWF TEMP2
D4 CLRWDT
DECFSZ TEMP1,F
GOTO D4
DECFSZ TEMP2,F
GOTO D4
DECFSZ TEMP3,F
GOTO T3
RETLW 0
;***********************************
BASLA NOP
;BİRİNCİ LED YAVAS YAVAS YAKILIYOR
MOVLW .250
MOVWF TEMP1
DON2 MOVF TEMP1,W
MOVWF TEMP2
DON1 BCF LED1
MOVLW .30
MOVWF TEMP
BOS1 CLRWDT
DECFSZ TEMP,F
GOTO BOS1
DECFSZ TEMP2,F
GOTO DON1
MOVLW .251
MOVWF TEMP3
MOVF TEMP1,W
SUBWF TEMP3,F
DON3 BSF LED1
MOVLW .9
MOVWF TEMP
BOS2 CLRWDT
DECFSZ TEMP,F
GOTO BOS2
DECFSZ TEMP3,F
GOTO DON3
DECFSZ TEMP1,F
GOTO DON2
NOP
;*******************************
;BİR SANİYE BEKLENİYOR
CALL BEKLE1SN
;*******************************
;İKİNCİ LED YAVAS YAVAS YAKILIYOR
MOVLW .250
MOVWF TEMP1
DON22 MOVF TEMP1,W
MOVWF TEMP2
DON11 BCF LED2
MOVLW .30
MOVWF TEMP
BOS11 CLRWDT
DECFSZ TEMP,F
GOTO BOS11
DECFSZ TEMP2,F
GOTO DON11
MOVLW .251
MOVWF TEMP3
MOVF TEMP1,W
SUBWF TEMP3,F
DON33 BSF LED2
MOVLW .9
MOVWF TEMP
BOS22 CLRWDT
DECFSZ TEMP,F
GOTO BOS22
DECFSZ TEMP3,F
GOTO DON33
DECFSZ TEMP1,F
GOTO DON22
NOP
;*******************************
;BİR SANİYE BEKLENİYOR
CALL BEKLE1SN
;*******************************
;ÜCÜNCÜ LED YAVAS YAVAS YAKILIYOR
MOVLW .250
MOVWF TEMP1
DON222 MOVF TEMP1,W
MOVWF TEMP2
DON111 BCF LED3
MOVLW .30
MOVWF TEMP
BOS111 CLRWDT
DECFSZ TEMP,F
GOTO BOS111
DECFSZ TEMP2,F
GOTO DON111
MOVLW .251
MOVWF TEMP3
MOVF TEMP1,W
SUBWF TEMP3,F
DON333 BSF LED3
MOVLW .9
MOVWF TEMP
BOS222 CLRWDT
DECFSZ TEMP,F
GOTO BOS222
DECFSZ TEMP3,F
GOTO DON333
DECFSZ TEMP1,F
GOTO DON222
NOP
;***********************************
;BİR SANİYE BEKLENİYOR
CALL BEKLE1SN
;*******************************
;DÖRDÜNCÜ LED YAVAS YAVAS YAKILIYOR
MOVLW .250
MOVWF TEMP1
DON2222 MOVF TEMP1,W
MOVWF TEMP2
DON1111 BCF LED4
MOVLW .30
MOVWF TEMP
BOS1111 CLRWDT
DECFSZ TEMP,F
GOTO BOS1111
DECFSZ TEMP2,F
GOTO DON1111
MOVLW .251
MOVWF TEMP3
MOVF TEMP1,W
SUBWF TEMP3,F
DON3333 BSF LED4
MOVLW .9
MOVWF TEMP
BOS2222 CLRWDT
DECFSZ TEMP,F
GOTO BOS2222
DECFSZ TEMP3,F
GOTO DON3333
DECFSZ TEMP1,F
GOTO DON2222
NOP
;*****************************
;ÜÇ SANİYE BEKLENİYOR
CALL BEKLE3SN
;*******************************
BSF YAZI1
CALL BEKLE10SN
BCF YAZI1
CALL BEKLE3SN
BSF YAZI2
CALL BEKLE10SN
BCF YAZI2
CALL BEKLE3SN
BSF YAZI3
CALL BEKLE10SN
BCF YAZI3
CALL BEKLE3SN
BSF YAZI4
CALL BEKLE10SN
BCF YAZI4
CALL BEKLE3SN
;*********************************
;BÜTÜN LEDLER SÖNDÜRÜLÜYOR
MOVLW .250
MOVWF TEMP1
DON22222 MOVF TEMP1,W
MOVWF TEMP2
DON11111 BSF LED1
BSF LED2
BSF LED3
BSF LED4
MOVLW .12
MOVWF TEMP
BOS11111 CLRWDT
DECFSZ TEMP,F
GOTO BOS11111
DECFSZ TEMP2,F
GOTO DON11111
MOVLW .251
MOVWF TEMP3
MOVF TEMP1,W
SUBWF TEMP3,F
DON33333 BCF LED1
BCF LED2
BCF LED3
BCF LED4
MOVLW .28
MOVWF TEMP
BOS22222 CLRWDT
DECFSZ TEMP,F
GOTO BOS22222
DECFSZ TEMP3,F
GOTO DON33333
DECFSZ TEMP1,F
GOTO DON22222
NOP
;****************************************
CALL BEKLE1SN
CALL BEKLE1SN
GOTO BASLA
;****************************************
END
main hazır bu kadar cizdin bari kodlarıda ekle.isiste calıstıralım.
bu işe gönül verenler belli valla alarmko,katana,ben sabaha kadar bilgisayar başındayız. üçümüzde hala online
MUX kullanacağınızı düşünmediğim ve bilgim dahilinde mümkün olmadığı için öğrenmek istemiştim. Daha ekonomik ve efektif yöntem olarak 74HC595 kullanmanızı tavsiye edebilirim. Buna benzer bir sistemi 74HC595 ile üretip kullanıyoruz. R2R den daha yüksek çözünürlükte üretebilirsiniz.
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?