Cara Cepat Menaikkan Pagerank Google dan terindeks di Google

Bagi anda yang mempunya blog dan ingin cepat mendapatkan pagerank berikut tips Cara cepat update PageRank google yaitu dengan cara penyebaran link menggunakan sistem Multi Level Marketing?


Untuk tips kali ini saya mau mencoba mengajak anda semua untuk memanfaatkan kedahsyatan faktor kali dan kecepatan penyebaran ini dalam bentuk backlink.


Caranya gampang kok, Yang perlu kamu lakukan adalah meletakkan link-link berikut ini di blog atau artikel kamu


1. Artikel Komputer
2. Traffic Search Engine
3. Uang Tabungan
4. wordpress
5. fansclubartis
6. SEO Tutorial
7. blog dofollow
8. ilmu belajar komputer
9. download pc media terbaru
10. Berita artis indonesia


Cara Kerja, sebelum kamu meletakkan link kamu diatas,

* Kamu harus menghapus peserta nomor 10 dari daftar.
* Sehingga semua peserta naik 1 level.
* Yang tadi nomor 1 jadi nomor 2, nomor 2 jadi 3, dst.
* Kemudian masukkan link kamu sendiri di bagian paling atas (nomor 1).


Jika tiap peserta mampu mengajak 5 orang saja, maka jumlah backlink yang akan didapat adalah


Ketika posisi kamu 1, jumlah backlink = 1
Posisi 2, jml backlink = 5
Posisi 3, jml backlink = 25
Posisi 4, jml backlink = 125
Posisi 5, jml backlink = 625
Posisi 6, jml backlink = 3,125
Posisi 7, jml backlink = 15,625
Posisi 8, jml backlink = 78,125
Posisi 9, jml backlink = 390,625
Posisi 10, jml backlink = 1,953,125

Nah, silahkan copy paste artikel ini, dan hilangkan peserta nomor 10 lalu tambahkan link blog/website kamu di posisi 1. Ingat, kamu harus mulai dari posisi 1 agar hasilnya maksimal. Karena jika kamu tiba2 di posisi 2, maka link kamu akan hilang begitu ada yang masuk ke posisi 10.

Selamat mencoba :

dan Lihat sekarang Pagarenk google saya sudah naik Jadi 3,

Lumayan ampuuuuh juga nieh.......

READ MORE - Cara Cepat Menaikkan Pagerank Google dan terindeks di Google

Menampilkan CheckBox di DBGrid

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DBGrid1CellClick(Column: TColumn);
procedure DBGrid1ColEnter(Sender: TObject);
procedure DBGrid1ColExit(Sender: TObject);
procedure SaveBoolean;
private
{ Private declarations }
FOriginalOptions : TDBGridOptions;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}

procedure TForm1.SaveBoolean;
begin
DBGrid1.SelectedField.Dataset.Edit;
DBGrid1.SelectedField.AsBoolean := not Self.DBGrid1.SelectedField.AsBoolean;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
Const
CtrlState : array[Boolean] of Integer = (DFCS_BUTTONCHECK,
DFCS_BUTTONCHECK or DFCS_CHECKED);
var
CheckBoxRectangle : TRect;
begin
if Column.Field.DataType = ftBoolean then
begin
DBGrid1.Canvas.FillRect(Rect);
CheckBoxRectangle.Left := Rect.Left + 2;
CheckBoxRectangle.Right := Rect.Right – 2;
CheckBoxRectangle.Top := Rect.Top + 2;
CheckBoxRectangle.Bottom := Rect.Bottom – 2;
DrawFrameControl(DBGrid1.Canvas.Handle,
CheckBoxRectangle,
DFC_BUTTON,
CtrlState[Column.Field.AsBoolean]);
end;
end;

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if DBGrid1.SelectedField.DataType = ftBoolean then
begin
Self.FOriginalOptions := DBGrid1.Options;
DBGrid1.Options := DBGrid1.Options – [dgEditing];
end;
end;

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
if DBGrid1.SelectedField.DataType = ftBoolean then
DBGrid1.Options := Self.FOriginalOptions;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if DBGrid1.SelectedField.DataType = ftBoolean then
SaveBoolean();
end;

Jika artikel ini berguna, kamu bisa me-link ke postingan ini/berlangganan dengan blog kami/ menyebutkan kami di postingan Anda/mem-bookmark blog ini. Terima kasih atas dukungan Anda!

READ MORE - Menampilkan CheckBox di DBGrid

Cara Install Quick Report versi 4.0 di Delphi 7

Sebelum meng-install pastikan Quick Report versi sebelumnya sudah hilang dari delphi. Caranya, pilih menu Components-Install Packages, pilih item yang berhubungan dengan quick report (ada dua item, Quick Report Components dan TreeChart for Quick Report) lalu tekan tombol Remove.

Jangan lupa untuk menghapus file quickreprot *.bpl yang ada di windows/system(32), termasuk yang ada di folder Program Files/Borland/Delphi7/Projects/bpl.

Install file setup-nya, otomatis di folder Program Files/Borland/Delphi7 akan muncul folder dengan nama quickrpt, jalankan file package yang ada di folder tersebut.

READ MORE - Cara Install Quick Report versi 4.0 di Delphi 7

List Of Delphi Keyboard Shortcut

Shortcut Delphi
Code Parameters : Ctrl-Shift-Space
Code Completion : Ctrl-Space
Code Templates : Ctrl-J

Shortcut Class Completion
Class Completion : Ctrl-Shift-C
Class Nav Up : Ctrl-Shift-Up
Class Nav Down : Ctrl-Shift-Down

Shortcut Code Browsing (D6 and above)
Symbol Browsing : Alt-Up
Browse Forward : Alt-Right
Browse Backward : Alt-Left

Shortcut Message Window
Previous Message : Alt-F7
Next Message : Alt-F8

Shortcut IDE Windows
Code Explorer : Ctrl-Shift-E
Project Manager : Ctrl-Alt-F11
Window List : Alt-0 (zero)
Object Inspector : F11

Shortcut Debugger Windows
Event Log : Ctrl-Alt-V
Breakpoints : Ctrl-Alt-B
Watches : Ctrl-Alt-V
Threads : Ctrl-Alt-T

Shortcut TODO List Window
Add TODO Item : Ctrl-Shift-T

Shortcut Editing
Blocking Mode : Ctrl+O-L (line) Ctrl+O-C (column)

Shortcut Debugging
Trace Into : F7
Step Over : F8
Trace to next source line : Shift-F7
Run to Cursor : F4
Run until return : Shift-F8
Program Reset : Ctrl-F2
Evaluate/Modify : Ctrl-F7
Add Watch : Ctrl-F5
Toggle Breakpoint : F5

Shortcut Compiling
Compile Project : F5
Build : Ctrl-F5
Syntax Check : F5
Project Options : Ctrl-Shift-F11

READ MORE - List Of Delphi Keyboard Shortcut