Tagesendstand, pegelunit begonnen

1 files changed, 36 insertions, 0 deletions

diff --git a/fhunit.pas b/fhunit.pas
new file mode 100644
index 0000000..02c9d6d
--- /dev/null
+++ b/fhunit.pas
@@ -0,0 +1,36 @@
+unit fhunit;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Graphics;
+
+type
+  tMessgroesze = (mgTemperatur,mgLuftfeuchte,mgWindgeschwindigkeit,mgWindrichtung,
+                  mgNiederschlag,mgGlobalstrahlung,mgLuftdruck);
+  tZeitgroesze = (zgJahr,zgMonat,zgTag,zgStunde,zgMin10);
+  tMesswerte = array[tMessgroesze] of extended;
+  tZeit = array[tZeitgroesze] of integer;
+  tMesspunkt = record
+    zeit: tZeit;
+    mW:   tMesswerte;
+  end;
+
+const
+  messNamen: array[tMessgroesze] of string =
+    ('Temperatur','Luftfeuchte','Windgeschwindigkeit','Windrichtung',
+     'Niederschlag','Globalstrahlung','Luftdruck');
+  maszEinheit: array[tMessgroesze] of string =
+    ('°C','%','m/s','°','mm','W/m²','mbar');
+  monatsNamen: array[1..12] of string =
+    ('Januar','Februar','März','April','Mai','Juni','Juli',
+     'August','September','Oktober','November','Dezember');
+  farben: array[tMessgroesze] of tColor =
+    ($0000DF,$CFAF7F,$007FFF,$FF00FF,$FFAF3F,$3FAFAF,$AFAFAF);
+
+implementation
+
+end.
+