Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Mein wecker !Neue Version ist da! (https://www.delphipraxis.net/59846-mein-wecker-neue-version-ist-da.html)

JWeis 29. Dez 2005 14:19


Mein wecker !Neue Version ist da!
 
Liste der Anhänge anzeigen (Anzahl: 3)
HALLO

Habe mal vor kurzem (oder schon länger her :gruebel: )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!

Knotti2005 29. Dez 2005 14:33

Re: Mein wecker
 
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...

:duck:

JWeis 29. Dez 2005 15:32

Re: Mein wecker
 
Zitat:

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:

Zitat von ich

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

ich stell es noch anderster ein

fluxury 29. Dez 2005 15:51

Re: Mein wecker
 
Hi JWeis,

dein Wecker macht seine Aufgabe nicht, erweckt nicht.

Uhrzeit eingestellt,Wavfile ausgewählt

keine Reaktion.


mfg fluxury

JWeis 29. Dez 2005 21:39

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

faux 29. Dez 2005 21:52

Re: Mein wecker
 
Zitat:

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

juergen 29. Dez 2005 22:11

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

Daniel B 29. Dez 2005 22:15

Re: Mein wecker
 
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. ;)
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...

JWeis 30. Dez 2005 07:39

Re: Mein wecker
 
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.

JWeis 30. Dez 2005 10:39

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

viel spaß beim test


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:25 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz