Remaining Time I

Tutorial kali ini saya tampilkan yaitu Remaining time yaitu penghitungan waktu mundur dari depan kebelakang, contoh dan source code nya sangat sederhana. penghitungan waktu mundur ini dengan angka digunakan dalam pemrogram delphi dalam aplikasi biasanya bisa kita lihat dalam aplikasi mediaplayer, winamp dengan durasi lagu yang bisa dihitung mundur. Adapun pula dalam remaining time digunakan dalam pembuaan tampilan show form dengan durasi yang ingin ditentukan dalam penanyangan nya.dengan menggunankan TTimer kita bisa memanipulasi data integer dalam hitungan dengan aksi-aksi yang di inginkan. langsung aja free download source code Remaining time delphi dan tutorial delphinya di bawah ini via mediadire

Komponent yang digunakan :

• TTimer
• TButton
• TEdit
• TLabel

Tutorial :

Ambil Komponent TTimer dati pallet system (Gambar Jam) kemudian masukkan listing seperti dibawah ini :

Ambil komponent TButton letakkan sesuai dengan yg di inginkan, kemudian masukkan listing berikut :

Ambil komponent TButton 1 lagi dan letakkan sesuai dengan yg di inginkan, kemudian masukkan listing berikut :

Untuk kode lengkapnya sebagai berikut :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Shape1: TShape;
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    Timer1: TTimer;
    Edit1: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Button2: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=inttostr(strtoint(label1.Caption)-1);
if strtoint(label1.Caption)<=0 then
begin
Timer1.Enabled:=false;
ShowMessage('Waktu anda habis');
label1.Caption:=edit1.Text;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=edit1.Text;
timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
label1.Caption:=edit1.Text;
timer1.Enabled:=false;
end;

end.

 Download Exe 

Download Source Code