Rumus Detik Di Delphi

Selamat siang agan-agan yang ada di depan komputer hehe...kali ini saya akan posting rumus detik di delphi sebelumnya jalankan program delphi anda dan ambil komponen label di pallet standart dan timer di pallet system susun seperti di bawah

setelah selesai mendesain seperti gambar double klik pada timer dan isikan rumus sebagai berikut :

i:=i+1;
label1.Caption:=inttostr(i);
if label1.caption='60' then begin
label1.caption:='0';
i:=0;
end;

keterangan :
(saat detik mencapai angka 60 maka detik akan mengulang dari 0 )


sekian postingan kali ini semoga bermanfaat

Read more »

Bermain Mouse Over

Hallo agan-agan yang budiman hehe nainan mouse over di delphi yuk ni aku punya sedikit rumusnya. tapi sebelumnya buka delphi anda dan sediakan 3 panel dari pallet standart terus masukkan rumus seperti di bawah yang aku kasih warna merah ya....eh ia semua rumus tersebut di tulis di bagian mouse over pada setiap panel dan form. 

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    Panel2: TPanel;

    Panel3: TPanel;

    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

panel1.Color:=clBlue;

panel1.Caption:='Biru';

panel2.Color:=clBtnFace;

panel3.Color:=clBtnFace;

end;

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

panel2.Color:=clRed;

panel2.Caption:='Merah';

panel1.Color:=clBtnFace;

panel3.Color:=clBtnFace;

end;

procedure TForm1.Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

panel3.Color:=clgreen;

panel3.Caption:='Hijau';

panel1.Color:=clBtnFace;

panel2.Color:=clBtnFace;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

panel1.Color:=clBtnFace;

panel2.Color:=clBtnFace;

panel3.Color:=clBtnFace;

panel1.Caption:='';

panel2.Caption:='';

panel3.Caption:='';

end;

end.

sekian semoga bermanfaat....semangat untuk menggali kemampuan anda.

Read more »

Ilmu Alakadarnya IV

Waduh lama ngak posting dan ngecek blog ternyata Alexa rank blog ku kembali ke 11 juta lebih waduh gawat nie banyak saingan yang baru(kita tau dan percaya setelah kita mengalaminya). . .maka untuk itu bagi para bloger jangan sekali kali mengabaikan blog anda dalam waktu yang cukup lama karena pertumbuhan blog baru maupun lama sangatlah cepat dan hal itu membuat saingan kita bertambah berat dan cara memdapat Alexa rank semakin berat. Ayo para bloger mania semangat untuk membuat blog semakin terkenal dan ber Alexa rank rendah dan kalau bisa mendapat google rank 9 hehe.

Read more »