3x3 led küpü

[kotan04]

Merhaba arkadaşlar 3x3 led küpü tasarladım meraklı arkadaşlara duyurulur animasyon kodlarını sadeleştirebilen yada farklı animasyonlar ekleyen arkadaşlar bu sayfada paylaşırsa memnun olurum sevgiler

'---------İZİNSİZ ALINTI YAPILAMAZ [url=http://www.etepic.com]www.etepic.com[/url]   ----------------!!!
@ __config _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _BODEN_ON & _WDT_ON & _MCLRE_OFF & _LVP_OFF & _CP_OFF

OPTION_REG=%0000000
define OSC 4
INCLUDE "modedefs.bas"
TRISA=0 : TRISB=0 : PORTA=0 : PORTB=0
 
'---------İZİNSİZ ALINTI YAPILAMAZ kotan04@yahoo.com----------------!!!

SYMBOL DTA   = PORTA.0 'DATA PINI A0
SYMBOL CLOCK = PORTA.1 'CLOCK PINI A0
SYMBOL LATCH = PORTA.2 'LATCH PINI A2


SYMBOL KUP1 = portb.0
SYMBOL KUP2 = portb.1
SYMBOL KUP3 = portb.2


pause 300

BASLA:

low kup1-kup2-kup3
pause 100
gosub ani4

pause 100
gosub ani3

pause 100
gosub ani2

pause 100
gosub ani1
'-----------------------------
low kup1  
pause 100
gosub ani1

low kup2
pause 100
gosub ani1

low kup3
pause 100
gosub ani1
'-----------------------------

low kup1
pause 100
gosub ani2

low kup2
pause 100
gosub ani2

low kup3
pause 100
gosub ani2
'-----------------------------
low kup1
pause 100
gosub ani3

low kup2
pause 100
gosub ani3

low kup3
pause 100
gosub ani3



'__________________________________

low kup1 
pause 100
gosub ani4

low kup2 
pause 100
gosub ani4

low kup3
pause 100
gosub ani4

goto basla


ani1:

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000000]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000001]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000010]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000100]   
PULSOUT LATCH,1 
PAUSE 200


SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000000]   
PULSOUT LATCH,1 
PAUSE 200 
return
'-------------------------------------------------
ani2:

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000000]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00001000]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00010000]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00100000]   
PULSOUT LATCH,1 
PAUSE 200


SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000000]   
PULSOUT LATCH,1 
PAUSE 200 
return
END
'-------------------------------------------------


ani3:

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000000]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %01000000]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %10000000]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000001, %00000000]   
PULSOUT LATCH,1 
PAUSE 200


SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000000]   
PULSOUT LATCH,1 
PAUSE 200 
return

ani4:

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000000]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000001]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000011]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000111]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00001111]   
PULSOUT LATCH,1 
PAUSE 200 

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00011111]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %00111111]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %01111111]   
PULSOUT LATCH,1 
PAUSE 200

SHIFTOUT DTA,CLOCK,1,[ %00000000, %11111111]   
PULSOUT LATCH,1 
PAUSE 200 

SHIFTOUT DTA,CLOCK,1,[ %00000001, %11111111]   
PULSOUT LATCH,1 
PAUSE 200


SHIFTOUT DTA,CLOCK,1,[ %00000000, %00000000]   
PULSOUT LATCH,1 
PAUSE 200 
return
END


'---------İZİNSİZ ALINTI YAPILAMAZ kotan04@yahoo.com----------------!!!
'---------İZİNSİZ ALINTI YAPILAMAZ kotan04@yahoo.com----------------!!!

elimde bdx53 ve bdx54 bulunduğu için bu transistörleri kullandım.

isterseniz bc serisi kullanabilirsiniz ayrıca

74hc595  kullanmamdaki sebep 5x5 vs.. daha büyüklerinide yapmayı düşündüğümen dolayıdır

arkadaşlar isteyen bu mantıkla led küpünü büyütebilir



İZİNSİZ ALINTI YAPILAMAZ
www.etepic.com

kotan04