Título: ayuda con programacion en un Control de temperatura On-Of con termocupla tip Publicado por: dannyxreyes en 17 Octubre 2011, 20:23 pm bueno estoy trabajando con un amplificador de instrumentacion ad594 aq especial para termocuplas tipo j, y diseñe un acondisionador de señales con lm741 de modo que la señal emitida por la termocupla y el ad594 en mv, varie de 1 a 5v, ahora bien...yo necesito que ese voltaje que varia se refleje en el lcd (16x2) en forma de temperatura a traves del pic16f877a y cuando la temperatura llegue a los 70 grados el pic mande apagar un led y cuando la temperatura baje a 40 grados el led sea encendido de nuevo...la cuestion es que yo no se nada de programacion, lamentablemente ese no es mi fuerte, se que tengo que a prender, pero por ahora el factor tiempo se me esta acabando, ya que tengo que entregar esto dentro de una semana...y no tengo a nadie que me ayude, solo tengo un amigo que medio sabe pero la programacion que me hizo no me funsiono, se que el me hizo la programacion con un programa llamado "protron ide" y creo que en lenguaje Basico...Bueno se que esta mala la progrmacion porque cuando lo intento simular en proton me sale este error ((PIC16ADC)PC=OXOO93 ADC conversion clock period (4e.07) is less than min TAd=1.6us and is possibly divice clock frequency.) y sale como 1000veces., entonces crei que era en proton qe estaba malo asi que queme el pic y lo monte en el circuito y los numeros salen raros, se mueven a lo loco..de verdad yo no se programar mi fuerte son los montajes y la interpretacion de circuitos claro obviamente tengo que buscar la manera de aprender pero despues por q ahora necesito entregar esto porque sino pierdo un año en la uni....si alguien me puede ayudar se lo agradeceria con la mano en el corazon de verdad....mi msn dannyx-@hotmail.com
y aqui esta la programacion que me hizo mi amigo la cual no sirvio... Device = 16F877A XTAL = 20 TRISD = %00000001 TRISC = %00001000 PORTD = %00000000 PORTC = %00000000 Dim CONTADOR As Byte TRISA = $ff ADCON1= $80 Dim valor As Word Dim GradoC As Word Declare ADIN_RES 10 Declare ADIN_TAD 8_fosc Declare ADIN_STIME 50 inicio: valor = ADIn 0 GradoC= (valor*100)/1023 If PORTC.3=1 Then Print At 1,1," Inst. y Control" Print At 2,1, " Electrcidad " DelayMS 5000 Else Print At 1,1," TEMPERATURA " Print At 2,1, Dec GradoC Print At 2,4, "Grados " EndIf If GradoC >= 70 Then PORTD.2 = 0 DelayMS 50000 EndIf If GradoC <= 40 Then PORTD.3 = 1 EndIf cabe deztacar que solo es la programacion lo que me hace falta, porque de resto tod esta perfecto, el integrado ad594 + el acondicionador de señales me funciona a la perfeccion....me varia de 1v a 5v totalmente bien...bueno amigoooss gracias de ante mano, de verdad se los agradeceria con la mano en el corazon si me logran ayudar y sino tambn pues la intencion es lo que cuenta....saludos! |