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