Voltimetro con Avr 644 y desarrollado en Bascom Avr Demo

[pic_877a]

hola
amigo
cordial saludo


bueno amigo deseo compartir un pequeño  realizado en Bascom Avr version Demo, es un Voltimetro utilizando Atmega 644, bueno es una fuente utilizando el lm317 y como Amplificador de Corriente el tip 35C.
ademas utilice un divisor de voltaje con resistor de 20K, potenciometro 10K y un Zener 5.1V, para el Adc del Atmega 644.

este es el codigo

 
$regfile = "m644def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 32

Config Lcdpin = Pin , Rs = Portb.2 , E = Portb.3 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2
Cursor Off Noblink
Cls
Dim Adcv As Word , Volt As Single
Dim Adca As Word , Amp As Single
Dim P As Single                                             ';Power (P)
Dim R As Single                                             ';Resistance (R)
Const Dif = 5 / 1024
Const Volt_div = 0.152519
Const Amp_div = 0.21978                                     ';0.0048828125 - Adc Div 5 / 1024
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Do

Adcv = Getadc(0)                                            ';read portA.0 for volt
Adca = Getadc(1)                                            ';read portA.1 for Ampre
Waitms 50
';Calculate
Volt = Adcv * Dif
Amp = Adca * Dif
Volt = Volt / Volt_div
Amp = Amp / Amp_div
P = Volt * Amp
R = Volt / Amp
';show
Locate 1 , 1
If Volt < 10 Then Lcd " "
Lcd Fusing(volt , "##.##") ; " V"
Locate 1 , 9
If P < 100 Then Lcd " "
If P < 10 Then Lcd " "
Lcd Fusing(p , "###.##") ; " W"
Locate 2 , 1
If Amp < 10 Then Lcd " "
Lcd Fusing(amp , "##.##") ; " A"
Locate 2 , 9
If R < 100 Then Lcd " "
If R < 10 Then Lcd " "
Lcd Fusing(r , "###.##") ; " R"
Waitms 150
Loop
End

como verán en la imagen adjunto, el código funciona pero me falto agregar un mensaje de Introducción, así Lcd"Fuente de Poder", lo he tratado de colocar, en la simulación me sale de las siguiente manera:

sale el mensaje fuente de poder, luego sale los valores  de medición, y luego se regresa al mensaje de de inicio Fuente de poder, y yo deseo que este mensaje se quede fijo al momento de Encender la Fuente, bueno espero que me puedan ayudar, con esta pequeña ayuda, de logar de ubicar el mensaje de introducción Fuente de poder.
bueno el programa lo pueden descargar y lo pueden compilar en Bascom Avr Version demo, asi generar el Hex y grabarlo en el Atmega 644, también pueden utilizar el Atmega 8.

jose

[stk500]

ahora mismo no puedo pero mañana voy intentarlo..


Saludos

[pic_877a]

hola
 amigo stk500 gracias por ayudarme solo me falta un poquito para terminar mi proyecto digital
gracias

jose

[Genaro Miranda]

Hola!!
Pruebalos con el simulador Bascom LCD.
Saludos!!

[Genaro Miranda]

Agregale el codigo $sim

Código: [Seleccionar]

$regfile = "m644def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 32
$sim


[Genaro Miranda]

Código: [Seleccionar]

Locate 1 , 1
Lcd "Fuente de Poder"
Wait 5
Cls

[pic_877a]

hola
amigo Genaro Miranda
gracias por la ayuda, ya arregle el código y a hora tengo problema con el divisor de Voltaje, no me esta tomando los valores de A,P, y R, solo me toma el valor de V adjunto la imagen.

gracias

jose

[stk500]

Hola Jose, estoy simulando tu codigo y en la simulacion va, pero lo voy a montar en mi placa de esperimento, lastima no tengo un LCD, pero el lunes voy ver si consigo uno y lo pruebo, ese codigo que tu pone ahi tampoco es tuyo, sino de mi amigo
Krimi    http://royalsystems.dk/e107_plugins/forum/forum_viewtopic.php?4.post

Yo hace tiempo me lo queria hacer pero estaba muy liado con otros projectos y aparte me lo quiero hacer de 0V hasta 50V, sin el LM317, tengo ya algo hecho pero hasta que no tenga el LCD no puedo probarlo, asi que paciencia.....
la imagen que ha puesto no se aprecia nada tu montaje, y si lo esta simulando con Proteus, olvidalo, yo no uso proteus porque nunca me ha funcionado nada 100%, siempre lo simulos en mi placa de experimento hecha por mi....
Te aconsejo que ponga bien la imagen para saber como tiene el circuitos hechos..


Un Saludos

[Genaro Miranda]

Hola
Acabo de ver la imagen el primero el porta.0 y porta.1 no debe puntear puente.
debe diseñar un divisor de voltaje y otros en shunt para corriente.
Favor poner una imagen completa.
saludos!!

[pic_877a]

