PC-Timer by _schulle_

Nabend Jungs.

Hab hier mal n kleines Tool für euch, in den letzten Tagen so aus Jux programmiert, damit nie wieder Pizza im Ofen verbrennt.
Ihr könnt dort eine Zeit sowie einen Erinnerungstext eintragen und den Countdown starten. Am ende des Coundowns wird das Fenster Maximiert, in den Vordergrund gestellt, dabei blinkt das Fenster wechselnd. Dazu wird der Sound abgespielt, der im selben Ordner wie die *.exe ist und Sound.wav heißt. Außerdem wird ein Dialogfenster mit eurem Erinnerungstext angezeigt. Klickt ihr Dort auf OK, wird das Programm gekillt. Klickt ihr auf Cancel, sollte alles zurückgesetzt werden, als würde man das Programm neu starten.
Der Countdown kann auch Unterbrochen sowie wieder aufgenommen werden.

Ich veröffentliche dieses Programm unter der Beerware-Lizenz, Revision42.
Die Software enthält KEINEN schädlichen Code.
Sollten daran Zweifel bestehen, so würde ich es ggf. einzelnen gestatten, Einsicht in den Quelltext zu nehmen.
Desweiteren ist die eine ALPHA-Version, also im Test-Stadium. Das Programm sollte soweit auf allen Windows-Rechnern stabil laufen, dafür gebe ich aber KEINE Garantie. Auch kann ich keine Garantie für andere Probleme geben, dass sich das Programm in einer Endlosschleife verfängt. Sowas ist aber sogutwie ausgschlossen.

Gruß, _schulle_, and enjoy your Pizza!


Edit: wenn euch die Software gefällt, habe ich gegen n nettes Reno nix einzuwenden. Auch Kritik oder Hinweise nehme ich dankend an.
Edit2: in dem Archiv ist ein Selbstentpackendes Archiv. Die drei Dateien daraus müsst ihr in einen Ordner eurer Wahl entpacken. //nicht mehr zutreffend
Edit3: Urheber der Sound-Datei ist mir Unbekannt. Vermutlich (c) by Microsoft.
Edit4: neue Version mit kleinem Fix
Edit5: Download der alten Version entfernt!

 

Den Fehler kontne ich bisher net reproduzieren. Vllt melden sich andere, ob die den Fehler auch bekommen, dann schau ich mal im Source Code.

@ Vorschläge:
1: Ja, ich denke das lässt sich machen.
2: Ich schau mal ob ich im netz wat finde wie da jehn tut. ;D

gruß

 

Könntet ihr euch klarer ausdrücken, was ihr wollt? X_x

 

Börni: Hier der Quelltext:

Spoiler

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Timer2: TTimer;
Timer3: TTimer;
Edit4: TEdit;
Label4: TLabel;
Timer4: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
time: integer;
ErText: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var h,m,s : integer;
begin
ErText:=edit4.text;
h:=strtoint(edit1.text);
m:=strtoint(edit2.text);
s:=strtoint(edit3.text);
time:=s;
time:=time+(m*60);
time:=time+(h*3600);
timer1.Enabled:=true;
button2.Visible:=true;
button1.Visible:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var t,h,m: integer;
begin
time:=time-1;
t:=time;
if t>=0 then
begin
if t>=3600 then
begin
h:=t div 3600;
t:=t-(h*3600);
edit1.Text:=inttostr(h);
if t>=60 then
begin
m:=t div 60;
t:=t-(m*60);
edit2.text:=inttostr(m);
edit3.text:=inttostr(t);
end
else
begin
m:=t div 60;
t:=t-(m*60);
edit2.text:=inttostr(m);
edit3.text:=inttostr(t);
end
end
else
if t>=60 then
begin
m:=t div 60;
t:=t-(m*60);
edit1.Text:=inttostr(0);
edit2.text:=inttostr(m);
edit3.text:=inttostr(t);
end
else
begin
m:=t div 60;
t:=t-(m*60);
edit1.Text:=inttostr(0);
edit2.text:=inttostr(m);
edit3.text:=inttostr(t);
end
end
else
begin
Button2.visible:=false;
timer4.Enabled:=true;
PlaySOUND(PChar('.\Sound.wav'),hInstance,snd_ASync );
timer1.Enabled:=false;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
button3.Visible:=true;
button2.visible:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=true;
button2.Visible:=true;
button3.Visible:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
timer1.Enabled:=false;
time:=0;
edit1.Text:=inttostr(0);
edit2.Text:=inttostr(0);
edit3.Text:=inttostr(0);
button2.Visible:=false;
button3.visible:=false;
button1.visible:=true;
form1.Color:=clwhite;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
form1.Color:=clred;
timer3.Enabled:=true;
timer2.Enabled:=false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
form1.Color:=clwhite;
timer2.Enabled:=true;
timer3.Enabled:=false;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
var buttonSelected : Integer;
begin
ShowWindow(handle,SW_MAXIMIZE);
Form1.FormStyle:=fsStayOnTop;
timer2.Enabled:=true;
buttonSelected := MessageDlg(Ertext,mtError, mbOKCancel, 0);
if buttonSelected = mrOK then
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=false;
Application.terminate;
end;
if buttonSelected = mrCancel then
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
time:=0;
edit1.Text:=inttostr(0);
edit2.Text:=inttostr(0);
edit3.Text:=inttostr(0);
button2.Visible:=false;
button3.visible:=false;
button1.visible:=true;
form1.Color:=clwhite;
timer4.enabled:=false
end;
end;

end.

Peacey: Linux-Version hat börni inner Mache

 

Das ist nicht beabsichtigt, wird aber noch behoben. Is ja nur na Alpha-Version

k, dann mach ich das so, des sich das wieder verkleinert bei klicken der Buttons im Dialogfeld..

 

Chribu und CCJ: ich hab die Vermutung, dass das Prog bei euch außerhalb des Bildschirms ausgeführt wurde. Hab jetz ne Zeile eingebaut, die das Programm beim Start aufm Desktop zentriert.

An dem Problem mit dem wieder verkleinern arbeite ich noch, sowie an den anderen Sachen.