Loading Dengan Delphi

Siang Agan agan kali ini saya akan memosting bagai mana cara membuat loading dengan delphi. Pertama anda harus menyiapkan 2 form dan komponen sebagai berikut (1 timer[ubah interval timer menjadi 100])(1 XPManifest1)dan (1 ProgressBar1) dan semua komponen tersebut di letakkan pada form1
setelah itu klik dua kali pada timer lalu masukan rumus sebagai berikut :


ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = 100 then
begin
timer1.enabled:=false;
form2.open;
end;

setelah itu coba jalankan apakan berhasil dan semoga hasilnya memuaskan. Selamat mencoba

Read more »

Cara mudah meningkatkan peringkat blog dengan google ping

Cara mudah meningkatkan alexa rang blog anda....dengan layanan google ping blog anda akan di daftarkan ke berbagai jaringan yang anda tidak tau ayo secepatnya anda me-googlepingkan blog anda dengan mendaftarkan blog anda di google ping.

Read more »

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 »

Smart Instal Maker Free Download

Halo sahabat Ilmu,,,bingung mau membuat instalan delphi khususnya....mudah kok kalian hanya perlu menjalankan smart instal maker dan isilah yang anda perlukan selesai dech,,,bagi yang belum punya masternya bisa download disini

Read more »

Rumus Koneksi Untuk Web

Siang gan kali ini saya akan sedikit posting tentang web,langsung saja gan yang mau praktekin scripnya sebagai berikut:

<?php
$server="localhost";
$user="root";
$pass="";
$db="perpus";
mysql_connect ($server,$user,$pass) or die ("maaf, koneksi gagal");
mysql_select_db($db) or die ("maaf,database tidak ditemukan");
?>

simpan dengan format ".php"

keterangan

untuk warna merah sesuaikan dengan server, username, password Sql anda

untuk warna hijau adalah databasenya

semoga bermanfaat

Read more »

Cara Memunculkan Komponen QuickReport Delphi7

Halo agan sekalian kali ini saya akan sedikit memberi tahu cara menambahkan Pallete QuickReport di delphi, langsung saja ikuti cara berikut;

• Klik menu Component
• Klik Install Packages…

muncul gambar seperti berikut :

• Klik tombol Add…

muncul gambar seperti berikut :

• Cari file dclqrt70.bpl pada direktori ….Program Files => Borland => Delphi7 => Bin kemudian klik Open

muncul gambar seperti berikut :

• QuickReport akan ditambahkan pada Design packages kemudian klik OK

selesai dech dan coba lihat di komponen pallet QReport sudah muncul dan sudah bisa digunakan, Semoga bermanfaat

Read more »