, logre hacer desplazar un HOLA. el problema es que, la multiplexacion es muy lenta. me gustaria saber si alguno de uds me tira algunas otras ideas o si me dan una idea de como hacer para que no se vea ta lenta la multiplexacion modificando el programilla que ya les comparto mas abajo.
@ DEVICE MCLR_OFF, INTRC_OSC, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF
DEFINE OSC 4
CMCON = 7 ' desactivo el convertidor AD del puerto A
TrisA=%10110000 'todo el port A como entrada
TrisB=%00000000 'todo el port B como salida
PORTA = %10110000 'todo el port A en 1
PORTB = %00000000 'todo el port B en 0
k var word
j var byte
x var byte [30]
i var byte
y var byte [5]
'columnas
'H
x[0]=%11000000
x[1]=%11110111
x[2]=%11110111
x[3]=%11000000
x[4]=%11111111
'O
x[5]=%11100001
x[6]=%11011110
x[7]=%11011110
x[8]=%11100001
x[9]=%11111111
'L
x[10]=%11000000
x[11]=%11011111
x[12]=%11011111
x[13]=%11011111
x[14]=%11111111
'A
x[15]=%11000001
x[16]=%11110110
x[17]=%11110100
x[18]=%11000001
x[19]=%11111111
'/
x[20]=%11111101
x[21]=%11111011
x[22]=%11110111
x[23]=%11101111
x[24]=%11011111
'/
x[25]=%11111101
x[26]=%11111011
x[27]=%11110111
x[28]=%11101111
x[29]=%11011111
'col
y[0]=%00000001
y[1]=%00000010
y[2]=%00000100
y[3]=%00001000
y[4]=%01000000
inicio:
for k=0 to 100
for i=0 to 26
for j=0 to 4
portb=x[i+j]
porta=y[j]
pause 25
next j
next i
next k
porta=0
portb=0
goto inicio
hola gente del foro, feliz año nuevo.
bueno, comenzando el año en este post. les cuento que estoy intentando hacer funcionar una matriz de leds de 5x7 con in pic16f628 sin registros de desplazamientos, solo pic. bueno, despues de investigar un poco y haciendo un poco de copy paste
saludos a todosss.
Código:inicio: for k=0 to 100 for i=0 to 26 for j=0 to 4 portb=x[i+j] porta=y[j] [COLOR=Red]pause 25[/COLOR] next j next i next k porta=0 portb=0 goto inicio
estoy probandolo armado en un protoboard, por eso no preste atencion al isis jeje...
si, yo tambien hice eso, pero solo logre que las letras pasaran mas rapido, por lo que decidi dejarlo asi...
jeje... si, eso pasa cuando uno hace copi paste jajaja...
hola gente del foro, feliz año nuevo.
bueno, comenzando el año en este post. les cuento que estoy intentando hacer funcionar una matriz de leds de 5x7 con in pic16f628 sin registros de desplazamientos, solo pic. bueno, despues de investigar un poco y haciendo un poco de copy paste
saludos a todosss.
Código:@ DEVICE MCLR_OFF, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF DEFINE OSC 4 CMCON = 7 ' desactivo el convertidor AD del puerto A TrisA=%00000000 'todo el port A como salida TrisB=%00000000 'todo el port B como salida PORTA = %00000000 'todo el port A en 0 PORTB = %00000000 'todo el port B en 0 k var word j var byte x var byte [30] i var byte y var byte [5] 'columnas 'H x[0]=%11000000 x[1]=%11110111 x[2]=%11110111 x[3]=%11000000 x[4]=%11111111 'O x[5]=%11100001 x[6]=%11011110 x[7]=%11011110 x[8]=%11100001 x[9]=%11111111 'L x[10]=%11000000 x[11]=%11011111 x[12]=%11011111 x[13]=%11011111 x[14]=%11111111 'A x[15]=%11000001 x[16]=%11110110 x[17]=%11110100 x[18]=%11000001 x[19]=%11111111 '/ x[20]=%11111101 x[21]=%11111011 x[22]=%11110111 x[23]=%11101111 x[24]=%11011111 '/ x[25]=%11111101 x[26]=%11111011 x[27]=%11110111 x[28]=%11101111 x[29]=%11011111 'col y[0]=%00000010 y[1]=%00000100 y[2]=%00001000 y[3]=%00010000 y[4]=%00100000 inicio: for k=0 to 100 for i=0 to 26 for j=0 to 4 portb=x[i+j] porta=y[j] pause 25 next j next i next k porta=0 portb=0 goto inicio
hola Dario revise tu trabajo y está fácil la reforma solo basta con activar el oscilador externo del pic a 4 mhz en el programa y en la rutina de columnas ponemos a4 en alto y a6 en bajo ponemos el porta4 para la salida uno y le ponemos una resistencia de 10k en pull up y así funciona bien revisa la rutina y veras los cambios que le hice suerte con tu proyecto...
)
'****************************************************************
'* Name : DIMMER 2 BOTONES.BAS *
'* Author : REIMY VILLAMIZAR *
'* Notice : Copyright (c) 2011 *
'* : All Rights Reserved *
'* Date : 04/12/2011 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
@ device pic12f675,intrc_osc,wdt_on,pwrt_off,mclr_oFF,bod_off,protect_off
Define OSC 4
Include "modedefs.bas"
'DEFINE OSCCAL_1K 1
CMCON = 7
ANSEL = 0
TRISIO = %00111101
GPIO = %00000000
OPTION_REG = %00000000
WPU = %00000000
LED VAR GPIO.0
SUBE VAR GPIO.5
IN VAR GPIO.4
TRIAC VAR GPIO.1
A VAR WORD
DATO VAR BYTE
A = 1
DATO = 0
ON INTERRUPT GOTO CRUCE_POR_CERO
INTCON = %10010000
INICIO:
DATO = 0
SERIN IN,N2400,1,INICIO,["."],DATO
GOTO INICIO
DISABLE
CRUCE_POR_CERO:
IF DATO = "2" THEN
A = A + 20
ENDIF
PAUSEUS A
IF A => 1 THEN
TRIAC = 1
PAUSEUS 100
TRIAC = 0
ENDIF
INTCON.1=0
OPTION_REG.6 = OPTION_REG.6 ^%1
RESUME
ENABLE
END@ device pic12f675,intrc_osc,wdt_on,pwrt_off,mclr_oFF,bod_off,protect_off
Define OSC 4
DEFINE OSCCAL_1K 1
CMCON = 7
ANSEL = 0
TRISIO = %00111101
GPIO = %00000000
OPTION_REG = %00000000
WPU = %00110000
SUBE VAR GPIO.5
BAJA VAR GPIO.4
TRIAC VAR GPIO.1
A VAR WORD
TRIAC = 0
a = 1
PAUSE 500
ON INTERRUPT GOTO CRUCE_POR_CERO
INTCON = %10010000
INICIO:
IF SUBE = 0 AND BAJA = 0 THEN GOTO INICIO
IF SUBE = 0 AND BAJA = 1 THEN GOTO INCREMENTA
IF SUBE = 1 AND BAJA = 0 THEN GOTO DECREMENTA
IF SUBE = 1 AND BAJA = 1 THEN GOTO INICIO
GOTO INICIO
INCREMENTA:
IF A => 6000 THEN GOTO INICIO
A = A + 1
GOTO INICIO
DECREMENTA:
IF A =< 1 THEN GOTO INICIO
A = A - 1
GOTO INICIO
DISABLE
CRUCE_POR_CERO:
PAUSEUS A
IF A => 1 THEN
TRIAC = 1
PAUSEUS 100
TRIAC = 0
ENDIF
INTCON.1=0
OPTION_REG.6 = OPTION_REG.6 ^%1
RESUME
ENABLE
ENDSaludos reyvilla.
