Skip to main content

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.


screen1.png

screen2.png

[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
Labels:

Comments

Post a Comment

Popular posts from this blog

Tips Jitu Cara Mengatasi Error Pada Saat Compile Aplikasi Menggunakan Visual Basic 6

Sebenarnya ada banyak sekali nih project yang harus saya kerjakan dikantor. Namun terkadang apa yang kita rencanakan sering kali berbeda dengan kenyataan. Maksud hati ingin focus dulu ke satu project, tapi karena adanya satu dan lain hal, akhirnya terpaksa deh harus melakukan modifikasi dan membuka project lama yang sebenarnya saya sudah malas untuk berhubungan lagi dengannya :) Project ini sudah dibangun dari awal tahun 2000-an, jauh sebelum saya join. Ya intinya saya dapat warisannya lah seperti itu. Di bangun masih dengan menggunakan vb5-vb6 waktu itu. Sekarang sudah tahun 2016. Jadi sudah lama ya sob. Sudah ketinggalan jaman lah kurang lebih. Meskipun sudah tua, tapi menurut saya visual basic tetap menjadi bahasa pemrograman yang masih powerful. Masalah Kompatibilitas Nah masalah terbesar dalam menggunakan program-program lawas seperti itu biasanya ada pada kompatibilitas component-componentnya. Karena hardware dan os yang kita gunakan biasanya akan berubah seiring waktu. Jika soba...
Post a Comment
Read more

Kapan Kita Bisa Gajian dari youtube atau google adsense ?

Kapan kita bisa gajian dari youtube atau google adsense ? Ya pertanyaan ini memang seringkali muncul dari berbagai youtuber baru termasuk saya pada waktu itu dan orang-orang awam yang memang penasaran dengan uang yang dapat dihasilkan dari youtube. Sebagai youtuber yang memang sudah pernah merasakan gajian dari youtube, maka saya akan mencoba untuk berbagi sedikit pengalaman saya. Siapa tahu bermanfaat buat teman-teman yang sedang penasaran karena tak sabar menantikan datangnya pembayaran adsense untuk pertama kali. Sama halnya seperti menunggu gaji pertama saat kita bekerja. Pembayaran google adsense akan dapat dilakukan setelah saldo kita mencapai ambang batas minimum pembayaran yaitu 100 dollar atau kalau dirupiahkan sekitar Rp 1.300.000. Kurang dari itu maka proses pembayaran tidak dapat dilakukan meskipun sudah masuk tanggal pembayaran yang biasanya dilakukan oleh google. Untuk tanggal pembayarannya sendiri biasanya akan dilakukan atau diproses di tanggal 21-25 setiap bulannya...
4 comments
Read more

Penjumlahan Inputbox Secara Otomatis Di HTML, Php, Dan JQuery

Hai sobat yadishare apa kabar? Sudah hari sabtu lagi nih. Iseng-iseng ah pengen nulis mengenai html dan jquery. Ketika kita membangun sebuah aplikasi menggunakan php, seringkali kita harus membuat sebuah penjumlahan antar textbox secara otomatis agar memudahkan user. Misalnya kita memiliki 3 buah inputbox yang kita buat dengan menggunakan HTML yang terdiri dari sub total, ppn, dan grand total. Kemudian setiap kali kita menginputkan angka ke dalam textbox sub total dan textbox ppn tersebut, kita ingin textbox grand total jumlahnya terhitung secara otomatis agar dapat memudahkan user. Lalu bagaimana caranya? Nah untuk dapat melakukannya, kita pasti butuh cara yang mudah dan cepat bukan? Ada banyak cara yang dapat kita lakukan untuk mewujudkan hal tersebut. Salah satunya adalah dengan menggunakan bantuan JQuery. Pertama kalian bisa download file jquery.js disini . Masukkan ke dalam folder assets/js. Kalian juga dapat menambahkan script berikut ini tanpa harus mendownload f...
Post a Comment
Read more