Imprimir Página - DS1307 - Pic16F877A - Proteus 7

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: pajaro en 19 de Junio de 2008, 15:28:08

Título: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 19 de Junio de 2008, 15:28:08

hola amigos.

necesito vuestra ayuda, desde hace varias semanas llevo con el DS1307 y el pic16F877A lo intento programar en PSI el Circuito lo monte en Proteus 7.

tengo dos problemas:

1º el SPI tarda mucho, pero mucho mucho, en empezar a simular y eso que los tiempos son en segundos.

el programa hace que si el RB1=0 carga los datos en los registros del ds1307 es decir inicializa los registros
con unos valores, lee los valores del registro del ds1307, y los plasma en el lcd, creo que hay algunos errores en el codigo, pero por lo menos deberia de mostrar algo en el lcd y no lo hace.

el programa es este:

'-------------------------------------Puertos del LCD-----------------------------------------------
Define LCD_BITS = 4 'indicamos que el bus de datos del lcd sera de 4bit
Define LCD_DREG = PORTD 'el bus de datos sera el puerto A
Define LCD_DBIT = 4 'el bus de datos seran los 4 bit menos significativos del puerto A
Define LCD_RSREG = PORTB 'el bit de nrol RS sera del puerto B
Define LCD_RSBIT = 7 'se usara el RB7 como RS
Define LCD_EREG = PORTB 'el bit de nrol E sera del puerto B
Define LCD_EBIT = 6 'se usara el RB6 como E
'Define LCD_RWREG = PORTx 'el bit de nrol RW sera del puerto x(no se usa)
'Define LCD_RWBIT = n 'se usara el Rxn como RW (no se usa)
Define LCD_COMMANDUS = 1000 'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 50 'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50 'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
'-----------------------------------Puerto I2C-----------------------------------------------------
Symbol sda = PORTC.4 'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTC.3 'asignamos nombre al pin que hara de SCL del puerto I2C
'***********************************DEFINICION DE VARIABLES**************************************
'--------------------------------------Variables Programa----------------------------------------
Dim aux_4h As Byte 'contendra el nibble alto del dato leido por el I2C
Dim aux_4l As Byte 'contendra el nibble bajo del dato leido por el I2C
Dim i As Byte 'variable indice
Dim reg(7) As Byte 'contendra los valores finales de fecha y hora en el sistema decimal
'------------------------------------------ASIGNACIONES------------------------------------------
'**************************************DEFINICION DE PUERTOS*************************************
'----------------------ASIGNACION DE I/O y valores de inicio de las salidas---------------------
'ADCON1 = 0x07 'Los pin PORTA como I/O
'ansel = %00000000 'los pin I/O digitales
'CMCON = 0x07 'comparador a off
'osccon = 0x7e 'set intrc To 8mhz, se usara reloj interno a 8Mhz
TRISA = 0x00 'Puerto A como salidas
TRISB = 0x00 'puerto B como salidas
TRISC = 0x00
TRISD = 0x00
TRISE = 0x00
TRISA.4 = 1 'como entrada (RA4, adc)
TRISB.1 = 1 'como entrada (RA6, tecla S1)
TRISB.2 = 1 'como entrada (RA5, tecla S2)
PORTB.3 = 1 'luz lcd a on (RB3)
PORTC.7 = 1 'led amarillo a off
PORTB.0 = 1 'led verde a off
'**************************************Inicio Programa*********************************************
Lcdinit 1 'inicializa el lcd sin cursor
WaitMs 1000 'espera 1Seg
Lcdout "16f88LCD_RTC/I2C" 'escribe en el lcd
Lcdcmdout LcdLine2Home 'seleciona la linea dos como proxima para escritura
Lcdout "Pruebas con I2C" 'escribe en el lcd
WaitMs 3000 'espera 3Seg
Lcdcmdout LcdClear
'-------------------------------------inicializacion del reloj-------------------------------------
'-------------------Aqui escribimos los valores para cargar al RTC---------------------------------
If RB1 = 0 Then 'si la tecla S1 esta pulsada pasaremos los datos al reloj
I2CWrite sda, scl, 0xd0, 0, 0x00 'segundos, escrito en hex, porque coincide en este caso con BCD del RTC
I2CWrite sda, scl, 0xd0, 1, 0x59 'minutos
I2CWrite sda, scl, 0xd0, 2, 0x23 'horas
I2CWrite sda, scl, 0xd0, 3, 0x01 'dia de la semana
I2CWrite sda, scl, 0xd0, 4, 0x31 'dia del mes
I2CWrite sda, scl, 0xd0, 5, 0x12 'mes
I2CWrite sda, scl, 0xd0, 6, 0x06 'año
I2CWrite sda, scl, 0xd0, 7, 0x10 'salida a 1hz
Endif
'--------------------------------------Main Programa-----------------------------------------------
main:
Gosub print_lcd 'actualiza la hora
WaitMs 100 'pausa de 100mSeg.
Goto main
End
'--------------------------------------FIN DEL MAIN---------------------------------------------
'**************************************Subrrutinas**********************************************
print_lcd: 'lee la hora del RTC, la pasa a decimal y la envia al lcd
i = 0
While i <= 6 'se repite el codigo comprendido entre while y wend, mientras i sea menor o igual a 6
I2CRead sda, scl, 0xd1, i, reg(i) 'lectura de la direccion de memoria indicada del RTC, formato BCD
aux_4l = reg(i) And %00001111 'eliminamos los bit de configuracion del RTC y dejamos solo el nibble bajo
If i = 0 Then aux_4h = reg(i) And %01110000 'segundos, borrado de bit configuracion y almacena nibble alto
If i = 1 Then aux_4h = reg(i) And %11110000 'minutos, almacena nibble alto
If i = 2 Then aux_4h = reg(i) And %10110000 'horas, borrado de bit configuracion y almacena nibble alto
If i = 3 Then aux_4h = reg(i) And %11110000 'dia_semana, almacena nibble alto
If i = 4 Then aux_4h = reg(i) And %11110000 'dia_mes, almacena nibble alto
If i = 5 Then aux_4h = reg(i) And %11110000 'mes, almacena el nibble alto
If i = 6 Then aux_4h = reg(i) And %11110000 'año, almacena el nibble alto
aux_4h = ShiftRight(aux_4h, 4) 'convierte el nibble alto en bajo
reg(i) = (aux_4h * 10) + aux_4l 'fusiona los nibbles alto y bajo en una sola variable en formato decimal
i = i + 1 'incrementa la variable indice con cada repeticion del bucle While/Wend
Wend 'fin del bucle y salta a While
Lcdcmdout LcdLine1Home 'cursor del lcd a la izquierda en la linea 1
If reg(2) < 10 Then Lcdout "0" 'si horas es inferior a 10 escribe el cero delante
Lcdout #reg(2), ":" 'escribe la hora y el separador
If reg(1) < 10 Then Lcdout "0" 'si minutos es inferior a 10 escribe el cero delante
Lcdout #reg(1), ":" 'escribe los minutos y el separador
If reg(0) < 10 Then Lcdout "0" 'si segundos es inferior a 10 escribe el cerodelante
Lcdout #reg(0) 'escribe los segundos
Lcdcmdout LcdLine2Home 'cursor del lcd a la izquierda en la linea 2
If reg(3) = 1 Then Lcdout "Dom" 'asigna el literal al dia de la semana
If reg(3) = 2 Then Lcdout "Lun"
If reg(3) = 3 Then Lcdout "Mar"
If reg(3) = 4 Then Lcdout "Mie"
If reg(3) = 5 Then Lcdout "Jue"
If reg(3) = 6 Then Lcdout "Vie"
If reg(3) = 7 Then Lcdout "Sab"
Lcdout "/" 'escribe separador
If reg(4) < 10 Then Lcdout "0" 'si dia del mes es inferior a 10 escribe cero
Lcdout #reg(4), "/" 'escribe el dia del mes y el separador
If reg(5) < 10 Then Lcdout "0" 'si mes es inferior a 10 escribe cero
Lcdout #reg(5), "/" 'escribe el mes, separador y los dos primeros digitos del año de 4 digitos
If reg(6) < 10 Then Lcdout "0" 'si año es inferior a 10 escribe primero el cero
Lcdout #reg(6) 'escribe el año
Return
End

-------------

el segundo problema es la simulacion del programa en proteus, el LCD me ta dando la lata no se si es por el refresco, o por las famosas resistencias, lo que si que se, es que en el debug del i2c se ve como escribe, bueno yo creo que escribe, me que me sacaran de dudas.

hay alguna forma de poner el archivo *.bas del SPI dentro del Proteus7 y seguir la ejecucuin de instruciones.

Me gustaria que alguen me ayudase , si fuese algun moderador mejor,
llevo muchas semanas con esto y no se que ocurre, entre los retrasos del SPI y los problemas con el LCD de proteus, entre las resistencais pull-up y los warning, ya no se que hago mal.

gracias, por su calaboracion.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 21 de Junio de 2008, 08:45:26

Prueba a dejar el mensaje en el foro de simuladores a ver si allí te responden.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 23 de Junio de 2008, 13:18:02

hola

como diría jack el destripador y determinado componente del Foro por el que tengo gran estima: vayamos por partes...

parte 1
programación en pic simulator ide (psi a partir de ahora) y simulación también en psi... tus problemas con los tiempos. bueno, siempre que uses el lcd serás un buen candidato al aburrimiento. para corregirlo, modifica el valor de las siguientes líneas:
Define LCD_COMMANDUS = 2000 'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 50 'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 1 '(50) 'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
para que tengan un valor bajo. por defecto estos valores están en 5000, 100 y 100 y la configuración que te muestro es la utilizada por el amigo dogflu66, observa el valor entre paréntesis ya que será el valor a usar para la compilación final.

usa lo siguiente después de la declaración del lcd: Define SIMULATION_WAITMS_VALUE = 1 este valor determina el valor de todos los WaitMs usados en el programa, y su valor puede estar entre 1 y 10 si no recuerdo mal. no olvides eliminarla o convertirla a comentario en la compilación final

para la simulación del i2c no cuentas con un ds1307 pero si con una memoria eeprom que te permite simular la escritura y lectura de datos.

parte 2
programación en psi y simulación en proteus... tate, ojo con las sorpresas, que como las meigas (brujas) en mi pueblo, habelas hailas y el ejemplo ya lo has podido ver con los lcd de 4 bits y que no se corrigen de todo usando 8 bits. sigo sin saber el porque, pero para mi al menos es un buen aliciente para no mezclar ambos.

en cualquier caso ni proteus ni el simulador del psi sustituyen a la practica y haciendo una pequeña búsqueda en el Foro verás cuanta gente lo corrobora. cosas que no funcionan en proteus si lo hacen en circuito, y al contrario...

por otra parte, conociendo las limitaciones o incompatilibilidades que puedan existir entre psi y proteus, contaremos con la enorme ventaja de poder simular ciertos circuitos, entre ellos el reloj con ds1307... y lcd a 8 bits, claro, porque hacerlo funcionar a 4 bits personalmente he desistido.

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 23 de Junio de 2008, 13:21:44

bueno, y ahora entramos en materia...

ummmm... veamos... i2c, ds1307, proteus y psi = conocimientos nulos sobre los dos primeros jaja y básicos sobre psi (que tanto me gustó en un principio pero que finalmente no termina de convencerme)
¿y por donde empiezo? bueno, recurriendo a los que saben, claro está.
ds1307: su hoja de datos, un excelente artículo de RedPic en su web: http://picmania.garcia-cuervo.com/Proyectos_AUX_RTC.php y una búsqueda en el Foro que me proporciona lectura para un rato.
psi - i2c: lectura-repaso del manual para conocer-entender su funcionamiento y comandos con sus correspondientes parámetros. ver archivo de ejemplo que escribe datos a una memoria eeprom para su posterior lectura...y que simulo sin problemas en psi... ah!, pues no parece tan difícil esto.
volvamos a los que saben del tema: lectura -obligada- de algunos post de dogflu66. para empezar:

http://www.todopic.com.ar/foros/index.php?topic=14917.msg95975#msg95975

prestando atención:
PD: Recuerdo que los registros del RTC DS1307 se programan y se leen en BCD.

PD: 03/06/08
I2CWrite sda, scl, 0xd0, x, x
I2CRead sda, scl, 0xd1, x, x
0xd0 = %11010000 => Seleccion del chip DS1307 y modo escritura
0xd1 = %11010001 => Seleccion del chip DS1307 y modo lectura
%1101000x (direccion de seleccion del chip %1101000) siendo "x" el bit indicador de Write/Read. Este bit menos significativo lo controla directamente la funcion I2CWrite y I2CRead, por lo que su valor es indiferente, la funcion I2CWrite lo pondra a valor "0" de forma automatica y al ser compilada tambien I2CRead lo colocara a 1.

hago un pequeño inciso. a pesar de que tal como indica dogflu66 i2cwrite y i2cread controlan el valor del bit menos significativo poniéndolo a 0 o a 1, yo prefiero indicárselo a mano ya que no se si esta es una propiedad del psi o de todos los compiladores en general y de esta forma ya tengo la costumbre.
viendo la hoja de datos del ds1307, la figura 2 de la página 3 observo que: 'The real time clock registers are located in address locations 00h to 07h. The RAM registers are located in address locations 08h to 3Fh'.
y en la forma siguiente:
00h --> segundos
01h --> minutos
02h --> horas
03h --> día semana (1=domingo...7=sábado)
04h --> día mes
05h --> mes
06h --> año
07h --> control
esto viene a cuenta de que al principio no me funcionaba como era debido porque no teniendo la intención de usar el día de la semana almacenaba en esa posición un dato incorrecto. una vez que me dí cuenta, guardé todos y cada uno de los datos aunque después solo muestro los que me interesan.

para continuar, aunque pendiente de relectura: http://www.todopic.com.ar/foros/index.php?topic=14917.msg103916#msg103916

el siguiente paso es ponerme ya manos a la obra

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 23 de Junio de 2008, 13:28:24

por fin el programa y la simulación en proteus... funcionando...

Código: [Seleccionar]

'Pic 16f84A
Define CONF_WORD = 0x3ff1
Define CLOCK_FREQUENCY = 4

'-------------------------------------Puertos del LCD-----------------------------------------------
Define LCD_BITS = 8  'indicamos que el bus de datos del lcd sera de 8bit
Define LCD_DREG = PORTB  'el bus de datos sera el puerto B
Define LCD_DBIT = 0  '(0/4) indiferente en bus de 8 bits
Define LCD_RSREG = PORTA  'el bit RS está en el puerto A
Define LCD_RSBIT = 0  'se usa RA0 RS
Define LCD_EREG = PORTA  'el bit E está en el puerto A
Define LCD_EBIT = 1  'se usa RA1 para E
Define LCD_COMMANDUS = 2000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 100  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 100  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.

Lcdinit

'-----------------------------------Puerto I2C-----------------------------------------------------
Symbol sda = PORTA.2  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTA.3  'asignamos nombre al pin que hara de SCL del puerto I2C
'***********************************DEFINICION DE VARIABLES**************************************

'--------------------------------------Variables Programa----------------------------------------
Dim addr(7) As Byte
Dim data As Byte
Dim escribe As Byte

Dim sec As Byte
Dim min As Byte
Dim hour As Byte
Dim day As Byte
Dim daym As Byte
Dim month As Byte
Dim year As Byte
Dim d_hi As Byte
Dim d_lo As Byte

WaitMs 1000

'bucle que escribe los datos iniciales en DS1307
For addr = 0 To 6
escribe = LookUp(0x00, 0x15, 0x16, 0x01, 0x22, 0x06, 0x08), addr
I2CWrite sda, scl, 0xd0, addr, escribe  'escribe los datos al DS1307
Next addr

'bucle para lectura de datos desde el DS1307
loop:
addr = 0
I2CRead sda, scl, 0xd1, addr, sec
addr = 1
I2CRead sda, scl, 0xd1, addr, min
addr = 2
I2CRead sda, scl, 0xd1, addr, hour
addr = 3
I2CRead sda, scl, 0xd1, addr, daym
addr = 4
I2CRead sda, scl, 0xd1, addr, day
addr = 5
I2CRead sda, scl, 0xd1, addr, month
addr = 6
I2CRead sda, scl, 0xd1, addr, year

