MENU DAN TIMER PADA DELPHI

Salam mahasiswa!!! hehe apa kabar semua? semoga dalam keadaan baik yaa. Tak terasa sudah pertemuan ke-3 saya menemani teman-teman dalam belajar bahasa pemograman delphi. Nah, kali ini kita akan membahas tentang Menu dan Timer pada delphi. Dibawah ini adalah contoh listing programnya. Silakan disedot, barangkali perlu hehehe ... :p

- Listing Program :

 Code  :

unit Pertemuan3;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, ExtCtrls, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    MainMenu1: TMainMenu;

    Timer1: TTimer;

    File1: TMenuItem;

    ampilkanForm21: TMenuItem;

    N1: TMenuItem;

    Exit1: TMenuItem;

    procedure Exit1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure ampilkanForm21Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Left = -240 then Label1.Left:=465;

Label1.Left:= Label1.Left -1;

end;

procedure TForm1.ampilkanForm21Click(Sender: TObject);

begin

Form2.Show;

Form1.Hide;

end;

end.

Logika Program :

Pada pertemuan kedua praktikum TI ini kita akan mempelajari tentang Menu dan Timer pada Delphi. Berikut adalah looogika program susunan pembuatan  menu dan timer pada Delphi:

1. Buka Borland Delphi dan buat aplikasi baru. 

2. Pada Form1 masukan komponen berikut dari component pallete :
- Label
- Menu
- Timer (terletak pada tab System)

3. Kemudian pada klik ganda pada Timer dan masukan koding listing program berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Left = -240 then Label1.Left:=465;
Label1.Left:= Label1.Left -1;
end;

4. Masukan kode pada menu Exit:

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate ;
end;


5. Tambahkan komponen pada Form2 yaitu terdiri dari:

- Label
- Timer (terletak pada tab System)


6. Pada Timer di Form2 masukan kode listing program seperti berikut:


procedure TForm2.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=formatdatetime('"Tanggal : "dd/mm/yyyy',now)+chr(13)+formatdatetimE
('"Pukul : "hh:nn:ss',now);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Show;
end;

Hal ini bertujuan untuk memasukkan format date yang terdiri dari dd/mm/yyyy dan
format time yang terdiri hh:nn:ss

7. Kembali ke Form1 dan klik pada menu Tampilkan Form2 kemudian masukan kode:

procedure TForm1.ampilkanForm21Click(Sender: TObject);
begin
Form2.Show;
Form1.Hide;
end;

8. kemudian Run/ Jalankan program dengan menekan F9.

Tampilan Output Program: