15 ledli bir karaşimşek devresi yaptım ama picbasicte nasıl yaparım

[Ruzgarbey]

@ DEVICE pic16F628
@ DEVICE pic16F628, WDT_OFF
@ DEVICE pic16F628, PWRT_ON
@ DEVICE pic16F628, PROTECT_OFF
@ DEVICE pic16F628, MCLR_OFF
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT ' dahili kristal kullanılıyor 4 MHZ
DEFINE OSC 4
DEFINE OSC 4
CMCON=7
TRISB =%00000000
TRISA =%00000000'-----------------------
PORTB=0 :PORTA=0
I VAR BYTE
CIKIS VAR BYTE
CLEAR
BASLA:
FOR I=0 TO 7 'A PORTLARI SÜRÜLÜYOR
CIKIS.0[I]=1
PORTA=CIKIS
PAUSE 500
CIKIS.0[I]=0 'yakılan LED 500 ms sonra söndürülüyor
PORTA=CIKIS 
NEXT
CIKIS=0
FOR I=0 TO 7 'B PORTLARI SÜRÜLÜYOR
CIKIS.0[I]=1
PORTB=CIKIS
PAUSE 500
CIKIS.0[I]=0
PORTA=CIKIS
NEXT
CIKIS=0
FOR I=7 TO 0 STEP -1 'B PORTUNDAN GERİYE DÖNÜLÜYOR
CIKIS.0[I]=1
PORTB=CIKIS
PAUSE 500
CIKIS.0[I]=0
PORTA=CIKIS
NEXT
GOTO BASLA

END

evet haklısınız led yanıp bir sonraki lede geçtiğinde söndürmeyi unutmuşum yukarıdaki kodları tekrar denermisiniz acaba.kolay gelsin

[Maxim]

bu karaşimşek devresinde asıl yapması zor olan şey
bir led ten diğerine geçerken fade yani azalan veya çoğalan ışık efekti
yani ışığın sağa-sola giderken arkasında gölge bırakarak gitmesi

gerisi hikaye


örnek :

http://www.youtube.com/watch?v=zgpFC91MSVU&feature=related
http://www.youtube.com/watch?v=YJRsYxdwRiA&feature=related

[Mucit23]

Hocam burada asm dilinde yazılmış güzel uygulamalar var

http://picprojects.org.uk/projects/480/pro483/

[murat11h1]

 

Adam kodlarla dans etmiş resmen  . Ledlerde projektör gibi 

[Ruzgarbey]

yukarıdaki resimlerde görülen devreleri yapmak çom zor değil heleki elimizde pic gibi bir işlemci varsa tadından yenmez bir timer intertruptla istediğimiz fade efektini verebiliriz diye düşünüyorum ben.timerle RGB led sürülüyorsa karaşimşek devresi sorun olmaz.timerle RGB led sürülmesini başka bir konuda yazmıştım ayrıca ete hocamızın yayınladığı bir kodda mevcut sitemizde.kodları karaşimşek devresine uyarlayabiliriz.saygılarımla..