Monitor lipolek Re: Mereni baterie

ToMaS H. tomas.hum na worldonline.cz
Čtvrtek Srpen 4 12:53:26 CEST 2011


Jeste chvilka a mate toto:
http://rcmodely.cevaro.sk/index.php?id=168&n=merac-vnutorneho-odporu-ri-2-az-6-clankovych-lipol-baterii

----- Original Message ----- 
From: "RV" <vicek.radek na cpost.cz>
To: "HW-news" <hw-list na list.hw.cz>
Sent: Thursday, August 04, 2011 12:41 PM
Subject: Monitor lipolek Re: Mereni baterie


> 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
>


--------------------------------------------------------------------------------


_______________________________________________
HW-list mailing list  -  sponsored by www.HW.cz
Hw-list na list.hw.cz
http://list.hw.cz/mailman/listinfo/hw-list



Další informace o konferenci Hw-list