vis tiden (stopur)

En meget simpel løsning:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    T,M,S: Integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
Button1.Caption := 'Start';
T := 0;
M := 0;
S := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If S = 59 Then Begin
  Inc(M);
  S := 0;
End
Else
  Inc(S);

If M = 59 Then Begin
  Inc(T);
  M := 0;
End;

Edit1.Text := IntToStr(T) + ':' + IntToStr(M) + ':' + IntToStr(S);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  If Button1.Caption = 'Start' Then Begin
    Timer1.Enabled := True;
    Button1.Caption := 'Stop';
  End
  Else Begin
    Timer1.Enabled := False;
    Button1.Caption := 'Start';
  End;
end;

end.



Snowball

sker ikke andet en at teksten på button skifter start/stop når jeg trykker (sker intet i edit1)

Der skulle gerne ske noget efter 1 sek. hvis du har husket det hele. Ellers så prøv og hent eksemplet på http://home1.inet.tele.dk/j-cgeert/stopur.zip

Snowball

Jeg har en rang laver Reverse engeneering på en anden duded stopur det kan du lige få koden til :

http://www.borrisholt.com/eksperten/AATimer.zip


Jens B

takker :)