Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi listbox2 täglich automatisch auswerten (https://www.delphipraxis.net/18842-listbox2-taeglich-automatisch-auswerten.html)

thorstenf01 25. Mär 2004 08:21


listbox2 täglich automatisch auswerten
 
Hallo,
wer kann mir bei folgendem Problem helfen:
ich habe zwei Listboxen, wobei die Listbox 2 fast die Gestalt der Listbox 1 annehmen soll.
In Listbox 1 stehen errechnete Werte, die in dieser Form erhalten bleiben soll.
In der Listbox 2 wird ein digitales Signal, in Form einer "1" umgewandelt.
Diese "1" wird über eine Serielle Schnittstelle an das Programm übergeben.
Der Abfrageintervall ist 5 Minuten, in denen bei Schattenwurf in eine Zeile in der Listbox 2
geschrieben wird und bei keinem Schattenwurf wird kein Eintrag erfolgen.
Das Programm läuft über einen längeren Zeitraum. (z.B 6 Monate)
Die Daten der Listbox 2 werden automatisch alle 30 Min. in eine Textdatei gespeichert.
Nun der eigentliche Punkt:
Gibt es eine Routine, die nach Vorbild von Listbox 1 den Abschattungsbeginn, das Abschattungsende und
die Belastungszeit in der Listbox 2 ermittelt. D.h. es muß nach einem Tag der erste Wert als Abschattungsbeginn
und der letzte Wert des Tages als Abschattungsende ausgegeben werden. Außerdem soll die Differenz aus
Abschattungsbeginn und Abschattungsende als Belastungszeit ausgegeben werden.
Die Einträge Uhrzeit, Anschlußpin und Schattenwurf fallen weg.



Listbox 1

Code:
                    Auswertung des Schattenwurfs                  

Tag     Datum       Abschattungsbeginn      Abschattungsende Belastungszeit

_______________________________________________________________________________ 

107     16  Apr             7,02 Uhr               7,02 Uhr          0,0 min

108     17  Apr             6,58 Uhr               7,23 Uhr         24,7 min

109     18  Apr             6,55 Uhr               7,25 Uhr         30,0 min
 
110     19  Apr             6,53 Uhr               7,27 Uhr         34,3 min

111     20  Apr             6,51 Uhr               7,29 Uhr         37,8 min

112     21  Apr             6,49 Uhr               7,30 Uhr         40,9 min

113     22  Apr             6,47 Uhr               7,31 Uhr         43,5 min

114     23  Apr             6,46 Uhr               7,32 Uhr         45,8 min
Listbox 2

Code:
                     Abfrage des Detektors                  

Datum     Uhrzeit        Anschlußpin      Schattenwurf vorhanden

_______________________________________________________________________________ 

16 Apr    7,02 uhr           DTR                ja

17 Apr    6,58 uhr           DTR                ja

17 Apr    7,03 uhr           DTR                ja

17 Apr    7,08 uhr           DTR                ja

17 Apr    7,03 uhr           DTR                ja

17 Apr    7,08 uhr           DTR                ja

17 Apr    7,13 uhr           DTR                ja

17 Apr    7,18 uhr           DTR                ja

17 Apr    7,23 uhr           DTR                ja

18 Apr    6,55 uhr           DTR                ja
Danke im voraus

Gruß
Thorsten :gruebel:


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz