Cubo Led 3X3X3

Cubo de leds 3x3x3
Materiales:
•
•
•
•
•
•
•

27 leds del color que más les agrade
1 pic 16f870 ( puede usar el 16f873)
9 resistencias de 220 ohms
3 resistencias 1 kohm
3 transistores 2n3904
1 cristal de cuarzo de 4 MHz
1 protoboard

Lo primero que hay que hace hacer un dobles en el cátodo del diodo

Ánodo

Cátodo

De tal forma que quede asi

Esto se hace de uno en uno,si tratan de hacer esto con todos al mismo tiempo al tratar de
soldarlos verán que ya no les coinciden las patitas para soldarlo. Pueden apoyarse pegando con
silicón el led a una superficie para sostenerlo
En esta posición es recomendable soldarlos para que no tengan errores al acomodarlos.
Esta es la vista inferior de un diodo led

Se tiene que hacer esto hasta completar 3

Una vezterminados los tres niveles se soldán

Ya hecho esto empezamos a cablear

Cátodo

Ánodo

Este es el diagrama electrónico

El programa fue hecho en
mikrobasic

trisb=%00000000

y2=1

portb=0

x5=1

portc=0

delay_ms(100)

q=0

y3=1

d=0

x6=1

t= 0

delay_ms(100)

program cuboled870

symbol x1 = portb.0
symbol x2 = portb.1
symbol x3 = portb.2
r=0
symbol x4 =portb.3
k=0

y1=1

o=0

x7=1

l=0

delay_ms(100)

while true

y2=1

'-------rutina 1-------

x8=1

for q=0 to 3

delay_ms(100)

delay_ms(100)

y3=1

y1=1

x9=1

x1=1

delay_ms(100)

delay_ms(200)

y1=0

y2=1

y2=0

x2=1

y3=0

delay_ms(100)

next q

y3=1

for k=0 to 5

x3=1

delay_ms(100)

symbol x5 = portb.4
symbol x6 = portb.5symbol x7 = portb.6
symbol x8 = portb.7
symbol x9 = portc.0
symbol y1 = portc.1
symbol y2 = portc.2
symbol y3 = portc.3
dim q as word
dim d as word
dim t as word
dim r as word
dim k as word
dim p as word
dim l as word
y1=1
dim o as word
delay_ms(100)

y2=1

y1=1

y3=1

x4=1

x1=1

delay_ms(100)

x2=1

main:
trisc=%00000000

x3=1

x5=1

x2=1

delay_ms(100)x6=1

x3=1

x1=0

x7=1

x4=1

x2=0

x8=1

x5=1

x3=0

x9=1

x6=1

x4=1

y1=1

x7=1

x5=1

y2=1

x8=1

x6=1

y3=1

x9=1

delay_ms(100)

delay_ms(100)

y1=1

x4=0

x1=0

delay_ms(100)

x5=0

x2=0

'-----------------------------

x6=0

x3=0

y2=1

x7=1

x4=0

delay_ms(100)

x8=1

x5=0

'---------------------------------

x9=1x6=0

delay_ms(100)

x7=0

y3=1

x7=0

x8=0

delay_ms(100)

x8=0

x9=0

x9=0

y1=0

'--++++----------------------

next k

y2=0

y3=0

y3=0

delay_ms(100)

next d

y2=0

'-------------rutina 2-------------

delay_ms(100)
for d=0 to 8
x1=1

'---------------rutina3--------------

x2=1

for t=0 to 5

x3=1

delay_ms(100)

x4=1

x1=1

y1=0next t
'--------rutina 5---------------

for r=0 to 8

y1=1

y2=1

x5=0

y2=1

y3=1

delay_ms(100)

y3=1

x1=1

x4=0

delay_ms(100)

delay_ms(100)

x5=1

x2=1

x3=0

x3=1

delay_ms(100)

delay_ms(100)

x7=1

x3=1

x2=0

delay_ms(100)

delay_ms(100)

delay_ms(100)

x7=0

x4=1

x1=0

x3=0

delay_ms(100)

delay_ms(100)

x2=1

x5=1

x8=1delay_ms(100)

next p

delay_ms(100)

x6=1

for o=0 to 7

x2=0

delay_ms(100)

x1=1

x8=0

x7=1

y1=1

x1=1

delay_ms(100)

y2=1

x9=1

x8=1

y3=1

delay_ms(100)

delay_ms(100)

delay_ms(200)

x1=0

x9=1

x1=0

x9=0

delay_ms(100)

x2=1

x4=1

x9=0

delay_ms(200)

x6=1

delay_ms(100)

x2=0

delay_ms(100)

x8=0

x3=1

x4=0delay_ms(100)

delay_ms(200)

x6=0

x7=0

x3=0

next r

delay_ms(100)

x6=1

for p=0 to 10

x6=0

delay_ms(200)

y1=1

delay_ms(100)

x6=0

x9=1

delay_ms(200)

x3=1

delay_ms(200)

x3=0

delay_ms(200)

x9=0

x6=1

x3=0

x8=1

delay_ms(200)

x6=1

delay_ms(200)

x6=0

delay_ms(200)

x8=0

x9=1

x6=0

x7=1

delay_ms(200)

x9=1...