Tips optimalisasi blog

Tips cara membuat website gratis bisa menghasilkan uang:
1. Jika anda pemula daftarlah ke kumpulblogger dulu. Setelah pengunjung website anda banyak baru ikutan kliksaya.
2. Jangan hanya terpaku pada penghasilan dollar. PPC indonesia pun sanggup memberikan penghasilan tambahan lewat website anda. Pada saat ini pun saya selain ikutan google adsense saya juga ikutan kumpulblogger dan kliksaya, dan hasilnya perbulan lumayan karena hampir menyamai gaji saya satu bulan. Bahkan para senior saya ada yang bisa menghasilkan antara 6 - 8 juta perbulan dari website memalui kliksaya dan kumpulblogger.
3. Jika anda mau penghasilan dollar dari website /blog anda, sebaiknya anda coba baca blog tentang review program affliasi seperti di Xprove.blogspot.com
4. Gunakan website saja. Alasan saya karena blog agak sulit untuk di optimisasi di search engine agar bisa menang. Contohnya blog ini yang memakan waktu hampir satu tahun baru bisa menang di google. Mengenai cara membuat website anda bisa menang di search engine seperti google saya akan bahas di lain kesempatan jika saya ada waktu untuk membuat posting baru di blog tentang cara membuat website ini.
5. Ok kalau anda tertarik buruan untuk membuat website/blog anda menghasilkan uang buruan ikutan.

Read more »

Program Njowo's Calender (Pascal)

Berikut salah satu program yang menurut saya cukup unik dan mempunyai nilai luhur tinggi, setelah di edit 1-2 3 kali nah jadi deh....meskipun belum sempurna dan masih ada yang belum dihapus beberapa fungsi g guna tapi setidaknya patut dihargai, lumayan bantu-bantu yang belajar pascal dan yang membutuhkannya..

Kalender Jawa

Berikut listing dari program pascal


Program Kalender_jawa ;
Uses Wincrt ;
var
tanggal : integer ;
tahun : integer ;
Hari, pil, i, hitweton, bulan, jumlahhari : integer ;
zodiak, nama : String ;
Haribulan : array[1..12] of integer ;
hit1, hit2, hit3, totalhari, j : integer ;


Procedure Entry ;
Begin ;
Writeln ;
Writeln('Masukkan Data anda ') ;
writeln ;
Write(' Nama --> '); readln(nama) ;
Write(' Tanggal --> '); readln(tanggal) ;
if (tanggal>31) or (tanggal=0) then
Entry;

Write(' Bulan --> '); readln(bulan) ;
case bulan of
1 : if tanggal>31 then
Entry ;
2 : if tanggal>29 then
Entry ;
3 : if tanggal>31 then
Entry ;
4 : if tanggal>30 then
Entry ;
5 : if tanggal>31 then
Entry ;
6 : if tanggal>31 then
Entry ;
7 : if tanggal>31 then
Entry ;
8 : if tanggal>31 then
Entry ;
9 : if tanggal>30 then
Entry ;
10 : if tanggal>31 then
Entry ;
11 : if tanggal>30 then
Entry ;
12 : if tanggal>31 then
Entry ;

else
Entry ;
End ;
Write(' Tahun --> '); readln(tahun) ;
Writeln;
Write('Anda yakin sudah benar..(1. Inggih, 2. Mboten) ? = ') ;
readln(pil) ;
case pil of
1 : readln;
2 : Entry ;
else entry ;
End;


Writeln;
End;
Procedure proses ;
Begin
hitweton := tanggal mod 5 ;

case hitweton of
1 : Writeln('Maka weton anda Legi') ;
2 : Writeln('Maka weton anda Paing') ;
3 : Writeln('Maka weton anda Pon') ;
4 : Writeln('Maka weton anda Wage') ;
Else
Writeln('Maka weton anda Kliwon') ;
End ;

if ((bulan=3) and (tanggal>=21)) or (bulan=4) then
writeln('Zodiak Aries')
else if ((bulan=4) and (tanggal>=20)) or (bulan=5) then
writeln('Zodiak Taurus')
else if ((bulan=5) and (tanggal>=21)) or (bulan=6) then
writeln('Zodiak Gemini')
else if ((bulan=6) and (tanggal>=21)) or (bulan=7) then
writeln('Zodiak Cancer')
else if ((bulan=7) and (tanggal>=24)) or (bulan=8) then
writeln('Zodiak Leo')
else if ((bulan=8) and (tanggal>=23)) or (bulan=9) then
writeln('Zodiak Virgo')
else if ((bulan=9) and (tanggal>=23)) or (bulan=10) then
writeln('Zodiak Libra')
else if ((bulan=10) and (tanggal>=23)) or (bulan=11) then
writeln('Zodiak Scorpio')
else if ((bulan=11) and (tanggal>=22)) or (bulan=12) then
writeln('Zodiak Sagitarius')
else if ((bulan=12) and (tanggal>=22)) or (bulan=1) then
writeln('Zodiak Capricon')
else if ((bulan=1) and (tanggal>=20)) or (bulan=2) then
writeln('Zodiak Aquarius')
else if ((bulan=2) and (tanggal>=19)) or (bulan=3) then
writeln('Zodiak Pisces') ;


