Byl by zajem o utilitku pro sber dat z Foxtrotu?

[Slavomír Skopalík]

Pro sve skourome ucely jsem si dodelal do teto aplikace cteni dat z FOXTROT PLC:

http://www.elektlabs.cz/produkts/DataCross/

V soucasne dobe je pro me ucely zcela funkcni, nicmene pro verejnost by to chtelo jeste trochu dopracovat ;).

Predpokladam, ze do nejakych 50 Tagu by byla urcite zdarma.
Bohuzel jsem neprisel na to, jak prilozit soubory, takze zatim bez obrazku :(.

Utilitka si stahuje pub soubor primo z webu PLC (viz: http://diskuse.elektrika.cz/index.php/topic,23538.0.html ).

Byl by o tuto aplikaci zajem?
Pripadne, pokud mate jakekoliv namety, pripominky a/nebo dotazy budu rad.

Pro ukladani dat mame Firebird SQL databazi + www rozhrani na prohlizeni (puvodne na monitorovani stroju).
Nicmene to zatim neni uplne pripraveno na zverejneni.

V aplikaci je integrovan Pascal Script pomoci nehoz si lze delat s daty temer cokoliv.

Ukazka kodu:

Procedure LogTopeni(idDevice:integer;TagName:string; Lo, Hi, Eps:double);
begin
 Log(TagName+':'+Zapotoci.AsString[TagName]);
 DevDataSignal(idDevice,-1,TagName,'°C','Topení',0,
   Zapotoci.AsFloat[TagName],Lo,Nan,Hi,1,Eps,'0.0',TagName);
end;

procedure LogRoomInfo(idDevice:integer);
begin
end;

begin
 LogTopeni(10,'OpenTherm.Control_SetPoint',0,80,0.5);
 LogTopeni(10,'UT_Zpatecka',5,70,0.5);  
 LogTopeni(10,'Boiler_T',5,90,0.5);
 LogTopeni(10,'Outdoor_T',-35,40,0.5);  
 LogTopeni(11,'Acu_T1',2,99,0.1);
 LogTopeni(11,'Acu_T2',2,99,0.1);
 LogTopeni(11,'Acu_T3',2,99,0.1);
 LogTopeni(11,'Acu_T4',2,99,0.1);  
 LogTopeni(11,'Solar_BSK4E',-35,120,0.5);
 LogTopeni(11,'Solar_BSK4W',-35,120,0.5);
 LogTopeni(11,'Solar_BSK8',-35,120,0.5);
 LogRoomInfo(105);
 LogRoomInfo(106);
 LogRoomInfo(107);
 LogRoomInfo(109);
 LogRoomInfo(112);
 LogRoomInfo(113);
 LogRoomInfo(116);
 LogRoomInfo(201);
 LogRoomInfo(202);
 LogRoomInfo(203);
 LogRoomInfo(204);
 LogRoomInfo(205);
 LogRoomInfo(206);
 
end.