Cargador de 12 Voltio para bateria de Auto con attiny45 y Bascom AVR

[stk500]

Ahora que me pongo a pensar.... si el circuito se alimenta de la bateria. Por que tener algo que te avise que no tiene bateria ?, Si cuando esto ocurra el circuito no va a estar funcionando xD

pues lo hice asi para saber el estado de la bateria. siendo asi podria poner bateria baja o lo que se no?
yo no me quiero hacer un cargador de bateria Profi sino para guardar la bateria, el dia que la bateria no vaya la tirare' y asi demonto el circuito 
pero como te explique el programa se puede ampliar y me sirve para experimentar con ADC.
de estar funcionado funcionara, siempre y cuando la bateria tenga corriente suficiente para el circcuito, aunque este en 9 voltio
yo no lo queria hacer con LCD desde un principio, sino poner LED y asi saber el estado de la bateria porque a mi Sotano solo voy cuando necesito una escalera 
y si le hecho un vistazo ya se que no corre peligro que ese es el miedo que tengo.

Saludos

[Genaro Miranda]

 Ya soluciones gracias.

[stk500]

Hola Genaro!
Te sugiero que no borre tus mensaje, porque si ya solucionaste el problema, a otro como tu le puede servir.
aqui estamos para aprender de los demas, aunque sea una burrada. 
Saludos

[Genaro Miranda]

Hola Genaro!
Te sugiero que no borre tus mensaje, porque si ya solucionaste el problema, a otro como tu le puede servir.
aqui estamos para aprender de los demas, aunque sea una burrada. 
Saludos

Hola!!
Estas bien stk500 no los sabia disculpeme en este caso estoy pensando agregarle un boton cuando pulsa se inicia las descarga un segundo para medir voltaje de las bateria luego pasa a las carga cuando llega el limite le da flotante le quiero agregar un led intermitente carga y descarga hasta que desconecta las bateria automatico pero todos estos se ve sencillo para mi proyecto AVR porque me gusta el codigo bascom avr.
Mi bateria estas sellada, el voltaje de flotacion es de 13.5 a 13.8 y el limite maximo es 14.2 a 14.5 de 2200 mah durante 14 horas mejor para que no se dañe en corto tiempo.
Estas bateria las estoy usando para mi barcito como modelismo naval.

he repasado varia veces pero ya entendi bien pero es otros rollo tuyo pero el mio es diferente.

Saludos!!

 

Saludos!!

[stk500]

  ok,
haber, por donde esta atascado? si hay algo que no comprende, preguntala, que yo lo aprendi´tambien preguntando.
Saludos

[Genaro Miranda]

ok,
haber, por donde esta atascado? si hay algo que no comprende, preguntala, que yo lo aprendi´tambien preguntando.
Saludos

HOLA!!
No estas atascado amigo apena voy agregarle un puerto como boton para empezar primero no se si abre otros temas o aqui mismo?
Gracias por preguntar y saludos!!
 

[stk500]

si esta usando el mismo codigo o el ADC , pues ponlo aqui mismo, asi hacemos una Sopas 
Saludos

[Genaro Miranda]

si esta usando el mismo codigo o el ADC , pues ponlo aqui mismo, asi hacemos una Sopas 
Saludos

No, Es mi codigo y muy parecido al tuyo ahorita los resuelvo los codigo ten paciencia.
Una pregunta en este foro estas muy abandonado ya no es como antes porque?
Ya lei las regla del foro los tengo que respectar.
Saludos!!

[Genaro Miranda]

Hola a todos!!
Este es mi codigo las estoy probando con unos de 4.32 de las fuente incluido stk500 con un potenciometro de 10 k a las entrada adc estos es una prueba de experimento ya despues los alimento en 15 voltios con divisor de voltaje von unas bateria de 12 voltios.

Solo falta introducir un boton de inicio y carga durante 10 hrs.

Mi funcion es cuando aprieto el boton de inicio se descarga las bateria cuando llegue bajo salta a cargar las bateria los activa por medio de mosfet y un led de indicador blinkeando cuando llega durante 10 hrs se desconecta las bateria y queda prendido led en ON.

Código: [Seleccionar]

$regfile = "m8adef.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32


Config Pinb.0 = Input : Inicio Alias Pinb.0
Config Portc = Input
Config Portd = Output

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc


Dim Leds As Word

Dim Inicio As Word

Do
  Leds = Getadc(0)

      'Fin carga
      If Leds > 895 Then
      Portd = &B11111101
      End If
      'Se inicia las carga con temporizador (15 hrs)
      If Leds > 383 And Leds < 895 Then
      Portd = &B11111100
      Wait 1
      Portd = &B11111110
      Wait 1
      End If
      'se inicia las descarga cuando impulsa un boton
      If Leds < 383 Then
      Portd = &B11111011
      End If

Loop

Hasta ahi funciona a las perfecion mi pregunta como los agrego el temporizador de 10 hrs?

Saludos!!

[Genaro Miranda]

Hola a todos!!
Este es mi codigo las estoy probando con unos de 4.32 de las fuente incluido stk500 con un potenciometro de 10 k a las entrada adc estos es una prueba de experimento ya despues los alimento en 15 voltios con divisor de voltaje con unas bateria de 12 voltios y cambiar valores ADC.

Solo falta introducir un boton de inicio y carga durante 10 hrs.

Mi funcion es cuando aprieto el boton de inicio se descarga las bateria cuando llegue bajo salta a cargar las bateria los activa por medio de mosfet y un led de indicador blinkeando cuando llega durante 10 hrs se desconecta las bateria y queda prendido led en ON.

Código: [Seleccionar]

$regfile = "m8adef.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32


Config Pinb.0 = Input : Inicio Alias Pinb.0
Config Portc = Input
Config Portd = Output

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc


Dim Leds As Word

Dim Inicio As Word

Do
  Leds = Getadc(0)

      'Fin carga
      If Leds > 895 Then
      Portd = &B11111101
      End If
      'Se inicia las carga con temporizador (15 hrs)
      If Leds > 383 And Leds < 895 Then
      Portd = &B11111100
      Wait 1
      Portd = &B11111110
      Wait 1
      End If
      'se inicia las descarga cuando impulsa un boton
      If Leds < 383 Then
      Portd = &B11111011
      End If

Loop

Hasta ahi funciona a las perfecion mi pregunta como los agrego el temporizador de 10 hrs?

Saludos!!

[Genaro Miranda]

Que te parece si abro un tema para que no haga bola el codigo.....saludos!!

[stk500]

no, no abra un nuevo Tema, sigue asi ,
Bien respecto a tu pregunta de la 10Hr para usarlo como Temporiazador, aqui va a tener que usar un Reloj y usar el Timer, pero mi pregunta para que quiere Temporizar el tiempo de Carga de la Bateria? no le veo ninguna logica.
 Aqui te pongo mi Relog que hice hace muchos Tiempos.
http://www.todopic.com.ar/foros/index.php?topic=28522.0
Saludos

[Genaro Miranda]

Gracias por preguntar al instante  pues segu lei que las C/1 que es las carga rapida durante una hora si es C/10 entonce las carga es lenta para proteger las bateria y vida util.
Por ejemplo si mi bateria es 3000mah seria 300 ma durante 10 horas de carga porque no es necesario? Yo he visto un cargador trabajando asi.
No los quiero para un sotano porque ya es otras cosa....
No los quiero reloj gracias por las informacion los tendre que leer tu codigo para adaptarlo a mi cargador pero veo que necesito mas tiempo para estudiarlos apena estoy aprendiendo timer0,timer1,timer,2 y falta muchos.
Cuando se inicia el boton se carga durante 10 hrs estos es los que yo quiero amigo.

[Genaro Miranda]

