amigos del foro Cordial saludo
bueno aca les dejo un dejo un proyecto simulado en proteus es un fuente alimentacion con el Lm317 y su sistema de Protección Corto Circuito, a salida de la fuente tiene su Divisor de Voltaje con Resistencias de 10K y Zener de 5V para el ADC del Atmega 8A, posee un Atmega 8A y un Lcd 16x2.
el programa registra un Voltaje Maximo de 20Vdc y lo desarrolle es Bascom Avr
$regfile = "m8adef.dat"
'CRISTAL INTERNO DE OSCILACION DE 4 MHZ
$crystal = 4000000
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5
Dim Volt As Single
Dim Volt1 As Single
Dim V As String * 4
Dim Aux1 As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'configura ADC
Start Adc
Do
Cls
Locate 1 , 1
Lcd " Fuente de Poder"
Aux1 = Getadc(0)
Volt = Aux1 * 5
Volt = Volt / 1024
Volt1 = Volt * 4
V = Fusing(volt1 , "#.#" ) 'Redondea los decimales de un dato tipo single y lo transforma en string
Locate 2 , 1
Lcd "Vdc = " ; V ; " V"
Waitms 600
Loop
Solo deben descargar el programa Bascom Avr y Compilarlo para que le genere el Hex y Tener un Programador para Micro Avr y el Software Atmel Studio para grabar el Atmega y si necesitan ayuda para grabar el Atmega solo avisen y les ayudare con mucho gusto.
Jose
bueno aca les dejo un dejo un proyecto simulado en proteus es un fuente alimentacion con el Lm317 y su sistema de Protección Corto Circuito, a salida de la fuente tiene su Divisor de Voltaje con Resistencias de 10K y Zener de 5V para el ADC del Atmega 8A, posee un Atmega 8A y un Lcd 16x2.
el programa registra un Voltaje Maximo de 20Vdc y lo desarrolle es Bascom Avr
$regfile = "m8adef.dat"
'CRISTAL INTERNO DE OSCILACION DE 4 MHZ
$crystal = 4000000
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5
Dim Volt As Single
Dim Volt1 As Single
Dim V As String * 4
Dim Aux1 As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'configura ADC
Start Adc
Do
Cls
Locate 1 , 1
Lcd " Fuente de Poder"
Aux1 = Getadc(0)
Volt = Aux1 * 5
Volt = Volt / 1024
Volt1 = Volt * 4
V = Fusing(volt1 , "#.#" ) 'Redondea los decimales de un dato tipo single y lo transforma en string
Locate 2 , 1
Lcd "Vdc = " ; V ; " V"
Waitms 600
Loop
Solo deben descargar el programa Bascom Avr y Compilarlo para que le genere el Hex y Tener un Programador para Micro Avr y el Software Atmel Studio para grabar el Atmega y si necesitan ayuda para grabar el Atmega solo avisen y les ayudare con mucho gusto.
Jose