El colega lucassiglo21 en este foro compartio un proyecto con displays de 7 segmentos.
Este es el enlace: Reloj despertador con pic y cristal de 32.768khz
El colega lucassiglo21 en este foro compartio un proyecto con displays de 7 segmentos.
Bueno pues les tengo buenas y malas noticias con mi proyecto, que en realidad es un temporizador y un cuenta goles para un futbolito de mesa
el 50% del problema restante era que el pic que estaba usando estaba dañado algun pin que iba al LCD, pero ese pic era nuevo asi que no supuse que estaba dañado, (se debio haber dañado con estatica o algo asi), puse otro nuevo y listo ya funciona como se supone que debia hacerlo
ya tenia los sensores de los goles, el monedero electronico para las monedas, y un bedito actuador para detener las pelotas cuando el tiempo se acabara.... todo funcionaba de maravilla peroooooooo... que se atora el bendito actuador y se sobrecalento el circuito y se quemo el ultimo pic 628A que me quedaba...
ahora hare lo mismo pero con uno de los dos 877A que tengo... y empezar de nuevo...
si dices que se reprograma sin problema algo esta raro...
... espero no sea mucho pedir jeje... (ah, el programa lee el eje Xout-H, la lectura que hice fue hecha de a un eje.)
@ DEVICE MCLR_OFF, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF
include "modedefs.bas"
DEFINE OSC 4 ' Para trabajar con un cristal de 4MHz
DEFINE I2C_HOLD 1
define I2C_SLOW 0 ' Velocidad de I2C de 400KHz
trisa=0 'puertos como salidas
trisb=0
porta=0
portb=0
SDA VAR PORTB.1 'entrada y salida de datos
SCL VAR PORTB.2 'reloj
a1 var byte 'variable para almacenar los datos recibidos
i2cwrite sda,scl,%11010000,62,[$80] 'resetear el ITG a 0
pause 10
i2cwrite sda,scl,%11010000,21,[$09] 'configuro SAMPLE RATE
pause 10
i2cwrite sda,scl,%11010000,22,[$3] 'registro 22 full scale a ±2000°/sec
pause 10
i2cwrite sda,scl,%11010000,23,[$00] 'sin interrupcion
pause 10
leer:
I2CREAD sda,scl,%11010000,29,[a1] 'leer eje Xout-H y guardar en a1
pause 5
serout portb.0,N2400,[#a1,"-"] 'enviar el valor de a1 a la pc
pause 5
goto leer 'vuelve a iniciar lectura
@ DEVICE MCLR_OFF, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF
include "modedefs.bas"
DEFINE OSC 4 'Para trabajar con un cristal de 4MHz
DEFINE I2C_HOLD 1
define I2C_SLOW 0 'Velocidad de I2C de 400KHz
trisa=0 'puertos como salidas
trisb=0
porta=0
portb=0
SDA VAR PORTB.1 'entrada y salida de datos
SCL VAR PORTB.2 'reloj
a1 var byte 'variable para almacenar los datos recibidos
'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
a2 var byte 'variable para almacenar los datos recibidos (LOW)
'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
i2cwrite sda,scl,%11010000,62,[$80] 'resetear el ITG a 0
pause 10
i2cwrite sda,scl,%11010000,21,[$09] 'configuro SAMPLE RATE
pause 10
i2cwrite sda,scl,%11010000,22,[$18] 'registro 22 full scale a ±2000°/sec
'Modificado según ReyVilla
pause 10
i2cwrite sda,scl,%11010000,23,[$00] 'sin interrupcion
pause 10
leer:
I2CREAD sda,scl,%11010000,29,[a1] 'leer eje Xout-H y guardar en a1
pause 5
'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
I2CREAD sda,scl,%11010000,30,[a2] 'leer eje Xout-L y guardar en a2
'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
serout portb.0,N2400,[#a1,"-"] 'enviar el valor de a1 a la pc
pause 5
'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
serout portb.0,N2400,[#a2,"-"] 'enviar el valor de a2 a la pc
pause 5
'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
goto leer 'vuelve a iniciar lectura@ DEVICE MCLR_OFF, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF
include "modedefs.bas"
DEFINE OSC 4 'Para trabajar con un cristal de 4MHz
DEFINE I2C_HOLD 1
define I2C_SLOW 0 'Velocidad de I2C de 400KHz
trisa=0 'puertos como salidas
trisb=0
porta=0
portb=0
SDA VAR PORTB.1 'entrada y salida de datos
SCL VAR PORTB.2 'reloj
a1 var byte 'variable para almacenar los datos recibidos
[COLOR=red]'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#[/COLOR]
a2 var byte 'variable para almacenar los datos recibidos (Low)
b1 var byte 'variable para almacenar los datos recibidos (High)
b2 var byte 'variable para almacenar los datos recibidos (Low)
c1 var byte 'variable para almacenar los datos recibidos (High)
c2 var byte 'variable para almacenar los datos recibidos (Low)
d1 var byte 'variable para almacenar los datos recibidos (High)
d2 var byte 'variable para almacenar los datos recibidos (Low)
[COLOR=red]'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#[/COLOR]
i2cwrite sda,scl,%11010000,62,[$80] 'resetear el ITG a 0
pause 10
i2cwrite sda,scl,%11010000,21,[$09] 'configuro SAMPLE RATE
pause 10
i2cwrite sda,scl,%11010000,22,[$18] 'registro 22 full scale a ±2000°/sec
'Modificado según ReyVilla
pause 10
i2cwrite sda,scl,%11010000,23,[$00] 'sin interrupcion
pause 10
leer:
I2CREAD sda,scl,%11010000,29,[a1] 'leer eje Xout-H y guardar en a1
pause 5
[COLOR=red]'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#[/COLOR]
I2CREAD sda,scl,%11010000,30,[a2] 'leer eje Xout-L y guardar en a2
pause 5
I2CREAD sda,scl,%11010000,31,[b1] 'leer eje Yout-H y guardar en b1
pause 5
I2CREAD sda,scl,%11010000,32,[b2] 'leer eje Yout-L y guardar en b2
pause 5
I2CREAD sda,scl,%11010000,33,[c1] 'leer eje Zout-L y guardar en c1
pause 5
I2CREAD sda,scl,%11010000,34,[c2] 'leer eje Zout-L y guardar en c2
pause 5
I2CREAD sda,scl,%11010000,27,[d1] 'leer eje Temp-L y guardar en d2
pause 5
I2CREAD sda,scl,%11010000,28,[d2] 'leer eje Temp-L y guardar en d2
pause 5
[COLOR=red]'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#[/COLOR]
serout portb.0,N2400,[#a1,"-"] 'enviar el valor de a1 a la pc
pause 5
[COLOR=red]'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#[/COLOR]
serout portb.0,N2400,[#a2,"-"] 'enviar el valor de a2 a la pc
pause 5
serout portb.0,N2400,[#b1,"-"] 'enviar el valor de b1 a la pc
pause 5
serout portb.0,N2400,[#b2,"-"] 'enviar el valor de b2 a la pc
pause 5
serout portb.0,N2400,[#c1,"-"] 'enviar el valor de c1 a la pc
pause 5
serout portb.0,N2400,[#c2,"-"] 'enviar el valor de c2 a la pc
pause 5
serout portb.0,N2400,[#d1,"-"] 'enviar el valor de d1 a la pc
pause 5
serout portb.0,N2400,[#d2,"-"] 'enviar el valor de d2 a la pc
pause 5
[COLOR=red]'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#[/COLOR]
goto leer 'vuelve a iniciar lectura@ DEVICE MCLR_OFF, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF
include "modedefs.bas"
DEFINE OSC 4 'Para trabajar con un cristal de 4MHz
DEFINE I2C_HOLD 1
define I2C_SLOW 0 'Velocidad de I2C de 400KHz
trisa=0 'puertos como salidas
trisb=0
porta=0
portb=0
SDA VAR PORTB.1 'entrada y salida de datos
SCL VAR PORTB.2 'reloj
TEMP_OUT_H VAR BYTE 'variable de TEMP_OUT_H
TEMP_OUT_L VAR BYTE 'variable de TEMP_OUT_L
GYRO_XOUT_H VAR BYTE 'variable de GYRO_XOUT_H
GYRO_XOUT_L VAR BYTE 'variable de GYRO_XOUT_L
GYRO_YOUT_H VAR BYTE 'variable de GYRO_YOUT_H
GYRO_YOUT_L VAR BYTE 'variable de GYRO_YOUT_L
GYRO_ZOUT_H VAR BYTE 'variable de GYRO_ZOUT_H
GYRO_ZOUT_L VAR BYTE 'variable de GYRO_ZOUT_L
'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
a2 var byte 'variable para almacenar los datos recibidos (LOW)
'#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
i2cwrite sda,scl,%11010000,62,[$80] 'resetear el ITG a 0
pause 10
i2cwrite SDA,SCL,%11010000,21,[$09,$18,$00] 'configuracion del igt
pause 10
leer:
I2CREAD sda,scl,%11010000,27,[TEMP_OUT_H,TEMP_OUT_L,GYRO_XOUT_H,_
GYRO_XOUT_L,GYRO_YOUT_H,GYRO_YOUT_L,GYRO_ZOUT_H,GYRO_ZOUT_L] 'leer desde la direccion 27 a la 34
pause 10 'y lo guarda en su respéctiva variable
serout portb.0,N2400,["TEMP-H",#TEMP_OUT_H,"-",10,13] 'enviar el valor de TEMP_OUT_H a la pc
serout portb.0,N2400,["TEMP-H",#TEMP_OUT_L,"-",10,13] 'enviar el valor de TEMP_OUT_H a la pc
pause 5
serout portb.0,N2400,["X-H",#GYRO_XOUT_H,"-",10,13] 'enviar el valor de GYRO_XOUT_H a la pc
serout portb.0,N2400,["X-L",#GYRO_XOUT_L,"-",10,13] 'enviar el valor de GYRO_XOUT_L a la pc
pause 5
serout portb.0,N2400,["Y-H",#GYRO_YOUT_h,"-",10,13] 'enviar el valor de GYRO_YOUT_H a la pc
serout portb.0,N2400,["Y-L",#GYRO_yOUT_l,"-",10,13] 'enviar el valor de GYRO_YOUT_L a la pc
pause 5
serout portb.0,N2400,["Z-H",#GYRO_ZOUT_h,"-",10,13] 'enviar el valor de GYRO_ZOUT_H a la pc
serout portb.0,N2400,["Z-L",#GYRO_ZOUT_l,"-",10,13] 'enviar el valor de GYRO_ZOUT_L a la pc
pause 5
goto leer 'vuelve a iniciar lectura
