Remaining Time I

Posted on Sabtu, 24 Maret 2012 by

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


2 thoughts on “Remaining Time I”

  1. Anonim11 Juni 2012 pukul 15.24

    halah klo itu mah anak sd udah tau kirain remaing time (ternyata cuma integer toh ha..ha..)

    BalasHapus
  2. Olvandra12 Juni 2012 pukul 15.28

    @Anonim

    yah begitulah gan cara sederhana penghitungan mundur ANGKA.. saya hanya berbagi ilmu standard (dasarnya)

    BalasHapus

Silahkan Tulis Komentar Anda, Sopan dan Berwibawa