50 Led sıralı yakma

[ibrahim_g]

Değerli arkadaşlar ekte vermiş olduğum devre şemasında bir butona basıp 50 tane ledi sırasıyla tek tek yakmak istiyorum. Yanan ledler sönmeden diğer ledler tek tek yanacak. PBP programını kullanıyorum. Bu konuda yardımcı olabilecek arkadaş varsa şimdiden teşekkür ederim.

[ete]

MR=1
DS=1

for I=0 to 49
Pulsout SHCP,1
pause 100
next
MR=0
pulsout SHCP,1
Goto BASLA

O kadar zahmet etmiş bir şema çizmişsin ama o şemayı sadece şekil olarak vermişsin. Bu gibi durumlarda kimse oturup da şemayı yeniden çizip yazdığı kodu denemez. Bende yapmazdım ama neyseki şema çizmeden cevaplayabileceğim bir konu idi.

Ete

[ibrahim_g]

ETE bey öncelikle ilgilenip cevap yazdığınız için teşekkür ederim. Yazdığınız kod satırını aşağıdaki gibi ekledim ancak derleme sırasında resimdeki gibi bir hata satırı ile karşılaştım, bu konuda bir fikriniz var mı ? Teşekkür ederim.
Kod:

TRISB=%00000000         
TRISA=%11110001 
PORTA=%00000000
PORTB=%00000000  
 

@ DEVICE pic16F648A                      'işlemci 16F648A                                
@ DEVICE pic16F648A, PROTECT_OFF         'Kod Protek kapalı
@ DEVICE pic16F648A, CPD_ON
@ DEVICE pic16F648A, WDT_OFF             'Watch Dog timer kapalı
@ DEVICE pic16F648A, INTRC_OSC_NOCLKOUT  'Dahili osilatör kullanılacak
@ DEVICE pic16F648A, MCLR_off            'MCLR pini kullanılmıyor.
@ DEVICE pic16F648A, LVP_OFF
@ DEVICE pic16F648A, BOD_OFF
@ DEVICE pic16F648A, PWRT_ON             'Power on timer açık
'-------------------------------------------------------------------------
DEFINE OSC 4
OPTION_REG=%10000101        'Pull up dirençleri İPTAL- Bölme oranı 1/64.
CMCON=7  
'----------------------------------------------------------------------------

YAK VAR BYTE 
DON VAR WORD 
I var byte 
SYMBOL  KIRMIZI=PORTA.0


SYMBOL  SHCP=PORTB.5
symbol  DS=PORTB.6  
SYMBOL  MR=PORTB.7

BASLA:

IF KIRMIZI=1 THEN GOTO REDLED

REDLED:
MR=1
DS=1
for I=0 to 49
Pulsout SHCP,1
pause 100
next
MR=0
pulsout SHCP,1
Goto BASLA

[ete]

Makinanız 64 bit ve MPASM kullanarak derleme yapıyorsunuz ama sigorta ayarlarınız PM.Assembler'e göre (32 Bite göre)
Bu ayarları MPASM formatına göre düzenlemeniz gerekir. Ayrıca PBP klasöründe yer alan 16F648A.INC dosyasını açıp alt satırlarda yer alan MPASM formatı sigorta ayarlarını başlarına ; koyarak kapatıp geri kayıt etmelisiniz.

Detayları için Aşağıdaki linkleri okuyunuz.

http://etepic.com/index.php/topic,300.0.html

http://etepic.com/index.php/topic,1687.0.html

ete