Tuesday, June 12, 2012

Timer pada Delphi


LOGIKA PROGRAM (FORM 1)
unit Timer;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Merah1: TMenuItem;
    Kuning1: TMenuItem;
    Biru1: TMenuItem;
    Hitam1: TMenuItem;
    Menu1: TMenuItem;
    Form21: TMenuItem;
    Exit1: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Hijau1: TMenuItem;
procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Merah1Click(Sender: TObject);
    procedure Kuning1Click(Sender: TObject);
    procedure Biru1Click(Sender: TObject);
    procedure Hijau1Click(Sender: TObject);
procedure Hitam1Click(Sender: TObject);
    procedure Form21Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

uses Timer1;

{$R *.dfm}


Pertama-tama adalah membuat desain, langkah ini sangat mudah dilakukan, yaitu dengan cara mengarahkan mouse pada Button atau component yang diinginkkan. Pada program ini saya membuat 2 Label, 1 Main Menu, dan 2 Timer. Setelah mendesain dengan componet tersebut, maka otomatis delphi mengkoding seperti code diatas. Code diatas adalah 2 Label, 1 Main Menu, dan 2 Timer. Kemudian, ini adalah bagian terpenting yaitu, merubah nama masing - masing component tersebut. Pada program ini saya merubah :

Label1 = Selamat Datang di Program Nilai

Label2 = Created by :@yudo_rahadya
Mainmenu1 = Klik 2x pada icon mainmenu  yang ada didalam form1, maka akan muncul seperti ini.


Kemudian, klik kanan à Insert , dan buat seperti yang ada pada gambar dibawah ini.


Setelah itu close Form1.MainMenu1, maka akan muncul seperti ini :


procedure TForm1.Timer1Timer(Sender: TObject);
begin
IF label1.Visible then label1.Visible := False
else Label1.Visible := True;
end;
 
Langkah Ketiga bagaimana caranya Tulisan pada Label2 bergerak. Caranya adalah klik 2x


Dan ketik code dibawah ini :

procedure TForm1.Timer2Timer(Sender: TObject);
begin
IF label2.Left = -240 then label2.Left := 440
else label2.Left := label2.Left -2
end;
Langkah Keempat, mewarnai Tulisan pada Label1. Caranya adalah klik Menu Warna à pilih sub menu warna.


Untuk Warna Merah, klik 2x Merah dan isi kode berikut ini :
procedure TForm1.Merah1Click(Sender: TObject);
begin
label1.Color := clred;
end;
Untuk Warna Kuning, klik 2x Kuning dan isi kode berikut ini :
procedure TForm1.Kuning1Click(Sender: TObject);
begin
label1.Color := clyellow;
end;
Untuk Warna Biru, klik 2x Biru dan isi kode berikut ini :
procedure TForm1.Biru1Click(Sender: TObject);
begin
label1.Color := clblue;
end;
Untuk Warna Hijau, klik 2x Hijau dan isi kode berikut ini :
procedure TForm1.Hijau1Click(Sender: TObject);
begin
label1.Color := clgreen;
end;
Untuk Warna Hitam, klik 2x Hitam dan isi kode berikut ini :
procedure TForm1.Hitam1Click(Sender: TObject);
begin
label1.Color := clblack;
end;
Langkah Kelima, Bagaimana caranya pindah dari Form1 ke Form2.


Caranya klik 2x dibagian Form2, dan isi code dibawah ini :
procedure TForm1.Form21Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
Sebelum membuat menu pindah dari Form1 ke Form2, disarankan untuk membuat Form2 terlebih dahulu. Cara membuat Form2 adalah sebagai berikut :
Klik File à New à Form




LOGIKA PROGRAM (FORM 2)

unit Timer1;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Button3: TButton;
    MainMenu1: TMainMenu;
    Menu1: TMenuItem;
    Form11: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Form11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Timer;

{$R *.dfm}

Pertama-tama adalah membuat desain, langkah ini sangat mudah dilakukan, yaitu dengan cara mengarahkan mouse pada button atau component yang diinginkkan. Pada program ini saya membuat 2 label, 3 Button,1 Edit text,1 Main Menu, dan 1 Timer. Setelah mendesain dengan componet tersebut, maka otomatis delphi mengkoding seperti code diatas. Code diatas adalah 2 label, 3 Button,1 Edittext,1 Main Menu, dan 1 Timer. Kemudian, ini adalah bagian terpenting yaitu, merubah nama masing - masing component tersebut. Pada program ini saya merubah :

Label1 = Grade Nilai
Label2 = Masukkan Nilai Anda  :
Button1= Grade
Button2= Hapus
Button3= Keluar
Edit1= (Kosong)
Main.Menu1= Klik 2x pada icon mainmenu  yang ada didalam form1, maka akan muncul seperti ini.



Kemudian, klik kanan à Insert , dan buat seperti yang ada pada gambar dibawah ini.
Setelah itu close Form2.MainMenu1, maka akan muncul seperti ini :


Langkah Kedua, Klik Menu à Form1


Kemudian Klik 2x dan isi code dibawah ini
procedure TForm2.Form11Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
Langkah yang Ketiga bagaimana caranya Tulisan pada Label1 kedip – kedip .Caranya adalah
Klik 2x  







dan  ketik code dibawah ini :
procedure TForm2.Timer1Timer(Sender: TObject);
begin
IF label1.Visible then label1.Visible := False
else label1.Visible := True;

Langkah yang Keempat klik 2x pada Button 

,maka akan muncul form isian dan isi kode dibawah ini :
procedure TForm2.Button1Click(Sender: TObject);
var
nilai : integer;
begin
nilai := StrToInt (Edit1.Text);
IF (nilai < 30) then
Application.MessageBox('Grade E','Grade',0);
IF (nilai >= 30) And (nilai < 55) then
Application.MessageBox('Grade D','Grade',0);
IF (nilai >= 55) And (nilai < 70) then
Application.MessageBox('Grade C','Grade',0);
IF (nilai >= 70) And (nilai < 85) then
Application.MessageBox('Grade B','Grade',0);
IF (nilai >= 85) And (nilai <= 100) then
Application.MessageBox('Grade A','Grade',0);
IF (nilai > 100) then
Application.MessageBox('Input Anda Salah','Grade',0);

end;

Langkah yang Kelima, klik 2x pada Button






,maka akan muncul form isian dan isi kode dibawah ini :
procedure TForm2.Button2Click(Sender: TObject);
begin
Edit1.Text :=' ';
 end;


Langkah yang Keenam, klik 2x pada Button   



,maka akan muncul form isian dan isi kode dibawah ini :
procedure TForm2.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

OUTPUT
Output dari Form1







No comments:

Post a Comment

Related Posts Plugin for WordPress, Blogger...