'escribimos resultado en el lcd
Lcdcmdout LcdClear
Lcdout " Hora: "
data = hour
Gosub print
Lcdout "."
data = min
Gosub print
Lcdout "."
data = sec
Gosub print
Lcdcmdout LcdLine2Home
Lcdout "Fecha: "
data = day
Gosub print
Lcdout "/"
data = month
Gosub print
Lcdout "/0", #year

WaitMs 100
Goto loop

End                                               

'subrutina de conversión
print:
d_hi = data / 16
d_lo = data Mod 16
If d_hi < 10 Then
Lcdout #d_hi
Else
Lcdout "X"
Endif
If d_lo < 10 Then
Lcdout #d_lo
Else
Lcdout "X"
Endif
Return

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 26 de Junio de 2008, 05:31:01

Cita de: pajaro en 19 de Junio de 2008, 15:28:08

'------------------------------------------ASIGNACIONES------------------------------------------
'**************************************DEFINICION DE PUERTOS*************************************
'----------------------ASIGNACION DE I/O y valores de inicio de las salidas---------------------

ALLDIGITAL 'DEFINE QUE LAS ENTRADAS SERAN DE TIPO I/O

'ADCON1 = 0x07 'Los pin PORTA como I/O
'ansel = %00000000 'los pin I/O digitales
'CMCON = 0x07 'comparador a off
'osccon = 0x7e 'set intrc To 8mhz, se usara reloj interno a 8Mhz
TRISA = 0x00 'Puerto A como salidas
TRISB = 0x00 'puerto B como salidas
TRISC = 0x00
TRISD = 0x00
TRISE = 0x00
TRISA.4 = 1 'como entrada (RA4, adc)
TRISB.1 = 1 'como entrada (RA6, tecla S1)
TRISB.2 = 1 'como entrada (RA5, tecla S2)
PORTB.3 = 1 'luz lcd a on (RB3)
PORTC.7 = 1 'led amarillo a off
PORTB.0 = 1 'led verde a off
'**************************************Inicio Programa*********************************************

En el programa que dejas de ejemplo no defines como deben de trabajar los pin del micro.
Si no sabes hacerlo (ya te lo indique en otro post) puedes utilizar el comando abreviado ALLDIGITAL.
Si no indicas como trabajaran los pin, el micro (digital o analogico) trabajara en modo analogico. En esto no tiene
nada que ver el compilador, ya que es como el micro viene programado de casa.

Hay que tener cuidado cuando se utiliza el Basic de psi, ya que como otros lenguajes orientados a lo profesional no hace lo que no se le dice, cosa que se agradece mucho.

ALLDIGITAL 'DEFINE QUE LAS ENTRADAS SERAN DE TIPO I/O, ósea digitales.

Con TRISx se le indica al compilador que un pin o bloque de pin de un puerto determinado trabajará como entrada o salida, pero no indica si trabajara en modo digital o modo analógico. Y otro tema muy importante a tener en cuenta a parte de configurar correctamente los modulos del pic es configurar los fuses del registro de arranque del pic.

Y como ultimo la utilización de un simulador por un principiante debe de ir siempre supervisada por un profesor, ya que los simuladores hacen verdaderas salvajadas que lo único que hacen es echar la moral del principiante por los suelos.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 17 de Julio de 2008, 20:17:15

hola amigo dogflu66

yo sigo con esto del reloj erre que erre.

-----------------------
En el programa que dejas de ejemplo no defines como deben de trabajar los pin del micro.
Si no sabes hacerlo (ya te lo indique en otro post) puedes utilizar el comando abreviado ALLDIGITAL.
Si no indicas como trabajaran los pin, el micro (digital o analogico) trabajara en modo analogico. En esto no tiene
nada que ver el compilador, ya que es como el micro viene programado de casa.

Hay que tener cuidado cuando se utiliza el Basic de psi, ya que como otros lenguajes orientados a lo profesional no hace lo que no se le dice, cosa que se agradece mucho.

ALLDIGITAL 'DEFINE QUE LAS ENTRADAS SERAN DE TIPO I/O, ósea digitales.

Con TRISx se le indica al compilador que un pin o bloque de pin de un puerto determinado trabajará como entrada o salida, pero no indica si trabajara en modo digital o modo analógico. Y otro tema muy importante a tener en cuenta a parte de configurar correctamente los modulos del pic es configurar los fuses del registro de arranque del pic.

Y como ultimo la utilización de un simulador por un principiante debe de ir siempre supervisada por un profesor, ya que los simuladores hacen verdaderas salvajadas que lo único que hacen es echar la moral del principiante por los suelos.

-------------------------------
lo que he puesto en rojo, te refieres...: los fuses, es lo que lleva el tipo de cristal, la frecuencia , lo que viene a llamarse en el psi configuracion del bit lo que suele ir en cabecera verdad.

un saludo.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 17 de Julio de 2008, 22:19:58

amigo xocas06

Código: [Seleccionar]

'Pic 16f84A
Define CONF_WORD = 0x3ff1 ' configuras la palabra
Define CLOCK_FREQUENCY = 4 'configuras la frecuencia
'---->¿ambos los sacas del define bit verdad?

'-------------------------------------Puertos del LCD-----------------------------------------------
Define LCD_BITS = 8  'indicamos que el bus de datos del lcd sera de 8bit
Define LCD_DREG = PORTB  'el bus de datos sera el puerto B
Define LCD_DBIT = 0  '(0/4) indiferente en bus de 8 bits
Define LCD_RSREG = PORTA  'el bit RS está en el puerto A
Define LCD_RSBIT = 0  'se usa RA0 RS
Define LCD_EREG = PORTA  'el bit E está en el puerto A
Define LCD_EBIT = 1  'se usa RA1 para E
Define LCD_COMMANDUS = 2000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 100  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 100  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
'------------------------------------------------------
'----->¿porque usas 8 bit en vez de 4?

Lcdinit 0 ' ----->no pones nada (sera cero)

'-----------------------------------Puerto I2C-----------------------------------------------------
Symbol sda = PORTA.2  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTA.3  'asignamos nombre al pin que hara de SCL del puerto I2C
'***********************************DEFINICION DE VARIABLES**************************************

'--------------------------------------Variables Programa----------------------------------------
'------variables del I2C---------??
Dim addr(7) As Byte '-----> registro de control SQW/OUT generar onda cuadrada o un vector de 7 elementos
Dim data As Byte ' datos del i2c
Dim escribe As Byte ' para la duncion lookup

'------varibles del DS1307----(esto es el valor de los registros)-----------------------
Dim sec As Byte 'segundos
Dim min As Byte 'minutos
Dim hour As Byte 'hora (como difieres de 12 o 24 se que hay un reg para eso)
Dim day As Byte ' dia de la semana(L M X J V S D)
Dim daym As Byte '? dia del mes (como sabes si es 30, 31, 28,29)
Dim month As Byte' meses Enero ..Febr. Mar..
Dim year As Byte ' Año (En que formato 2000, 02)

'----------------parte alta y baja--------
Dim d_hi As Byte
Dim d_lo As Byte

WaitMs 1000

'bucle que escribe los datos iniciales en DS1307
For addr = 0 To 6
escribe = LookUp(0x00, 0x15, 0x16, 0x01, 0x22, 0x06, 0x08), addr
I2CWrite sda, scl, 0xd0, addr, escribe  'escribe los datos al DS1307
Next addr

'bucle para lectura de datos desde el DS1307
'------------------------
loop:
addr = 0
I2CRead sda, scl, 0xd1, addr, sec
addr = 1
I2CRead sda, scl, 0xd1, addr, min
addr = 2
I2CRead sda, scl, 0xd1, addr, hour
addr = 3
I2CRead sda, scl, 0xd1, addr, daym
addr = 4
I2CRead sda, scl, 0xd1, addr, day
addr = 5
I2CRead sda, scl, 0xd1, addr, month
addr = 6
I2CRead sda, scl, 0xd1, addr, year
'-----------esto loop: sepodia haber escrito -----
'como para la carga de datos iniciales--me ronda esa duda

'---------parte de sacar datos por el LCD----
'escribimos resultado en el lcd
Lcdcmdout LcdClear ' limpia lcd
Lcdout " Hora: " 'saca por display en linea 1 "hora:"
data = hour  '---->que hace aqui me pierdo iguala una variable a otra...me pierdo..
Gosub print   '--->y llama a yna funcion..me pierdo..
Lcdout "."      'saca punto por lcd para separar algo
data = min
Gosub print
Lcdout "."
data = sec
Gosub print
Lcdcmdout LcdLine2Home  ' se posiciona en la segunda linea
Lcdout "Fecha: "
data = day
Gosub print
Lcdout "/"
data = month
Gosub print
Lcdout "/0", #year

WaitMs 100
Goto loop

End                                               

'subrutina de conversión (conversion de que)
print:
d_hi = data / 16 ' parte alta de algo (d_hi era un byte) no entiendo
d_lo = data Mod 16 ' parte baja de algo.....
If d_hi < 10 Then 'para que sirve...me pierdo..
Lcdout #d_hi
Else
Lcdout "X"  ' y esto que es sacas ...algo se me escapa..
Endif
If d_lo < 10 Then
Lcdout #d_lo
Else
Lcdout "X"
Endif
Return

