|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
Re: Frage zu einer Simulation
13. Nov 2008, 20:20
Fangen wir einfach an: Du definierst Dir 2 Konstanten vom Typ double (=Fließkommazahl), eine für den Literpreis und eine für den Durchfluss pro Takt. Zusätzlich zwei globale Variablen (auch double) für den aktuellen Preis und das aktuell gezapfte Volumen, die Du mit 0 vorbelegst. Auf dem Formular platzierst Du zusätzlich zu Deinem Timer (Enabled auf false gestellt) noch 2 Labels und einen Button. Der Button schaltet den Timer ein bzw. ausTimer1.Enabled := not Timer1.Enabled;
So, im Timer-Event erhöhst Du nun Volumen um Durchsatz, multiplizierst das mit dem Literpreis, um den aktuellen Preis zu erhalten und gibst diese beiden Zahlen auf den Labels aus (FloatToStr).
Versuch es mal auf diesem Weg.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|