Cara Menggunakan Timer Di Delphi | Membuat Stop Watch Dalam 5 Menit

Pernah mencoba menggunakan control atau component timer di delphi ? Buat kalian para delphier yang belum pernah atau belum tahu bagaimana cara menggunakan timer di delphi XE tenang saja. Karena saya akan kasih tahu caranya.

Pada tutorial kali ini yang akan saya bahas adalah mengenai cara membuat stop watch dengan timer di delphi xe 7. Untuk kalian yang menggunakan versi delphi yang lain tidak usah kuatir karena saya pikir codingnya akan tetap sama dan compatible.

Oke langsung saja. Buka IDE delphi anda. Kemudian buat sebuah project baru. Caranya click menu File>New>VCL Form Application - Delphi. Kalau sudah silahkan perbesar ukuran formnya. Tambahkan satu control TLabel ke dalam form. Ganti ukuran fontnya menjadi 100 agar lebih besar. Atau sesuaikan saja dengan kebutuhan kalian. Posisikan di tengah form ya. Ganti properties caption menjadi 0.

Kemudian masukkan 3 buah control TButton ke dalam form. Perbesar ukurannya dan ganti properties masing-masing text menjadi Start, Stop dan Reset. Tambahkan satu buah control TTimer ke dalam form. Ganti properties enabled menjadi false dan atur interval menjadi 1000. Atau biarkan sesuai default.

Interval timer ini dibuat dalam satuan mili second. Jadi 1000 sama dengan 1 detik. Kalau 500 sama dengan 0.5 detik. Begitu seterusnya. Kalau sudah formnya kira-kira akan menjadi seperti ini.

[code language="delphi"]

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Label1.Caption:='0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=IntToStr(StrToInt(Label1.Caption) + 1);
end;

end.

[/code]

Mudah bukan caranya ? Terima kasih telah berkunjung ke blog saya. Semoga tutorialnya bermanfaat. Sampai jumpa :)

Tonton videonya yuk disini :

https://www.youtube.com/watch?v=6I2PSzclWZc

https://www.youtube.com/watch?v=2yAy-o7uqj8