Cara Menigkatkan Trafik Dan Pagerank Dengan Jutaan Pengunjung Gratis !!

 Mungkin sebagian besar Blogger sudah tau apa manfaat dari backlink, ini adalah salah satu Optimasi SEO offpage. Semakin banyak BackLink ke web atau Blog kamu maka akan semakin baik pulalah web kamu dimata GOOGLE. Ujung-ujungnya, web mu akan dibanjiri pengunjung karena keywordmu berada dihalaman pertama Google ( jika kamu bisa memilih Keyword yang bagus). Selain itu, tentunya PAGERANK dari blogmu juga pastinya akan naik.

Mau tahu Cara cepat update PageRank di Google? Makanya jangan pernah menganggap remeh penyebaran produk dengan pemasaran sistem Multi Level Marketing? Dan dalam postingan kali ini saya mau mencoba mengajak kamu 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. Computer Trend
2. Moel’s Blog
3. Mengembalikan Jati Diri Bangsa
4. Translate
5. belajar seo
6. Everton Communtiy
7. Catatan Everton
8. ZonaProfit
9. BAGOLLUM
10. BelajarInTek

Tapi ingat, sebelum kamu meletakkan link diatas, kamu harus menghapus peserta nomor 1 dari daftar. Sehingga semua peserta naik 1 level. Yang tadi nomor 2 jadi nomor 1, nomor 3 jadi 2, dst. Kemudian masukkan link kamu sendiri di bagian paling bawah (nomor 10).
(Ulangi lagi bacanya jika kamu belum mengerti)


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


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


Dan semuanya menggunakan kata kunci yang kamu inginkan. Dari sisi SEO kamu sudah mendapatkan 1,953,125 backlink dan efek sampingnya jika pengunjung web para downline kamu mengklik link itu, juga membuat blog kamu mendapatkan traffik tambahan.


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


PS: Jika kamu curang, maka orang lainpun akan berbuat curang. Dan kita tidak akan dapat backlik apa-apa. Jadi, kita berpikir positif dan sederhana saja.


Jangan Cuma dibaca. Cepat COPAS, dan LET’S DO IT
GET 1.000.000 FREE BACKLINK GO… GO… GO… !!!!


Perhatian, untuk menjaga sportifitas dan tidak merugikan orang lain, tolong lakukan sesuai persedur. Ajak teman-temanmu sebanyak banyaknya untuk membuat Backlink ini.
Salam BackLINK dan tetap damai…

Konversi Delphi

siph".... haha setelah lama vacum untuk nge-blog, sekarang ane mau ngeshare tentang delphi. yuk mari simak :D


Dalam delphi kita mengenal tentang pengkonversian. Pengkonversian ini di tujukan untuk mengubah suatu string(tampilan) menjadi tipe datannya masing".... misalkan untuk mengkonversi string menjadi integer maka syntax-nya "StrToInt(.....)". Nah misalkan agan" bertanya "kenapa kita harus mengkonversikan ?", pertanyaan bagus(weleh" kyak ibu guru ane, hehe). Itu di karenakan Semua yg tampil, yg ada atau yg kita lihat di form itu semua bersifat string

jadi kita tidak bisa melakukan proses aritmatika. nih ane share beberapa syntax pengkonversia, sebagai berikut :D....

Type data	Konversi Program	Konversi Kelayer
Integer	StrToInt	IntToStr
Date	StrToDate	DateToStr
Time	StrToTime	TimeToStr
Real	StrToFloat	FloatToStr
Currency	StrToCurr	CurrToStr

nah tuh lumayan banyak kan.... tapi itu di balik" aja kok hehe....
Dalam pengkonversian tersebut juga berkaitan dengan variabel. nih syntax untuk ngasih variabel.
var  namavar1, namavar2 : Type_data1 ;
     namavar3,namavar4  : Type_data2 ;


nih ane beri contoh deh gan ;D
pertama sediain dulu 3 EditBox, 1 Button dan 2 Label atur seperti gambar dibawah

setelah itu ganti namanya beserta captionnya. untuk menggantinya, klik object lalu pada tabel properties ganti "name" dan "caption"nya

lalu ubah object"nya sebagai berikut :D

Object	Properties
Edit1	Name	EdData1
	Text	0
Label1	Caption	+
Edit2	Name	EdData2
	Text	0
Button1	Name	BtResult
	Caption	Result
Label2	Caption	Hasil
Edit3	Name	EdHasil
	Text	0

setelah agan ganti, klik dua kali(double click) pada button result

ket:
1 -> itu adalah pendeklarasian variabel yg akan kita gunakan dalam proses program. peletakannya memang disana(diantara procedur dan begin). kalo agan naruhnya di dalam begin, gag mau jalan gan :D
2 -> itu adalah pengkonversi string menjadi integer, karena kita akan melakukan proses aritmatika
3 -> itu adalah proses aritmatikanya
4 -> itu adalah menampilkan kembali ke layer hasil dari proses aritmatika tadi
nah begitu deh gan.... coba" aja, nanti pasti bisa kok....
kalo agan bisa yg diatas, coba buat program sederhana berikut gan, nih Downloadnya :D


udah dulu ya gan mpe disini dulu. nannti pada sesion berikutnya ane share yg laen.... :D
salam blogger agan" :)


"Selalu bekerja keras, meskipu kita gagal belumtentu kita berakhir. Mari kita berdiri lagi dan belajar dari kegagalan kita tersebut untuk mencapai ke Suksesan kita"

Struktur perulangan For dalam pascal

seperti pada judul diatas kita akan mengulas tentang struktur perulangan for dalam pascal sampai habis :D
perulangan ini digunakan untuk mempersingkat perintah yg diulang-ulang, benerkan? daripada ngetik script panjang-panjang lebih baik pakai perulangan kan? :D
sok tancap gan:

for Variable:= integer to integer do
 begin
  statement_yang_mau_diulang;
 end;

yap, diatas tadi syntax-nya
nah ini contoh kasusnya

uses wincrt;
var
 js,per:integer;
 nm,kls:string;
begin
 write('Jumlah Siswa   : ');readln(js);
 for per:=1 to js do
  begin
   write('Nama           : ');readln(nm);
   write('Kelas          : ');readln(kls);
  end;
end.

siiip......
segitu aja ya?, ane takutnya kalo ane nulis artikel panjang" nanti agan" bosen....:D
jadi ane langsung ke "point utamanya" OK ;D
sip-sip kalo mao liat contoh perulangan bertingkat atau nested for langsung aja gan kepostingan sebelah :)

wassalam......
Selalu Berusaha untuk menjalani KeSuksesan kita.

Struktur Nested For dalam Pascal

oke.....Assalamualaikum Gan? nested for tau gan? kalo belum tau liat di postingan yang ini neh gan "If Bertingkat dalam Pascal" , kalo gag mao kesana sininih ane kasih tau tapi singkat...

Nested for itu perulangan for yang didalam for tersebut ada for lagi, ya keliatannya seperti anaknya gitu hehe:D
kalo kurang jelas langsung aja nih Syntax-nya cekidot:

for variable:=integer to integer do
 begin
  for variable:=integer to integer do
   begin
    statement_yang_mau_diulang;
   end;
 end;

kalo masih bingung??? langsung aja nih gan liat contohnya

uses wincrt;
var
 jk,js:integer;

  nm,kls:string;
begin
 write('Jumlah kelas    : );readln(jk);
 for jk:=1 to jk do
  begin
   write('Jumlah Siswa    : ');readln(js);
   writeln('Kelas ke',jk);
   for js:=1 to js do
    begin
     write('Nama            : ');readln(nm);
     write('Kelas           : ');readln(kls);
    end;
  end;
end.

oke mungkin itu cukup jelas ya gan?  hehe, maklum ane masih nubi gan...
ane tutup sampai disini kalo ada kata yang salah mohon di maapin ya gan, kalo perlu kasih komentarnya gan... :D

If Bertingkat dalam Pascal

nah jumpa lagi nih.... hehe...
sesuai janji saya pada postingan sebelumnya "Struktur IF dalam Pascal"  saya akan kasih sesuatu neh gan... :D
pada postingan ini saya akan kasih syntax dan contoh if bertingkat ato sering dikenal dengan NESTED IF.
yaudah ni syntaxnya gan.... monggo disimak :D


if kondisi then
 begin
  if kondisi then
   begin
    statement_benar;
   end
  else
   begin
    Statement_salah;
   end;
 end
else
 begin
  statement_salah;
 end;


nah ini scriptnya nih gan....
monggo coba di TPW-nya... :)



uses wincrt;
var
 j:string;
 n1,n2,n3:integer;
 rata:real;
begin
 Write('Jenis Ulangan   : ');readln(j);
 write('Nilai1          : ');readln(n1);
 write('Nilai2          : ');readln(n2);
 write('Nilai3          : ');readln(n3);
 writeln;
 rata:=(n1+n2+n3)/3;
 if (j='P') or (j='p') then
  begin
   if rata>=70 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Produktif dengan nilai ',rata:0:2);
    end
   else
    begin
     writeln('Anda dinyatakan GAGAL pada bidang Produktif dengan nilai ',rata:0:2);
    end;
  end
 else if (j='A') or (j='a') then
  begin
   if rata>=74 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Adaptif dengan nilai ',rata:0:2);
    end
   else
    begin
     writeln('Anda dinyatakan GAGAL pada bidang Adaptif dengan nilai ',rata:0:2);
    end;
  end
 else
  begin
   if rata>=68 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Normatif dengan nilai ',rata:0:2);
    end
  else
   begin
    writeln('Anda dinyatakan GAGAL pada bidang Normatif dengan nilai ',rata:0:2);
   end;
  end;
end. 


segitu dulu ya :D
nanti ane posting yg laen ok ;D
"Selalu Belajar untuk keSUKSESan"