Gracias por preguntar al instante  pues segun lei que las C/1 que es las carga rapida durante una hora si es C/10 entonce las carga es lenta para proteger las bateria y vida util.
Por ejemplo si mi bateria es 3000mah seria 300 ma durante 10 horas de carga porque no es necesario? Yo he visto un cargador trabajando asi.
No los quiero para un sotano porque ya es otras cosa....
No los quiero reloj gracias por las informacion los tendre que leer tu codigo para adaptarlo a mi cargador pero veo que necesito mas tiempo para estudiarlos apena estoy aprendiendo timer0,timer1,timer,2 y falta muchos.
Cuando se inicia el boton se carga durante 10 hrs estos es los que yo quiero amigo.

[stk500]

Gracias por preguntar al instante   pues segu lei que las C/1 que es las carga rapida durante una hora si es C/10 entonce las carga es lenta para proteger las bateria y vida util.
Por ejemplo si mi bateria es 3000mah seria 300 ma durante 10 horas de carga porque no es necesario? Yo he visto un cargador trabajando asi.
No los quiero para un sotano porque ya es otras cosa....
No los quiero reloj gracias por las informacion los tendre que leer tu codigo para adaptarlo a mi cargador pero veo que necesito mas tiempo para estudiarlos apena estoy aprendiendo timer0,timer1,timer,2 y falta muchos.
Cuando se inicia el boton se carga durante 10 hrs estos es los que yo quiero amigo.

Yo te he comprendido, pero para tener 10 Hora contada necesita un contador, mas bien un Reloj, el concepto que tu tiene para cagar una bateria no va con los Requisitos que piden los fabricante de bateria, las bateria necesitan un voltage constante y al llegar a su limite es cuando debe parar su cargar, si tu lo calcula como tu piensa, como sabra que la bateria ha llegado a su cargas?
Tambien te aconsejo que lea la recomendacion de carga de la bateria que vayas a usar, todos faabricante dan un marge de corriente constante para cargar sus baterias aunque las cargas nunca estara´ al 100% , su rendimientos va perdiendo de acuerdos a sus cargas, siempre se calcula una bateria de acuerdo a sus usos, aparte que, Baterias hay mcuhos Tipos y las mejores son caras.
en poca palabra te aconsejo que lea sobre el tipo de bateria que vaya a usar para las Cargas, en este Foros se ha hablados muchos sobre este temas.
Tambien te digo, que yo estoy aprendiendo y experimentos muchos en mi Taller.
para adapter el Reloj es muy facil, aparte que tengo un codigo para controlar una Insoladora.
voy a buscarlo y te pongo por aqui, para que tenga ideas.

Aqui lo pongo

Código: [Seleccionar]

'--------------------------------------------------------------------------'
'
'  Control de Insoladora V 0.1
'
'  Rafael Jimenez, 09.06.2001
'
'
'
'  calculos para el Timer1 Timer1
'  65535 - (Oscilador_Fr / prescaler)
'  65535 - (16000000 Hz / 256)
'  = 3035
'
'
'  pines del Encoder     Port A, Pin 0 und 1
'  pulsador del encoder   Port A, Pin 2
'
'  Pines del LCD    Port D, Db4 = Pin 0
'                           Db5 = Pin 1
'                           Db6 = Pin 2
'                           Db7 = Pin 3
'                             E = Pin 5
'                            Rs = Pin 4
'
'    Reles  Port A, Pin 7
'
'
'
'
'--------------------------------------------------------------------------'

$regfile = "m32def.dat"                                     ' usaremos el Atmega 32 o otros
$crystal = 16000000                                         ' 16 Mhz Crystal
$hwstack = 32
$swstack = 8
$framesize = 24
$sim                                                        'para simular
'------------------------------------------------------------------------------
' Configuracion del LCD
'
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcdbus = 4                                           ' en 4 Bit Modo
Cls
Cursor Off Noblink
'
'------------------------------------------------------------------------------
'Variables para usar
'
'
Dim B As Byte                                               ' Variable para leer el Encoder
Dim Columna As Byte                                         ' Posicion de la Columna en el LCD
Dim C As Integer
Dim Ce As Eram Integer                                      'EEprom para las variables (Tiempo de iluminacion)

