PIC 16F628A + Matriz led 7×5 = dado electronico
Es un dado electronico, controlado con un uControlador PIC 16F628A y una matriz de leds de 7×5 como display. fue un proyecto improvisado para la materia de arquitectura de dispositivos programables.
Dejo un video del funcionamiento, simulacion en proteus y archivo hex listo para cargarlo al pic.
Define CONF_WORD = 0x3f50 AllDigital TRISA = %00000100 TRISB = %00000000 Dim numero As Byte Dim fila As Byte Dim datos As Byte Dim x As Byte Dim velocidad As Byte velocidad = 40 datos = 0 numero = 0 Symbol boton = RA2 Symbol col1 = RA1 Symbol col2 = RA0 Symbol col3 = RA7 Symbol col4 = RA6 Symbol col5 = RA3 Symbol fila1 = RB1 Symbol fila2 = RB2 Symbol fila3 = RB3 Symbol fila4 = RB4 Symbol fila5 = RB5 Symbol fila6 = RB6 Symbol fila7 = RB7 inicio: If boton = 1 Then Gosub lanzar_dado Endif Gosub mostrar_numero Goto inicio End lanzar_dado: While boton = 1 datos = %00001 '-------------------------animacion hacia la izkierda While datos < %100000 And boton = 1 Gosub escribir_dato Gosub sumar For x = 1 To velocidad fila = 1 Gosub encender_fila Next x datos = ShiftLeft(datos, 1) Wend '-------------------------animacion hacia abajoo For fila = 1 To 7 datos = %10000 If datos = %10000 And boton = 1 Then Gosub escribir_dato For x = 1 To velocidad Gosub encender_fila Next x Gosub sumar Endif Next fila '-------------------------animacion hacia derecha While datos > %00000 And boton = 1 Gosub escribir_dato Gosub sumar For x = 1 To velocidad fila = 7 Gosub encender_fila Next x datos = ShiftRight(datos, 1) Wend '-------------------------animacion hacia arriba For fila = 7 To 1 Step -1 datos = %00001 If datos = %00001 And boton = 1 Then Gosub escribir_dato For x = 1 To velocidad Gosub encender_fila Next x Gosub sumar Endif Next fila Wend Return sumar: numero = numero + 1 If numero > 6 Then numero = 1 Endif Return mostrar_numero: Select Case numero Case 0 datos = %00000000 Gosub escribir_dato fila = 1 Gosub encender_fila datos = %00000000 Gosub escribir_dato fila = 2 Gosub encender_fila datos = %00000000 Gosub escribir_dato fila = 3 Gosub encender_fila datos = %00000000 Gosub escribir_dato fila = 4 Gosub encender_fila datos = %00000000 Gosub escribir_dato fila = 5 Gosub encender_fila datos = %00000000 Gosub escribir_dato fila = 6 Gosub encender_fila datos = %00000000 Gosub escribir_dato fila = 7 Gosub encender_fila Case 1 datos = %00100 Gosub escribir_dato fila = 1 Gosub encender_fila datos = %01100 Gosub escribir_dato fila = 2 Gosub encender_fila datos = %10100 Gosub escribir_dato fila = 3 Gosub encender_fila datos = %00100 Gosub escribir_dato fila = 4 Gosub encender_fila datos = %00100 Gosub escribir_dato fila = 5 Gosub encender_fila datos = %00100 Gosub escribir_dato fila = 6 Gosub encender_fila datos = %11111 Gosub escribir_dato fila = 7 Gosub encender_fila Case 2 datos = %01110 Gosub escribir_dato fila = 1 Gosub encender_fila datos = %10001 Gosub escribir_dato fila = 2 Gosub encender_fila datos = %10001 Gosub escribir_dato fila = 3 Gosub encender_fila datos = %00010 Gosub escribir_dato fila = 4 Gosub encender_fila datos = %00100 Gosub escribir_dato fila = 5 Gosub encender_fila datos = %01000 Gosub escribir_dato fila = 6 Gosub encender_fila datos = %11111 Gosub escribir_dato fila = 7 Gosub encender_fila Case 3 datos = %11111 Gosub escribir_dato fila = 1 Gosub encender_fila datos = %00001 Gosub escribir_dato fila = 2 Gosub encender_fila datos = %00010 Gosub escribir_dato fila = 3 Gosub encender_fila datos = %00110 Gosub escribir_dato fila = 4 Gosub encender_fila datos = %00001 Gosub escribir_dato fila = 5 Gosub encender_fila datos = %00001 Gosub escribir_dato fila = 6 Gosub encender_fila datos = %11110 Gosub escribir_dato fila = 7 Gosub encender_fila Case 4 datos = %00010 Gosub escribir_dato fila = 1 Gosub encender_fila datos = %00110 Gosub escribir_dato fila = 2 Gosub encender_fila datos = %01010 Gosub escribir_dato fila = 3 Gosub encender_fila datos = %11111 Gosub escribir_dato fila = 4 Gosub encender_fila datos = %00010 Gosub escribir_dato fila = 5 Gosub encender_fila datos = %00010 Gosub escribir_dato fila = 6 Gosub encender_fila datos = %00010 Gosub escribir_dato fila = 7 Gosub encender_fila Case 5 datos = %11111 Gosub escribir_dato fila = 1 Gosub encender_fila datos = %10000 Gosub escribir_dato fila = 2 Gosub encender_fila datos = %10000 Gosub escribir_dato fila = 3 Gosub encender_fila datos = %01110 Gosub escribir_dato fila = 4 Gosub encender_fila datos = %00001 Gosub escribir_dato fila = 5 Gosub encender_fila datos = %00001 Gosub escribir_dato fila = 6 Gosub encender_fila datos = %11110 Gosub escribir_dato fila = 7 Gosub encender_fila Case 6 datos = %01110 Gosub escribir_dato fila = 1 Gosub encender_fila datos = %10001 Gosub escribir_dato fila = 2 Gosub encender_fila datos = %10000 Gosub escribir_dato fila = 3 Gosub encender_fila datos = %11110 Gosub escribir_dato fila = 4 Gosub encender_fila datos = %10001 Gosub escribir_dato fila = 5 Gosub encender_fila datos = %10001 Gosub escribir_dato fila = 6 Gosub encender_fila datos = %01110 Gosub escribir_dato fila = 7 Gosub encender_fila EndSelect Return escribir_dato: col1 = datos.4 col2 = datos.3 col3 = datos.2 col4 = datos.1 col5 = datos.0 Return encender_fila: Select Case fila Case 1 fila1 = 0 WaitUs 500 fila1 = 1 Case 2 fila2 = 0 WaitUs 500 fila2 = 1 Case 3 fila3 = 0 WaitUs 500 fila3 = 1 Case 4 fila4 = 0 WaitUs 500 fila4 = 1 Case 5 fila5 = 0 WaitUs 500 fila5 = 1 Case 6 fila6 = 0 WaitUs 500 fila6 = 1 Case 7 fila7 = 0 WaitUs 500 fila7 = 1 EndSelect Return
Popularity: 100%
-
-
-
#6 escrito por azpiazu hace 1 año
-
-
-
-
#11 escrito por azpiazu hace 1 año
-
#13 escrito por yoko hace 1 año
-
#15 escrito por yoko hace 1 año
-
-
#21 escrito por link08 hace 9 meses
-
#23 escrito por valentina hace 9 meses
-
#26 escrito por princess hace 9 meses
-
#28 escrito por zhabino hace 6 meses
-
#31 escrito por zhabino hace 6 meses
-
Lo primero que debes cambiar dentro del IDE es el chip a usar, después cambiar la palabra de configuración ya que con este 16f628 se esta usando el oscilador interno, el cual el 16f84 no posee por lo que debes colocar un cristal oscilador, por lo de las entradas no hay problemas son 100% compatibles.
Saludos
-
-
#33 escrito por zhabino hace 6 meses
Define CONF_WORD = 0x3f50
de esto tendria ke cambiar xke en el ide ya lo cambie en esto quiero saber si lo borro o dime disculpa solo que tengo este proyecto para entregarlo a mas tardar dentro de 24 horas ya tngo todo los componentes pero a la hora que lo probe me corre pero no me lo representa bien y otro de que soy nuevo en esto pero neta si me llama la atencion y quiero crear un cubo 3x3x3 pero no tngo idea agradeceria mucho tu ayuda. de antemano gracias.
-
#35 escrito por zhabino hace 6 meses
-
En la pagina del creador del software existen ejemplos bastante buenos
http://www.oshonsoft.com/picbasiccompilerexamples.html
http://www.oshonsoft.com/picgettingstarted.pdfy tambien se encuentran la referencia a todas las instrucciones del compilador
http://www.oshonsoft.com/picbasiccompilerreferencemanual.html
estan en ingles
-
-
#37 escrito por Bruno hace 5 meses
Hola! mira me interesa mucho, que compilador utilizaste? yo un principiante en microbasick y estoy realizando un proyecto de este tipo, mira como para guiarte hice la matriz de led que aparece en la revista de u-control http://www.ucontrol.com.ar/wiki/index.php?title=Matriz_de_LEDS_de_8x8 pero tengo bastantes dudas, me servira este circuito que hice para tu programacion? necesito saber si mi plaqueta funciona, estoy usando un 16f628a como el tuyo, el problema que tengo es como cambia de columna sino me equivoco trabaja con un 74hc164, desde ya muchas gracias! saludos!ª
-
-
#39 escrito por marvin hace 2 meses
hola que tal,
me gusta mucho el dado, ya lo estoy empezando a montar, pero apenas soy muy muy novato en esto de los pics, mi rpegunta es al montarlo en una proto necesito un cristal de cuarzo para que funcione o este pic ya tiene incorporado un oscilador o algo asi que me permita realizar la funcion, otra cosa compre una matriz de leds 5×7
y tiene 7 patitas en la parte de arriba y 7 en la parte de abajo , y en tu diagrama que esta en proteus veo que abajo tienes conectadas las 7 pero arriba solo 5, que pasa con las otras dos restantes
espero tu respuesta gracias -
Hola,
Este modelo de pic cuenta con un oscilador interno, por lo que no es necesario utilizar un cristal, en cuanto a la matriz de leds algunas un par de pines son comunes, por eso se conectan solo 5, para que puedas conectarla correctamente debes buscar el diagrama en la hoja de datos correspondiente a tu matriz, en mi caso use una modelo MUR30A, puedes encontrar su datasheet en la seccion de utilidades mas arriba.
-
- Feed de comentarios de esta entrada
podrías ponerlos de nuevo?
.
Loading ...
Muy interesante me gustaria saber mas al respecto.