[JWeis]

HALLO

Habe mal vor kurzem (oder schon länger her )nen wecker geschrieben, weil ich hier nicht so wirklich das gefunden habe was ich gesucht habe. Und den wollte ich euch mal vorstellen.
__________________________________________________ ________

Momentan kann er:

- Aktuelle Uhrzeit und Datum anzeigen.
- wenn die Weckzeit und die Momentane Uhrzeit übereinstimmen, das Lied abgespielt.
- checkbox muss gedrückt werden damit er weckt
- weckdatum wird in einer combobox angezeigt
- Der Quellcode wurde vereinfacht (finde ich)
- Form wurde angepasst
- Opendialog mit filter (*.mp3, *.wav, *.wma)
- Ein paar kleinigkeiten
__________________________________________________ _________

Hab noch eibn erklärungs bildchen angehängt und neue version hochgeladen

ich wünche euch viel spaß damit und mann ließt sich

P.S.: Kritik erwüncht!

SChönes Ding,

nur das gleich am Anfang das DialogFenster aufgeht würde ich anderst machen da man nicht weis was man öffnen soll, ich habe ein Bitmap angeklickt...

Zitat von Knotti2005:

nur das gleich am Anfang das DialogFenster aufgeht würde ich anderst machen da man nicht weis was man öffnen soll, ich habe ein Bitmap angeklickt...

Zitat von ich:

-Song öffnungs dialog wird beim start automatisch ausgeführt.

ich stell es noch anderster ein

Hi JWeis,

dein Wecker macht seine Aufgabe nicht, erweckt nicht.

Uhrzeit eingestellt,Wavfile ausgewählt

keine Reaktion.


mfg fluxury

ich vergas zu erwähnen, dass man die check box noch aktiviren muss sry

Zitat von JWeis:

ich vergas zu erwähnen, dass man die check box noch aktiviren muss sry

Bei mir weckt er trotzdem nicht.

Grüße
Faux

Hallo Johannes,
welches Musik-Formate werden denn unterstützt?
Ich habe den Haken gesetzt, aber auch bei mir tut sich da nichts...

Hi,

hätt nen kleinen verbesserungsvorshclag, da ich es doch etwas umständlich finde. So muss das Programm doch im Hintergurnd laufen, und auch noch in den Autostart. Das geht auch einfacher, ohne das die Anwendung läuft. Das gleiche habe ich mal in meinen Delphi anfängen gemacht, daher noch ganz easy ohne grosse Sicherheiten.

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, MMSystem;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  SndPlaySound(PChar(ParamStr(2)), SND_ASYNC);
//SND_SYNC = Während die Datei abgespielt wird, steht das Prog.
//SND_ASYNC = Die Datei wird unabhängig vom Programm abgespielt
//SND_LOOP = Immer wieder und immer wieder
  Label1.Caption := ParamStr(1);
  Button1.SetFocus;
  Beep;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Beep;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Timer1.Free;
end;

end.

Der Vorteil jetzt an der ganzen Sache, Du kannst die Anwendung über den Task Planer benutzen der in Windows schon drin ist. Dort planst Du nur die Zeit und gibst der Anwendung einfach zwei Parameter mit auf den Weg. So kann die .exe liegen wo sie mag und muss nie im Hintergrund laufen oder sonst wie.

Starten mal als Beispiel: c:\Pause.exe "es ist pause" "chimes.wav"
Der erste Parameter ist einfach nur ein Text der auf der Form angezeigt wird, der zweite ist die Sounddatei die gleichzeitig abgespielt werden soll. Mehr isses nicht. Und der WMP ist auch nicht nötig... wenn man keine bestimmten Soundformate braucht...

Also ich find nix. kann es vieleicht sein dass ihr das datum nicht umgestellt habt. das steht automatisch immer einen tag weiter. (hat sich bei mir bewährt). wenn nicht hab ich keinen plan warum es nicht gehen sollte.

Hab bischen gebastel und es müsste jetzt gehen wenn (wenn die uhrzeit und DAS DATUM stimmen!)

viel spaß beim test