(http://img113.imageshack.us/img113/4784/i2cpruebahw6.th.gif) (http://img113.imageshack.us/my.php?image=i2cpruebahw6.gif)

uso un pic 16f84a por motivos de sencillez y para evitarme andar configurando los registros del 16f877a (tu no olvides hacerlo) y por los motivos antes explicados, un lcd de 8 bits.

-------------------------
a que registros te refierres a los de configuracion de bit del PSI y lo de usar 8 bit en vez de 4, que es eso ....de que motivos antes emcionados ...algo se me escapa..
---------------

la forma de conversión de los datos es diferente a la que usa el amigo dogflu66 y la he tomado de un ejemplo que tienes en la web de psi (http://www.oshonsoft.com/picexamples.html - EXAMPLE 9: I2C communication with PCF8583 real time clock). creo que entre la explicación tan detallada de dogflu66 y esta otra versión, te quedará claro su funcionamiento.
---------------------

lo del funcionamineto del I2C es sencillo para escribir en I2C: I2CWrite sda, scl, 0xd0, addr, dato
para leer I2CRead sda, scl, 0xd1, addr, dato

yo vi el ejeplo que viene con la version el del i2c ,

--------------------------------------------------------------------------------------------------------------------------
Dim addr As Word 'variable for storing EEPROM byte address
Dim data As Byte 'variable for storing EEPROM byte data

Symbol sda = PORTC.2 'nickname for SDA pin
Symbol scl = PORTC.3 'nickname for SCL pin

For addr = 0 To 31 'the first 32 bytes will be written
   data = 255 - addr 'set the data byte to be written
   I2CWrite sda, scl, 0xa0, addr, data 'perform I2C write operation to serial EEPROM
   WaitMs 1 'small delay interval
Next addr
-----------------------------------------------------------------------------------------------------------------------------
si pero como consigues escribir cadenas o palabras, como las troceas o lo hace solo el programa, imagina que quieres escribir una palabra o una brase enuna memoria 24cl.. como lo haces..(esto es otra duda)

bueno como decia..

el sda y scl lo fijamos nosotros segun el pic ¿es asi no? en unos esta en un ouerto y en otro en otro.
La direcion de escritura o lectura(0xD0 o 0xD1) dependen del dispositivo que queramos aceder
addr es la direcccion a escribir o leer y data es el dato a escribir o leer.
puedes corregirme si me equivoco, te lo agradeceria

--------------

para terminar, si tu intención es llevar a cabo el proyecto que mencionas aquí:
http://www.todopic.com.ar/foros/index.php?topic=22218.msg175377#msg175377 yo en tu lugar lo iría desglosando en porciones más pequeñas para que su resolución me fuera más factible.

la verdad es que si, esa es mi intencion, pero mas que un proyecto parece una carrera de salto de obtaculos.
he encontradado alguna barreras, por ejemplo el chip receptor de radio, me gustaria que fuese de esos de bajo consumo que tienen auto scan, en vez de ruletita analogica para el cambio de las emisoras, tienen botones, ademas si se destripan llevan pocas cosas, condensadores de lenteja, 3 pulsadores, 3 o4 resistencias,3 transistores, 5o 6 resistencias, conector de audio, una bobina y el chip D7088
data http://www.datasheetcatalog.com/datasheets_pdf/D/7/0/8/D7088.shtml

como esas radios de propaganda que suelen dar como esta

http://www.sz-wholesale.com/shenzhen_China_products/FM-Auto-Scan-Radio_1.htm --->modelo TDC1465

----------------------

también me plantearía seriamente si psi es el lenguaje más adecuado para llevarlo a término y sobre todo -sobre todo- empezaría por construirme o comprarme un pequeño entrenador que me permitiera verificar las cosas en la práctica. si te lo quieres construir en el Foro encontrarás varias opciones y una buena opción de compra podría ser esta: http://www.futurlec.com/PICDevBoard.shtml o esta: http://www.futurlec.com/PIC16F877_Controller.shtml a mi entender muy económicas

con respecto al lenguaje... pos no se amigo, el basic parece facil, elegi PSI porque pudes programar y ver o probar si funciona, el proteus pareceun buen simulador lo malo es que no deje meterle el el *.bas ,estado con el miKroe y el proton se parecen .y el PBP tambien pero no comprendo su su forma de interfece, yo programe antes en c con el 8051 y pareceia facil, su ventanica en ms-2 pero el proteus parece bueno para la simulacion pero hay componentes que no tiene (D7088 fm reciver y el ISD51xx chip coder voice) y alguno errores que muchas veces no comprendes..

lo bueno, es algo que tu puedas simular y probar sin tener que montar o comprar componentes que los tiempos estan caros,
de todas formas conservo mis 2 placas blancas, las famosas GL-12 de montajes de pueba.ahora ando buscado un lcd de 20x2, 20x4 haber si lo reciclo de algun sitio pero si me comprase uno, seria alfanumerico y de los que tienen luz.

ademas lo de programar cucachas con el t20-se en algunos ordanadores da problemas (por ejemplo portatiles) por ahi tengo u pos de un programador multi puerto (puerto paralelo - Serie -usb ) tambien en proyecto. No se, si en este foro o en otro.

bueno amigo no me quiero liar os agradezco a todos los consejos , seran muy bien recibidos, el saber no ocupa lugar..nos han dicho siempre..

un saludo, si puedes ayudarme en algo te lo agredeceria..el programa lo comente con mis dudas pudes revisarlo gracias..

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 18 de Julio de 2008, 16:55:03

vayamos por partes...

-. Define CONF_WORD = 0x3ff1 es el resultado de configurar los fuses en 'opciones/configuration bits'
-. Define CLOCK_FREQUENCY = 4 - me gusta indicarle siempre las cosas para mayor claridad

-. uso 8 bits para poder simularlo en proteus - y hemos hablado antes de esto...
-. lcdinit admite varios valores y muestra un cursor en función de ello

-. tanto a la hora de introducir o leer datos del ds1307 tienes que tener muy en cuenta su orden correspondiente en 00H..07H para que las cosas vayan bien. simplemente te doy la idea de como hacerlo...

-. a la variable data se le va asignando el valor leído (hora...etc) y llama a 'print' para hacer la conversión ya que el valor está en formato bcd. las 'x' en el lcd denotarían un valor fuera de límites. te muestro esta opción como alternativa a la mostrada por dogflu66... y te recomiendo una atención detallada a su forma de hacerlo porque aprenderás cosas muy interesantes sobre como actúar sobre puertos, registros, periféricos y un largo etcétera.

-. un 16f877a está cargado de entradas analógicas, comparadores, registros por aquí y por allá para configurar y a mi que no me gusta dejar cosas al azar me pareció demasiado trabajo en aquel momento y como ejemplo incluso más claro opté por el 16f84a

-. ya dediqué demasiado tiempo tratando de que un lcd de 4bits de un programa compilado desde psi me funcione en proteus -motivos antes mencionados- en la práctica sé que funciona y con cualquier otro compilador también en proteus... ni un segundo más de mi tiempo

-. i2c es un puerto de comunicación síncrono -no recuerdo donde está pero hay en el Foro un estupendo artículo de RedPic obre ello... te invito a buscarlo- y consultes luego de leerlo

-. si el pic tiene i2c por hardware lógicamente lo usaremos siempre que sea posible.

-. si psi es el lenguaje más adecuado... bueno, también tengo derecho a decir tonterias... no se si lo es o no... dependerá quién esté al teclado

y para terminar, y como opinión muy personal, cuando lleves el proyecto a la práctica verás de que poco te ha servido el simulador por software.

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 18 de Julio de 2008, 18:59:03

Ya te lo dijo todo xocas06, no tengo nada que añadir.

PD: Wait = Pause = Delay => kk, Simulador = kk^2

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 18 de Julio de 2008, 20:02:23

Cita de: dogflu66 en 18 de Julio de 2008, 18:59:03

Ya te lo dijo todo xocas06, no tengo nada que añadir.

PD: Wait = Pause = Delay => kk, Simulador = kk^2

hola.
dogflu66 me intentas decir que el simulador no es el adecuado,

un saludo.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 18 de Julio de 2008, 20:14:01

Cita de: xocas06 en 18 de Julio de 2008, 16:55:03

vayamos por partes...

-. Define CONF_WORD = 0x3ff1 es el resultado de configurar los fuses en 'opciones/configuration bits'
-. Define CLOCK_FREQUENCY = 4 - me gusta indicarle siempre las cosas para mayor claridad

-. uso 8 bits para poder simularlo en proteus - y hemos hablado antes de esto...
-. lcdinit admite varios valores y muestra un cursor en función de ello

-. tanto a la hora de introducir o leer datos del ds1307 tienes que tener muy en cuenta su orden correspondiente en 00H..07H para que las cosas vayan bien. simplemente te doy la idea de como hacerlo...

-. a la variable data se le va asignando el valor leído (hora...etc) y llama a 'print' para hacer la conversión ya que el valor está en formato bcd. las 'x' en el lcd denotarían un valor fuera de límites. te muestro esta opción como alternativa a la mostrada por dogflu66... y te recomiendo una atención detallada a su forma de hacerlo porque aprenderás cosas muy interesantes sobre como actúar sobre puertos, registros, periféricos y un largo etcétera.

-. un 16f877a está cargado de entradas analógicas, comparadores, registros por aquí y por allá para configurar y a mi que no me gusta dejar cosas al azar me pareció demasiado trabajo en aquel momento y como ejemplo incluso más claro opté por el 16f84a

-. ya dediqué demasiado tiempo tratando de que un lcd de 4bits de un programa compilado desde psi me funcione en proteus -motivos antes mencionados- en la práctica sé que funciona y con cualquier otro compilador también en proteus... ni un segundo más de mi tiempo

-. i2c es un puerto de comunicación síncrono -no recuerdo donde está pero hay en el Foro un estupendo artículo de RedPic obre ello... te invito a buscarlo- y consultes luego de leerlo

-. si el pic tiene i2c por hardware lógicamente lo usaremos siempre que sea posible.

-. si psi es el lenguaje más adecuado... bueno, también tengo derecho a decir tonterias... no se si lo es o no... dependerá quién esté al teclado

y para terminar, y como opinión muy personal, cuando lleves el proyecto a la práctica verás de que poco te ha servido el simulador por software.

un saludo

hola Xocas06

entre lineas creo haber visto que el proteus tiene un problema cuando el bus de datos es de 4 bit,
¿es eso cierto?
si esto es asi, cual es el modo de solucionarlo.

antes en el post, dices que dedicaste tiempo en ello, si lo solucionaste me lo podias contar.

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 19 de Julio de 2008, 10:23:01

Cita de: pajaro en 18 de Julio de 2008, 20:14:01

entre lineas creo haber visto que el proteus tiene un problema cuando el bus de datos es de 4 bit,
¿es eso cierto?
si esto es asi, cual es el modo de solucionarlo.

antes en el post, dices que dedicaste tiempo en ello, si lo solucionaste me lo podias contar.

creo que la primera vez que te contesté a esta pregunta fue en el subforo de Isis y desde entonces volví a hacerlo alguna vez más pero lo haremos de nuevo para dar ya por terminada esta parte al menos.
proteus no muestra el menor problema con lcd a 4bits si uso proton, mikrobasik o pbp y creo que tampoco lo muestra en assembler o ccs pero no funciona en psi y aún usando una configuración de 8bits tiene sus problemas.
le dediqué algún tiempo a tratar de saber el porqué -repasa mis respuestas en los diferentes lugares que has tratado de encontrar una solución a este tema- pero como resulta que -en principio- no me preocupa que psi no me funcione bien con proteus, o proteus con psi pues he decidido que no le dedico más de mi tiempo. si tu o alguien sabe o llega a saber el porque siempre será bueno que lo comparta.

la configuración que te he dado de lcd 4bits funciona perfectamente en la práctica, así que ni un segundo más de mi tiempo a esta relación psi-proteus-lcd de 4bits

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 20 de Julio de 2008, 07:04:04

que suerte tenemos en este Foro de que haya gente así: compartiendo esfuerzo y conocimiento (http://www.todopic.com.ar/foros/index.php?topic=19587.msg142152#msg142152)... no dejes de leerlo amigo pajaro

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 20 de Julio de 2008, 08:20:51

Cita de: pajaro en 18 de Julio de 2008, 20:02:23

Cita de: dogflu66 en 18 de Julio de 2008, 18:59:03
Ya te lo dijo todo xocas06, no tengo nada que añadir.

PD: Wait = Pause = Delay => kk, Simulador = kk^2

hola.
dogflu66 me intentas decir que el simulador no es el adecuado,

un saludo.

Cualquier simulador por soft = KK.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 20 de Julio de 2008, 09:32:19

Cita de: dogflu66 en 20 de Julio de 2008, 08:20:51

Cita de: pajaro en 18 de Julio de 2008, 20:02:23
Cita de: dogflu66 en 18 de Julio de 2008, 18:59:03
Ya te lo dijo todo xocas06, no tengo nada que añadir.

PD: Wait = Pause = Delay => kk, Simulador = kk^2

hola.
dogflu66 me intentas decir que el simulador no es el adecuado,

un saludo.

Cualquier simulador por soft = KK.

hola amigo dogflu66
seguro que tienes tus motivos
jejeje.. :)

un saludo.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 20 de Julio de 2008, 11:11:31

por falta de información que no sea: compartiendo más y más (http://www.todopic.com.ar/foros/index.php?topic=13282.msg76855#msg76855)

un saludo

pd: ambos artículos son de RedPic y a mi entender son de lectura obligada

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 20 de Julio de 2008, 11:34:51

Cita de: xocas06 en 19 de Julio de 2008, 10:23:01

Cita de: pajaro en 18 de Julio de 2008, 20:14:01
entre lineas creo haber visto que el proteus tiene un problema cuando el bus de datos es de 4 bit,
¿es eso cierto?
si esto es asi, cual es el modo de solucionarlo.

antes en el post, dices que dedicaste tiempo en ello, si lo solucionaste me lo podias contar.

creo que la primera vez que te contesté a esta pregunta fue en el subforo de Isis y desde entonces volví a hacerlo alguna vez más pero lo haremos de nuevo para dar ya por terminada esta parte al menos.
proteus no muestra el menor problema con lcd a 4bits si uso proton, mikrobasik o pbp y creo que tampoco lo muestra en assembler o ccs pero no funciona en psi y aún usando una configuración de 8bits tiene sus problemas.
le dediqué algún tiempo a tratar de saber el porqué -repasa mis respuestas en los diferentes lugares que has tratado de encontrar una solución a este tema- pero como resulta que -en principio- no me preocupa que psi no me funcione bien con proteus, o proteus con psi pues he decidido que no le dedico más de mi tiempo. si tu o alguien sabe o llega a saber el porque siempre será bueno que lo comparta.

la configuración que te he dado de lcd 4bits funciona perfectamente en la práctica, así que ni un segundo más de mi tiempo a esta relación psi-proteus-lcd de 4bits

un saludo

Hola amigo Xocas06

Queria darte las gracias, por tu paciencia, y por tus explicaciones.
pero desde hace un tiempo estoy en una duda, partiendo que voy a usar proteus que compilador me recomiendas.
psi es un entorno ide y parece muy bueno pero con proteus tiene sus "cositas".
unos usan el pbp, otros mikroe, otros proton el proton lo recomiendan por venir con proteus, pero
con todos se puede hacer los mismo? cual de ellos lleva entorno IDE, me refiero simulador de led, de LCD, digamos parecido a lo que tiene el PSI

un cordial Saludo , te agradezco que compartas tu conocimiento.

gracias.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 21 de Julio de 2008, 12:40:17

hola de nuevo amigo pajaro

entiendo que una recomendación debería ir acompañada de un mínimo de conocimientos y experiencia, y a mi me falta bastante de lo uno y de lo otro. de manera que te daré mi opinión, o mejor aún mi forma de plantearme las cosas ante un reto concreto y tu decidirás.

a pesar de que ya llevo cosa de un par de años en esto no pude dedicarle mucho tiempo y el aprendizaje es lento. y tengo un serio problema de retentiva, dicho sea de paso :? lo que pretendo decirte es que soy un aprendiz igual que lo puedas ser tu y no esperes soluciones mágicas de mi parte porque no las tengo. pero ya, vayamos al tema...

comencé con pbp y con el estuve hasta que conocí psi que me gustó mucho la forma en la que se puede programar, lo que ya no me gusta tanto es que esté escasamente documentado y, salvo este Foro, no he localizado mucha cosa por ahí con lo cual a veces me atasco y no consigo salir.
para pbp tienes el microcode studio que es el entorno ide y personalmente nunca tuve problemas para simular en proteus un programa pbp. además tenía para mi algo muy interesante y es que normalmente tengo el programador GTP-USB+ conectado al circuito mediante icsp de manera que puedo probar directamente en el entrenador sin abandonar pbp ni pinchar o despinchar el pic. es instantáneo.
encontrarás bastante información, incluso en castellano, y bastantes ejemplos en la web del fabricante es otra de las cosas a su favor aunque en su contra también tiene la falta de variables 'avanzadas' (y perdona que lo diga así porque no se si en la nueva versión esto ha cambiado... en este mismo Foro te puedes informar mejor)
mikrobasik lo he visto por encima. tiene muchas librerías pero tengo entendido que alguna de ellas por si sola ya te aconseja un pic de mayores prestaciones. he probado algún ejemplo en proteus y sin problemas. trae su propio ide
proton. estoy empezando con el y por el momento me gusta lo que veo. probado en proteus con éxito. al igual que en pbp programo el pic desde el propio ide (bueno, en realidad no, lo que hace es llamar a winpic800 y es el quien se encarga...)

estás confundiendo algunas cosas. un entorno ide te facilita la programación y compilación del pic amén de alguna cosa más PERO no es un simulador.

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 22 de Julio de 2008, 22:17:33

Cita de: xocas06 en 21 de Julio de 2008, 12:40:17

hola de nuevo amigo pajaro

entiendo que una recomendación debería ir acompañada de un mínimo de conocimientos y experiencia, y a mi me falta bastante de lo uno y de lo otro. de manera que te daré mi opinión, o mejor aún mi forma de plantearme las cosas ante un reto concreto y tu decidirás.

a pesar de que ya llevo cosa de un par de años en esto no pude dedicarle mucho tiempo y el aprendizaje es lento. y tengo un serio problema de retentiva, dicho sea de paso :? lo que pretendo decirte es que soy un aprendiz igual que lo puedas ser tu y no esperes soluciones mágicas de mi parte porque no las tengo. pero ya, vayamos al tema...

comencé con pbp y con el estuve hasta que conocí psi que me gustó mucho la forma en la que se puede programar, lo que ya no me gusta tanto es que esté escasamente documentado y, salvo este Foro, no he localizado mucha cosa por ahí con lo cual a veces me atasco y no consigo salir.
para pbp tienes el microcode studio que es el entorno ide y personalmente nunca tuve problemas para simular en proteus un programa pbp. además tenía para mi algo muy interesante y es que normalmente tengo el programador GTP-USB+ conectado al circuito mediante icsp de manera que puedo probar directamente en el entrenador sin abandonar pbp ni pinchar o despinchar el pic. es instantáneo.
encontrarás bastante información, incluso en castellano, y bastantes ejemplos en la web del fabricante es otra de las cosas a su favor aunque en su contra también tiene la falta de variables 'avanzadas' (y perdona que lo diga así porque no se si en la nueva versión esto ha cambiado... en este mismo Foro te puedes informar mejor)
mikrobasik lo he visto por encima. tiene muchas librerías pero tengo entendido que alguna de ellas por si sola ya te aconseja un pic de mayores prestaciones. he probado algún ejemplo en proteus y sin problemas. trae su propio ide
proton. estoy empezando con el y por el momento me gusta lo que veo. probado en proteus con éxito. al igual que en pbp programo el pic desde el propio ide (bueno, en realidad no, lo que hace es llamar a winpic800 y es el quien se encarga...)

estás confundiendo algunas cosas. un entorno ide te facilita la programación y compilación del pic amén de alguna cosa más PERO no es un simulador.

un saludo

hola amigo xocas06
yo empece con el mplab ide y el ccs , la verdad algunas veces perdia mucho rato con errores que me daba el compilador, errores que ni sabia ni lo que significaban y lo peor el porque, por eso cambie a otro compilador, para probar, y resulto ser el psi.

bueno a lo que iba:

ayer me surgio una duda mientras me dormia, con esto del proteus y las 8 y 4 lineas ,los compiladores de basic pasan los *.bas a *.asm y despues los linkan para hacer el *.hex

pues bien quiero pedirte un favor, si yo escribiera un programa en psi de 4 bit y otro de 8 bit me lo podrias pasar a pbp y algun otro como miKroBasic.
un programa sencillo de sacar datos por el LCD en ambas lineas.

tengo una teoria, programas distintos -->para hace lo mismo: fuentes distintos *.bas --> conversion a *.asm --> conversion *.Hex

Espero que me puedas ayudar

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 22 de Julio de 2008, 22:31:40

Cita de: dogflu66 en 20 de Julio de 2008, 08:20:51

Cita de: pajaro en 18 de Julio de 2008, 20:02:23
Cita de: dogflu66 en 18 de Julio de 2008, 18:59:03
Ya te lo dijo todo xocas06, no tengo nada que añadir.

PD: Wait = Pause = Delay => kk, Simulador = kk^2

hola.
dogflu66 me intentas decir que el simulador no es el adecuado,

un saludo.

Cualquier simulador por soft = KK.

hola amigo dogflu
el otro dia por el youtobe vi tu programador el Ebasic.
oye yo queria comprarme un lcd alfanumerico de 20x 2 o 20x4 con luz
tu que me recomiendas, yo he estado mirando en amidada y el diotronic y estan sobre los 25€ y mas tu que me recomiendas
alguna recomendacion en especial, algun consejillo.
¿Estos llevan su propia controladora y se puden acoplar a cualquier placa de pruebas verdad.
estos lcd se pueden montar sobre las placas blancas, la famosa GL-12 de prototipos.

http://www.allproducts.com/manufacture2/khmfg/gl.html

haber si me puedes echar un cable.

gracias

si algun otro me lee esto podia echarme un comentario.

acepto sugerencias.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 23 de Julio de 2008, 06:52:13

veamos... lo primero: una alternativa económica en componentes: http://www.futurlec.com/Components.shtml yo lo suelo usar de vez en cuando porque tiene algunas cosillas nada fáciles de localizar, unos portes relativamente baratos y sus precios están en dólares. tantas veces he recomendado futurlec en este Foro que ya debería ser accionista jaja

lo segundo: NO, no y no... ¿acaso no lees mis respuestas? ¿que pretendes? ¿que llegue a ser maleducado contigo...? porque ya me tienes completamente desorientado amigo pajaro. pero aún así te lo voy a decir por última vez: NO me importa que no funcione en proteus... tio, pregúntaselo al amigo Vladimir o al personal de proteus a ver si ellos tienen la respuesta... yo no la tengo ni la quiero!

y espero que con esto te quede claro que te ayudaré en todo lo que pueda dentro de mis limitados conocimientos siempre y cuando el binomio psi-proteus haya sido descartado.

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 23 de Julio de 2008, 10:56:59

Cita de: xocas06 en 23 de Julio de 2008, 06:52:13

veamos... lo primero: una alternativa económica en componentes: http://www.futurlec.com/Components.shtml yo lo suelo usar de vez en cuando porque tiene algunas cosillas nada fáciles de localizar, unos portes relativamente baratos y sus precios están en dólares. tantas veces he recomendado futurlec en este Foro que ya debería ser accionista jaja

lo segundo: NO, no y no... ¿acaso no lees mis respuestas? ¿que pretendes? ¿que llegue a ser maleducado contigo...? porque ya me tienes completamente desorientado amigo pajaro. pero aún así te lo voy a decir por última vez: NO me importa que no funcione en proteus... tio, pregúntaselo al amigo Vladimir o al personal de proteus a ver si ellos tienen la respuesta... yo no la tengo ni la quiero!

y espero que con esto te quede claro que te ayudaré en todo lo que pueda dentro de mis limitados conocimientos siempre y cuando el binomio psi-proteus haya sido descartado.

un saludo

Hola amigo Xocas06
si que te leo los post,
la vez anterior me dijiste: que no querias saber nada del proteus -psi y que por ultima vez y una mas me lo explicabas.

lo se, lo se, pero no me suelo rendir con facilidad cuando me sale un problemilla de estos, no desesperes, no me lo tengas en cuenta.
de todas formas te agradezco los consejos y te estoy muy agradecido.
Intento evitarme lo que me dijo dogflu de hacerme un entrenador y pasar lo que programe al hardware.

pero si te pidiese que me pasases un probramita simple de Psi a pbp, me harias el "peque" favor?.

otra cosa, a mi me da un poco de palo esto de comprar por internet,
ademas por aca en España se lleva el €uro, sabes si esta web manda a España esto?
lleva el iva incluido?

un cordial saludo,
amigo.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 23 de Julio de 2008, 12:15:57

Lo siento yo compro en pequeños establecimientos de la zona. Y los lcd’s y algunos componentes sobretodo PIC los pido a Madrid en Telkron. Esta empresa no permite pagar con tarjetas y puedes visitar su web para pedir presupuesto http://www.telkron.com/.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 23 de Julio de 2008, 12:52:43

hasta hace algo más de un año vivía en barcelona y lo más normal era comprar en diotronic u ondaradio -ambos con web- pero algunas cosas eran muy caras, como es el caso de un lcd o un zócalo zif. y estando en barcelona descubrí futurlec, que en pedidos medianos me compensaba con creces los gastos de envío porque sus precios llegaban a ser un tercio de lo que pagaba en la propia tienda local
después volví a galicia y ahora lo tengo que comprar practicamente todo por correo, y futurlec es una opción que me sigue compensando. me cuestan más los portes de envío desde madrid o barcelona, así que uso farnell o similar para casos concretos y porque tienen practicamente de todo...si no futurlec. y te doy un ejemplo: un lcd de 4x20 cuesta casi 30€ más portes más iva. en futurlec $20 más $4 de portes. en barcelona me tardaba una semana el pedido, ahora de 8 a diez días... si no siempre puedes buscarlo en ebay.

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 18 de Noviembre de 2008, 22:38:53

Hola amigos
Volvi a la batalla.
tengo motado fisicamente el pic16F877A y le Ds1307 con su lcd20x4

Tengo una duda el ds1307 lee y escribe en BCD (decimal codificado en binario), verdad.

Código: QBasic/QuickBASIC

'bucle que escribe los datos iniciales en DS1307
FOR addr = 0 TO 6
escribe = LookUp(0x00, 0x15, 0x16, 0x01, 0x22, 0x06, 0x08), addr
I2CWrite sda, scl, 0xd0, addr, escribe  'escribe los datos al DS1307
NEXT addr
'add0 ponemos 0x00 ->ch=0 (pone el reloj en marcha) 00 segundos
'add1 ponemos 0x15 ->bit6 del 02h a 0->elege 24h, 15 minutos
'add2 ponemos 0x16 ->16h las 4 de la tarde
'add3 ponemos 0x01 ->del 1(domino) al 7(sabado) pone 1
'add4 ponemos 0x22 ->dia 22 dia del mes
'add5 ponemos 0x06 -> mes 6 (Junio)
'add6 ponemos 0x08 ->year 8  -->xx08

segun lei aqui :http://www.todopic.com.ar/foros/index.php?topic=13282.0

¿Es cierto lo que comento desde la direciones 0 a la 6?

¿o yo le interpete mal?
Un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 19 de Noviembre de 2008, 14:31:24

me alegra que puedas ponerte ya manos a la obra y 'trastear' con la realidad, más allá de los simuladores 8)

verás, todas las respuestas las tienes en la primera página de este tema, incluso un programa demo con 16f84a que facilmente puedes pasar al 16f877a.

no está nunca de más que para refrescar te leas el datasheet del ds1307 y los artículos de RedPic y dogflu69, que hay que aprovechar la suerte de tenerlos entre nosotros...

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 19 de Noviembre de 2008, 21:58:12

Hola amigos
voy a usar el 16F877A y el Pic Simulator IDE

Cargué el fuente con el aparatico de sisco(programador), por cierto funciona muy bien, fue una buena compra, y el que me lo recomendó muchas gracias.

Pues eso me lei el data, lo que no recuerdo es las veces, pero un monton, no entiendo lo del 10date y date no lo entiendo sucede lo mismo con minutos, horas, años, que significa eso de 10 date, son los bit altos porque pone "10 mas nombre".
¿Lo del registro 7 de generar una cuadrada eso es para la interrupción?

Pueden mirarlo aquí: http://www.todopic.com.ar/foros/index.php?topic=13282.0
Me baje unos cuantos pdf distintos del DS1307 pero por desgracia en todos ponen cosas parecidas, pero no lo que yo quiero saber.

Otra cosica, he probado varios programas, los dos últimos están debajo ambos en PSI, no se, es algo extraño.
Le cargo el programa fuente y parece que el reloj trabaja, lo se porque le coloque un led al scl y otro al sda, y con ello veo como titila el led al es decir que puede entender que hay comunicación entre el pic y RTC.
Lo malo es que en el lcd no se ve mas que ceros, : , / que esta pasando, le coloque pulsadores desde el a0, a1, a2,a3 pero solo uso el a0 pin2 (pulsador cuadrado de 4 patas y una resistencia entre de 10k luego masa). El oscilador del pic es de 4 el del rtc de 32...

No hay manera.
Tendrá que ver con los registros del pic
Ya no se que hacer, pongo los programas abajo son dos .txt pero si los pones en .bas los coge el PSI.

===========
dogflu corregi el error de " ' ", era del copi -paste, y añadi el ALLDIGITAL

Un Saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 19 de Noviembre de 2008, 22:25:55

No tengo mucho tiempo, pero lo poco que pude ver de mi ejemplo, aparte de la segunda línea que no tienen el "'", te falta definir las entradas como I/O para que puedan ser leídas por el PIC.

Lo mas rápido es definirlas con ALLDIGITAL.

Y por lo que veo el display te funciona bien, de todas formas estas tres líneas afectan a la velocidad del los display.

Define LCD_COMMANDUS = 1000 'Tiempo de espera después de ejecutar un comando del lcd en uSeg.
Define LCD_DATAUS = 50 'Tiempo de espera después de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50 'Tiempo de espera después de inicializar el Display, solo se ejecuta una vez en mSeg.

Cuando se utiliza un display nuevo es mejor omitirlas para que tome los valores por defecto que son bastante elevados.
Una vez que el display funciona correctamente se van optimizando los 3 valores para hacer la rutina del display más rápida.

De todas formas en la pagina del PSI todos los ejemplos estan realizados para el 16F877, sino recuerdo mal.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 21 de Noviembre de 2008, 00:19:16

hola amigos
pongamonos en situacion, tenemos el pic y el ds1307(reloj de tiempo real), soporta protocolo de comunicacion I2C.
El ds1307 esta alimentado y tiene oscilador.

El ds1307 tiene registros para ser escritos, con el ch=0 se pone en marcha el contador o se para si le cambiamos el valor.
con el resto de registros configuramos hora, minutos, segundos,dia de la semana, mes del año, año, 24h o 12, salida de la onda cuadrada.

Queria hacer algunas preguntas?

Independientemente de que lea el pic16f877A al ds1307, este va a continuar contando, a no ser que le digamos en el ch que pare, esto es una escritura con el pic mediante la comunicacion de i2c.

Algun compañero del foro podria ayudarme, alguien seria tan amable de compartir su conocimiento.
Gracias.

Un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 24 de Noviembre de 2008, 21:06:13

hola
no consigo hacer funcionar el PIC16F877A con el DS1307
los fuentes son:

Código: QBasic/QuickBASIC

'ejemplo tomado del amigo xocas, modificado (gracias amigo)
'Pic 16f877A
 
Define CONF_WORD = 0x3f71
Define CLOCK_FREQUENCY = 4
Define LCD_LINES = 4
Define LCD_CHARS = 20
 
'-------------------------------------Puertos del LCD-----------------------------------------------
Define LCD_BITS = 4  'indicamos que el bus de datos del lcd sera de 8bit
Define LCD_DREG = PORTB  'el bus de datos sera el puerto B
Define LCD_DBIT = 4  '(0/4) indiferente en bus de 8 bits
Define LCD_RSREG = PORTB  'el bit RS está en el puerto A
Define LCD_RSBIT = 1  'se usa RA0 RS
Define LCD_EREG = PORTB  'el bit E está en el puerto A
Define LCD_EBIT = 2  'se usa RA1 para E
Define LCD_COMMANDUS = 2000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 100  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 100  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
 
Lcdinit
 
'-----------------------------------Puerto I2C-----------------------------------------------------
Symbol sda = PORTC.4  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTC.3  'asignamos nombre al pin que hara de SCL del puerto I2C
'***********************************DEFINICION DE VARIABLES**************************************
 
'--------------------------------------Variables Programa----------------------------------------
DIM addr(7) AS Byte
DIM DATA AS Byte
DIM escribe AS Byte
 
DIM sec AS Byte
DIM min AS Byte
DIM hour AS Byte
DIM day AS Byte
DIM daym AS Byte
DIM month AS Byte
DIM year AS Byte
DIM d_hi AS Byte
DIM d_lo AS Byte
 
WaitMs 1000
 
'bucle que escribe los datos iniciales en DS1307
FOR addr = 0 TO 6
escribe = LookUp(0x00, 0x15, 0x16, 0x01, 0x22, 0x06, 0x08), addr
I2CWrite sda, scl, 0xd0, addr, escribe  'escribe los datos al DS1307
NEXT addr
 
'bucle para lectura de datos desde el DS1307
LOOP:
addr = 0
I2CRead sda, scl, 0xd1, addr, sec
addr = 1
I2CRead sda, scl, 0xd1, addr, min
addr = 2
I2CRead sda, scl, 0xd1, addr, hour
addr = 3
I2CRead sda, scl, 0xd1, addr, daym
addr = 4
I2CRead sda, scl, 0xd1, addr, day
addr = 5
I2CRead sda, scl, 0xd1, addr, month
addr = 6
I2CRead sda, scl, 0xd1, addr, year
 
'escribimos resultado en el lcd
Lcdcmdout LcdClear
Lcdcmdout LcdLine3Home
Lcdout " Hora: "
DATA = hour
GOSUB PRINT
Lcdout "."
DATA = min
GOSUB PRINT
Lcdout "."
DATA = sec
GOSUB PRINT
Lcdcmdout LcdLine4Home
Lcdout "Fecha: "
DATA = day
GOSUB PRINT
Lcdout "/"
DATA = month
GOSUB PRINT
Lcdout "/0", #year
 
WaitMs 100
GOTO LOOP
 
END                                               
 
'subrutina de conversión
PRINT:
d_hi = DATA / 16
d_lo = DATA MOD 16
IF d_hi < 10 THEN
Lcdout #d_hi
ELSE
Lcdout "X"
Endif
IF d_lo < 10 THEN
Lcdout #d_lo
ELSE
Lcdout "X"
Endif
RETURN

aqui otro ejemplo que tampoco me funciona:

Código: FreeBasic

'ejemplo tomado del amigo dogflu, modificado (gracias amigo)
'= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Define CONF_WORD = 0x3f71
Define CLOCK_FREQUENCY = 4
'---------------------------
Define LCD_LINES = 4
Define LCD_CHARS = 20
'---------------------------
ALLDIGITAL
 
'- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- puertos del lcd - -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Define LCD_BITS = 4  'indicamos que el bus de datos del lcd sera de 4bit
Define LCD_DREG = PORTB  'el bus de datos sera el puerto B lo cambie
Define LCD_DBIT = 4  'el bus de datos seran los 4 bit menos significativos del puerto A
Define LCD_RSREG = PORTB  'el bit de nrol RS sera del puerto B
Define LCD_RSBIT = 1  'se usara el RB7 como RS
Define LCD_EREG = PORTB  'el bit de nrol E sera del puerto B
Define LCD_EBIT = 2  'se usara el RB6 como E
'Define LCD_RWREG = PORTx  'el bit de nrol RW sera del puerto x(no se usa)
'Define LCD_RWBIT = n  'se usara el Rxn como RW (no se usa)
Define LCD_COMMANDUS = 1000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
'-----------------------------------Puerto I2C-----------------------------------------------------
Symbol sda = PORTC.4  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTC.3  'asignamos nombre al pin que hara de SCL del puerto I2C
'***********************************DEFINICION DE VARIABLES**************************************
'--------------------------------------Variables Programa----------------------------------------
Dim aux_4h As Byte  'contendra el nibble alto del dato leido por el I2C
Dim aux_4l As Byte  'contendra el nibble bajo del dato leido por el I2C
Dim i As Byte  'variable indice
Dim reg(7) As Byte  'contendra los valores finales de fecha y hora en el sistema decimal
'------------------------------------------ASIGNACIONES------------------------------------------
'**************************************DEFINICION DE PUERTOS*************************************
'----------------------ASIGNACION DE I/O y valores de inicio de las salidas---------------------
'ADCON1 = 0x07  'Los pin PORTA como I/O
'ansel = %00000000  'los pin I/O digitales
'CMCON = 0x07  'comparador a off
'osccon = 0x7e  'set intrc To 8mhz, se usara reloj interno a 8Mhz
TRISA = 0x01  'Puerto A como salidas
TRISB = 0x00  'puerto B como salidas
TRISC = 0x00
TRISD = 0x00
TRISE = 0x00
'TRISA.4 = 1  'como entrada (RA4, adc)
TRISA.0 = 1  'como entrada (RA0, tecla S1)
'TRISB.2 = 1  'como entrada (RA5, tecla S2)
'PORTB.3 = 1  'luz lcd a on (RB3)
'PORTC.7 = 1  'led amarillo a off
'PORTB.0 = 1  'led verde a off
'**************************************Inicio Programa*********************************************
Lcdinit 1  'inicializa el lcd sin cursor
WaitMs 1000  'espera 1Seg
Lcdout " 16f877A_LCD_RTC/I2C"  'escribe en el lcd
Lcdcmdout LcdLine2Home  'seleciona la linea dos como proxima para escritura
Lcdout "     Pruebas con I2C"  'escribe en el lcd
WaitMs 3000  'espera 3Seg
Lcdcmdout LcdClear
'-------------------------------------inicializacion del reloj-------------------------------------
'-------------------Aqui escribimos los valores para cargar al RTC---------------------------------
If RA0 = 0 Then  'si la tecla S1 esta pulsada pasaremos los datos al reloj
I2CWrite sda, scl, 0xd0, 0, 0x00  'segundos, escrito en hex, porque coincide en este caso con BCD del RTC
I2CWrite sda, scl, 0xd0, 1, 0x59  'minutos
I2CWrite sda, scl, 0xd0, 2, 0x23  'horas
I2CWrite sda, scl, 0xd0, 3, 0x01  'dia de la semana
I2CWrite sda, scl, 0xd0, 4, 0x31  'dia del mes
I2CWrite sda, scl, 0xd0, 5, 0x12  'mes
I2CWrite sda, scl, 0xd0, 6, 0x06  'año
I2CWrite sda, scl, 0xd0, 7, 0x10  'salida a 1hz
Endif
'--------------------------------------Main Programa-----------------------------------------------
main:
Gosub print_lcd  'actualiza la hora
WaitMs 100  'pausa de 100mSeg.
Goto main
End                                               
'--------------------------------------FIN DEL MAIN---------------------------------------------
'**************************************Subrrutinas**********************************************
print_lcd:  'lee la hora del RTC, la pasa a decimal y la envia al lcd
i = 0
While i <= 6  'se repite el codigo comprendido entre while y wend, mientras i sea menor o igual a 6
I2CRead sda, scl, 0xd1, i, reg(i)  'lectura de la direccion de memoria indicada del RTC, formato BCD
aux_4l = reg(i) And %00001111  'eliminamos los bit de configuracion del RTC y dejamos solo el nibble bajo
If i = 0 Then aux_4h = reg(i) And %01110000  'segundos, borrado de bit configuracion y almacena nibble alto
If i = 1 Then aux_4h = reg(i) And %11110000  'minutos, almacena nibble alto
If i = 2 Then aux_4h = reg(i) And %10110000  'horas, borrado de bit configuracion y almacena nibble alto
If i = 3 Then aux_4h = reg(i) And %11110000  'dia_semana, almacena nibble alto
If i = 4 Then aux_4h = reg(i) And %11110000  'dia_mes, almacena nibble alto
If i = 5 Then aux_4h = reg(i) And %11110000  'mes, almacena el nibble alto
If i = 6 Then aux_4h = reg(i) And %11110000  'año, almacena el nibble alto
aux_4h = ShiftRight(aux_4h, 4)  'convierte el nibble alto en bajo
reg(i) = (aux_4h * 10) + aux_4l  'fusiona los nibbles alto y bajo en una sola variable en formato decimal
i = i + 1  'incrementa la variable indice con cada repeticion del bucle While/Wend
Wend  'fin del bucle y salta a While
Lcdcmdout LcdLine3Home  'cursor del lcd a la izquierda en la linea 1
If reg(2) < 10 Then Lcdout "0"  'si horas es inferior a 10 escribe el cero delante
Lcdout #reg(2), ":"  'escribe la hora y el separador
If reg(1) < 10 Then Lcdout "0"  'si minutos es inferior a 10 escribe el cero delante
Lcdout #reg(1), ":"  'escribe los minutos y el separador
If reg(0) < 10 Then Lcdout "0"  'si segundos es inferior a 10 escribe el cerodelante
Lcdout #reg(0)  'escribe los segundos
Lcdcmdout LcdLine4Home  'cursor del lcd a la izquierda en la linea 2
If reg(3) = 1 Then Lcdout "Dom"  'asigna el literal al dia de la semana
If reg(3) = 2 Then Lcdout "Lun"
If reg(3) = 3 Then Lcdout "Mar"
If reg(3) = 4 Then Lcdout "Mie"
If reg(3) = 5 Then Lcdout "Jue"
If reg(3) = 6 Then Lcdout "Vie"
If reg(3) = 7 Then Lcdout "Sab"
Lcdout "/"  'escribe separador
If reg(4) < 10 Then Lcdout "0"  'si dia del mes es inferior a 10 escribe cero
Lcdout #reg(4), "/"  'escribe el dia del mes y el separador
If reg(5) < 10 Then Lcdout "0"  'si mes es inferior a 10 escribe cero
Lcdout #reg(5), "/"  'escribe el mes, separador y los dos primeros digitos del año de 4 digitos
If reg(6) < 10 Then Lcdout "0"  'si año es inferior a 10 escribe primero el cero
Lcdout #reg(6)  'escribe el año
Return                                            
End

solo muestran la inicializacion es decir

00:00:00 00/00/00

pero al ponerle un led al SDA y otro al SCL el led parpadea.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 05 de Diciembre de 2008, 00:08:40

hola

al parecer segun simulacion del proteus el i2c siempre escribe por i2c .
no lee el leloj.

al parecer debe de ser u error del conpilador no difiere entre i2cREad y la instrucion i2c write

alguien tubo este problema con este compilador.

¿alguien le paso esto mismo?, ¿alguien conoce la solucion?

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 05 de Diciembre de 2008, 14:29:13

hola de nuevo pajaro, perdona que no me ha sido posible prestarte atención hasta ahora... te cuento:

-. no tengo en este momento ocasión de probarlo con un lcd de esas características porque el que tengo está ocupado con otras labores, pero debería funcionar independientemente si éste es de 20x4 o 16x2.
-. no pretendas que una configuración de 4bits te funcione en proteus, o al menos yo lo he descartado por completo.
-. no dejes nada al azar. el pic ha de hacer lo que tu quieres pero, sobre todo, no ha de hacer lo que no quieras. repasa configuración de registros para ello y activa o desactiva la/s funciones que te interesen.
en la siguiente imagen tienes una configuración probada en proteus. en la práctica la opción de usar tan solo 4bits funciona perfectamente:
(http://img150.imageshack.us/img150/3034/lcd4linhc9.gif) (http://img150.imageshack.us/my.php?image=lcd4linhc9.gif)

en este enlace (http://www.4shared.com/file/74603085/d32f9d0b/lcd4lin.html) tienes todos los archivos necesarios para probarlo. hay un problema de refresco en el lcd que creo se debe a proteus, si lo tienes montado en la práctica debería funcionar ok.

-. una vez que consigas hacerlo funcionar en una configuración de 8bits pasarlo a 4bits no tiene misterio alguno.

y por último, no entiendo porque se te muestran eses datos... ¿no aparecen los textos 'hora', 'fecha', etc...?

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 07 de Diciembre de 2008, 19:34:14

Por lo pronto he probado este codigo de la EBasic en mi placa entrenadora para el 16F877A y funciona correctamente.
Este codigo es para hacer pruebas con una E2Prom, en este caso he usado la X24C04P.

Cuando pueda, hare las pruebas para el RTC.

Codigo:

Código: QBasic/QuickBASIC

'EJEMPLO MODIFICADO PARA TRABAJAR CON EL 16F877, PROBADO EN LA REALIDAD
Define CONF_WORD = 0x3f32
Define CLOCK_FREQUENCY = 20  'frecuencia de trabajo del PIC
'***************** Placa Entrenadora (PIC EBadic) ***************************************
'NOMBRE:16F88_Pic_EBasic_EJEMPLO_28
'Descripcion: TEST DE LA PLACA EBasic_I2C (Led y 24LC04B)
'Micro: PIC16F88 / 8mhz reloj interno
'Fecha/Autor: 29/7/07, 30/12/07, By COS
'Version: 1.0
'Solo escribe o lee en el bloque "0" de la memoria
'Version: 1.1
'Se completa la funcion para que lea o escriba en todos los bloques de la memoria I2C
'Esta memoria solo tiene dos bloques y cada uno de ellos tiene 256 posiciones de 1 byte
'La funcion los maneja como si de un unico bloque de 512 bytes se tratara.
'Multiplicando la longuitud de 1 bloque por el numero de bloques es igual
'a la capasidad maxima de la memoria, contemplada como si de su estructura interna
'estuviera compuesta de un unico bloque (256x2)=512 y direccion maxima 511 bytes
'ya que la direccion primera comienza en 0.
'*****************************************************************************************
'-------------------------------------Puertos del LCD-------------------------------------
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTC
Define LCD_RSBIT = 0
Define LCD_EREG = PORTC
Define LCD_EBIT = 4
Define LCD_RWREG = PORTC
Define LCD_RWBIT = 1
Define LCD_COMMANDUS = 2000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
'****************************************************************************************************
'Define SIMULATION_WAITMS_VALUE = 1  'Ignora los valores de Waitms
'--------------------------------variables generales-----------------------------------------------
DIM addr AS Word  'direccion I2C
DIM dato AS Byte  'valor a escribir en el I2C
DIM DATA AS Word  'lectura dato I2C, data.HB = 1 = error de escritura, data.LB = dato i2c
DIM eb_i2c AS Byte  'indica el estado del led de la placa I2C
DIM n_random AS Byte  'contendra el numero deseado
'------------------------------------asignacion de valores a las variables--------------------------
dato = 0  'inicializa dato
'--------------------------------------Reasignacion de nombres---------------------------------------
Symbol sda = RC2  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = RC3  'asignamos nombre al pin que hara de SCL del puerto I2C
Symbol led_amarillo = RA7  'led amarillo
Symbol led_verde = RB0  'led verde
Symbol luz_lcd = RB3  'iluminacion del lcd
Symbol s1 = RA6  'tecla S1
Symbol s2 = RA5  'tecla S2
'------------------------------------Definicion de puertos------------------------------------------
AllDigital  'los pin I/O digitales
'ANSEL = %00010000  'los pin I/O digitales y RA4 analogico
'CMCON = 0x07  'comparador a off
'osccon = 0x7e  'set intrc To 8mhz, se usara reloj interno a 8Mhz
TRISA = 0xff  'Puerto A como ENTRADAS
TRISB = 0xff  'puerto B como ENTRADAS
TRISC = 0xff
TRISD = 0xff
TRISE = 0xff
'TRISA.4 = 1  'como entrada (RA4, adc)
'TRISA.6 = 1  'como entrada (RA6, tecla S1)
'TRISA.5 = 1  'como entrada (RA5, tecla S2)
'TRISB.3 = 0  'como salida RB3
'TRISA.7 = 0  'como salida RA7
'TRISB.0 = 0  'como salida RB0
TRISA.4 = 0  'como salida RA4
'PORTB.3 = 1  'luz lcd a on (RB3)
'PORTA.7 = 1  'led amarillo a off (RA7), negado
'PORTB.0 = 1  'led verde a off (RB0), negado
PORTA.4 = 0  'led EBbasic_I2C a off (RA4)
'------------------------------------Inicio--------------------------------------------
Lcdinit  'inicializa el LCD sin cursor
WaitMs 100  'pausa de 0.1Seg.
Lcdout "Test P. EB_I2C"  'Imprime el texto en el LCD
Lcdcmdout LcdLine2Home
Lcdout "Version 1.1"
WaitMs 5000  'pausa de 5Seg.
'--------------------------------Rutina Programa---------------------------------------
main:
        Lcdcmdout LcdClear  'borra lcd
        FOR addr = 0 TO 511  'addr tomara los valores desde 0 hasta 511, bucle
                Lcdcmdout LcdLine1Home  'cursor linea 1 y principio
                Lcdout "Wr: ad.", #addr, " d.", #dato, "    "  '#addr  'se escribe en el lcd
                DATA = d_e2prom(addr, dato, 0)  'llama a la funcion R/W del I2C en modo escritura
                Lcdcmdout LcdLine2Home  'cursor linea 2 y principio
                Lcdout "Read: ", #data.LB, "  "  'se escribe en el lcd
                WaitMs 100  'se espera 100mSeg.
                IF DATA.HB = 1 THEN  'bit de error si esta a 1
                        Lcdcmdout LcdClear  'borra el lcd
                        Lcdout "Error: "  'imprime en el display
                        Lcdcmdout LcdLine2Home  'cursor al principio de la linea 2
                        Lcdout "Wr: ", #dato, " Rd:", #data.LB, "      "  'imprime en el display
                        WaitMs 500  'se hace una pausa de 500mSeg.
                Endif  'cierra el if
        dato = dato + 1  'incrementa dato, se tiene en cuenta que cuando desborda comienza en 0.
        NEXT addr  'cierra el bucle for
END                                               
'------------------------------Rutinas-----------------------------------------------
'Funcion para el manejo de la E2Prom y Led indicador R/W
'La funcion devuelve un numero tipo Word, en el que el byte menos significativo es
'el dato leido y el byte mas significativo indica si hubo error en la escritura, error=1
'e2p_addr.15...12, selecciona el dispocitivo en el bus I2C
'e2p_addr.11...09, selecciona la pagina o bloque de la memoria
'e2p_addr.8, selecciona si la operacion sera de lectura o escritura
'e2p_addr.LB, selecciona la posicion a escribir dentro del bloque de momoria seleccionado
'e2p_data, dato a escribir en la posicion indicada por e2p_addr
'e2p_rw, indica a la funcion si la operacion sera de lectura (=1) o escritura (=0)
FUNCTION d_e2prom(e2p_addr AS Word, e2p_data AS Byte, e2p_rw AS Byte) AS Word
        '0xa0 (1010b) direccion de la memoria I2C, todos los pin de configuracion a cero
        e2p_addr.15 = 1  'direccion o nombre del dispositivo en el bus I2C, bit mas significativo
        e2p_addr.14 = 0  '...
        e2p_addr.13 = 1  '...
        e2p_addr.12 = 0  '..., bit menos significativo
        e2p_addr.11 = e2p_addr.10  'selecciona la pagina de la memoria I2C, bit mas significativo
        e2p_addr.10 = e2p_addr.9  '...
        e2p_addr.9 = e2p_addr.8  '..., bit menos significativo
        'e2p_addr.8 = 0  'modo escritura, indiferente ya que lo controla directamente I2CWrite
        RA4 = 1  'activa el led de la placa EBasic_I2C, actividad
        IF e2p_rw = 0 THEN  'permite el modo escritura
                I2CWrite sda, scl, e2p_addr.HB, e2p_addr.LB, e2p_data  'escribe en el I2C
                d_e2prom.HB = 1  'registra posible error si no se borra posteriormente
                WaitMs 5  'pausa para que el chip termine la escritura, tiempo indicado en el datasheet
        Endif
        'e2p_addr.8 = 1  'modo lectura, indiferente ya que lo controla directamente I2CRead
        I2CRead sda, scl, e2p_addr.HB, e2p_addr.LB, d_e2prom.LB  'lee en el puerto I2C
        IF d_e2prom.LB = e2p_data AND e2p_rw = 0 THEN  'solo se ejecuta si hubo ciclo de escritura
                d_e2prom.HB = 0  'borra el flag de error
        Endif
        RA4 = 0  'apaga led placa EB_I2C, actividad
END FUNCTION

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 08 de Diciembre de 2008, 16:55:17

El siguiente codigo que maneja un DS1307 lo he probado tambien en mi placa entrenadora para el PIC16F877 y funciona correctamente

Código: QBasic/QuickBASIC

'ADAPTADO PARA EL PIC16F877 ***********************************************************
Define CONF_WORD = 0x3f32
Define CLOCK_FREQUENCY = 20
'********************************** PIC Entrenadora BASIC (PicEBasic)******************************
'NOMBRE: 16F88_Pic_EBasic_LCD_RTC_ADC_12******ADAPTACION AL PIC16F877******************************
'MICRO: PIC16F88
'FECHA/AUTOR: 04/07, 05/07 - By COS
'VERSION 1.2
'Se habilita el modulo usar como salida de datos serie
'se cambian todos los "Serout PORTB.5, 4800, " por Hserout
'se observa un ahorro de memoria considerable y una aceleracion del programa increible.
'VERSION 1.1
'modificacion de la rutina "pause_ms"
'modificacion de rutina de teclas, porque se veian afectadas al crecer la longitud del programa main
'Se añade salida de la temperatura, hora y fecha por el puerto serie (Soft)
'Pendiente de grafica de temperatura por el hyperterminal
'VERSION 1.0
'DESCRIPCION: Muestra en el display la fecha, hora (24h)mediante el DS1307 y temperatura (LM35)
'S1 y S2 pulsadas al mismo tiempo, entramos en programacion del reloj
'Una vez en programacion con S1 seleccionamos el dato a cambiar, este queda en modo parpadeo
'Una vez en programacion con S2 incrementamos el dato seleccionado dentro de sus cotas
'S1, pulsado al principio salida del RTC a on, 1Hz, y S2 salida a off, led off
'Se muestra la temperatura en el LCD mediante un LM35, temperatura positiva y negativa
'***************************************************************************************************
'-------------------------------------Puertos del LCD-----------------------------------------------
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTC
Define LCD_RSBIT = 0
Define LCD_EREG = PORTC
Define LCD_EBIT = 4
Define LCD_RWREG = PORTC
Define LCD_RWBIT = 1
Define LCD_COMMANDUS = 2000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
'-----------------------------------asignacion de nombres-----------------------------------------------------
Symbol sda = PORTC.2  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTC.3  'asignamos nombre al pin que hara de SCL del puerto I2C
Symbol led_amarillo = PORTA.7  'led amarillo
Symbol led_verde = PORTB.0  'led verde
Symbol luz_lcd = PORTB.3  'retroiluminacion del lcd
Symbol s1 = RE0  'se asigna nombre a la tecla
Symbol s2 = RE1  'se asigna nombre a la tecla
'***********************************DEFINICION DE VARIABLES**************************************
'-----------------------------------variables de los timer---------------------------------------
DIM aux_pause AS Word  'variable auxiiar el PAUSE
DIM pause AS Word  'contiene el valor para simular el comando Waitms
DIM timer_1ms AS Word  'base de tiempos se incrementa cada 1mSeg, timer del PAUSE
DIM timer_base AS Byte  'tiempo referencia para los timer por soft del programa
DIM timer_base_tiempo AS Byte  'contiene el valor del tiempo del timer_base
DIM timer1_ms AS Word  'base de tiempos en ms
DIM timer2_ms AS Word  'base de tiempos en ms
DIM timer3_ms AS Word  'base de tiempos ms
DIM timer1_100ms AS Byte  'base de tiempos msx100
DIM timer2_100ms AS Byte  'base de tiempos msx100
DIM timer3_100ms AS Byte  'base de tiempos msx100
DIM timer_1ms_tiempo AS Word  'contiene el valor del tiempo de timer_1ms
DIM timer1_ms_tiempo AS Word  'contiene el valor del tiempo del timer1_ms
DIM timer2_ms_tiempo AS Word  'contiene el valor del tiempo del timer2_ms
DIM timer3_ms_tiempo AS Word  'contiene el valor del tiempo del timer3_ms
DIM timer1_100ms_tiempo AS Byte  'contiene el valor del tiempo del timer1_100ms
DIM timer2_100ms_tiempo AS Byte  'contiene el valor del tiempo del timer2_100ms
DIM timer3_100ms_tiempo AS Byte  'contiene el valor del tiempo del timer3_100ms
'--------------------------------------Variables Programa RTC----------------------------------------
DIM aux_4h AS Byte  'contendra el nibble alto del dato leido por el I2C
DIM aux_4l AS Byte  'contendra el nibble bajo del dato leido por el I2C
DIM i AS Byte  'variable indice
DIM reg(7) AS Byte  'contendra los valores finales de fecha y hora en el sistema decimal
DIM flash_1 AS Bit  'controla el parpadeo de los digitos del lcd, activo a 1
DIM dato AS Byte  'indica la direccion del RTC a cambiar de valor
DIM flag_1 AS Bit  'activa la rutina de ajuste del reloj, activo a 1
DIM s1_on AS Bit  'tecla pulsada si s1_on=1
DIM s2_on AS Bit  'tecla pulsada si s2_on=1
DIM aux_ajuste AS Byte  'variable auxiliar para la rutina de ajuste
'-----------------------------------------------------------------------------------------------
'-------------------------------Variables del ADC y Rutina division (temperatura)------------------------------
DIM entero AS Word  'parte entera
DIM decimal AS Word  'los dos decimales
DIM division AS LONG  'almacenara el numero con los dos decimales
DIM adc_4 AS Word  'contendra el valor de la entrada del ADC
DIM aux_adc_4 AS Word  'auxiliar
'--------------------------------Variables temperatura-------------------------------------------
DIM factor_escala AS Word  'contiene el factor de correcion para pasar el valor del ADC a voltios, max. 5V
DIM temperatura AS Word  'almacena la temperatura final
DIM temp AS LONG  'contendra la temperatura completa sin coma
DIM signo AS Bit  'indica el signo de la temperatura
'--------------------------------Variables calculo media aritmetica (temperatura)----------------------------
DIM media_temp(20) AS Word  'numero de muestras para calcular la media aritmetica
DIM media_indice AS Byte  'se utiliza como indice
DIM aux_media AS Byte  'variable auxiliar
'------------------------------------------ASIGNACIONES------------------------------------------
'------------------------------------asignacion de valores a las variables (RTC)--------------------------
s1_on = 0
s2_on = 0
dato = 7  'fuera de ajuste o modo normal de trabajo del reloj, de 0 a 6 modo ajuste
flash_1 = 0
flag_1 = 0
timer_base = 0
timer1_ms = 0
timer2_ms = 0
timer3_ms = 0
timer1_100ms = 0
timer2_100ms = 0
timer3_100ms = 0
timer_base_tiempo = 100  'temporiza 100 mSeg
timer_1ms_tiempo = 1  'temporiza 1mseg
timer1_ms_tiempo = 100  'temporiza 100 mSeg., asignado a la tecla S1
timer2_ms_tiempo = 500  'temporiza 500 mSeg.
timer3_ms_tiempo = 100  'temporiza 100 mSeg., asignado a la tecla S2
timer1_100ms_tiempo = 10  'temporiza 1 Seg.
timer2_100ms_tiempo = 10  '255  'temporiza 25.5 Seg.
timer3_100ms_tiempo = 1  'temporiza 0.1seg.
'-------------------------------------asiganacion de valores a las variables (temperatura)------
entero = 0
decimal = 0
division = 0
adc_4 = 0
factor_escala = 10  'factor de escala para un decimal
temperatura = 0
temp = 0
media_indice = 0
aux_media = 0
'**************************************DEFINICION DE PUERTOS*************************************
'----------------------ASIGNACION DE I/O y valores de inicio de las salidas---------------------
AllDigital
'ADCON1 = 0x07  'Los pin PORTA como I/O
TRISA = 0xff  'Puerto A como salidas
TRISB = 0xff  'puerto B como salidas
TRISC = 0xff
TRISD = 0xff
TRISE = 0xff
'TRISA.4 = 1  'como entrada (RA4, adc)
TRISE.0 = 1  'como entrada (RA6, tecla S1)
TRISE.1 = 1  'como entrada (RA5, tecla S2)
'PORTB.3 = 1  'luz lcd a on (RB3)
'PORTA.7 = 1  'led amarillo a off
'PORTB.0 = 1  'led verde a off
'------------------------------------Velocidad de la UART-----------------------------------------
Hseropen 4800  'velocidad de trabajo del modulo UART del PIC, RB5 tiene que ser declarado como salida
'------------------------------------Inicializacion de Interrupciones-----------------------------
T1CON.TMR1CS = 0  'asigna el reloj interno al timer1, se incrementa cada ciclo de instruccion
T1CON.T1CKPS0 = 0  'factor del preescales del timer1, 0
T1CON.T1CKPS1 = 0  'factor del preescales del timer1, 0
TMR1H = 0xfc  'carga el registro del contador para que desborde cada 1mSeg, byte alto
TMR1L = 0x18  'carga el registro del contador para que desborde cada 1mSeg, byte bajo
T1CON.TMR1ON = 1  'habilitacion del TMR1, comienza a incrementarce
INTCON.PEIE = 1  'bit de habilitacion de interrupciones de perifericos
Enable  'INTCON.GIE habilita todas las interrupciones globales
'**************************************Inicio Programa*********************************************
Lcdinit  'inicializa el lcd sin cursor
Hserout 0x0c, "MUESTRA LA TEMPERATURA MEDIA CADA 25.5 Seg.", CrLf  'alpuerto serie
Hserout "-------------------------------------------", CrLf, CrLf  'alpuerto serie
PIE1.TMR1IE = 1  'activa las interrupciones del timer1
pause = 1000
GOSUB pause_ms  'espera el tiempo indicado en pause
Lcdout "16F88LCD_RTC/I2C"  'escribe en el lcd
Lcdcmdout LcdLine2Home  'seleciona la linea dos como proxima para escritura
Lcdout "ADC_LM35_RS232"  'escribe en el lcd
pause = 3000
GOSUB pause_ms  'espera el tiempo indicado en pause
Lcdcmdout LcdClear  'borra el display y cursor a casa
'--------------------------------inicializa variable media_temperatura---------------------------
'Gosub inicializa_temp
'--------------------------------inicializa los registros del RTC---------------------------------
GOSUB inicaliza_rtc
'--------------------------------------Main Programa-----------------------------------------------
main:
        IF s1 = 1 AND s1_on = 1 AND s2 = 1 AND s2_on = 1 AND flag_1 = 0 THEN  '________modo ajuste
                flag_1 = 1  'activa la rutina de ajustes
                dato = 0  'selecciono registro del RTC
                pause = 200
                GOSUB pause_ms  'hace una pausa del valor que tenga pause en ms
                s1_on = 0  'desbloquea la tecla S1
                s2_on = 0  'desbloquea la tecla s2
        Endif  '___________________
        IF flag_1 = 1 THEN GOSUB ajuste_reloj  '__________saltamos a la rutina de ajuste
        IF timer3_100ms >= timer3_100ms_tiempo THEN  'actualiza datos en el lcd cada 100ms
                GOSUB lee_hora  'lee la fecha y hora del reloj
                GOSUB print_lcd  'actualiza los datos del reloj en el display
                timer3_100ms = 0
        Endif  '__________________
        IF timer2_100ms >= timer2_100ms_tiempo THEN
                GOSUB lee_adc  'salto con retorno, rutina de lectura de la entrada ADC
                GOSUB temp_calculo  'salto con retorno, hace el calculo de la temperatura y guarda el valor en temperatura
                GOSUB media_arit  'salto con retorno, calcula la media aritmetica
                division = dvsion_dcmles(temperatura, factor_escala)  'llama a la funcion dvsion_dcmles, que retorna un long
                GOSUB print_rs232_temperatura
                GOSUB print_rs232_date
                timer2_100ms = 0
        Endif
GOTO main
END                                               
'--------------------------------------FIN DEL MAIN---------------------------------------------
'**************************************Subrrutinas**********************************************
inicaliza_rtc:  '-------------------------inicializa el reloj----------------------------------------------------
        PIE1.TMR1IE = 0  'deshabilita las interrupciones del timer1
        I2CRead sda, scl, 0xd1, 0, reg(0)  'leo los segundos
        reg(0) = reg(0) AND %01111111  'habilito bit de control que activa el reloj
        I2CWrite sda, scl, 0xd0, 0, reg(0)  'escribo el registro de los segundos
        I2CRead sda, scl, 0xd1, 1, reg(0)  'leo el registro de los minutos
        reg(0) = reg(0) AND %10111111  'habilito bit de control que activa el formato de 24h
        I2CWrite sda, scl, 0xd0, 0, reg(0)  'escribo el registro de los minutos
'-------------------------------inicializa la salida del RTC-------------------------------
        I2CWrite sda, scl, 0xd0, 7, 0x10  'salida a 1hz, a on
        IF s2 = 0 THEN I2CWrite sda, scl, 0xd0, 7, 0x80  'salida a off, led off
        PIE1.TMR1IE = 1  'habilita las interrupciones del timer1
        pause = 1000
        GOSUB pause_ms  'espera el tiempo indicado en pause
RETURN                                            
ajuste_reloj:  'rutina de ajuste del reloj
        '________________________Control posicion del dato a variar en el reloj
        IF s1 = 1 AND s1_on = 1 AND s2_on = 0 THEN  'detecta tecla S1
                dato = dato + 1  'seleciona el dato a ser modificado
                IF dato > 6 THEN flag_1 = 0  'indica fin de rutina de ajuste
                s1_on = 0  'la tecla queda desbloqueada
        Endif  '_____________________________
        '____________Lectura de la hora para su modificacion y posterior grabacion, rutina BCD
        IF s2 = 1 AND s2_on = 1 AND s1_on = 0 THEN  'deteca tecla S2
                s2_on = 0  'la tecla queda desbloqueada
                IF dato < 7 THEN  'limita la direcciones de trabajo del reloj
                        GOSUB lee_hora  'lee los datos de los regis. RTC y los pasa a decimal, elimina los bit de control
                        aux_ajuste = reg(dato)  'hace una imagen del valor del registro a modificar
                        aux_ajuste = aux_ajuste + 1  'incrementa el dato a modificar que fue seleccionado
                        IF dato = 2 AND aux_ajuste > 23 THEN aux_ajuste = 0  'acota horas
                        IF dato = 0 OR dato = 1 THEN  'acota segundos y minutos
                                IF aux_ajuste > 59 THEN aux_ajuste = 0
                        Endif
                        IF dato = 3 AND aux_ajuste > 7 THEN aux_ajuste = 1  'acota el dia de la semana
                        IF dato = 4 AND aux_ajuste > 31 THEN aux_ajuste = 1  'acota el dia del mes
                        IF dato = 5 AND aux_ajuste > 12 THEN aux_ajuste = 1  'acota el mes
                        IF dato = 6 AND aux_ajuste > 30 THEN aux_ajuste = 1  'acota el año, año maximo 2030
                        IF aux_ajuste > 49 AND aux_ajuste < 60 THEN  'Decimal a BCD
                                aux_ajuste = aux_ajuste - 50
                                aux_ajuste.4 = 1
                                aux_ajuste.6 = 1
                        Endif
                        IF aux_ajuste > 39 AND aux_ajuste < 50 THEN  'Decimal a BCD
                                aux_ajuste = aux_ajuste - 40
                                aux_ajuste.6 = 1
                        Endif
                        IF aux_ajuste > 29 AND aux_ajuste < 40 THEN  'Decimal a BCD
                                aux_ajuste = aux_ajuste - 30
                                aux_ajuste.4 = 1
                                aux_ajuste.5 = 1
                        Endif
                        IF aux_ajuste > 19 AND aux_ajuste < 30 THEN  'Decimal a BCD
                                aux_ajuste = aux_ajuste - 20
                                aux_ajuste.5 = 1
                        Endif
                        IF aux_ajuste > 9 AND aux_ajuste < 20 THEN  'Decimal a BCD
                                aux_ajuste = aux_ajuste - 10
                                aux_ajuste.4 = 1
                        Endif
                        IF aux_ajuste < 10 THEN aux_ajuste = aux_ajuste  'Decimal a BCD
                        IF dato = 0 THEN aux_ajuste.7 = 0  'restaura el bit de configracion, activa el oscilador del reloj
                        IF dato = 2 THEN aux_ajuste.7 = 0  'restaura el bit, no lo utiliza el RTC
                        IF dato = 2 THEN aux_ajuste.6 = 0  'restaura el bit de configuracion, reloj 24h
                        PIE1.TMR1IE = 0  'deshabilita las interrupciones del timer1
                        I2CWrite sda, scl, 0xd0, dato, aux_ajuste  'actualiza el dato ya modificado
                        PIE1.TMR1IE = 1  'activa las interrupciones del timer1
                Endif
        Endif  '____________
        '__________Controla el parpadeo de los digitos cuando el modo selec es activo
        IF timer2_ms >= timer2_ms_tiempo THEN  'tiempo del parpadeo
                IF flash_1 = 1 THEN  'selecciona si el dato a modificar es visible o no
                        flash_1 = 0  'dato es visible
                ELSE
                        flash_1 = 1  'dato no es visible
                Endif
                timer2_ms = 0  'recarga la base de tiempos
        Endif  '______________
RETURN                                            
lee_hora:  'lee la hora del RTC en formato BCD y la pasa a decimal
        i = 0  'variable indice, asigna los datos de forma ordenada, leidos del RTC
        WHILE i <= 6  'se repite el codigo comprendido entre while y wend, mientras i sea menor o igual a 6
                PIE1.TMR1IE = 0  'deshabilita las interrupciones del timer1
                I2CRead sda, scl, 0xd0, i, reg(i)  'lectura de la direccion de memoria indicada del RTC, formato BCD
                PIE1.TMR1IE = 1  'activa las interrupciones del timer1
                aux_4l = reg(i) AND %00001111  'eliminamos los bit de configuracion del RTC y dejamos solo el nibble bajo
                IF i = 0 THEN aux_4h = reg(i) AND %01110000  'segundos, borrado de bit configuracion y almacena nibble alto
                IF i = 1 THEN aux_4h = reg(i) AND %01110000  'minutos, almacena nibble alto
                IF i = 2 THEN aux_4h = reg(i) AND %00110000  'horas, borrado de bit configuracion y almacena nibble alto
                IF i = 3 THEN aux_4h = reg(i) AND %00000000  'dia_semana, almacena nibble alto
                IF i = 4 THEN aux_4h = reg(i) AND %00110000  'dia_mes, almacena nibble alto
                IF i = 5 THEN aux_4h = reg(i) AND %00010000  'mes, almacena el nibble alto
                IF i = 6 THEN aux_4h = reg(i) AND %11110000  'año, almacena el nibble alto
                aux_4h = ShiftRight(aux_4h, 4)  'convierte el nibble alto en bajo
                reg(i) = (aux_4h * 10) + aux_4l  'fusiona los nibbles alto y bajo en una sola variable en formato decimal
                i = i + 1  'incrementa la variable indice con cada repeticion del bucle While/Wend
        WEND  'fin del bucle y salta a While
RETURN                                            
print_lcd:  'rutina de escritura en el lcd
        Lcdcmdout LcdLine1Home  'cursor del lcd a la izquierda en la linea 1
        IF dato = 2 AND flash_1 = 1 THEN  'control final del parpadeo de los digitos de la hora
                Lcdout "  "  'borra el dato determinado para dar la sensacion de parpadeo
        ELSE
                IF reg(2) < 10 THEN Lcdout "0"  'si horas es inferior a 10 escribe el cero delante
                Lcdout #reg(2)  'escribe la hora
        Endif
        Lcdout ":"  'escribe el separador
        IF dato = 1 AND flash_1 = 1 THEN  'control final del parpadeo de los digitos de los minutos
                Lcdout "  "  'borra el dato determinado para dar la sencacion de parpadeo
        ELSE
                IF reg(1) < 10 THEN Lcdout "0"  'si minutos es inferior a 10 escribe el cero delante
                Lcdout #reg(1)  'escribe los minutos
        Endif
        Lcdout ":"  'escribe el separador
        IF dato = 0 AND flash_1 = 1 THEN  'control final del parpadeo de los digitos de los segundos
                Lcdout "  "  'borra el dato determinado para dar la sencacion de parpadeo
        ELSE
                IF reg(0) < 10 THEN Lcdout "0"  'si segundos es inferior a 10 escribe el cero delante
                Lcdout #reg(0)  'escribe los segundos
        Endif
        GOSUB print_lcd_temp  'salto con retorno a la rutina de impresion de la temperatura
        Lcdcmdout LcdLine2Home  'cursor del lcd a la izquierda en la linea 2
        IF dato = 3 AND flash_1 = 1 THEN  'control final del parpadeo de los digitos del dia semana
                Lcdout "    "  'borra el dato determinado para dar la sencacion de parpadeo
        ELSE
                IF reg(3) = 1 THEN Lcdout "Dom."  'asigna el literal al dia de la semana
                IF reg(3) = 2 THEN Lcdout "Lun."
                IF reg(3) = 3 THEN Lcdout "Mar."
                IF reg(3) = 4 THEN Lcdout "Mie."
                IF reg(3) = 5 THEN Lcdout "Jue."
                IF reg(3) = 6 THEN Lcdout "Vie."
                IF reg(3) = 7 THEN Lcdout "Sab."
        Endif
        Lcdout " "  'escribe separador
        IF dato = 4 AND flash_1 = 1 THEN  'control final del parpadeo de los digitos del dia del mes
                Lcdout "  "  'borra el dato determinado para dar la sencacion de parpadeo
        ELSE
                IF reg(4) < 10 THEN Lcdout "0"  'si dia del mes es inferior a 10 escribe cero
                Lcdout #reg(4)  'escribe el dia del mes
        Endif
        Lcdout "/"  'escribe el separador
        IF dato = 5 AND flash_1 = 1 THEN  'control final del parpadeo de los digitos de los meses
                Lcdout "  "  'borra el dato determinado para dar la sencacion de parpadeo
        ELSE
                IF reg(5) < 10 THEN Lcdout "0"  'si mes es inferior a 10 escribe cero
                Lcdout #reg(5)  'escribe el mes
        Endif
        Lcdout "/20"  'separador y los dos primeros digitos del año de 4 digitos
        IF dato = 6 AND flash_1 = 1 THEN  'control final del parpadeo de los digitos de los años
                Lcdout "  "  'borra el dato determinado para dar la sencacion de parpadeo
        ELSE
                IF reg(6) < 10 THEN Lcdout "0"  'si año es inferior a 10 escribe primero el cero
                Lcdout #reg(6)  'escribe el año
        Endif
RETURN                                            
'--------------------------------------Subrrutina lectura ADC, division y LCD
lee_adc:  '_______________________lee la entrada analogica
'ADCON1 = 0x00  'Los pin PORTA como analogicos
'Adcin 4, adc_4  'Lee el valor de la entrada analogica y lo guarda en adc_4
'ADCON1 = 0x07  'Los pin PORTA como I/O
RETURN                                            
print_lcd_temp:  '____________________muestra los datos por el display
        entero = division.HW  'sede el word alto a entero, parte entera
        decimal = division.LW  'sede el byte alto del word bajo a decimal_1
        Lcdout " "  'espacio en blanco
        IF signo = 0 THEN Lcdout "+", #entero, "."  'muestra los datos en el lcd
        IF signo = 1 THEN Lcdout "-", #entero, "."  'muestra los datos en el lcd
        Lcdout #decimal, "C   "  'muestra los datos en el lcd
RETURN                                            
'________Argumentos de entrada dos variables tipo word, dividendo y divisor, argumento de salida una variable tipo long
FUNCTION dvsion_dcmles(dvdo AS Word, dvsor AS Word) AS LONG  '________Rutina funcion division con decimales
        DIM f_entera AS Word  'variable local, contendra la parte entera
        DIM f_resto AS Word  'varable local, contendra el resto
        DIM f_decimal AS Word  'contendra la parte decimal
        f_entera = dvdo / dvsor  'obtengo la division
        f_resto = dvdo MOD dvsor  'obtengo el resto
        f_decimal = (f_resto * 10) / dvsor  'calculo 1 decimal, para obtener 2 decimales multiplicar por 100
        dvsion_dcmles.HW = f_entera  'almacena la parte entera en el word alto
        dvsion_dcmles.LW = f_decimal  'almacena la parte decimal word bajo
        'Recuerda que la parte decimal tiene que ser mostrada en el display con plantilla de dos digitos siempre
END FUNCTION                                      
'___________Calculo de la media aritmetica de la temperatura, 20 muestras
media_arit:
        media_temp(media_indice) = temperatura  'asigna el valor
        temperatura = 0  'se inicaliza a cero
        FOR aux_media = 0 TO 19  'blucle for, se ejecuta 20 veces
                temperatura = temperatura + media_temp(aux_media)  'se suman los valores
        NEXT aux_media  'cierra for
        temperatura = temperatura / 20  'termina el calculo de la media
        media_indice = media_indice + 1  'controla la entrada de datos que corresponde a media_temp(x)
        IF media_indice > 19 THEN media_indice = 0  'acota el ultimo valor del indice de media_temp
RETURN                                            
'___________Calculo de la temperatura
temp_calculo:  'calculo de la temperatura y del signo de la misma
        IF adc_4 > 112 THEN  'determina si la temperatura es superior a 0ºC
                aux_adc_4 = adc_4  'asigna el valor del ra4 a la variable auxiliar
                aux_adc_4 = aux_adc_4 - 112  'elimina de la temperatura la parte de la escala negativa
                temp = (5000 * aux_adc_4) / 1023  'calcuala el valor de la temperatura sin coma decimal
                signo = 0  'temperatura positiva
        Endif
        IF adc_4 = 112 THEN  'determina si la temperatura es 0ºC
                temp = 0  'temperatura 0ºC
                signo = 0  'asigna signo positivo
        Endif
        IF adc_4 < 112 THEN  'determina si la temperatura es inferior a 0ºC
                aux_adc_4 = adc_4  'asigna el valor del RA4 a la variable auxiliar
                aux_adc_4 = 112 - aux_adc_4  'elimina de la temperatura la parte de la escala negativa
                temp = (5000 * aux_adc_4) / 1023  'calcuala el valor de la temperatura sin coma decimal
                signo = 1  'asigna el simbolo menos a la temperatura
        Endif
        temperatura = temp  'se pasa de Long a Word
RETURN                                            
inicializa_temp:  '__________inicializa la media aritmetica de la temperatura en el arranque
                GOSUB lee_adc  'salto con retorno, rutina de lectura de la entrada ADC
                GOSUB temp_calculo  'salto con retorno, hace el calculo de la temperatura y guarda el valor en temperatura
                FOR media_indice = 0 TO 19  'indice para rocorrer todas las direcciones de memoria que forman la variable tipo array media_temp
                        media_temp(media_indice) = temperatura  'se de el valor a media_temp
                NEXT media_indice  'terminacion del bucle For
                media_indice = 0  'se inicializa a cero, para un uso posterior
                GOSUB media_arit  'salto con retorno, calcula la media aritmetica
                division = dvsion_dcmles(temperatura, factor_escala)  'llama a la funcion dvsion_dcmles, que retorna un long
RETURN                                            
print_rs232_temperatura:  'Envia la temperatura con decimales al puerto serie
        PIE1.TMR1IE = 0  'OFF, interrupciones del timer1
        Hserout "TEMPERATURA: "  'pagina en blanco y literal al purto serie
        IF signo = 0 THEN Hserout "+"  'muestra el signo de la temperatura
        IF signo = 1 THEN Hserout "-"  'muestra el signo de la temperatura
        Hserout #entero, ".", #decimal, " "  'temperatura al rs232
        PIE1.TMR1IE = 1  'ON, interrupciones del timer1
RETURN                                            
print_rs232_date:  'rutina de escritura de la hora y fecha por el RS232
        PIE1.TMR1IE = 0  'OFF, interrupciones del timer1
        IF reg(2) < 10 THEN Hserout " 0"  'si horas es inferior a 10 escribe el cero delante
        Hserout #reg(2), ":"  'escribe la hora
        IF reg(1) < 10 THEN Hserout "0"  'si minutos es inferior a 10 escribe el cero delante
        Hserout #reg(1), ":"  'escribe los minutos
        IF reg(0) < 10 THEN Hserout "0"  'si segundos es inferior a 10 escribe el cero delante
        Hserout #reg(0), " "  'escribe los segundos
        IF reg(3) = 1 THEN Hserout "Dom."  'asigna el literal al dia de la semana
        IF reg(3) = 2 THEN Hserout "Lun."
        IF reg(3) = 3 THEN Hserout "Mar."
        IF reg(3) = 4 THEN Hserout "Mie."
        IF reg(3) = 5 THEN Hserout "Jue."
        IF reg(3) = 6 THEN Hserout "Vie."
        IF reg(3) = 7 THEN Hserout "Sab."
        IF reg(4) < 10 THEN Hserout " 0"  'si dia del mes es inferior a 10 escribe cero
        Hserout #reg(4), "/"  'escribe el dia del mes
        IF reg(5) < 10 THEN Hserout "0"  'si mes es inferior a 10 escribe cero
        Hserout #reg(5), "/20"  'escribe el mes
        IF reg(6) < 10 THEN Hserout "0"  'si año es inferior a 10 escribe primero el cero
        Hserout #reg(6), "#", CrLf  'escribe el año
        PIE1.TMR1IE = 1  'ON, interrupciones del timer1
RETURN                                            
pause_ms:  'rutina de espera, rutina tipo Waitms, pause establese el tiempo total en mSeg
'pause = 1  'ESTA LINEA SOLO SE ACTIVA CUANDO SE UTILIZA EL SIMULADOR
        PIE1.TMR1IE = 0  'OFF, interrupciones del timer1
        timer_1ms_tiempo = pause  'valor a temporizar por timer_1ms
        timer_1ms = 0  'al borrar el contador se activa y comienza la cuenta de 1mSeg
        PIE1.TMR1IE = 1  'ON, interrupciones del timer1
        WHILE timer_1ms < timer_1ms_tiempo  'tiempo en mSeg maximos a contar
        WEND
RETURN                                            
'***********************************Interrupciones*****************************************************
ON Interrupt  'Comienzan las rutinas de las interrupciones, desactiva las interrupciones
        TMR1H = 0xec  'recarga el contador del timer1 para que desborde pasado 1mSeg, byte alto
        TMR1L = 0x79  'recarga el contador del timer1 para que desborde pasado 1mSeg, byte bajo
        Save SYSTEM  'Guarda los valores del sistema para poder reemprender el curso normal del programa
        IF PIR1.TMR1IF = 1 THEN  'comprueba que la interrupcion del timer1 es activa
                '_________________bases de tiempos
                timer_base = timer_base + 1  'contador general
                IF timer_1ms < timer_1ms_tiempo THEN timer_1ms = timer_1ms + 1  'contador para control de la rutina Pause
                IF timer1_ms < timer1_ms_tiempo THEN timer1_ms = timer1_ms + 1  'contador
                IF timer2_ms < timer2_ms_tiempo THEN timer2_ms = timer2_ms + 1  'contador
                IF timer3_ms < timer3_ms_tiempo THEN timer3_ms = timer3_ms + 1  'contador
                IF timer_base >= timer_base_tiempo THEN  'limita el timepo de ejecucion, cada timer_base_tiempo
                        IF timer1_100ms < timer1_100ms_tiempo THEN timer1_100ms = timer1_100ms + 1  'contador
                        IF timer2_100ms < timer2_100ms_tiempo THEN timer2_100ms = timer2_100ms + 1  'condtador
                        IF timer3_100ms < timer3_100ms_tiempo THEN timer3_100ms = timer3_100ms + 1  'contador
                        timer_base = 0  'reset a la base de tiempos
                Endif  '________________fin bases de tiempos
        PIR1.TMR1IF = 0  'borra el flag de salto del tmr1
        Endif
'_________________Detecta tecla pulsada
        IF s1 = 0 AND s1_on = 0 AND timer1_ms >= timer1_ms_tiempo THEN  'tecla S1
                s1_on = 1  'la tecla fue pulsada
                s2_on = 0  'la tecla s2 a pff
                IF s1 = 0 AND s2 = 0 THEN s2_on = 1  'S2
                timer1_ms = 0  'tiempo entre pulsacion y pulsacion
        Endif
        IF s2 = 0 AND s2_on = 0 AND timer3_ms >= timer3_ms_tiempo THEN  'tecla s2
                s2_on = 1  'la tecla fue pulsada
                s1_on = 0  'la tecla s1 a off
                IF s1 = 0 AND s2 = 0 THEN s1_on = 1  'S1
                timer3_ms = 0  'tiempo entre pulsacion y pulsacion
        Endif
        IF s1 = 0 THEN led_verde = 0  'mestra el estado de S1
        IF s2 = 0 THEN led_amarillo = 0  'muestra el estado de S2
        IF s1 = 1 THEN led_verde = 1  'mestra el estado de S1
        IF s2 = 1 THEN led_amarillo = 1  'muestra el estado de S2
        '________Fin detecta tecla pulsada
RESUME  'activa las interrupciones y retorna el curso normal del programa, antes del salto
END

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 08 de Diciembre de 2008, 17:14:38

Lo mismo, este tambien funciona en mi entrenadora.

Código: QBasic/QuickBASIC

'ADAPTADO PARA MI PLACA ENTRENADORA CON PIC16F877 By DOGFLU66
'------------------------------------------------------------
 
'ejemplo tomado del amigo xocas, modificado (gracias amigo)
'Pic 16f877A
 
Define CONF_WORD = 0x3f32
Define CLOCK_FREQUENCY = 20
'-------------------------------------Puertos del LCD-----------------------------------------------
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTC
Define LCD_RSBIT = 0
Define LCD_EREG = PORTC
Define LCD_EBIT = 4
Define LCD_RWREG = PORTC
Define LCD_RWBIT = 1
Define LCD_COMMANDUS = 2000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
Lcdinit  '-----------------------------------Puerto I2C-----------------------------------------------------
Symbol sda = PORTC.2  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTC.3  'asignamos nombre al pin que hara de SCL del puerto I2C
'***********************************DEFINICION DE VARIABLES**************************************
'--------------------------------------Variables Programa----------------------------------------
DIM addr(7) AS Byte
DIM DATA AS Byte
DIM escribe AS Byte
DIM sec AS Byte
DIM min AS Byte
DIM hour AS Byte
DIM day AS Byte
DIM daym AS Byte
DIM month AS Byte
DIM year AS Byte
DIM d_hi AS Byte
DIM d_lo AS Byte
 
AllDigital
 
WaitMs 1000  'bucle que escribe los datos iniciales en DS1307
 
FOR addr = 0 TO 6
        escribe = LookUp(0x00, 0x15, 0x16, 0x01, 0x22, 0x06, 0x08), addr
        I2CWrite sda, scl, 0xd0, addr, escribe  'escribe los datos al DS1307
NEXT addr  'bucle para lectura de datos desde el DS1307
 
LOOP:
        addr = 0
        I2CRead sda, scl, 0xd1, addr, sec
        addr = 1
        I2CRead sda, scl, 0xd1, addr, min
        addr = 2
        I2CRead sda, scl, 0xd1, addr, hour
        addr = 3
        I2CRead sda, scl, 0xd1, addr, daym
        addr = 4
        I2CRead sda, scl, 0xd1, addr, day
        addr = 5
        I2CRead sda, scl, 0xd1, addr, month
        addr = 6
        I2CRead sda, scl, 0xd1, addr, year  'escribimos resultado en el lcd
        Lcdcmdout LcdClear
        Lcdcmdout LcdLine1Home
        Lcdout " Hora: "
        DATA = hour
        GOSUB PRINT
        Lcdout "."
        DATA = min
        GOSUB PRINT
        Lcdout "."
        DATA = sec
        GOSUB PRINT
        Lcdcmdout LcdLine2Home
        Lcdout "Fecha: "
        DATA = day
        GOSUB PRINT
        Lcdout "/"
        DATA = month
        GOSUB PRINT
        Lcdout "/0", #year
        WaitMs 100
GOTO LOOP
END  'subrutina de conversión                     
PRINT:
        d_hi = DATA / 16
        d_lo = DATA MOD 16
        IF d_hi < 10 THEN
                Lcdout #d_hi
        ELSE
                Lcdout "X"
        Endif
        IF d_lo < 10 THEN
                Lcdout #d_lo
        ELSE
                Lcdout "X"
        Endif
RETURN

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 08 de Diciembre de 2008, 19:07:05

hola amigo Dogflu

al ultimo codigo puesto: le modifique este cachito de programa:

Código: FreeBasic

'-------------------------------------Puertos del LCD-----------------------------------------------
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTC
Define LCD_RSBIT = 0
Define LCD_EREG = PORTC
Define LCD_EBIT = 4
Define LCD_RWREG = PORTC
Define LCD_RWBIT = 1
Define LCD_COMMANDUS = 2000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
Lcdinit  
'-----------------------------------Puerto I2C-----------------------------------------------------
Symbol sda = PORTC.2  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTC.3  'asignamos nombre al pin que hara de SCL del puerto I2C
'***********************************DEFINICION DE VARIABLES**************************************

este cachito lo cambio por este otro:

Código: FreeBasic

'-------------------------------------Puertos del LCD-----------------------------------------------
Define LCD_BITS = 4 ' bit
Define LCD_DREG = PORTB
Define LCD_DBIT = 4 'empieza en el bit 4
Define LCD_RSREG = PORTB
Define LCD_RSBIT = 1
Define LCD_EREG = PORTB
Define LCD_EBIT = 2
'Define LCD_RWREG = PORTB ' no asigno lo pongo a masa en lcd y al aire en el pic
'Define LCD_RWBIT = 0 ' no asigno
'-----------------------------------------
Define LCD_COMMANDUS = 2000  'Tiempo de espera despues de ejecutar un comand del lcd en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50  'Tiempo de espera despues de inicializar el Display, solo se ejecuta una vez en mSeg.
Lcdinit  0 '
'-----------------------------------Puerto I2C-----------------------------------------------------
Symbol sda = PORTC.4  'asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTC.3  'asignamos nombre al pin que hara de SCL del puerto I2C
'***********************************DEFINICION DE VARIABLES**************************************

cambio en vez de 8 bit al lcd le pongo 4bit, desde el 4 al 7, el b7 del pic al db7 del lcd y esto mismo con el b6, b5,b4 el resto de pines del DB3 al DB0 del lcd estan al aire.

cambio el pin "rs" al puerto b1 y el "E" al puerto b2 el "rw" dejo al aire en el pic y a masa en el lcd,
el sda del pic "puerto c4" lo pongo con el sda del ds1307 y el SCL del pic "puerto C3" al a patita del scl del ds1307.

podrias hacerme el favor de probarme este cachito de codigo con tu placa, en la mia es un PIC16F877A, voy a poner fotos de lo que se ve

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 08 de Diciembre de 2008, 22:24:30

Lo siento, pero mi placa entrenadora no permite que el LCD trabaje a 4Bit.

Cuando la construí para mi no tenia mucho sentido utilizar un PIC con tantos puertos y, conectarle el LCD a 4 BIT, ya que al trabajar a 4 BIT se vuelve más lento el LCD.

Tampoco puedo modificar los pin del I2C.

En fin, no sé que problema puedes tener con el LCD. Y también he caído en callejones que a primera vista no tenían salida, que al pasar el tiempo y no vislumbrar una solución me hacían echar la culpa del problema a cualquier cosa, pero te puedo asegurar que al final el error era mío, ya sea de programación o de hardware.

De esta manera es como conecto el LCD cuando trabajo a 4 BIT:

(http://img166.imageshack.us/my.php?image=lcdpf1.png)

http://img166.imageshack.us/my.php?image=lcdpf1.png

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 09 de Diciembre de 2008, 00:16:06

hola amigos.
creo haber descubierto que es lo que ha dado tantos quebraderos de cabeza,

yo le simule con proteus y todo era perfecto verifique con lo del amigo xocas, y me dio una corazonada, he cogido el modelo de xocas y lo simule en proteus iba muy bien le modifique cosas y lo probe en proteus y seguia bien cuando de repente me quede mirando las resistencias,resistencias pull-up. y me dio por sacarlas y volverlas a meter. ya habia probado de todo, y eso no podia ser, pero me equivocaba,

en el simulador hice lo mismo las desconecte, sorpresa, salia todo ceros eran las resistencias.
lo que antes eran ceros, ahora son xx, menos en los años que pone "0225".
algo hemos avanzado.

queria agradecer al amigos xocas y al amigo dogfluu por el tiempo que me han dedicado, es de agradecer esta ayuda.
gracias, muchas gracias.

ahora invetigare lo de las x haber que ocurre..

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 09 de Diciembre de 2008, 12:49:22

me alegra que vayas avanzando, al final sabrás más que nosotros sobre el i2c 8)

primero te dejo un enlace que ya trataba ese tema en proteus: http://www.todopic.com.ar/foros/index.php?topic=17608.msg118879#msg118879 y en el datasheet de ds1307 verás que sda es 'colector abierto' y por tanto necesita esa resistencia. en el caso de scl ya he leído que si y he leído que no... yo no lo sé pero siempre pongo ambas, y en la práctica suelo usar valores entre 4k7 y 10k para esas resistencias.

en el código que te puse puedes ver que si se 'desborda' algún valor (por ejemplo día 34 o mes 19) el lcd mostrará una 'x' indicándolo. repasa los valores que le estás dando al ds1307 y el orden de los mismos...

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 09 de Diciembre de 2008, 22:03:05

hola amigos
yo habia pensado en acotar esos valores,

para los meses que fuera 01,02,03,04,05,06,07,08,09,10,11,12, y que no hiciera nada con 1a,1b,1c,1d,1e,1f

pero no se muy bien como hace el ds1307, en el data dice que trabaja en BCD, binario codificado en decimal,
este ds1307, es un contador bcd o lo hace en binario.

Código: FreeBasic

print:
d_hi = data / 16
d_lo = data Mod 16
If d_hi < 10 Then
Lcdout #d_hi
Else
Lcdout "X"
Endif
If d_lo < 10 Then
Lcdout #d_lo
Else
Lcdout "X"
Endif
Return

data estará en binario, o en bcd o, en decimal, lo dividimos entre 16 para ponerlo en base 16.

la parte alta la comparamos con 10 pero ese 10 esta binario verdad.

voy ha investigar.

En el proteus va perfecto el funcionamientos con las resistencias pull-up pero en la realidad solo me saca "x " a que se deberá?

voy ha seguir investigando, la rutina de conversión.

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 10 de Diciembre de 2008, 00:08:05

hola
poco duro la alegria en casa de los pobres,
al parecer segun tenga puesto las resistencias pull-up, muestra una cosa diferente en el lcd,
sin ellas me muestra 00.00.00 pero con ellas me muestra 255255.255255.255255.

estara roto el rtc o el pic funciona como analogico digital
cambie las x por #hour o #min y da lo anterior todo xxxxx

excepto en el año que muestra 255

causa los mismo efectos, si en proteus le quitamos la union entre el scl al ds1307 con el pic.

He buscado en el foro sobre las resistencias pull-up y encontre esto muy representativo y con dibujos muy buenos.

http://www.todopic.com.ar/foros/index.php?topic=23978.0

en mi circuito no, revise todo a mi pensar parece estar bien, pero no funciona.
Cuado le pongo las resistencias pull-up hace cosas raras,
o se pone a 00 o se pone a 255 osea "x" , pero si le toco con el dedo la resistencia varia el valor.
Pero eso solo pasa con la resistecia SCL que cosa mas rara?

sigo pensado que tiene los puertos como analogico digital, comparadores, u algo pero esto es muy raro, eso podrtia ser posible.
si es el puerto c4 y c3.

abajo puse una foto miren

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 11 de Diciembre de 2008, 23:23:39

hola

Voy a poner el archivo .hex y el .bas así como el de proteus haber si alguien me puede decir que es lo que le ocurre,
estará roto algún componente el DS1307 o el pic, o no pondré las pull-up adecuadas,
no tendré bien configurado el pic, o será algo mucho mas sencillo.

un saludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: dogflu66 en 13 de Diciembre de 2008, 21:34:53

El I2C se utiliza para ahorrar hilos en los buses de comunicaciones entre circuitos integrados de una misma placa, esta compuesto de dos hilos uno para Rx/Tx de datos y el otro como señal de sincronismo, si somos un poco quisquillosos son tres hilos, GND o masa o común o negativo como queramos llamarlo es el tercero, ya que las señales del bus van referenciadas a masa. El I2C es muy susceptible a las interferencias por lo que solo se suele utilizar para controlar circuitos integrados situados en la misma placa del circuito impreso, y en el caso de conectar otros circuitos integrados de otra placa al bus se emplea cables de muy corta longitud. Los circuitos integrados que llevan el I2C integrado no pueden suministrar nivel positivo a las líneas del bus, solo pueden suministrar nivel lógico cero. De esto se deduce que solo poseen dos estados uno de nivel lógico cero y el otro alta impedancia ya que internamente trabajan como colector abierto. De esto también se deduce que si queremos que funcione tenemos que suministrar siempre el nivel lógico alto nosotros, conectando sendas resistencias de polarización a positivo. El valor típico de estas resistencias es de 4K7 oh. Este valor puede disminuir si necesitamos reforzar la polarización de los hilos del bus. Un truco para saber si el bus esta bien en toda su extensión es quitar los circuitos integrados asociados a él y conectando la alimentación comprobar que cada zócalo de los circuitos integrados tipo I2C en sus respectivos hilos de dato y reloj les llega perfectamente la alimentación suministrada por las resistencias de polarización del mismo, normalmente 5V, después procederemos a cortocircuitar cada línea del bus a masa y comprobaremos que todo él queda a cero voltios.

A tener en cuenta cuando se usa emulación de I2C por alguno de los circuitos conectados al bus: Cuando alguno de los circuitos conectados al bus no utiliza modulo I2C interno, hay que tener un especial cuidado en que no suministre nivel lógico alto durante el arranque al bus I2C ya que se puede producir cortocircuito con algún otro circuito integrado que quiera utilizar el bus y provocando una posible rotura de alguno, a esto se le llama lucha de niveles. Este problema en teoría no se puede producir si se utilizan circuitos integrados genuinos de I2C integrado en ellos ya que se suponen que no pueden generar nunca el estado lógico alto.

Bien, llegados hasta aquí no te voy a dar ninguna recomendación Pajaro, solo voy decir lo que yo haría si estuviera en tu lugar:

1º Desmontar todo el circuito.
2º Montar un circuito compatible con los programas que ya se te dieron que funcionan.
3º Cables del bus lo mas cortos posibles y pegados a la placa incluyendo las resistencias de polarización del mismo, es decir colocarlas al lado de los integrados.
4º Colocar condensadores de desacople de alimentación a los circuitos integrados.
5º No dejar nunca una entrada sin polarización.
6º Una vez verificado que funciona ir haciendo las modificaciones pertinentes según las necesidades del circuito que estas construyendo.

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: pajaro en 15 de Diciembre de 2008, 00:34:05

hola
monte el mismo circuito pero con el 16f84A
y el problema era el mismo,
le puse a la salida de la onda cuadrada una resistencia de 10k
y me funciono, aparte de la de 4k7 del scl y sda.

Pero al cambair las resistencias al otro montaje
no me volvieron a funconar.

El problema esta ahi, por lo que sea, esas resistencias,
se han declarado en huega

no esta bien polarizado el bus?

si funcinona y le quitas energia y se la vuelves a poner
unas veces funciona y otras solo muestra 255.
Como es esto.

alguien sabe responderme

un laludo

Título: Re: DS1307 - Pic16F877A - Proteus 7 - PSI (Problemas)
Publicado por: xocas en 16 de Diciembre de 2008, 15:10:12

Cita de: dogflu66 en 13 de Diciembre de 2008, 21:34:53

1º Desmontar todo el circuito.
2º Montar un circuito compatible con los programas que ya se te dieron que funcionan.
3º Cables del bus lo mas cortos posibles y pegados a la placa incluyendo las resistencias de polarización del mismo, es decir colocarlas al lado de los integrados.
4º Colocar condensadores de desacople de alimentación a los circuitos integrados.
5º No dejar nunca una entrada sin polarización.
6º Una vez verificado que funciona ir haciendo las modificaciones pertinentes según las necesidades del circuito que estas construyendo.

lo comparto al 100% ya que no se me ocurre otra cosa que un problema de hardware -posiblemente un falso contacto-

yo tengo bastante lío estes días y no podré probártelo, aunque ya tienes las respuestas de dogflu en este aspecto. lo que si recordarte que un entrenador es una herramienta que no tiene precio para aprender como ya se te dijo en otras ocasiones y que tu mismo estás comprobando ahora que entre un simulador por software y la 'vida real' hay un ligero trecho.

un saludo

TODOPIC

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: pajaro en 19 de Junio de 2008, 15:28:08