Config Pina.0 = Input                                       'Pin B del Encoder
Config Pina.1 = Input                                       'Pin A del Encoder
Config Pina.2 = Input                                       'pulsador del Encoder

Config Pina.6 = Output                                      'Salida para el Buzzer)
Config Pina.7 = Output                                      'salida para el Relee

Porta = &B0000111                                           'activacion Port A: 0,1,2 Pull-Up
Porta.6 = 0                                                 'Alarma Buzzer
Porta.7 = 0                                                 'Relee apagado

C = Ce                                                      'aqui llamamos el tiempo programado en la EEprom

If C < 0 Then
             C = 0
             Columna = 11
             End If
If C >= 0 Then Columna = 11
If C >= 10 Then Columna = 10
If C >= 100 Then Columna = 9

'------------------------------------------------------------------------------
'  aqui leemos el preajuste del Encoder
'  para el tiempo de desactivacion el Relee
'
Leer_enc:

     B = Encoder(pina.0 , Pina.1 , Izquierda , Derecha , 0)
     Locate 1 , 2 : Lcd "Tiempo:" :
     Locate 1 , Columna : Lcd C
     Locate 1 , 13 : Lcd "segundo."
     Locate 2 , 2 : Lcd "iniciamos?"

     If Pina.2 = 0 Then Goto Countdown

Goto Leer_enc
End


'------------------------------------------------------------------------------
' Rotacion subroutine
'
Izquierda:
C = C - 5                                                   ' valor del cambio en paso de - 5 Segundo.
If C <= 1 Then C = 0
If C < 100 Then Columna = 10
If C < 10 Then Columna = 11
Cls
Return

Derecha:
C = C + 5                                                   ' Valor del cambio en paso de + 5 Segundo.
If C >= 10 Then Columna = 10
If C >= 100 Then Columna = 9
Cls
Return
'
'------------------------------------------------------------------------------
'
' Countdown - sub - routine
'
Countdown:                                                  ' cuentas atras

   Ce = C                                                   'duracion de encendido para escribir en la Eeprom

   Locate 2 , 1 : Lcd "                "                    ' LCD borrar linia 2
   On Timer1 Ontimer1
   Config Timer1 = Timer , Prescale = 256                   ' division para el Timer1
   Enable Timer1
   Enable Interrupts

   Porta.7 = 1                                              'Relee activado

'---------------------------------------------------------

   Timer1 = 3035


     Do

       If C = 0 Then Goto Countdown_stop

                 If C < 100 Then
                                Columna = 10
                                Locate 1 , 9 : Lcd " "
                               End If

                 If C < 10 Then
                                Columna = 11
                                Locate 1 , 10 : Lcd " "
                               End If

       Locate 1 , Columna : Lcd C

     Loop


'---------------------------------------------------------
    Ontimer1:
      Timer1 = 3035
      C = C - 1
    Return
'---------------------------------------------------------
'
' Countdown parado
'

Countdown_stop:

Porta.7 = 0                                                 'Relee Apagado
Porta.6 = 1                                                 'Alarma encendida

Cls                                                         ' aviso de parada
Locate 1 , 1
Lcd "luz apagada"
Locate 2 , 1
Lcd "Press RESET"                                           ' presiona para comenzar RESET
'---------------------------------------------------------
'
' Final de rutina....
'
Stop
End
'---------------------------------------------------------
Uff hace tiempo que no uso mi insoladora, quizas mas de 6 años
ojo no todos los Encoder son iguales, ya que experimente' con algunos y no funcionaban como esta' en el programa.
el Encoder que use' es ALPS
Saludos