![]() |
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! |
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: |
Re: Mein wecker
Zitat:
Zitat:
|
Re: Mein wecker
Hi JWeis,
dein Wecker macht seine Aufgabe nicht, erweckt nicht. Uhrzeit eingestellt,Wavfile ausgewählt keine Reaktion. mfg fluxury |
Re: Mein wecker
ich vergas zu erwähnen, dass man die check box noch aktiviren muss sry
|
Re: Mein wecker
Zitat:
Grüße Faux |
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... :? |
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:
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.
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. 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... |
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.
|
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 09:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz