Membuat Program Tampilan Jam & Tanggal dengan BORLAN DELPHI 7

Design form ini untuk membuat Program Tampilan Jam & Tanggal dengan menggunakan Delphi 7.

Cara membuatnya tidak sulit, sangat sederhana dan hanya membutuhkan beberapa komponen yang ada di Menu Delphi 7. Untuk Lebih jelasnya langsung saja ke TKP.





Langkah pertama, siapkan form Delphi 7, seperti yang gambar di atas, komponen yang di butuhkan untuk membuat Program Tampilan Tanggal & jam adalah sebagai berikut : 

Komponen	Name	Caption
Form	Form1	Jam & Tanggal (judul Program)
Label	Label1	(kosong)
Label	Label2	(kosong)
Timer	Timer1
Timer	Timer2
Timer	Timer3

 

Langkah kedua, masukkan script di bawah ini :

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Timer2: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    Timer3: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  komjam, komtang : string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  komjam := 'Sekarang Pukul';
  komtang := 'Sekarang Tanggal';
  Form1.Caption := 'Waktu & Tanggal';
  label3.Caption := 'Waktu Adalah Uang';

end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption := komjam + ' ' + TimeToStr (time);

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  label2.Caption := komtang + ' ' + DateToStr (now) ;

end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  label3.left:=label3.Left-5;
  if label3.left<0 then
  label3.Left :=300;
end;


end.

Silahkan Di Compile, jika sudah bisa di Compile maka Program ini telah siap digunakan. Tapi jika masih ada yang error maka koreksi kembali script yang ada di Form dengan yang ada pada postingan ini. Oke jangan lupa Di Simpan Project tadi, jika tidak di simpan maka sia-sia kerja keras selama ini.