www.elektronik.si

[.]

Brisana vsebina odstranjenega uporabnika.

[milan62]

Bravo SimonS, bravo Jur !
Točno tak princip, kot sta ga opisala v zadnjih postih imam jaz
uporabljen za daljinsko merjenje nivoja kurilnega olja v zunanji cisterni.
Tri leta v uporabi in deluje super.
Ne rabiš povratne vzmeti ampak le primerno protiutež zunaj cisterne.
Uporabljam rostfrei pletenico ca 0.8 mm prevlečeno z nylonom.
Dobiš v vsaki trgovini z ribiškim priborom.

LP

[Proteus]

Pri merjenju nivoja je potrebno (odvisno od oblike soda) upoštevati tudi geometrijo, da dobiš "tapravo" porabo v litrih. Pri merjenju teže zadeva že sama po sebi pada ven v litrih

[jur]

V prilogi (sod.zip) je na hitro napisan demo softwera (brez senzorja) za nadzor soda (lahko je tudi vinski sod). Za simulacijo je namesto senzorja levi spodnji gumb. Priložena slika prikazuje kako program v resnici zgleda.

Jur

[Jani]

Kaj pa če bi merili maso soda (vina) z navadnim uporovnim lističem?

[jur]

Sod bi bilo potrebno vpeti v nek mehanizem, tako da bi se vsa teža prenašala na merilni listič. Mehanizem mora vzdržati celo težo soda in udarce, ko bodo sod naložili v mehanizem. Šlo bi, če bi podstavek soda dal na več merilcev. Tako kot tehtajo tovornjake, ko pod vsako kolo dajo eno tehtnico, pa seštejejo posamezne teže.

Jur

[Proteus]

Ni ravno nujno, da nosi celotno težo, lahko nosi samo en del, kar pa je potrebno ustrezno upoštevati pri izračunu.

[egomez]

@jur: Nekaj v tem smislu mislim tudi jaz napisati. Vendar bo seveda za več sodov. Pa temperaturo bo tudi merilo, le grelo in hladilo ne bo kot tukaj.

Kar se pa tiče merjenja mase soda, pa pride predvsem težava pri lesenih sodih. Tem ne moreš tako enostavno podsteviti senzorjev kot cisternam. No, če je volja se tudi to da.

[jur]

Več sodov ni problem. V prilogi sta majhna in velika (prava) slika.

Jur

[jur]

Izvorna koda za meritev soda. Forum je ne pusti dodati kot priponko, zato je priložena tu. Koda je copy/paste iz programa. Instrumenti (v programu so uporabljeni samo tank, termometer, vrtljiv gumb, stikalo, gumb, gradient) so kupljeni pri www.abaecker.de, kjer je na razpolago povsem uporaben demo software.

Jur



//demo za sod. Jur (J) 2006

unit Unit1;
interface

uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,
_GClass,AbDial,AbThMet,AbTank,ExtCtrls,AbSwitch,AbCBitBt, AbClock, AbLED,
StdCtrls;

type TForm1=class(TForm)
Panel1:TPanel; Panel2:TPanel; AbTank1:TAbTank; AbThermometer1:TAbThermometer; AbDial1:TAbDial;
AbRockerSwitch1:TAbRockerSwitch; AbRockerSwitch2:TAbRockerSwitch; AbRockerSwitch3:TAbRockerSwitch;
AbColBitBtn1:TAbColBitBtn; AbColBitBtn2:TAbColBitBtn; AbColBitBtn3:TAbColBitBtn; AbClock1:TAbClock;
AbLED1:TAbLED; Label1: TLabel;
procedure AbColBitBtn3Click(Sender:TObject); procedure AbColBitBtn1Click(Sender:TObject);
procedure AbColBitBtn2Click(Sender:TObject); procedure FormCreate(Sender:TObject);
procedure AbRockerSwitch1Click(Sender:TObject); procedure AbRockerSwitch2Click(Sender:TObject);
procedure AbRockerSwitch3Click(Sender:TObject); procedure polni(Sender:TObject);
end;

var Form1:TForm1; volume,temp:integer;

implementation
{$R *.dfm}

procedure TForm1.AbColBitBtn3Click(Sender:TObject);
var i:integer;
begin
for i:=round(abtank1.Value) downto 0 do
begin abdial1.Value:=i; abtank1.Value:=i; sleep(150); end; close;
end;

procedure TForm1.AbColBitBtn2Click(Sender:TObject);
begin temp:=temp+5; abthermometer1.Value:=temp;
if temp>24 then begin abthermometer1.BarSettings.Color:=clred; abled1.checked:=true; end;
abthermometer1.refresh; end;

procedure TForm1.AbColBitBtn1Click(Sender:TObject);
begin temp:=temp-5; abthermometer1.Value:=temp;
if temp<24 then begin abthermometer1.BarSettings.color:=clblue; abled1.checked:=false; end;
abthermometer1.refresh; end;

procedure TForm1.FormCreate(Sender:TObject);
begin temp:=20; abtank1.TankSettings.Style:=tshorizontal; end;

procedure TForm1.polni(Sender:TObject);
begin abtank1.Value:=abdial1.Value; end;

procedure TForm1.AbRockerSwitch1Click(Sender:TObject);
begin abtank1.TankSettings.Style:=tshorizontal; end;

procedure TForm1.AbRockerSwitch2Click(Sender:TObject);
begin abtank1.TankSettings.Style:=tsroundrect; end;

procedure TForm1.AbRockerSwitch3Click(Sender:TObject);
begin abtank1.TankSettings.Style:=tscrater; end;

end.

[fricky]

Laično vprašanje: s katerim programom lahko napišeš/prevedeš takšno kodo?

lp

[jjakob]

Visual Basic?

[egomez]