hola amigos

ante todo disculpas, por decir cosas que no deben ser, el código no es mio, es de de Krimi Dinamarca, lo que hice implementar, para mi clase de electrónica digital pero he fallado, bueno a hora la falla  es el divisor de voltaje que deseo implementar , asi como lo hizo Krimi a mi no visualiza del todo, solamente un voltaje, adjunto las imágenes.

bueno espero que me puedan ayudar, y si no gracias por responder
disculpe
jose

 

[stk500]

en verdad no comprendo nada tu esquemas, Tu esquema lo hace con Proteus? y porque no lo pone completo como debe ir?

Yo lo tengo montado en mi placa de experimento y funciona, lo unico es, que debe ajustar las resistencia del divisor de voltage,
en tu esquemas no me queda nada claro, porque no lo veo completo, y creo que tu lo esta simulando con proteus?
si es asi, olvida el proteus para simular,
Yo lo tengo montado y cambie algo del codigo, asi

Código: [Seleccionar]

$regfile = "m8def.dat"
'$regfile = "m644def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 32

'$sim                                                        ' simulation activada
Config Pinc.0 = Input
Portc.0 = 1

Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.1 , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5
Config Lcd = 16 * 2
Cursor Off Noblink
Cls
Dim Adcv As Word , Volt As Single
Dim Adca As Word , Amp As Single
Dim P As Single                                             ';Power (P)
Dim R As Single                                             ';Resistance (R)
Const Dif = 5 / 1024
Const Volt_div = 0.152519
Const Amp_div = 0.21978                                     ';0.0048828125 - Adc Div 5 / 1024
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Locate 1 , 1
Lcd "Fuente de Poder"

Locate 2 , 1
Lcd "ver-0.1"
'Wait 8           ' esta espera la puede poner a tu gustos                                         


Goto Espera


Main:
Do
Cls
Adcv = Getadc(0)                                            ';read portA.0 for volt
Adca = Getadc(1)                                            ';read portA.1 for Ampre
'Waitms 50     ' esta espera no hace falta ponerla
';Calculate
Volt = Adcv * Dif
Amp = Adca * Dif
Volt = Volt / Volt_div
Amp = Amp / Amp_div
P = Volt * Amp
R = Volt / Amp




';show
Locate 1 , 1
If Volt < 10 Then Lcd " "
Lcd Fusing(volt , "##.##") ; " V"
Locate 1 , 9
If P < 100 Then Lcd " "
If P < 10 Then Lcd " "
Lcd Fusing(p , "###.##") ; " W"
Locate 2 , 1
If Amp < 10 Then Lcd " "
Lcd Fusing(amp , "##.##") ; " A"
Locate 2 , 9
If R < 100 Then Lcd " "
If R < 10 Then Lcd " "
Lcd Fusing(r , "###.##") ; " R"
Waitms 150
Loop
End
 Espera:
 Do
If Pinc.0 = 1 Then   ' aqui el PORTC.0 o el PORTA.0 debe ir una resistencia de 1K a masa, sino la pone el programa salta al Main

Goto Main
End If

Return
Loop 

Por favor lee los comentarios que he puesto en codigo, pruebalo y luego comenta.


Saludos

[pic_877a]

hola

amigo te aclaro mis esquemas lo hago en proteus, te voy explicar bien las imágenes que adjunte.

la primera imagen es la del circuito sencillo con el lm317, el circuito comun en la red. adicional le coloque en paralelo un amplificador de corriente con el Tip35c, en la salida del emisor del tip 35C he colocado un divisor de Voltaje, pienso que el divisor que he colocado tiene falla, he colocado los respectivos Voltimetro para chekear  el voltaje de salida del divisor y como sabemos que el ADC solo soporta hasta 5Vdc.
he colocado el Micro Avr 644 y el Lcd 16x2, y como veras en la imagen del Lcd solo se Visualiza el Voltaje de 11.46V, los demas valores registran Cero.

el Código original funciona correctamente, donde tengo la falla es el divisor de voltaje el que he colocado no es el  adecuado ni muchos menos  el Divisor de Corriente.

amigo en mi caso realizar la simulación fisica me genera mucho tiempo, en armar la proto, ademas no tengo un tarjeta entrenadora de Avr.

ademas amigo lo voy a probar tu codigo , pero primero voy intentarlo con el codigo de tu amigo Krimi de Dinamarca, la idea es hacer funcionar el voltimetro con el divisor de voltaje, y aprender, jose

[Genaro Miranda]

stks500
 Esto para que es? esto no debe poner codigo.
Config Pinc.0 = Input
Portc.0 = 1
pic_877a
El valor de resistencia es de 22 ohms a 20 w. checalos tu esquema y esquema completo por favor.

[Genaro Miranda]

pic_877a
acabo de ver le falta conectar a tierra entre dos resistencia de 22 ohms y 100k.

[Genaro Miranda]

Por eso no pasa corriente......