Programmablauf für bestimmte Zeit unterbrechen

[suaithai]

Hallo zusammen

Kann mir jemand einen Tip geben, wie ich ein Programm komplett unterbrechen und nach einer bestimmten Zeit wieder forfahren kann. Während des Unterbruchs dürfen auch keine OnChange oder sonstige Events ausgeführt werden.

Zur Problematik:

Ich habe ein Analysegerät an der R232-Schnittstelle angeschlossen. Wenn ich nun über ein Steuerzeichen die Pumpe an diesem Gerät start, läuft diese 80 sek. In dieser Zeit muss mein Programm warten und an der Position weitermachen, wo es unterbrochen wurde.

Vielen Dank für Eure Hilfe

Gruss Suaithai

[Phoenix]

Delphi-Quellcode:

sleep(80000);

[sakura]

Ließ Dir bitte mal die Spartenbeschreibungen durch :roll: Diese Sparte ist für fertige Lösungen die jedem helfen, nicht für Fragen.


*schwups* -> Sonstiges.

...:cat:...

[XeRo]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Weiter: Boolean;
begin
Weiter:=False;
 Repeat
  Sleep(1);
  If TimeToStr(now)='12:30:00' then Weiter :=true;
 Until(Weiter=True);
end;

So kannst du auch genau festlegen, wann das Prog weiter gehen soll.

[XeRo]

Opps.... es geht ja auch einfacher!!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Repeat 
  Sleep(1); 
Until(TimeToStr(now)='12:30:00'); 
end;

So jetzt passts

[Daniel B]

Zitat:

Zitat von Phoenix

Delphi-Quellcode:

sleep(80000);

Und damit nicht alles einfriert, benutze Suche zum Thema delay und gettickcount

[XeRo]

Frage: Bleigt bei Delay auch OnChange ausgeschalten?!

[Daniel B]

?? Warum sollte bei Delay was ausgeschaltet bleiben? Delay sorgt eigentlich dafür das überhaupt noch was während der Pause funktioniert, wie auch Klicks usw.

[Luckie]

Nein. Die Funktion Delay sorgt dafür, dass das Fenster weiterhion ankommende Nachrichten verarbeiten kann. So mit kann man es noch verschieben, minimieren, maximieren und es zeichnet sich bei Bedarf neu.

Sollen Benutzeraktionen verhindert werden, weil sie den Programmablauf stören könnten, werden die betroffenen Elemente einfach deaktiviert.

[XeRo]

Aber er sucht ja extra eine Möglichkeit OnChange während der Pause zu verhindern...