Haribulan[1] := 31 ;
Haribulan[2] := 28 ;
Haribulan[3] := 31 ;
Haribulan[4] := 30 ;
Haribulan[5] := 31 ;
Haribulan[6] := 30 ;
Haribulan[7] := 31 ;
Haribulan[8] := 31 ;
Haribulan[9] := 30 ;
Haribulan[10] := 31 ;
Haribulan[11] := 30 ;
Haribulan[12] := 31 ;

hit1 :=(tahun-1900) div 4;

Case bulan of

1 : if tahun mod 4=0 then hit2:=0
else hit2:=1 ;
2 : if tahun mod 4=0 then hit2:=31
else hit2:=32 ;
3 : hit2:=60 ;
4 : hit2:=91 ;
5 : hit2:=121 ;
6 : hit2:=152 ;
7 : hit2:=182 ;
8 : hit2:=213 ;
9 : hit2:=244 ;
10 : hit2:=274 ;
11 : hit2:=305 ;
12 : hit2:=335 ;

End ;

hit3:=tahun-1900;

totalhari:= hit1 +hit2 + tanggal + hit3 ;
{Writeln(totalhari);}
Hari := totalhari mod 7 ;


case hari of
1 : Writeln('Minggu');
2 : Writeln('Senin');
3 : Writeln('Selasa');
4 : Writeln('Rabu') ;
5 : Writeln('Kamis') ;
6 : Writeln('Jumat') ;
else
Writeln('Sabtu')
End;

End ;

Procedure thank ;
Begin Clrscr ;
Writeln ;
Writeln('========Terima Kasih ',nama,'==========') ;
End ;
Procedure ulang ;
Begin
Entry ;
Writeln('=========================================') ;
Proses ;
Writeln('=========================================') ;
Write('Ingin mencoba lagi..(1. Inggih, 2. Mboten) ? = ') ;
readln(pil) ;
case pil of
1 : ulang;
2 : readln;
else Clrscr ;
End;
End;
Begin
Writeln('=========================================') ;
Writeln('************NJOWO"S CALENDER*************') ;
Writeln('=========================================') ;
ulang ;
Writeln;
Writeln;
Writeln;
Writeln(' Credit by ->Fadhli R/98987');
Writeln;

Thank ;

End.

Read more »

Program deret Fibonacci Sederhana Bahasa Pemograman Pascal

Berikut Source Code Fibonacci dengan bahasa Pascal :

Program UTS_algo ;
Uses Wincrt ;
Const
n = 20 ;

Deret : array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,
15,16,17,18,19,20) ;
Var

i, x : integer ;

Begin Clrscr ;
Write('Deret fibonaci dengan n= : ');
Readln(x) ;
Writeln;

Deret[1]:= 1 ;
Deret[2]:= 1 ;

For i:=3 to x do
Begin
Deret[i]:= deret[i-1]+deret[i-2] ;

end ;

Writeln('Maka deret fibonaci anda: ') ;
For i:=1 to (x-1) Do


Begin
Write(Deret[i],', ') ;
End ;
Write(Deret[x]) ;

End.

Kalau ada yang ingin memberikan saran silahkan kontak

Read more »

Tips-tip Meningkatkan Kinerja Pada Window 7 Ultimate

Windows 7
Berikut cara-cara mengoptimalkan kinerja dari windows 7

Menambah Virtual Memory. Secara default, Windows mengalokasikan ruang kosong di harddisk sesuai dengan batas minimum. Namun Anda bisa melakukan setting secara manual untuk menambah besar memory pada komputer Anda. Virtual Memory ini digunakan Windows secara otomatis jika RAM sudah bekerja mencapai batas maksimalnya. Virtual Memory yang dimaksud disini adalah memory internal tambahan yang diambil dari ruang space harddisk. Jadi Anda tidak perlu menggunakan alat tambahan lain selain komputer sendiri, menarik bukan?

• Klik kanan pada icon “My Computer” (defaultnya), kemudian pilih “Properties”.
• Kemudian Anda akan dibawa pada jendela Informasi Dasar. Klik pada pilihan “Advanced System Settings”.
• Pada tab Advanced System Settings, klik pada “Performance > Settings”, akan muncul tabel Virtual Memory. Klik pada “Change”.
• Hilangkan tanda centang pada “Automatically manage paging file size for all drivers”. Kemudian Anda pilih “Custom Size” dan berikan angka (1000 pada Initial Size) dan angka (2000 pada Maximum Size), kemudian klik tombol “Set”.
• Restart Komputer Anda untuk mendapatkan efek dari perubahan setting tersebut.

Nonaktifkan fitur UAC (User Account Control). UAC adalah security feature default yang ada pada Windows 7 seperti Windows Vista. Fitur ini akan muncul setiap Anda mengakses suatu file atau aplikasi yang tidak dikenali ataupun baru. Cukup berguna namun beberapa memang merasa terganggu, jika Anda merasa terganggu, matikan saja.

• Anda bisa masuk fitur “Search” melalui menu Start > Klik Kanan > Search ataupun melalui tombol “Windows + R” (Run Menu). Keduanya memiliki tujuan yang sama. Ketikkan “msconfig” dan Enter.
• Pilih tab “Tools”, cari tulisan “Change UAC Settings”, kemudian klik tombol “Launch”.
• Kemudian tinggal drag & drop slice bar pada “Never Notify”. Restart komputer Anda untuk mendapatkan efeknya.

Merubah waktu Menu Show Delay. Defaultnya Windows 7 memiliki waktu loading pada Start Menu adalah 400 MiliSecond. Anda bisa merubah angka ini menjadi lebih kecil atau bahkan sesuka Anda agar loading lebih cepat.

• Masuk pada Run Menu (Windows + R) atau fitur Start > Search. Ketikkan “regedit” lalu Enter.
• Masuk pada directory Computer\HKEY_CURRENT_USER\Control Panel\Desktop. Kemudian cari key bertulikan “MenuShowDelay”. Atau (CTRL + F) kemudian ketikkan “MenuShowDelay” juga bisa agar lebih cepat.
• Klik 2x pada key tersebut, ubah nilainya menjadi 1 atau 0. Kemudian OK.
• Restart Komputer Anda untuk mendapatkan efek dari perubahan Key Registry tersebut.

Matikan Fitur PC Tablet Component. Windows 7 default menyediakan fitur PC Tablet Component. PC Tablet Component itu sendiri adalah fitur Touch Screen selain pada Keyboard atau Mouse. Jadi bila komputer Anda tidak memiliki fitur tersebut, lebih baik dimatikan saja.

• Masuk pada Control Panel Windows Anda, bisa melalui Run Menu atau Start Menu.
• Kemudian pilih menu “Programs”.
• Kemudian pada menu Programs and Features, klik pada tulisan “Turn Windows features on or off”.
• Hilangkan tanda centang pada “Tablet PC Component” kemudian OK.
• Tunggu proses uninstall hingga selesai dan Restart komputer Anda untuk mendapatkan efeknya.

Matikan fitur Telephony Service. Telephony Service merupakan fitur yang berfungsi menghubungan komputer dengan hanphone. Sebagai contoh menggunakan HP sebagai modem untuk komputer Anda, dan berbagai aplikasi lainnya. Jika Anda tidak pernah menghubungkan antara PC dengan HP, lebih baik fitur ini dimatikan saja.

• Seperti biasa, masuk pada Start Menu > Search, atau menggunakan Run Menu. Kemudian ketikkan “services.msc” dan Enter.
• Pada jendela sebelah kanan, cari tulisan “Telephony”.
• Disana terdapat table Startup Type dengan tiga pilihan (Manual, Disable, Automatic). Jika Anda ingin mematikan fitur ini, pilih pada “Disable”, atau Anda bisa sesuaikan dengan kebutuhan. Kemudian Apply dan OK.

Matikan fitur Fax Services. Seperti namanya, fitur ini berguna menghubungkan komputer Anda dengan mesin Fax atau aplikasi Fax di komputer itu sendiri. Jika tidak pernah menghubungkan Fax dengan komputer, lebih baik dimatikan saja.

• Caranya masih sama seperti diatas, ketikkan “services.msc” pada kotak Search, kemudian Enter.
• Pilih pada tulisan “Fax”, pada bagian Startup Type, pilih “Disabled”.
• Kemudian Apply dan OK, Restart komputer Anda.

Matikan fitur AutoPlay/AutoRun. Fitur default Windows yang berfungsi menjalankan atau membuka program dari Media External secara otomatis. Fitur ini memiliki kelemahan yaitu memudahkan virus masuk dan memakan resource memory secara tidak diminta. Sangat disarankan untuk mematikan fitur ini disetiap komputer OS Windows.

• Masuk menu Control Panel > Hardware and Sound.
• Kemudian pilih “AutoPlay”, hilangkan tanda centang pada “Use AutoPlay for All Media Devices”.
• Save dan Restart komputer Anda.

Disable Automatic Updates. Fitur ini sebenarnya berguna untuk Windows 7 versi Original saja. Jika Anda menggunakan Windows yang tidak original lebih baik dimatikan saja daripada cracknya kena Banned dari pihak Microsoft atau komputer Anda sedang tidak terhubung dengan Internet.

• Masuk pada Control Panel > System and Security.
• Kemudian pilih pada Windows Update. Pilih pada “Never Check for Updates (Not Recommended)”.
• Kemudian hilangkan tanda centang pada “Give me recommended updates the same way…” dan “I allow all user…”.
• Ok dan Restart komputer Anda.

Rasakan perbedaannya setelah Anda melakukan tips optimasi diatas dengan sebelum melakukan optimasi. Pasti Anda akan merasakan perbedaan kinerja Windows 7 yang cukup signifikan.

Read more »