amigos del foro cordial saludo
aca les presento mi Proyecto de Fuente de Poder con Atmega 8A con Fusible Electrónico como Circuito de Protección Contra Corto Circuito para el Lm317, el Micro Atmega 8A, el Lcd 16x2, el 7805 es para la alimentación para el Micro y el Lcd.
en el foro me ayudaron a mejorar el programa y me tocó comprar la Licencia Original razón Ahora el Foro es para los Usuarios Registrado con Licencia validada es una política Interna de la Compañía Holandesa MCSELC,
este es el programa
$regfile = "m8adef.dat"
$crystal = 4000000
$hwstack = 100
$swstack = 100
$framesize = 100
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 16 * 2
Cursor Off , Noblink
Cls
Dim Volt As Single
Dim Volt1 As Single
Dim V As String * 4
Dim Aux1 As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Cls
Do
Locate 1 , 1
Lcd " FUENTE DE PODER"
Aux1 = Getadc(0)
Volt = Aux1 * 5
Volt = Volt / 1024
Volt1 = Volt * 6
V = Fusing(volt1 , "#.#" )
Locate 2 , 2
Lcd "Vdc = " ; V ; " V"
Waitms 600
Loop
Espero que sea de su agrado
Jose