Sambil menghilangkan kejenuhan (mudah2an cuma sementara) belajar coding dengan PHP, HTML dan CSS, pada kesempatan kali ini saya mencoba mempelajari desktop programming menggunakan Aplikasi Lazarus, Lho, ko Lazarus ya ?, bagi Anda yang biasa dengan Aplikasi Visual basic, Visual Foxpro dan Borland Delphi mungkin sedikit asing di telinga Anda. Bagi Anda pengguna Delphi mungkin akan tidak asing bila Anda mencoba aplikasi pemrograman yang satu ini.

Tapi karena digunakan untuk pembelajaran di kelas nantinya, saya mulai dengan aplikasi-aplikasi sederhana. Sengaja saya tulis di web/blog ini untuk mengingat setiap materi yang sudah saya pelajari secara step by step. Oke .. kita mulai ya

Langkah 1 - Desain tampilan Form sebagai berikut :

Terdapat beberapa komponen yang saya letakkan secara berurutan, Label1 - Label3Edit1 - Edit3, Timer1 dan Button1, dan Anda dapat mengetikkan Kode Program seperti di bawah ini :

unit Ulatihan01;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1;
  awal, akhir : tDateTime;
  Lama : real;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  If Button1.Caption='START' then
  Begin
     Awal:=Time;
     Edit1.Text:=TimeToStr(Time);
     Button1.Caption:='STOP';
  end
  else if Button1.Caption='STOP' Then
       Button1.Caption:='SELESAI'
  else
       Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Slama : string;
begin
   If Button1.Caption='STOP' Then
   Begin
        Akhir:=Time;
        Edit2.Text:=TimeToStr(Akhir);
        Lama :=(Akhir-Awal)*100000;
        Str(Lama:12:2,Slama);
        Edit3.Text:=Slama;
   end;
end;

end.

Berikut adalah tampilan Form setelah dijalankan, Klik Tombol START untuk memulai perhitungan waktu, dan STOP untuk mengakhirinya.

Semoga bermanfaat ..

Comments (0)

Subscribe to this comment's feed

Write comment

Email Name Website		Title Comment smaller | bigger
		Subscribe via email (registered users only) Write the displayed characters Add Comment