Entwickler-Ecke :: Thema anzeigen - Procedur für Wecker

rulingorc - Mo 04.06.07 18:42
Titel: Procedur für Wecker

Hallo zusammen.
Brauch auf Kürze eine Procedur für einen Wecker. Er soll möglichst einfach sein, also mit nicht so viel schnickschnack, damit ich ihn als noob verstehe^^. Wer gerade mal eine Procedur fertig hat könnte die ja hier rein posten. THX!

Moderiert von raziel: Topic aus Programmierwerkzeuge verschoben am Mo 04.06.2007 um 19:00
Moderiert von Christian S.: Topic aus Sonstiges (C# / .NET) verschoben am Mo 04.06.2007 um 19:01

Christian S. - Mo 04.06.07 19:04

Was stellst Du Dir denn darunter vor? :gruebel:

Delphi-Quelltext

1:
2:
3:
4:

procedure MachWecker;
begin
...
end;

Und was soll die dann machen?

Wieso probierst Du es nicht selber mal und wir helfen Dir dann? Dabei gilt natürlich: Für konkrete Probleme jeweils ein Thread ;-)

rulingorc - Mo 04.06.07 19:13

ich würds gerne machen echt, aber muss morgen schon etwas für mathe info abgeben und hab so lange mit der analogen uhr gebraucht. deswegen such ich jetzt einen wecker, der einfach zu verstehen ist, einen fertigen wecker. ich mach in den ferien selber einen aber bin immo zu beschäftigt deswegen diese not-lösung...

Robinator - Mo 04.06.07 20:35

Hi,

mal als Ansatz:

du brauchst :

-eine Form
-einen Timer
-einen TDateTimePicker

im OnTimer event der timer komponente könntest du nun wie Folgt vorgehen

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  
if now > DateTimePicker1.DateTime then //bin mir nicht sicher ob die entsprechende property .DateTime heisst, musste ma nachgucken
 begin
    TTimer(Sender).Enabled := False;
    beep;
    beep;
    beep;
    Showmessage('AUFSTEHEN!!');
 end;
end;

damit ist ein einfacher Wecker ansich schon fertig :)

gruss, Rob

ps.: Du solltest den Timer per default erstmal auf enabled = False stellen, sonst macht er vermtl am anfang permanent lärm. Enablen könntest du ihn dann per Button o.ä. ;)

rulingorc - Mo 04.06.07 22:47

soweit bin ich

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if now > DateTimePicker1.DateTime then //bin mir nicht sicher ob die entsprechende property .DateTime heisst, musste ma nachgucken
 begin
    TTimer(Sender).Enabled := False;
    beep;
    beep;
    beep;
    Showmessage('AUFSTEHEN!!');
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

end.

kann mir jmd das bittebitte zu ende machen ich verzweifel gleich.

Narses - Mo 04.06.07 22:58

Moin!