Monitor lipolek Re: Mereni baterie

RV vicek.radek na cpost.cz
Čtvrtek Srpen 4 12:41:36 CEST 2011


Vzhledem k tomu, ze se kolegum (co jsem jim to auto pujcil) podarilo 
vytlouct jednu lipolku na 2.5V/cl jsem vcera sednul a spachal toto viz 
priloha - tak jen kdyby to nekdo potreboval

FW je take trivialni - je napsanej jen pro dvouclanek (pro triclanek 
nebo univerzal by se muselo nejdriv otestovat kolik je pripojenejch 
clanku a trochu zmenit delice/jinak pocitat)

az budu mit cas tak to dodelam s tim, ze pocitam, ze vypinaci napeti 
pujde ulozit nejakym switchem

psano v Mikroe mikroPascalu pro PIC12F683

program limon;

var
     bat0,bat1,bat2      :word;
     alarm               :boolean;

procedure rvAlarm;
begin
   SetBit(GPIO,4);	//nahodim piezo
   SetBit(GPIO,5);	//nahodim LED
   Delay_ms(250);

   ClearBit(GPIO,4);
   ClearBit(GPIO,5);
   Delay_ms(250);
end;

begin
   GPIO:=0;
   CMCON0 :=%00000111;           //vypnout komparatory
   TRISIO:=%00001111;
   ADCON0:=%10001101;            //ref.=Vdd
   ANSEL :=%00110111;

   alarm:=false;
   rvAlarm;			//blik-pip ze to najelo
   rvAlarm;

  // tak ted jedeme do hlavni smycky
     while not alarm do		//merim dokud neni alarm
       begin
         bat0:=Adc_Read(0);	//zmerim prvni clanek
         bat0:=word(bat0 shr 1); //vydelim dvema
         if bat0<360 then alarm:=true; //porovnam na cca 3.4V

         bat1:=Adc_Read(1);	//zmerim druhej clanek
         bat1:=bat1-bat0;	//odectu od nej prvni
         if bat1<360 then alarm:=true; /porovnam na cca 3.4V
       end;

     while true do	//spadnul jsem do alarmu
       begin
         rvAlarm;	//blikam pipam do vypnuti
       end;
end.

Radek Vicek

Dne 3.8.2011 0:02, Miroslav Šinko napsal(a):
> Uzasne... odtat ruky tomu, co toto znacenie vymyslel. Aj ked chapem,
> ze sa chceli vojst do 3 znakov...
> Ano sedi to, premeral som ho.
>
> Vdaka,
> miro
------------- další část ---------------
A non-text attachment was scrubbed...
Name: limon.png
Type: image/png
Size: 8136 bytes
Desc: [žádný popis není k dispozici]
URL: <http://list.hw.cz/pipermail/hw-list/attachments/20110804/b8ed7343/attachment.png>


Další informace o konferenci Hw-list