Que hubo compadres...
Pues estos dias he andado un poquitin ocupado y por eso el atraso en los ejemplos que dicho sean de paso, me ayudaron bastante para aprender manejo de matrices de leds... el compadre Lord_Lafebre, me acolito en la prog para AVR..
Bueno no mas palabras, vamos con el codigo....
Este es el ejemplo de matriz de leds para mostrar la letra A..
Codigo:
"******************************************************
" MATRIZ DE LEDS - LETRA A
"******************************************************
$crystal = 1000000 "cristal interno 1 MHZ ATMEGA9
Ddrb = 255 "configurar puerto B como salida todos los pines en 1 logico
Portb = 0
Ddrc = &B11111 " configurar pic C.0 como entrada en pull up
Portc = &B00000
Inicio:
Portc = &B00001
Portb = &B00000011
Waitms 10
Portc = &B00010
Portb = &B11101101
Waitms 10
Portc = &B00100
Portb = &B11101110
Waitms 10
Portc = &B01000
Portb = &B11101101
Waitms 10
Portc = &B10000
Portb = &B00000011
Waitms 10
Goto Inicio
Aca esta el ejemplo de matriz de leds para mostrar la palabra HOLA..... Trate de hacer el codigo un poco mas corto q el del pana Lord_Lafebre, pero por si acaso tambien deje como comentarios una programacion similar a la de su ejemplo...
Listo compadres aca el codgio de este ejemplo de matriz de leds y la palabra HOLA:
Codigo:
"******************************************************
" MATRIZ DE LEDS - HOLA
"******************************************************
$crystal = 1000000 "cristal interno 1 MHZ ATMEGA9
Ddrb = 255 "configurar puerto B como salida todos los pines en 1 logico
Portb = 0
Ddrc = &B11111 " configurar pic C.0 como entrada en pull up
Portc = &B00000
"******** DECLARACION DE VARIABLES A USAR***********
Dim Col(5) As Byte "VECTOR COLUMNAS
Dim Fila(20) As Byte "VECTOR FILAS
Dim I As Byte "CONTADORES Y VARIABLES AUXILIARES
Dim J As Byte
Dim K As Byte
Dim Cont As Byte
Dim X As Byte
Dim Y As Byte
Col(1) = 1 "COLUMNA 1= 00001
Col(2) = 2 "COLUMNA 2= 00010
Col(3) = 4 "COLUMNA 3= 00100
Col(4) = 8 "COLUMNA 4= 01000
Col(5) = 16 "COLUMNA 5= 10000
"**** LETRA H *****
Fila(1) = &B0000000
Fila(2) = &B1110111
Fila(3) = &B1110111
Fila(4) = &B1110111
Fila(5) = &B0000000
"**** LETRA 0 *****
Fila(6) = &B1000001
Fila(7) = &B0111110
Fila(
= &B0111110
Fila(9) = &B0111110
Fila(10) = &B1000001
"**** LETRA L *****
Fila(11) = &B0000000
Fila(12) = &B0111111
Fila(13) = &B0111111
Fila(14) = &B0111111
Fila(15) = &B0111111
"**** LETRA A *****
Fila(16) = &B0000001
Fila(17) = &B1101110
Fila(18) = &B1101110
Fila(19) = &B1101110
Fila(20) = &B0000001
Inicio:
For Cont = 1 To 4 " CONT DE LETRA EN ESTE CASO 4 LETRAS : "HOLA"
For K = 0 To 20 " BUCLE DE TIEMPO DE MUESTRA DE CADA LETRA
J = 1 "INDICE QUE INDICA EL INICIO DE CADA COLUMNA
Select Case Cont " SELECCIONA LOS VALORES LIMITES PARA LAS FILAS SEGUN
Case 1 : X = 1 "EL VALOR DE LA LETRA A A MOSTRAR
Y = 5
Case 2 : X = 6
Y = 10
Case 3 : X = 11
Y = 15
Case 4 : X = 16
Y = 20
End Select
For I = X To Y " BUCLE QUE MUESTRA CADA LETRA SEGUN LOS LIMITES ANTES ESTABLECIDOS
Portc = Col(j) " MOSTRAR VALORES DE COLUMNA 1 A 5 EN EL PUERTO C
Portb = Fila(i) " MOSTRAR LA LETRA POR EL PUERTO B
J = J + 1 " INCREMENTAR EL VALOR DE LA COLUMNA
Waitms 10 " TIEMPO DE ESPERA ENTRE COLUMNAS
Next
Next
Next
" ******************ACA LES COLOCO EL CODIGO SIMILAR AL HECHO POR NUESTRO PANA LORD_LAFEBRE************
" ****************** ESTAN COMO COMENTARIOS POR SI DESEAN UTILIZAR EL CODIGO HECHO POR EL *************
" Gosub Letrah
" Gosub Letrao
" Gosub Letral
" Gosub Letraa
Goto Inicio
"Letrah:
" For K = 0 To 10
" J = 1
" For I = 1 To 5
" Portc = Col(j)
" Portb = Fila(i)
" J = J + 1
" Waitms 10
" Next
" Next
"Return
"Letrao:
" For K = 0 To 10
" J = 1
" For I = 6 To 10
" Portc = Col(j)
" Portb = Fila(i)
" J = J + 1
" Waitms 10
" Next
" Next
"Return
"Letral:
" For K = 0 To 10
" J = 1
" For I = 11 To 15
" Portc = Col(j)
" Portb = Fila(i)
" J = J + 1
" Waitms 10
" Next
" Next
"Return
"Letraa:
" For K = 0 To 10
" J = 1
" For I = 16 To 20
" Portc = Col(j)
" Portb = Fila(i)
" J = J + 1
" Waitms 10
" Next
" Next
"Return
Y aca el link de descarga de estos ejemplos:
http://miarroba.com/foros/ver.php?foroid=348538&temaid=3968769Bueno eso es todo por hoy, ya nos veremos..
SALUDOS Y UN ABRAZO DESDE ECUADOR

