estoy realizando el manejo de una matrix de led
y usando el programa bascon avr pero al final me da un erro y no se por que
si alguien me explica que estoy haciendo mal gracias de antemano
codigo:
'----- CONFIGURO PUERTOS-----
$regfile = "m324pdef.dat" 'Microcontrolador a usar
$crystal = 8000000 'Frecuencia del reloj interno
'***Configuraciones
Config Portb = Output
Config Portd = Output
'
'Configuro el portA:
Portd.0 = 0 'Salida CLOCK
Portd.1 = 0 'Salida DATA
Portd.2 = 1 'Entrada Dip 0
Portd.3 = 1 'Entrada Dip 1
Portd.4 = 1 'Entrada Dip 2
Portd.5 = 1 'Entrada Dip 3
'
'Configuro el portB:
Portb.0 = 0 'Salida (Fila 1)
Portb.1 = 1 'Entrada RS-232
Portb.2 = 0 'Salida (Fila 2)
Portb.3 = 0 'Salida (Fila 3)
Portb.4 = 0 'Salida (Fila 4)
Portb.5 = 0 'Salida (Fila 5)
Portb.6 = 0 'Salida (Fila 6)
Portb.7 = 0 'Salida (Fila 7)
'
'Simbolos
Clock Alias Portd.0
Dato Alias Portd.1
Fila1 Alias Portb.0
Fila2 Alias Portb.2
Fila3 Alias Portb.3
Fila4 Alias Portb.4
Fila5 Alias Portb.5
Fila6 Alias Portb.6
Fila7 Alias Portb.7
Clock = 0
Dato = 0
'Declaracion de variables
Dim Col As Byte
Dim Aux As Byte
Dim Aux1 As Word
'
Portb = 255 'Apago todas las filas antes de comenzar
'
'---------BUCLE PRINCIPAL------------
Loop:
Aux1 = &B0001111011111010
Gosub Escribo
Waitms 2
Fila1 = 1
Aux1 = &B0010011100011110
Gosub Escribo
Fila1 = 0
Waitms 2
Fila1 = 1
Aux1 = &B0010001000001010
Gosub Escribo
Aux1 = &B0010100010100010
Gosub Escribo
Fila2 = 0
Waitms 2
Fila2 = 1
'
Aux1 = &B0010001000001010
Gosub Escribo
Aux1 = &B0010100010100010
Gosub Escribo
Fila3 = 0
Waitms 2
Fila3 = 1
'
Aux1 = &B0001111000111010
Gosub Escribo
Aux1 = &B0010100010011110
Gosub Escribo
Fila4 = 0
Waitms 2
Fila4 = 1
'
Aux1 = &B0000101000001010
Gosub Escribo
Aux1 = &B1010100010000010
Gosub Escribo
Fila5 = 0
Waitms 2
Fila5 = 1
'
Aux1 = &B0001001000001001
Gosub Escribo
Aux1 = &B1100100010000010
Gosub Escribo
Fila6 = 0
Waitms 2
Fila6 = 1
'
Aux1 = &B0010001011111001
Gosub Escribo
Aux1 = &B0100011100000010
Gosub Escribo
Fila7 = 0
Waitms 2
Fila7 = 1
'
Goto Loop
'
End
'
'Subrutina que llena el registro de dezplazamiento
Escribo:
For Col = 1 To 16
If Aux1.15 = 0 Then
Dato = 1
Waitus 2
Clock = 0
Waitus 2
Clock = 1
Waitus 2
Else
Dato = 0
Waitus 2
Clock = 0
Waitus 2
Clock = 1
Waitus 2
End If
Aux1 = Lookup(aux1 , 1)
Next Col
'erro 138 label no found
Return
