Berechnung von lichttechnischen Größen aus gemessener Beleuchtungsstärke, Brennstoffverbrauch und Zeit bei Verbrennungslampen. Leicht geänderte Fassung 25.5.2001(Urfassung Februar 2001).

Programmiersprache: Object-Pascal, Delfi4.0 

Deklarationen      

 

 interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, jpeg;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
uhrzeit: TPanel;
masse: TPanel;
lux: TPanel;
Edit9: TEdit;
Panel1: TPanel;
Edit10: TEdit;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel10: TPanel;
Panel11: TPanel;
Panel9: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Panel12: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;

var
Form1: TForm1;
t1_in_minuten: extended;
t2_in_minuten: extended;
masse1_in_gramm:extended;
masse2_in_gramm:extended;
verbrauch_in_gramm:extended;
beleuchtungsstaerke1_in_lux:extended;
beleuchtungsstaerke2_in_lux:extended;
brennwert_in_KJ_pro_gramm: extended;
abstand_in_meter: extended;
zeitraum_in_minuten: extended;
zeitraum_in_sekunden: extended;
energieverbrauch_in_J: extended;
beleuchtungsstaerke_in_lux:extended;
verbrauch_in_gramm_pro_sekunde: extended;
brennleistung_in_watt: extended;
lichtstrom_in_lumen: extended;
lichtstaerke_in_candela: extended;
lichtausbeute_in_lumen_pro_watt: extended;
steradiantflaeche_in_quadratmetern:extended;
lichtausbeute_in_watt_idealisiert:extended;
lichtausbeute_idealisiert_in_prozent: extended;
implementation

{$R *.DFM}
Berechnung procedure berechnen;

begin
t1_in_minuten:=strtofloat(form1.edit1.text)*60+strtofloat(form1.edit2.text);
t2_in_minuten:=strtofloat(form1.edit5.text)*60+strtofloat(form1.edit6.text);
zeitraum_in_minuten:=t2_in_minuten-t1_in_minuten;
zeitraum_in_sekunden:=zeitraum_in_minuten*60;
masse1_in_gramm:=strtofloat(form1.edit3.text);
masse2_in_gramm:=strtofloat(form1.edit7.text);
beleuchtungsstaerke1_in_lux:=strtofloat(form1.edit4.text);
beleuchtungsstaerke2_in_lux:=strtofloat(form1.edit8.text);
brennwert_in_KJ_pro_gramm:=strtofloat(form1.edit9.text);
abstand_in_meter:=strtofloat(form1.edit10.text)/100;
verbrauch_in_gramm:=masse1_in_gramm - masse2_in_gramm;
verbrauch_in_gramm_pro_sekunde:=verbrauch_in_gramm/zeitraum_in_sekunden;
energieverbrauch_in_J:=brennwert_in_KJ_pro_gramm*verbrauch_in_gramm*1000;
brennleistung_in_watt:=energieverbrauch_in_J/zeitraum_in_sekunden;
beleuchtungsstaerke_in_lux:=(beleuchtungsstaerke1_in_lux+beleuchtungsstaerke2_in_lux)/2;
lichtstrom_in_lumen:=beleuchtungsstaerke_in_lux*sqr(abstand_in_meter)*4*pi;
steradiantflaeche_in_quadratmetern:=sqr(abstand_in_meter);
lichtstaerke_in_Candela:=lichtstrom_in_lumen/(4*pi);
lichtausbeute_in_lumen_pro_watt:=lichtstrom_in_lumen/brennleistung_in_watt;
//candela definition: 1/683 Watt pro steradiant bei 540*10 hoch 12 HZ
lichtausbeute_in_watt_idealisiert:=(lichtstaerke_in_candela/683)*4*pi;
lichtausbeute_idealisiert_in_prozent:=(lichtausbeute_in_watt_idealisiert/brennleistung_in_watt)*100;
end;
Ausgabe
procedure TForm1.Button1Click(Sender: TObject);
begin

berechnen;
form1.edit11.text:=floattostr(zeitraum_in_minuten);
form1.edit12.text:=floattostr(verbrauch_in_gramm);
form1.edit14.text:=floattostr(energieverbrauch_in_J/1000);
form1.edit16.text:=floattostr(beleuchtungsstaerke_in_lux);
form1.edit17.text:=floattostr(verbrauch_in_gramm_pro_sekunde);
form1.edit18.text:=floattostr(brennleistung_in_watt);
form1.edit19.text:=floattostr (lichtstrom_in_lumen);
form1.edit20.text:=floattostr (lichtstaerke_in_candela);
form1.edit21.text:=floattostr (lichtausbeute_in_lumen_pro_watt);
form1.edit22.text:=floattostr (lichtausbeute_idealisiert_in_prozent);

end;
end.