LA : TIMER DELPHI

Dapat didownload di : https://www.dropbox.com/s/o6m4qb7yls62lhu/3%20LAPORAN%20AKHIR%20Timer%20Delphi.docx?dl=0

LISTING CODE

unit 1;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, Menus;

type

TForm1 = class(TForm); Label1: TLabel; MainMenu1: TMainMenu; Timer1: TTimer; Timer2: TTimer; Button1: TButton; Label2: TLabel;  WARNA1: TMenuItem; FORM1: TMenuItem; FORM2: TMenuItem; EXIT2: TMenuItem; BIRU1: TMenuItem; HIJAU1: TMenuItem; KUNING1: TMenuItem; HITAM1: TMenuItem; FORM11: TMenuItem; FORM21: TMenuItem;

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure FORM1Click(Sender: TObject);

    procedure BIRU1Click(Sender: TObject);

    procedure HIJAU1Click(Sender: TObject);

    procedure KUNING1Click(Sender: TObject);

    procedure HITAM1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure EXIT2Click(Sender: TObject);

    procedure FORM11Click(Sender: TObject);

    procedure FORM21Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Visible then Label1.Visible := False else Label1.Visible := True; 
end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

  if Label2.Left = -240 then Label2.Left:=465; Label2.Left:= Label2.Left -8;

end;

procedure TForm1.FORM1Click(Sender: TObject);

begin

Label1.Color := clred;

end;

procedure TForm1.BIRU1Click(Sender: TObject);

begin

Label1.Color := clblue;

end;

procedure TForm1.HIJAU1Click(Sender: TObject);

begin

 Label1.Color := clgreen;

end;

procedure TForm1.KUNING1Click(Sender: TObject);

begin

  Label1.Color := clyellow;

end;

procedure TForm1.HITAM1Click(Sender: TObject);

begin

Label1.Color := clblack;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.EXIT2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.FORM11Click(Sender: TObject);

begin

form1.hide;

end;

procedure TForm1.FORM21Click(Sender: TObject);

begin

form2.show;

end;

end.

LOGIKA

Bukalah Delphi 7 , program kali ini menggunakan 2 label,  yaitu label1: PROGRAM TIMER 1IA07 dan label2:SELAMAT DATANG DI 1IA07, 2 timer yaitu : timer1 untuk label1 dan timer2 untuk label2, 1 main menu yaitu : yang terdiri dari menu : menu WARNA dengan sub menu MERAH, BIRU, HIJAU, KUNING dan HITAM,  menu FORM dengan sub menu FORM1 dan FORM2, dan menu EXIT. Isi koding pada timer1 akan memunculkan dan menghilangkan text pada label1 sehingga seolah text akan berkelap kelip. Isi koding pada timer2 akan menggeser text pada label2 sehingga seolah text bergerak jalan. Menu pada main menu yaitu WARNA berisi kodingan untuk mengganti warna pada text1. Sedangkan menu pada main menu yaitu FORM dengan sub menu FORM1 untuk menyembunyikan form1 dan sub menu FORM2 untuk menampilkan form2. Menu pada main menu yaitu EXIT dan button EXIT berfungsi untuk keluar dari program.