Pagerank merupakan ranking/nilai yang diberikan oleh Google terhadap sebuah halaman web (web page). Nilai yang diberikan berkisar antara 0-10. Semakin tinggi nilai Pagerank (PR) maka web page tersebut dianggap penting dan memiliki popularitas tinggi.

Apa manfaat mempunyai web page dengan PR tinggi ? Salah satunya adalah dapat menempatkan web page tersebut pada halaman utama SERP (Search Engine Result Page). Siapa yang tidak mau halaman web nya berada di halaman utama Google ?

Namun hal ini tidak berlaku mutlak, banyak juga web page dengan PR 0 atau n/a justru berada di posisi atas SERP, lebih unggul dari pada web page yg ber PR. Hal ini dapat dilakukan  dengan cara mengoptimasi SEO. Itulah alasan kita belajar SEO.

Manfaat lain yang didapatkan dengan mempunyai web page ber-PR antara lain sebagai bisnis online Paid Review dan jualan link. Inti dari bisnis ini adalah Anda “menjual” atau membagi popularitas web page Anda dengan web page lain. Dengan Anda membuat link menuju web X misalnya, maka web tersebut akan “ketularan” mendapatkan sebagian  popularitas dari Anda.

Oleh karena itu muncullah yang namanya “Tukeran Link”, yang tujuannya mempromosikan web supaya dikenal banyak orang. Semakin banyak link yang menuju web Anda, maka web Anda akan semakin terkenal, popularitas Anda akan meningkat, dan PR pun akan naik juga.

Berikut tabel perhitungan pagerank :

Bisa Anda lihat bahwa untuk mendapatkan PR2, Anda harus mempunyai minimal 101 backlink dari web page ber-PR 1, atau minimal 18 backlink dari web page ber-PR 2. Dapat juga dengan mempunyai minimal 3 backlink dari web ber-PR3.
Mudah kan ? Ternyata memang tidak segampang membalik telapak tangan. Mencari backlink dengan PR1 saja susah, apalagi PR3 ke atas, makin susah.. Disinilah Google menilai usaha Anda, menjalin hubungan baik dengan web/blog lain.

Dan yang lebih penting lagi, buat postingan yang natural, hasil karya sendiri, supaya Anda lebih dihargai. Jangan cuma posting dari hasil copas alias copy paste, Anda bisa diremehkan karena ketidakmampuan Anda.

Diinget 2 hal ini :

1. Posting hal-hal yang bermutu dan bermanfaat
2. Perbanyak backlink dengan cara blogwalking, saling silaturahmi/mengunjungi dan comment di blog lain (komentarnya yang bermutu juga, jangan cuma jd Spammer)

Happy blogging..

Awalnya sy ngeblog cm sekedar iseng saja, sekedar nulis, sharing informasi dan pengalaman, barangkali dapat bermanfat buat orang lain.

Setelah tau ternyata ngeblog jg bisa menghasilkan duit, akhirnya tertarik jg, trus cari tau gmn caranya bisa dapet duit dengan ngeblog.

Intisari yg sy dapet, untuk bisa dapet duit, harus ada pengunjung/visitor yang dateng baca informasi di blog, kalo sempet ya klik iklan, so kita yg punya blog dapet komisi . Itu doank. Tapi ternyata nyari visitor jg ga gampang, minimal punya banyak temen yang mau mampir berkunjung ke blog kita. Solusi yang lain adalah dengan teknik SEO (Search Engine Optimization).

Awalnya sih cuek bebek sm yg namanya belajar SEO. Tapi akhirnya jd ngerti kalo belajar SEO itu memang penting. Teknik SEO merupakan teknik untuk menempatkan halaman web pada posisi atas di Search Engine, bisa di Google, Yahoo, ato yg lainnya. Lebih sering disebut dengan SERP (Search Engine Result Page)

Sepertinya tidak mudah untuk belajar SEO, butuh ketekunan, kesabaran, strategi, dan juga konsisten. Padahal orang spt sy ini, tipe orang yang cepet bosan . Berhari-hari mulai explore internet nyari artikel tentang Belajar SEO, dari mulai baca ebook, forum, blog dsb.

Dari hasil explorasi Belajar SEO, dapet sy tarik bbrp kesimpulan, antara lain :
1. Untuk mendapatkan posisi atas di Search Engine, perlu ditentukan dulu keyword nya, kita mau berada di posisi atas untuk keyword apa?
2. Berikutnya menentukan keterkaitan antara keyword yang diinginkan dengan nama domain, ini berpengaruh cukup besar.
3. Menempatkan keyword pada Title (judul)
4. Menentukan keywords itu sendiri pada meta keywords
5. Mengkaitkan keyword-keyword pada content (isi)
6. Membuat sitemap
7. Buat posting yang natural, jangan main copas alias copy paste
8. Cari backlink yang banyak, terutama yang mengacu pada keyword

Yach, kira-kira segitu aja awal mula pembelajaran sy. Moga aja dapat bermanfaat.
Yuk..Belajar SEO..

thx to Tiyo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

cetak_kalimat MACRO Kalimat
	lea dx,Kalimat
	mov ah,09
	int 21h
endM
 
cetak_angka MACRO angka
	local ulang
	local cetak
	mov ax,angka
	mov bx, 10
	xor cx,cx
	ulang :
		xor dx,dx
		div bx
		push dx
		inc cx
		cmp ax,0		
		jne ulang
	cetak :
		pop dx
		add dl,'0'
		mov ah,02
		int 21h
	loop cetak
endM
 
.model small
.code
org 100h
 
tdata : jmp proses
 
	arr dw 8,11,8
	a dw ?
 
	teks1 db 13,10,'Nilai Elemen Array 1 = $'
	teks2 db 13,10,'Nilai Elemen Array 2 = $'
	teks3 db 13,10,'Nilai Elemen Array 3 = $'
	teks4 db 13,10,'Penjumlahan 1 + 2 = $'
	teks5 db 13,10,'Penjumlahan 2 + 3 = $'
	cmp1 db 13,10,'Penjumlahan 1 > Penjumlahan 2$'
	cmp2 db 13,10,'Penjumlahan 1 = Penjumlahan 2$'
	cmp3 db 13,10,'Penjumlahan 1 < Penjumlahan 2$'
 
proses :
 
	cetak_kalimat teks1
	cetak_angka arr
 
	cetak_kalimat teks2
	cetak_angka arr[2]
 
	cetak_kalimat teks3
	cetak_angka arr[4]
 
	cetak_kalimat teks4
	mov ax,arr
	add ax,arr[2]
	cetak_angka ax
 
	cetak_kalimat teks5
	mov ax,arr[2]
	add ax,arr[4]
	cetak_angka ax
 
	lea bx,arr 		
	mov ax,arr		
	add ax,[bx+2]
	mov a,ax
 
	mov dx,[bx+2]
	add dx,[bx+4]
	cmp dx,a
 
	JB Kecil		
	JE Sama			
	JA Besar
 
Kecil :
	cetak_kalimat cmp1
	jmp akhir	
 
Sama :
	cetak_kalimat cmp2
	jmp akhir
 
Besar :
	cetak_kalimat cmp3
	jmp akhir
 
akhir :
	int 20h
 
end tdata

Ternyata jumlah baris pada listing di atas menjadi lebih sedikit dibanding dengan penggunaan Prosedur.

Pemuda itu adalah Tsabit. Baru separuh yang digigitnya, kemudian ditelannya, tersentaklah dia. Apel itu bukan miliknya! Bagaimana mungkin dia memakan sesuatu yang bukan miliknya?
Akhirnya pemuda itu menahan separuh sisa apel itu dan pergi mencari penjaga kebun tersebut. Setelah bertemu, dia berkata: “Wahai hamba Allah, saya sudah menghabiskan separuh apel ini. Apakah engkau mau memaafkan saya?”

Penjaga itu menjawab: “Bagaimana saya bisa memaafkanmu, sementara saya bukan pemiliknya. Yang berhak memaafkanmu adalah pemilik kebun apel ini.”
“Di mana pemiliknya?” tanya Tsabit.
“Rumahnya jauh sekitar lima mil dari sini,” kata si penjaga.
Maka berangkatlah pemuda itu menemui pemilik kebun untuk meminta kerelaannya karena dia telah memakan apel milik tuan kebun tersebut.

Akhirnya pemuda itu tiba di depan pintu pemilik kebun. Setelah mengucapkan salam dan dijawab, Tsabit berkata dalam keadaan gelisah dan ketakutan: “Wahai hamba Allah, tahukah anda mengapa saya datang ke sini?”
“Tidak,” kata pemilik kebun.
“Saya datang untuk minta kerelaan anda terhadap separuh apel milik anda yang saya temukan dan saya makan. Inilah yang setengah lagi.”
“Saya tidak akan memaafkanmu, demi Allah. Kecuali kalau engkau menerima syaratku,” katanya.
Tsabit bertanya: “Apa syaratnya, wahai hamba Allah?”
Kata pemilik kebun itu: “Kamu harus menikahi putriku.”

Si pemuda tercengang seraya berkata: “Apa betul ini termasuk syarat? Anda memaafkan saya dan saya menikahi putri anda? Ini anugerah yang besar.”
Pemilik kebun itu melanjutkan: “Kalau kau terima, maka kamu saya maafkan.”
Akhirnya pemuda itu berkata: “Baiklah, saya terima.”
Si pemilik kebun berkata pula: “Supaya saya tidak dianggap menipumu, saya katakan bahwa putriku itu buta, tuli, bisu dan lumpuh tidak mampu berdiri.”

Pemuda itu sekali lagi terperanjat. Namun, apa boleh buat, separuh apel yang ditelannya, kemana akan dia cari gantinya kalau pemiliknya meminta ganti rugi atau menuntut di hadapan Hakim Yang Maha Adil?
“Kalau kau mau, datanglah sesudah ‘Isya agar bisa kau temui istrimu,” kata pemilik kebun tersebut.
Pemuda itu seolah-olah didorong ke tengah kancah pertempuran yang sengit. Dengan berat dia melangkah memasuki kamar istrinya dan memberi salam.
Sekali lagi pemuda itu kaget luar biasa. Tiba-tiba dia mendengar suara merdu yang menjawab salamnya. Seorang wanita berdiri menjabat tangannya. Pemuda itu masih heran kebingungan, kata mertuanya, putrinya adalah gadis buta, tuli, bisu dan lumpuh. Tetapi gadis ini? Siapa gerangan dia?

Akhirnya dia bertanya siapa gadis itu dan mengapa ayahnya mengatakan begitu rupa tentang putrinya.
Istrinya itu balik bertanya: “Apa yang dikatakan ayahku?”
Kata pemuda itu: “Ayahmu mengatakan kamu buta.”
“Demi Allah, dia tidak dusta. Sungguh, saya tidak pernah melihat kepada sesuatu yang dimurkai Allah Subhanahu wa Ta’ala.”
“Ayahmu mengatakan kamu bisu,” kata pemuda itu.
“Ayahku benar, demi Allah. Saya tidak pernah mengucapkan satu kalimat yang membuat Allah Subhanahu wa Ta’ala murka.”
“Dia katakan kamu tuli.”
“Ayah betul. Demi Allah, saya tidak pernah mendengar kecuali semua yang di dalamnya terdapat ridha Allah Subhanahu wa Ta’ala.”
“Dia katakan kamu lumpuh.”
“Ya. Karena saya tidak pernah melangkahkan kaki saya ini kecuali ke tempat yang diridhai Allah Subhanahu wa Ta’ala.”

Pemuda itu memandangi wajah calon istrinya, yang bagaikan purnama. Kemudian mereka dinikahkan dan tak lama dari pernikahan tersebut, lahirlah seorang hamba Allah Subhanahu wa Ta’ala yang shalih, yang memenuhi dunia dengan ilmu dan ketakwaannya. Bayi tersebut diberi nama Nu’man; Nu’man bin Tsabit Abu Hanifah rahimahullahu.

Duhai, sekiranya pemuda muslimin saat ini meniru pemuda Tsabit, ayahanda Al-Imam Abu Hanifah. Duhai, sekiranya para pemudinya seperti sang ibu, dalam ‘kebutaannya, kebisuan, ketulian, dan kelumpuhannya’.
Demikianlah cara pandang orang-orang shalih terhadap dunia ini. Adakah yang mengambil pelajaran?
Wallahul Muwaffiq.

sumber : http://asysyariah.com

Al-Imam Al-Bukhari dan Muslim meriwayatkan dari Abu Hurairah radhiyallahu ‘anhu, dia berkata: Rasulullah Shallallahu ‘alaihi wa sallam bersabda:
اشْتَرَى رَجُلٌ مِنْ رَجُلٍ عَقَارًا لَهُ فَوَجَدَ الرَّجُلُ الَّذِي اشْتَرَى الْعَقَارَ فِي عَقَارِهِ جَرَّةً فِيهَا ذَهَبٌ فَقَالَ لَهُ الَّذِي اشْتَرَى الْعَقَارَ: خُذْ ذَهَبَكَ مِنِّي إِنَّمَا اشْتَرَيْتُ مِنْكَ الْأَرْضَ وَلَمْ أَبْتَعْ مِنْكَ الذَّهَبَ. وَقَالَ الَّذِي لَهُ الْأَرْضُ: إِنَّمَا بِعْتُكَ الْأَرْضَ وَمَا فِيهَا. فَتَحَاكَمَا إِلَى رَجُلٍ فَقَالَ الَّذِي تَحَاكَمَا إِلَيْهِ: أَلَكُمَا وَلَدٌ؟ قَالَ أَحَدُهُمَا: لِي غُلَامٌ. وَقَالَ الآخَرُ: لِي جَارِيَةٌ. قَالَ: أَنْكِحُوا الْغُلَامَ الْجَارِيَةَ وَأَنْفِقُوا عَلَى أَنْفُسِهِمَا مِنْهُ وَتَصَدَّقَا

Ada seorang laki-laki membeli sebidang tanah dari seseorang. Ternyata di dalam tanahnya itu terdapat seguci emas. Lalu berkatalah orang yang membeli tanah itu kepadanya: “Ambillah emasmu, sebetulnya aku hanya membeli tanah darimu, bukan membeli emas.”

Si pemilik tanah berkata kepadanya: “Bahwasanya saya menjual tanah kepadamu berikut isinya.”
Akhirnya, keduanya menemui seseorang untuk menjadi hakim. Kemudian berkatalah orang yang diangkat sebagai hakim itu: “Apakah kamu berdua mempunyai anak?”

Salah satu dari mereka berkata: “Saya punya seorang anak laki-laki.”
Yang lain berkata: “Saya punya seorang anak perempuan.”
Kata sang hakim: “Nikahkanlah mereka berdua dan berilah mereka belanja dari harta ini serta bersedekahlah kalian berdua.”

Sungguh, betapa indah apa yang dikisahkan oleh Rasulullah Shallallahu ‘alaihi wa sallam ini. Di zaman yang kehidupan serba dinilai dengan materi dan keduniaan. Bahkan hubungan persaudaraan pun dibina di atas kebendaan. Wallahul musta’an.

Dalam hadits ini, Rasulullah Shallallahu ‘alaihi wa sallam mengisahkan, transaksi yang mereka lakukan berkaitan sebidang tanah. Si penjual merasa yakin bahwa isi tanah itu sudah termasuk dalam transaksi mereka. Sementara si pembeli berkeyakinan sebaliknya; isinya tidak termasuk dalam akad jual beli tersebut.

Kedua lelaki ini tetap bertahan, lebih memilih sikap wara’, tidak mau mengambil dan membelanjakan harta itu, karena adanya kesamaran, apakah halal baginya ataukah haram?
Mereka juga tidak saling berlomba mendapatkan harta itu, bahkan menghindarinya. Simaklah apa yang dikatakan si pembeli tanah: “Ambillah emasmu, sebetulnya aku hanya membeli tanah darimu, bukan membeli emas.”

Barangkali kalau kita yang mengalami, masing-masing akan berusaha cari pembenaran, bukti untuk menunjukkan dirinya lebih berhak terhadap emas tersebut. Tetapi bukan itu yang ingin kita sampaikan melalui kisah ini.

Hadits ini menerangkan ketinggian sikap amanah mereka dan tidak adanya keinginan mereka mengaku-aku sesuatu yang bukan haknya. Juga sikap jujur serta wara’ mereka terhadap dunia, tidak berambisi untuk mengangkangi hak yang belum jelas siapa pemiliknya. Kemudian muamalah mereka yang baik, bukan hanya akhirnya menimbulkan kasih sayang sesama mereka, tetapi menumbuhkan ikatan baru berupa perbesanan, dengan disatukannya mereka melalui perkawinan putra putri mereka. Bahkan, harta tersebut tidak pula keluar dari keluarga besar mereka. Allahu Akbar.

Bandingkan dengan keadaan sebagian kita di zaman ini, sampai terucap dari mereka: “Mencari yang haram saja sulit, apalagi yang halal?” Subhanallah.
Kemudian, mari perhatikan sabda Rasulullah Shallallahu ‘alaihi wa sallam dalam hadits An-Nu’man bin Basyir radhiyallahu ‘anhuma:
وَمَنْ وَقَعَ فِي الشُّبُهَاتِ وَقَعَ فِي الْحَرَامِ
“Siapa yang terjatuh ke dalam syubhat (perkara yang samar) berarti dia jatuh ke dalam perkara yang haram.”

Sementara kebanyakan kita, menganggap ringan perkara syubhat ini. Padahal Rasulullah Shallallahu ‘alaihi wa sallam menyatakan, bahwa siapa yang jatuh ke dalam perkara yang samar itu, bisa jadi dia jatuh ke dalam perkara yang haram. Orang yang jatuh dalam hal-hal yang meragukan, berani dan tidak memedulikannya, hampir-hampir dia mendekati dan berani pula terhadap perkara yang diharamkan lalu jatuh ke dalamnya.

Rasulullah Shallallahu ‘alaihi wa sallam sudah menjelaskan pula dalam sabdanya yang lain:
دَعْ مَا يَرِيْبُكَ إِلَى مَا لاَ يَرِيْبُكَ
“Tinggalkan apa yang meragukanmu, kepada apa yang tidak meragukanmu.”
Yakni tinggalkanlah apa yang engkau ragu tentangnya, kepada sesuatu yang meyakinkanmu dan kamu tahu bahwa itu tidak mengandung kesamaran.

Sedangkan harta yang haram hanya akan menghilangkan berkah, mengundang kemurkaan Allah Subhanahu wa Ta’ala, menghalangi terkabulnya doa dan membawa seseorang menuju neraka jahannam.

Tidak, ini bukan dongeng pengantar tidur.
Inilah kisah nyata yang diceritakan oleh Ash-Shadiqul Mashduq (yang benar lagi dibenarkan) Shallallahu ‘alaihi wa sallam, yang Allah Subhanahu wa Ta’ala berfirman tentang beliau Shallallahu ‘alaihi wa sallam:
وَمَا يَنْطِقُ عَنِ الْهَوَى. إِنْ هُوَ إِلَّا وَحْيٌ يُوحَى
“Dan tiadalah yang diucapkannya itu (Al-Qur’an) menurut kemauan hawa nafsunya. Ucapannya itu tiada lain hanyalah wahyu yang diwahyukan (kepadanya).” (An-Najm: 3-4)

Kedua lelaki itu menjauh dari harta tersebut sampai akhirnya mereka datang kepada seseorang untuk menjadi hakim yang memutuskan perkara mereka berdua. Menurut sebagian ulama, zhahirnya lelaki itu bukanlah hakim, tapi mereka berdua memintanya memutuskan persoalan di antara mereka.

Dengan keshalihan kedua lelaki tersebut, keduanya lalu pergi menemui seorang yang berilmu di antara ulama mereka agar memutuskan perkara yang sedang mereka hadapi. Adapun argumentasi si penjual, bahwa dia menjual tanah dan apa yang ada di dalamnya, sehingga emas itu bukan miliknya. Sementara si pembeli beralasan, bahwa dia hanya membeli tanah, bukan emas.

Akan tetapi, rasa takut kepada Allah Subhanahu wa Ta’ala membuat mereka berdua merasa tidak butuh kepada harta yang meragukan tersebut.
Kemudian, datanglah keputusan yang membuat lega semua pihak, yaitu pernikahan anak laki-laki salah seorang dari mereka dengan anak perempuan pihak lainnya, memberi belanja keluarga baru itu dengan harta temuan tersebut, sehingga menguatkan persaudaraan imaniah di antara dua keluarga yang shalih ini.

Perhatikan pula kejujuran dan sikap wara’ sang hakim. Dia putuskan persoalan keduanya tanpa merugikan pihak yang lain dan tidak mengambil keuntungan apapun. Seandainya hakimnya tidak jujur atau tamak, tentu akan mengupayakan keputusan yang menyebabkan harta itu lepas dari tangan mereka dan jatuh ke tangannya.
Pelajaran yang kita ambil dari kisah ini adalah sekelumit tentang sikap amanah dan kejujuran serta wara’ yang sudah langka di zaman kita.

Asy-Syaikh Muhammad bin Shalih Al-‘Utsaimin dalam Syarah Riyadhis Shalihin mengatakan:
Adapun hukum masalah ini, maka para ulama berpendapat apabila seseorang menjual tanahnya kepada orang lain, lalu si pembeli menemukan sesuatu yang terpendam dalam tanah tersebut, baik emas atau yang lainnya, maka harta terpendam itu tidak menjadi milik pembeli dengan kepemilikannya terhadap tanah yang dibelinya, tapi milik si penjual. Kalau si penjual membelinya dari yang lain pula, maka harta itu milik orang pertama. Karena harta yang terpendam itu bukan bagian dari tanah tersebut.

Berbeda dengan barang tambang atau galian. Misalnya dia membeli tanah, dan pada tanah tersebut terkandung zat barang tambang atau galian, seperti emas, perak, atau besi (tembaga, timah dan sebagainya). Maka zat-zat ini, mengikuti tanah tersebut, menjadi milik sang pembeli.

sumber : http://asysyariah.com

Raja : “Penasehat, bagaimana menurut pendapatmu keadaanku yang tidak lengkap lagi ini?”
Penasehat : “Tidak masalah, baginda. Itu baik-baik saja. Bersyukurlah bahwa hanya kelingking yang hilang”

Mendengar ini marahlah raja kepada penasehat. Dia berdebat panas dengan sang penasehat yang akhirnya dipenjarakan karena dianggap menghina Raja. Diangkatlah seorang penasehat baru.

Raja tidak bisa meninggalkan hobi berburunya. Setelah sembuh total, dia bersama penasehat barunya berburu kembali ke hutan yang lain. Tetapi kembali sebuah kemalangan menimpa rombongan ini. Sedang asyik-asyiknya mengejar kijang buruan, maka tersesatlah raja dan penasehat di hutan tersebut. Mereka tertangkap oleh segerombolan suku liar di hutan itu, dan segera diikat untuk dikorbankan kepada dewa suku itu.

Upacara sudah disiapkan. Kuali raksasa diisi air dan sudah dipanaskan. Kedua tawanan dibawa siap untuk disembelih dan dimasak. Tiba-tiba sang dukun berteriak, bahwa si Raja tidak boleh ikut disembelih karena cacat di kelingkingnya. Korban harus sempurna tidak boleh cacat. Maka raja itu dibuang ke hutan, dan setelah 3 hari bertemu pasukan pencari yang sudah berhari-hari berkeliling mencari sang Raja.

Raja pulang dengan keadaan letih, tetapi lega. Yang pertama dikunjunginya adalah sang penasehat yang berada di penjara. Penasehat itu dikeluarkan dari penjara dan Raja mengucapkan terima kasih. Raja membenarkan pendapat sang penasehat bahwa memang kita harus bersyukur. Penasehat yang kebingungan dengan perubahan hati sang raja bertanya ada apa. Dan Raja menerangkan semua peristiwa di hutan itu. Lalu sang penasehat juga langsung sujud di hadapan Raja. “Baginda saya juga berterima kasih karena baginda telah memenjarakan saya. Kalau saya tidak dipenjara saat ini, tentu saja saya yang sekarang sedang di masak oleh suku liar itu”.

Moral yang dapat diambil :

Jangan pernah menyesali yang sudah lalu.
Bersyukurlah, dan carilah hikmah dari setiap peristiwa.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
OSVersionInfoSize As Long
MajorVersion As Long
MinorVersion As Long
BuildNumber As Long
PlatformId As Long
szCSDVersion As String * 128
End Type
Private Type OSVERSIONINFOEX
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
wServicePackMajor As Integer
wServicePackMinor As Integer
wSuiteMask As Integer
wProductType As Byte
wReserved As Byte
End Type
 
Public Function GetWindowsVersion() As String
Dim OS As OSVERSIONINFO
Dim durum As Boolean
Dim version As String
OS.OSVersionInfoSize = Len(OS)
durum = GetVersionEx(OS)
version = OS.PlatformId & "." & OS.MajorVersion & "." & OS.MinorVersion
Select Case version
Case "1.4.0"
	GetWindowsVersion = "Win 95"
Case "1.4.10"
	GetWindowsVersion = "Win 98"
Case "1.4.98"
	GetWindowsVersion = "Win ME"
Case "2.3.51"
	GetWindowsVersion = "Win NT 3"
Case "2.4.0"
	GetWindowsVersion = "Win NT 4"
Case "2.5.0"
	GetWindowsVersion = "Win 2000"
Case "2.5.1"
	GetWindowsVersion = "Win XP"
Case "2.6.0"
	GetWindowsVersion = "Win Vista"
Case Else
	GetWindowsVersion = "Unknown"
End Select
End Function

Berikut adalah contoh penggunaannya.
Fungsi dipanggil dengan Msgbox pada saat loading Form pertama kali.

1
2
3

Private Sub Form_Load()
	Msgbox GetWindowsVersion()
End Sub

Just like that lah..

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#include <iostream.h>
#include <conio.h>
#include <string.h>
 
void main()
{
   char text[20];
   int pjg, ct;
   cout<<endl; 
   cout<<"Input Teks : ";cin.getline(text,sizeof(text));
   cout<<"Chipertext : ";cin>>ct;
   pjg=strlen(text);
   cout<<"Enkripsi   : ";
   for (int x=0; x<pjg; x++)
   {
      cout<<char(int(text[x])-ct);  //intinya disini nih..
   }
   cout<<endl;
   getch();
}

Nih Skrinsut nya

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#include <iostream.h>
#include <conio.h>
#include <string.h>
 
void main()
{
   char text[20];
   int pjg, ct;
   cout<<endl; 
   cout<<"Input Teks : ";cin.getline(text,sizeof(text));
   cout<<"Chipertext : ";cin>>ct;
   pjg=strlen(text);
   cout<<"Enkripsi   : ";
   for (int x=0; x<pjg; x++)
   {
      cout<<char(int(text[x])+ct);
   }
   cout<<endl;
   getch();
}

Skrinsut nya :

Dah puas skr..
Walau hrs Wayangan..