Stopuhr bauen^^

[Andreas L.]

Hi,
ich soll für meine KbB-Lehrerin ein Programm bauen welches eine angegebene Zeit von 0 aus hochzählt, ist die Zeit (z. B. 10 Minuten) erreicht soll ein Sound abgespielt werden bzw. der Fenstertitel in der Takleiste das blinken anfangen. Meine Frage ist jetzt wie ich so ein Teil quasi ne Stopuhr bauen kann?

Mein Grundkonzept ist das ich nen Timer nehme und ihn jede Sekunde ne Zahl dazu zählen lasse, das lustige ist nun das ne` Minute ja 60 Sekunden hat *g*

Wie stelle ich das an?

PS: Da habe ich mich doch zu früh gefreut als ich zu meiner Lehrerin sagte das es eine arbeit von 5 Minuten wird^^

Greetz
Andy

[Matze]

Stell das Intervall auf 1000;

Dann nimm ne Varialbe, in der die Minuten stehen (per Eingabe füllen).

mit

Delphi-Quellcode:

inc(i);

hochzählen.

Delphi-Quellcode:

if i = MinutenVariable * 60 then ...

[Andreas L.]

Zitat:

Zitat von Matze

Stell das Intervall auf 1000;

Dann nimm ne Varialbe, in der die Minuten stehen (per Eingabe füllen).

mit

Delphi-Quellcode:

inc(i);

hochzählen.

Delphi-Quellcode:

if i = MinutenVariable * 60 then ...

Hi,
danke für deine antwort, kannste es mir aber auch so schreiben das ich auch weiß wie ich alles machen soll. Sorry aber ich bin voll Müde^^

Greetz
Andy

[Spurius]

Probiers mal damit:

Code:

  sec := sec + 1;
 if sec = 60 then begin
  sec := 0;
  min := min +1;
  end;
  label1.caption := inttostr(sec);
 label2.Caption := inttostr(min);

Das ganze in nen timer und davor den timer enablen mit nem button Click.
Und halt die Variablen deklarieren.
Gruß
Spurius

[Affje800]

um den sound abzuspielen:

am anfang (am besten formcreate):

Delphi-Quellcode:

mediaplayer1.filename:= 'name der datei';

dann:

if min = xyz(maximaler wert) then begin
mediaplayer1.open;
mediaplayer1.play;
end;



ich hoffe ich konnte etwas helfen :roll:

[scp]

Oder so:

Delphi-Quellcode:

Var
  StartTime : TDateTime;  // Globale Variable

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(now - StartTime);

  If MinuteOf(now - StartTime) = 10 then  // Wenn zehn Minuten vergangen  sind
    begin
      Timer1.Enabled := false;
      // Hier noch Sound abspielen
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StartTime := now;
  Timer1.Enabled := true;
end;

[Andreas L.]

Danke für eure antworten.

Code:

Undefinierter Bezeichner: MinuteOf

Was nun?

Hier mein Code:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(now - StartTime);

  If MinuteOf(now - StartTime) = form2.memo1.text then
    begin
      Timer1.Enabled := false;
      // Hier noch Sound abspielen
    end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
StartTime := now;
Timer1.Enabled := true;
end;

[Luckie]

Zitat:

Zitat von onlinehome

Danke für eure antworten.

Code:

Undefinierter Bezeichner: MinuteOf

Was nun?

In die Hilfe kucken.

[Stanlay Hanks]

Zitat:

Zitat von Luckie

Zitat:

Zitat von onlinehome

Danke für eure antworten.

Code:

Undefinierter Bezeichner: MinuteOf

Was nun?

In die Hilfe kucken.

Kurz und bündig, unser Luckie :wink:
Aber er hat recht. Ein Blick in die OH und...

...da steht

...Der Compiler konnte den angegebenen Bezeichner nicht finden – aller Wahrscheinlichkeit nach wurde er während der Deklaration bzw. während der Benutzung falsch geschrieben. Er könnte zu einer anderen Unit gehören, die keine uses-Anweisung aufweist...

Is ja eigentlich ganz eindeutig erklärt, oder :wink:

Man liest sich, Stanlay :hi:

[Andreas L.]

Zitat:

Zitat von Delphi Hilfe

Returns the minute of the hour represented by a TDateTime value.

Unit

DateUtils

Category

date/time routines

function MinuteOf(const AValue: TDateTime): Word;

Description

Call MinuteOf to obtain the minute of the hour represented by a specified TDateTime value. MinuteOf returns a value between 0 and 59.

Note: MinuteOf returns the same value as the MinuteOfTheHour function.

Das hilft mir nicht weiter...

[edit=Luckie]Quote-Tags gefixed. Mfg, Luckie[/edit]