« anterior próximo »
Páginas: [1]   Ir Abajo

Autor Tema: Termometro DIgital con PIC 16F876  (Leído 15756 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado skisoloco

  • PIC10
  • *
  • Mensajes: 13
Termometro DIgital con PIC 16F876
« en: 02 de Junio de 2009, 21:26:12 »
Este es uno de los proyectos que llevé a cabo cuando cursé electrónica industrial, espero sirva a aquellos que estan comenzando al igual que yo en el mundo de los microcontroladores:

puedes visitar tambien esta pagina: ahi hay mas proyectos y tutoriales

http://todopic.servepics.com/

La programacion fue llevada a cabo en MikroBasic y la he modificado para la comprencion del lector
el sensor es un LM35



program TERMOMETRODIGITAL

SYMBOL PULS1 = TESTBIT(PORTB,4)
SYMBOL PULS2 = TESTBIT(PORTB,5)

DIM VIN AS WORD
DIM R1, R2 AS WORD
DIM K AS WORD
DIM UNIMIL, CENT, DECE, UNIT AS WORD

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE GET_AN                      
VIN = Adc_Read(0)                              ''leer el valor de AN0
VIN = VIN * 61
VIN = VIN / 50
PULS1
PULS2
IF (PORTB.4 = 1) AND (PORTB.5 = 0)THEN
K = ((((9 * VIN) / 5) + 320))
ELSE
IF (PORTB.5 = 1) AND (PORTB.4 = 0) THEN
K = VIN
ELSE
IF (PORTB.4 = 0) AND (PORTB.5 = 0) THEN
K = K
END IF
END IF
END IF

END SUB

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE CONV_DEC_BIN
IF (K >= 0) AND (K <= 9) THEN
UNIMIL = 0
CENT = 0
DECE = 0
UNIT = K
END IF
IF (K >= 10) AND (K <= 99) THEN
UNIMIL = 0
CENT = 0
DECE = K / 10
UNIT = K - (DECE * 10)
END IF
IF (K >= 100) AND (K <= 999) THEN
UNIMIL = 0
CENT = K / 100
R1 = K - (CENT * 100)
DECE = R1 / 10
UNIT = R1 - (DECE * 10)
END IF
IF (K >= 1000) AND (K <= 2500) THEN
UNIMIL = K / 1000
R1 = K - (UNIMIL * 1000)
CENT = R1 / 100
R2 = R1 - (CENT * 100)
DECE = R2 / 10
UNIT = R2 - (DECE * 10)
END IF
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE HAB1                         ''habilitar display 1
PORTB = %00000001
END SUB
SUB PROCEDURE HAB2                         ''habilitar display 2
PORTB = %00000010
END SUB
SUB PROCEDURE HAB3                         ''habilitar display 3
PORTB = %00000100
END SUB
SUB PROCEDURE HAB4                         ''habilitar display 4
PORTB = %00001000
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE DESHAB
PORTB = %00000000
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE VALOR0
PORTC = %01000000

END SUB
SUB PROCEDURE VALOR1
PORTC = %01111001

END SUB
SUB PROCEDURE VALOR2
PORTC = %00100100

END SUB
SUB PROCEDURE VALOR3
PORTC = %00110000

END SUB
SUB PROCEDURE VALOR4
PORTC = %00011001

END SUB
SUB PROCEDURE VALOR5
PORTC = %00010010

END SUB
SUB PROCEDURE VALOR6
PORTC = %00000010

END SUB
SUB PROCEDURE VALOR7
PORTC = %01111000

END SUB
SUB PROCEDURE VALOR8
PORTC = %00000000

END SUB
SUB PROCEDURE VALOR9
PORTC = %00010000

END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

main:
ADCON1 = $80                                          ''poner el PortA como entrada analogica
TRISC = %00000000                                  ''PortC.0 hasta PortC.6 (displays)
TRISB = %00110000                                  ''Salidas para activar los displays(las 4 primeras)
                                                                      ''entrada de pulsador (ºF y ºC)

GET_AN
K = VIN

WHILE TRUE

GET_AN
CONV_DEC_BIN

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

IF UNIT = 0 THEN
VALOR0
else
IF UNIT = 1 THEN
VALOR1
else
IF UNIT = 2 THEN
VALOR2
else
IF UNIT = 3 THEN
VALOR3
else
IF UNIT = 4 THEN
VALOR4
else
IF UNIT = 5 THEN
VALOR5
else
IF UNIT = 6 THEN
VALOR6
else
IF UNIT = 7 THEN
VALOR7
else
IF UNIT = 8 THEN
VALOR8
else
IF UNIT = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB1
DELAY_MS(7)
DESHAB
'---------------------------------------------------
IF DECE = 0 THEN
VALOR0
else
IF DECE = 1 THEN
VALOR1
else
IF DECE = 2 THEN
VALOR2
else
IF DECE = 3 THEN
VALOR3
else
IF DECE = 4 THEN
VALOR4
else
IF DECE = 5 THEN
VALOR5
else
IF DECE = 6 THEN
VALOR6
else
IF DECE = 7 THEN
VALOR7
else
IF DECE = 8 THEN
VALOR8
else
IF DECE = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB2
DELAY_MS(7)
DESHAB
'---------------------------------------------------

IF CENT = 0 THEN
VALOR0
else
IF CENT = 1 THEN
VALOR1
else
IF CENT = 2 THEN
VALOR2
else
IF CENT = 3 THEN
VALOR3
else
IF CENT = 4 THEN
VALOR4
else
IF CENT = 5 THEN
VALOR5
else
IF CENT = 6 THEN
VALOR6
else
IF CENT = 7 THEN
VALOR7
else
IF CENT = 8 THEN
VALOR8
else
IF CENT = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB3
DELAY_MS(7)
DESHAB
'---------------------------------------------------

IF UNIMIL = 0 THEN
VALOR0
else
IF UNIMIL = 1 THEN
VALOR1
else
IF UNIMIL = 2 THEN
VALOR2
else
IF UNIMIL = 3 THEN
VALOR3
else
IF UNIMIL = 4 THEN
VALOR4
else
IF UNIMIL = 5 THEN
VALOR5
else
IF UNIMIL = 6 THEN
VALOR6
else
IF UNIMIL = 7 THEN
VALOR7
else
IF UNIMIL = 8 THEN
VALOR8
else
IF UNIMIL = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB4
DELAY_MS(7)
DESHAB

WEND

END.
« Última modificación: 13 de Agosto de 2009, 12:07:24 por skisoloco »
En línea

Desconectado zerc79

  • PIC10
  • *
  • Mensajes: 43
Re: Termometro DIgital con PIC 16F876
« Respuesta #1 en: 19 de Junio de 2009, 13:25:46 »
Hola skisoloco
Buen aporte yo estoy con un proyecto similar pero en asm y me gusta aprender de lecturas y aportes de los compañeros foristas, mi pregunta es por eso (las ayudas) la direccion escrita aparece como no existente me la puedes confirmar...

Gracias
En línea
No hay ninguna cosa seria que no se pueda decir con una sonrisa

Desconectado skisoloco

  • PIC10
  • *
  • Mensajes: 13
Re: Termometro DIgital con PIC 16F876
« Respuesta #2 en: 24 de Julio de 2009, 00:01:06 »
hola zerc79!

La direccion esta confirmada, mas no es a toda hora porq el servidor no es dedicado.
Me gustaria ver ese proyecto que dices estar haciendo porq yo aun no me he iniciado en el asm.
Lamentablemente como estoy estudiando la carrera de electricidad, ya sali de electronica industrial y no he tenido mucho tiempo para continuar aportando. a partir de el mes que viene tratare.. gracias de antemano.

En línea

Desconectado skisoloco

  • PIC10
  • *
  • Mensajes: 13
Re: Termometro DIgital con PIC 16F876
« Respuesta #3 en: 24 de Febrero de 2011, 05:09:36 »
Cita de: skisoloco en 02 de Junio de 2009, 21:26:12
Este es uno de los proyectos que llevé a cabo cuando cursé electrónica industrial, espero sirva a aquellos que estan comenzando al igual que yo en el mundo de los microcontroladores:

puedes visitar tambien esta pagina: ahi hay mas proyectos y tutoriales

http://esebooks.blogspot.com/

La programacion fue llevada a cabo en MikroBasic y la he modificado para la comprencion del lector
el sensor es un LM35



program TERMOMETRODIGITAL

SYMBOL PULS1 = TESTBIT(PORTB,4)
SYMBOL PULS2 = TESTBIT(PORTB,5)

DIM VIN AS WORD
DIM R1, R2 AS WORD
DIM K AS WORD
DIM UNIMIL, CENT, DECE, UNIT AS WORD

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE GET_AN                      
VIN = Adc_Read(0)                              ''leer el valor de AN0
VIN = VIN * 61
VIN = VIN / 50
PULS1
PULS2
IF (PORTB.4 = 1) AND (PORTB.5 = 0)THEN
K = ((((9 * VIN) / 5) + 320))
ELSE
IF (PORTB.5 = 1) AND (PORTB.4 = 0) THEN
K = VIN
ELSE
IF (PORTB.4 = 0) AND (PORTB.5 = 0) THEN
K = K
END IF
END IF
END IF

END SUB

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE CONV_DEC_BIN
IF (K >= 0) AND (K <= 9) THEN
UNIMIL = 0
CENT = 0
DECE = 0
UNIT = K
END IF
IF (K >= 10) AND (K <= 99) THEN
UNIMIL = 0
CENT = 0
DECE = K / 10
UNIT = K - (DECE * 10)
END IF
IF (K >= 100) AND (K <= 999) THEN
UNIMIL = 0
CENT = K / 100
R1 = K - (CENT * 100)
DECE = R1 / 10
UNIT = R1 - (DECE * 10)
END IF
IF (K >= 1000) AND (K <= 2500) THEN
UNIMIL = K / 1000
R1 = K - (UNIMIL * 1000)
CENT = R1 / 100
R2 = R1 - (CENT * 100)
DECE = R2 / 10
UNIT = R2 - (DECE * 10)
END IF
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE HAB1                         ''habilitar display 1
PORTB = %00000001
END SUB
SUB PROCEDURE HAB2                         ''habilitar display 2
PORTB = %00000010
END SUB
SUB PROCEDURE HAB3                         ''habilitar display 3
PORTB = %00000100
END SUB
SUB PROCEDURE HAB4                         ''habilitar display 4
PORTB = %00001000
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE DESHAB
PORTB = %00000000
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE VALOR0
PORTC = %01000000

END SUB
SUB PROCEDURE VALOR1
PORTC = %01111001

END SUB
SUB PROCEDURE VALOR2
PORTC = %00100100

END SUB
SUB PROCEDURE VALOR3
PORTC = %00110000

END SUB
SUB PROCEDURE VALOR4
PORTC = %00011001

END SUB
SUB PROCEDURE VALOR5
PORTC = %00010010

END SUB
SUB PROCEDURE VALOR6
PORTC = %00000010

END SUB
SUB PROCEDURE VALOR7
PORTC = %01111000

END SUB
SUB PROCEDURE VALOR8
PORTC = %00000000

END SUB
SUB PROCEDURE VALOR9
PORTC = %00010000

END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

main:
ADCON1 = $80                                          ''poner el PortA como entrada analogica
TRISC = %00000000                                  ''PortC.0 hasta PortC.6 (displays)
TRISB = %00110000                                  ''Salidas para activar los displays(las 4 primeras)
                                                                      ''entrada de pulsador (ºF y ºC)

GET_AN
K = VIN

WHILE TRUE

GET_AN
CONV_DEC_BIN

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

IF UNIT = 0 THEN
VALOR0
else
IF UNIT = 1 THEN
VALOR1
else
IF UNIT = 2 THEN
VALOR2
else
IF UNIT = 3 THEN
VALOR3
else
IF UNIT = 4 THEN
VALOR4
else
IF UNIT = 5 THEN
VALOR5
else
IF UNIT = 6 THEN
VALOR6
else
IF UNIT = 7 THEN
VALOR7
else
IF UNIT = 8 THEN
VALOR8
else
IF UNIT = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB1
DELAY_MS(7)
DESHAB
'---------------------------------------------------
IF DECE = 0 THEN
VALOR0
else
IF DECE = 1 THEN
VALOR1
else
IF DECE = 2 THEN
VALOR2
else
IF DECE = 3 THEN
VALOR3
else
IF DECE = 4 THEN
VALOR4
else
IF DECE = 5 THEN
VALOR5
else
IF DECE = 6 THEN
VALOR6
else
IF DECE = 7 THEN
VALOR7
else
IF DECE = 8 THEN
VALOR8
else
IF DECE = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB2
DELAY_MS(7)
DESHAB
'---------------------------------------------------

IF CENT = 0 THEN
VALOR0
else
IF CENT = 1 THEN
VALOR1
else
IF CENT = 2 THEN
VALOR2
else
IF CENT = 3 THEN
VALOR3
else
IF CENT = 4 THEN
VALOR4
else
IF CENT = 5 THEN
VALOR5
else
IF CENT = 6 THEN
VALOR6
else
IF CENT = 7 THEN
VALOR7
else
IF CENT = 8 THEN
VALOR8
else
IF CENT = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB3
DELAY_MS(7)
DESHAB
'---------------------------------------------------

IF UNIMIL = 0 THEN
VALOR0
else
IF UNIMIL = 1 THEN
VALOR1
else
IF UNIMIL = 2 THEN
VALOR2
else
IF UNIMIL = 3 THEN
VALOR3
else
IF UNIMIL = 4 THEN
VALOR4
else
IF UNIMIL = 5 THEN
VALOR5
else
IF UNIMIL = 6 THEN
VALOR6
else
IF UNIMIL = 7 THEN
VALOR7
else
IF UNIMIL = 8 THEN
VALOR8
else
IF UNIMIL = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB4
DELAY_MS(7)
DESHAB

WEND

END.
En línea

Desconectado skisoloco

  • PIC10
  • *
  • Mensajes: 13
Re: Termometro DIgital con PIC 16F876
« Respuesta #4 en: 24 de Febrero de 2011, 05:14:14 »
Cita de: skisoloco en 02 de Junio de 2009, 21:26:12
Este es uno de los proyectos que llevé a cabo cuando cursé electrónica industrial, espero sirva a aquellos que estan comenzando al igual que yo en el mundo de los microcontroladores:

puedes visitar tambien esta pagina: ahi hay mas proyectos y tutoriales

http://esebooks.blogspot.com/

La programacion fue llevada a cabo en MikroBasic y la he modificado para la comprencion del lector
el sensor es un LM35



program TERMOMETRODIGITAL

SYMBOL PULS1 = TESTBIT(PORTB,4)
SYMBOL PULS2 = TESTBIT(PORTB,5)

DIM VIN AS WORD
DIM R1, R2 AS WORD
DIM K AS WORD
DIM UNIMIL, CENT, DECE, UNIT AS WORD

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE GET_AN                      
VIN = Adc_Read(0)                              ''leer el valor de AN0
VIN = VIN * 61
VIN = VIN / 50
PULS1
PULS2
IF (PORTB.4 = 1) AND (PORTB.5 = 0)THEN
K = ((((9 * VIN) / 5) + 320))
ELSE
IF (PORTB.5 = 1) AND (PORTB.4 = 0) THEN
K = VIN
ELSE
IF (PORTB.4 = 0) AND (PORTB.5 = 0) THEN
K = K
END IF
END IF
END IF

END SUB

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE CONV_DEC_BIN
IF (K >= 0) AND (K <= 9) THEN
UNIMIL = 0
CENT = 0
DECE = 0
UNIT = K
END IF
IF (K >= 10) AND (K <= 99) THEN
UNIMIL = 0
CENT = 0
DECE = K / 10
UNIT = K - (DECE * 10)
END IF
IF (K >= 100) AND (K <= 999) THEN
UNIMIL = 0
CENT = K / 100
R1 = K - (CENT * 100)
DECE = R1 / 10
UNIT = R1 - (DECE * 10)
END IF
IF (K >= 1000) AND (K <= 2500) THEN
UNIMIL = K / 1000
R1 = K - (UNIMIL * 1000)
CENT = R1 / 100
R2 = R1 - (CENT * 100)
DECE = R2 / 10
UNIT = R2 - (DECE * 10)
END IF
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE HAB1                         ''habilitar display 1
PORTB = %00000001
END SUB
SUB PROCEDURE HAB2                         ''habilitar display 2
PORTB = %00000010
END SUB
SUB PROCEDURE HAB3                         ''habilitar display 3
PORTB = %00000100
END SUB
SUB PROCEDURE HAB4                         ''habilitar display 4
PORTB = %00001000
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE DESHAB
PORTB = %00000000
END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB PROCEDURE VALOR0
PORTC = %01000000

END SUB
SUB PROCEDURE VALOR1
PORTC = %01111001

END SUB
SUB PROCEDURE VALOR2
PORTC = %00100100

END SUB
SUB PROCEDURE VALOR3
PORTC = %00110000

END SUB
SUB PROCEDURE VALOR4
PORTC = %00011001

END SUB
SUB PROCEDURE VALOR5
PORTC = %00010010

END SUB
SUB PROCEDURE VALOR6
PORTC = %00000010

END SUB
SUB PROCEDURE VALOR7
PORTC = %01111000

END SUB
SUB PROCEDURE VALOR8
PORTC = %00000000

END SUB
SUB PROCEDURE VALOR9
PORTC = %00010000

END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

main:
ADCON1 = $80                                          ''poner el PortA como entrada analogica
TRISC = %00000000                                  ''PortC.0 hasta PortC.6 (displays)
TRISB = %00110000                                  ''Salidas para activar los displays(las 4 primeras)
                                                                      ''entrada de pulsador (ºF y ºC)

GET_AN
K = VIN

WHILE TRUE

GET_AN
CONV_DEC_BIN

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

IF UNIT = 0 THEN
VALOR0
else
IF UNIT = 1 THEN
VALOR1
else
IF UNIT = 2 THEN
VALOR2
else
IF UNIT = 3 THEN
VALOR3
else
IF UNIT = 4 THEN
VALOR4
else
IF UNIT = 5 THEN
VALOR5
else
IF UNIT = 6 THEN
VALOR6
else
IF UNIT = 7 THEN
VALOR7
else
IF UNIT = 8 THEN
VALOR8
else
IF UNIT = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB1
DELAY_MS(7)
DESHAB
'---------------------------------------------------
IF DECE = 0 THEN
VALOR0
else
IF DECE = 1 THEN
VALOR1
else
IF DECE = 2 THEN
VALOR2
else
IF DECE = 3 THEN
VALOR3
else
IF DECE = 4 THEN
VALOR4
else
IF DECE = 5 THEN
VALOR5
else
IF DECE = 6 THEN
VALOR6
else
IF DECE = 7 THEN
VALOR7
else
IF DECE = 8 THEN
VALOR8
else
IF DECE = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB2
DELAY_MS(7)
DESHAB
'---------------------------------------------------

IF CENT = 0 THEN
VALOR0
else
IF CENT = 1 THEN
VALOR1
else
IF CENT = 2 THEN
VALOR2
else
IF CENT = 3 THEN
VALOR3
else
IF CENT = 4 THEN
VALOR4
else
IF CENT = 5 THEN
VALOR5
else
IF CENT = 6 THEN
VALOR6
else
IF CENT = 7 THEN
VALOR7
else
IF CENT = 8 THEN
VALOR8
else
IF CENT = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB3
DELAY_MS(7)
DESHAB
'---------------------------------------------------

IF UNIMIL = 0 THEN
VALOR0
else
IF UNIMIL = 1 THEN
VALOR1
else
IF UNIMIL = 2 THEN
VALOR2
else
IF UNIMIL = 3 THEN
VALOR3
else
IF UNIMIL = 4 THEN
VALOR4
else
IF UNIMIL = 5 THEN
VALOR5
else
IF UNIMIL = 6 THEN
VALOR6
else
IF UNIMIL = 7 THEN
VALOR7
else
IF UNIMIL = 8 THEN
VALOR8
else
IF UNIMIL = 9 THEN
VALOR9
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
HAB4
DELAY_MS(7)
DESHAB

WEND

END.
En línea

Desconectado ASTROCAR

  • PIC24F
  • *****
  • Mensajes: 666
Re: Termometro DIgital con PIC 16F876
« Respuesta #5 en: 24 de Febrero de 2011, 07:42:34 »
Hola buenos dias, cada ves que veo post de colegas venezolanos me paro y leo es por cuestion de patriotismo y no razismo; pero fuera de todo lo demas muy bueno tu proyecto en una oportunidad use el lm35 en conjunto con un reloj de tiempo real y lo visualice en un lcd pero mi idea era hacerlo en una patelera de led para asi dar ese proyecto a mi municipio y que se implementara en la plaza principal que es la plaza bolivar de Barcelona; con el fin de tener en todo momento la temperatura ambiente y la hora y fecha ademas de dar anuncios al municipio.

Saludos y nuevamente gracias por su proyecto y por participal en este maravilloso foro mis recomentaciones es que si puedes expander mas el proyecto seria bueno para todo fin ya que la variable temperatura es muy cusada incluso en control.
Atten.
Alexander Santana.
Venezuela-Barcelona.
En línea
EL APRENDER ES NADA; MEJOR ES COMPARTIR EL APRENDIZAJE

Desconectado skisoloco

  • PIC10
  • *
  • Mensajes: 13
Re: Termometro DIgital con PIC 16F876
« Respuesta #6 en: 24 de Febrero de 2011, 11:30:18 »
Hola amigo, gracias por comentar.. y tienes razón: debería mejorarlo.. en ese tiempo no habia implementado LCD porque no tenia dinero para comprar una. estaba tratando de hacerlo con dispositivos reciclados de tarjetas viejas y para mi era todo un reto esa multiplexacion jajaj.

Actualmente estoy en un proyecto de panel de leds 8x80 y cuando lo tenga completamente armado lo comenzare a postear. Ahora en marzo debo terminarlo. Mis disculpas, soy un poco lento con esto, lo que pasa es que vi programación y microcontroladores una sola vez en la univ. soy TSU en electricidad recién graduado

Me parece bien que ayudes a la comunidad con esos proyectos hermano. Si uno no hace nada por la comunidad, nadie lo hace... es asi. suerte
En línea

Desconectado coronado88

  • PIC10
  • *
  • Mensajes: 12
Re: Termometro DIgital con PIC 16F876
« Respuesta #7 en: 22 de Octubre de 2014, 13:36:02 »
muy bueno tu proyecto me gusto el arreglo y bueno yo lo voy hacer con arduino  ((:-))  ((:-))
En línea

Desconectado skisoloco

  • PIC10
  • *
  • Mensajes: 13
Re: Termometro DIgital con PIC 16F876
« Respuesta #8 en: 15 de Diciembre de 2014, 23:59:48 »
Cita de: coronado88 en 22 de Octubre de 2014, 13:36:02
muy bueno tu proyecto me gusto el arreglo y bueno yo lo voy hacer con arduino  ((:-))  ((:-))

Que bien amigo, yo he trabajado con arduino tambien, estaría bien que postearas aca tus resultados si te parece. ¿Que tal te fué?

Desde hace unos meses adquirí un chipkit y estoy haciendo proyectos con labview y sistemas de control PID (CDSIM). A ver si me animo a abrir un post sobre ese tema.

A ver si les gusta este video introductorio Laview - Chipkit (hecho por mi): video
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »