Smadav 8.7

Smadav 8.7 Pro + Key. Temen-temen bisa download smadav pro tersebut gratis disini. Smadav 8.7 pro merupakan pembaruan dari smadav 8.6 pro. Sudah include key, gratis ! Buruan download, Mau ?
Bagi yang mau download, silahkan buka link download berikut ini !
Smadav 8.7 Pro : Download
Smadav 8.7 Key 1 : Download
Smadav 8.7 Key 2 : Download
Sebelumnya, krisna menyarankan sobat semua untuk tetap memberikan donasi kepada SMADAV, supaya menjadi antivirus yang lebih baik. Serial pro key ini ane berikan hanya untuk kepentingan pribadi saja dan tidak di jual belikan OK.
Untuk menghilangkan tanda bajakan atau blacklist di smadav 8.7, caranya begini:
Kolom Nama : anti-pembajakan
Key : dikosongkan
bagi yang ingin membuat key smadav pro menggunakan nama sendiri, cara buatnya bisa temen-temen pelajari disini.
Selamat men-download smadav 8.7 pro + key gratis !

Mozilla Firefox 6.0 beta 1

Mozilla Firefox 6.0 beta 1. Temen-temen bisa download firefox terbaru tersebut gratis via blog krisna ini. Mozilla firefox 6.0 beta ini merupakan pembaruan dari mozilla firefox 5.0 Final. Yang jelas lebih cepat, stabil dan keren ! Gratis gan, tinggal download, Penasaran ! Mau ?
Bagi yang mau download, silahkan klik gambar download berikut ini :

Selamat men-Download Mozilla Firefox 6.0 beta 1 Gratis.

Merangking Data

 

Kadang kita ingin memberikan rangking pada nilai-nilai yang sudah kita masukan dalam proyek Excel kita. Tentu jika kita mengerjakannya secara manual, tentu hal tersebut akan membuang tenaga kita saja. Karena Excel sudah menyediakan satu formula yang bagus untuk merangking data buat kita.
Formula tersebut adalah RANK. Cara mengunakan RANK cukup mudah:
=RANK(cell_yang_mau_diketahui_rangkingnya;range_data;opsi)
Untuk opsi bisa diabaikan, jika diabaikan Excel akan menganggap nilainya adalah 0.
Misalnya, jika anda mempunyai range data dari cell B2:B15 dan nilai yang akan anda hitung ada di cell B2, maka anda cukup menulis rumusnya sebagai berikut:
=RANK(B2;B2:B15)
Maka anda akan mengetahui rangking dari nilai yang berada di cell B2 dibanding di range cell B2:B15. Mudah kan?
Jika anda ingin melihat contoh yang sudah saya buat, klik disini.

Melihat Data Dengan Peringkat Tertentu

 

Jika kita mempunyai satu range data penjualan misalnya, pasti kita ingin juga menganalisanya. Salah satu analisa yang sering di lakukan terhadap data penjualan adalah dengan melihat peringkat dari data-data tersebut atau ingin melihat di angka berapakah penjualan dengan peringkat 3. Kalau ingin melihat peringkat pertama sih, kita bisa menggunakan formula MAX yang akan menampilkan nilai tertinggi dari satu kumpulan data.
Nah, untuk melihat data dengan peringkat alias urutan tertentu, kita bisa menggunakan formula LARGE untuk melihat peringkat dari peringkat terbesar dan formula SMALL untuk melihat sebaliknya. Penggunaan kedua formula tersebut tidaklah susah. Untuk menggunakan LARGE kita dapat menuliskan formula tersebut dengan aturan sebagai berikut: =LARGE(range_data; urutan_yang_diinginkan). Penggunaan SMALL juga sama, yaitu =SMALL(range_data; urutan_yang_diinginkan).
Misalnya kita mempunyai data di cell B4 sampai B24, dan kita ingin mengetahui data dengan peringkat 2 tertinggi, kita bisa menuliskan formula-nya seperti berikut: =LARGE($B$4:$B$24;2). Sebaliknya jika kita ingin mengetahui rangking 2 dari data terkecil dari range data yang sama dengan contoh di atas, anda bisa menuliskannya sebagai berikut =SMALL($B$4:$B$24;2).
Cukup mudah kan? Jika ingin melihat contoh secara lengkapnya, Anda dapat mengambilnya di sini.
Semoga artikel ini bisa sedikit berguna

Bersahabat Dengan Error Result di Excel

 

Jika anda tiap hari mempunyai pekerjaan untuk membuat proyek-proyek di Excel, tentu anda tidak asing lagi dengan kesalahan hasil yang dibuat oleh Excel. Dari #DIV/0, #N/A atau yang lain. Dan tentu ini sangat menjengkelkan, selain akan memberi efek kepada hasil perhitungan yang melibatkan cell yang salah tadi, tampilan report anda pun akan terlihat jelek.
Tentu ada cara untuk mengantisipasi itu. Anda dapat menggabungkan fungsi ISERROR dan IF. Fungsi ISERROR akan memberikan hasil TRUE jika terdapat error dalam kalkulasi dan sebaliknya. Maka melihat hal itu, maka fungsi IF sangat cocok digabungkan. Logikanya, jika IF mendeteksi hasil TRUE dari fungsi ISERROR maka, dia akan menjalankan bagian logika yang TRUE dan sebaliknya.
Misal saja anda akan membagi cell C3 dan B3, dengan menulis di formula cell: =C3/B3, maka anda akan mendapat hasil #DIV/0. Hal itu disebabkan karena di cell B3 tidak ditemui nilai apapun dan ini akan sangat bisa terjadi di dalam kehidupan keseharian kita. Untuk mengatasinya anda dapat menggabungkan fungsi IF dan ISERROR seperti yang sudah saya tulis diatas. Caranya, ketik di formula cell: =IF(ISERROR(C3/B3);0;C3/B3). Dengan fungsi itu maka anda akan mendapat hasil 0 jika terdapat error dalam kalkulasi dan tentu anda dapat mengganti sesuai kebutuhan anda.
Anda dapat melihat contoh rumus Excel yang saya tulis diatas dengan mendownload-nya disini.

Mengenal Formula VLOOKUP

 

Kali ini kita akan belajar tentang formula Excel VLOOKUP. VLOOKUP digunakan untuk mengambil nilai dari suatu tabel yang sudah kita tentukan. Misalnya rekan-rekan mempunyai satu tabel yang berisi dengan data karyawan, dan kita ingin di sheet penggajian, ketika di ketik nomor induk (NIK)-nya secara otomatis keluar nama dan jabatan, VLOOKUP akan membantu anda.

Langsung aja ya, karena VLOOKUP membutuhkan tabel sumber data, maka anda harus membuatnya terlebih dahulu. Dalam kasus saya ini, saya akan membuat tabel yang berisi dengan data karyawan, saya mensimulasikannya dengan membuat kolom NIK, Nama Karyawan dan Jabatan.

Nah, lalu buat tabel pekerjaan, dalam kasus saya adalah tabel penggajian karyawan. Dalam tabel ini saya menginginkan ketika saya mengetikan NIK dari salah satu karyawan, maka nama dan jabatan-nya akan muncul secara otomatis. Disinilah anda akan memakai VLOOKUP, VLOOKUP mempunyai sintaks seperti ini: VLOOKUP(lookup_value, table_array, col_index_num, range_lookup).
Penjelasannya sebagai berikut:

1. lookup_value: adalah cell atau range cell yang akan di isi dengan NIK yang akan di minta, dalam kasus ini terletak di tabel penggajian.
2. table_array: adalah cell atau range cell yang berisi data sumber anda.
3. col_index_num adalah akan menampilkan kolom keberapa dari data sumber anda. Kalau dalam contoh saya di atas berarti NIK adalah kolom 1, nama jabatan adalah kolom 2, dst.
4. range_lookup diisi dengan FALSE atau TRUE. Parameter ini jika di isi dengan TRUE atau dikosongkan akan mencari data persis sama dengan data sumber dan sebaliknya.

Misalnya, jika saya mempunyai range pencarian data dari B4 sampai B17, dan data sumber di Sheet Reff dan mempunyai range cell B3 sampai D12 dan anda akan menampilkan nama karyawan, maka anda dapat menuliskan rumus seperti ini: =VLOOKUP($B$4:$B$17;Reff!$B$3:$D$12;2).
Jika VLOOKUP tidak mendapati data atau permintaan data maka dia akan menghasilkan Not Available string yaitu N/A, untuk ‘membersihkan’-nya anda dapat menggabungkan dengan rumus ISERROR sehingga rumus akan menjadi seperti ini: =IF(ISERROR(VLOOKUP($B$4:$B$17;Reff!$B$3:$D$12;2));""; (VLOOKUP($B$4:$B$17;Reff!$B$3:$D$12;2))).
Mudah bukan? Rekan-rekan dapat mengambil contoh VLOOKUP di-sini.

Menggunakan Replace

 

Jika rekan-rekan mempunyai masalah seperti si rajabrewok ini, yaitu menghilangkan karakter-karakter tertentu yang tidak diinginkan dalam sheet atau range cell di dokumen Excel anda, mungkin trik sederhana berikut ini bisa membantu rekan-rekan.

Sebetulnya masalahnya apa sih? Begini kalau apa yang saya tangkap dari kesulitan mas rajabrewok adalah menghilangkan karakter Rp dan titik separatornya.
Saya yakin ada cara dengan formula seperti REPLACE yang dapat menggantikan karakter tertentu menjadi karakter lain. Tapi ada trik yang sangat sederhana yang mungkin bisa menggantikan penggunaan formula REPLACE tersebut. Yaitu menggunakan menu Find & Replace.
Berikut langkahnya:

1. Blok dulu data yang ingin anda ubah format datanya atau ingin menghilangkan karakter tertentu-nya. Atau jika ingin mengubah semua dalam satu sheet anda tidak perlu blok.
2. Tekan kombinasi tombol Ctrl + H, untuk memanggil menu Replace.
3. Karena dalam kasus ini kita ingin menghilangkan karakter Rp , ketikan Rp di Find what dan biarkan kosong untuk input Replace what. Lalu tekan tombol Replace All.
   
4. Semua karakter Rp akan hilang, untuk menghilangkan karakter titik, ulangi langkah 3 tapi isikan karakter titik (.) di masukan Find what, maka semua titik akan hilang sekarang anda bisa mengolah data tersebut seperti angka biasa.
   

Semoga bisa membantu…..

Menghitung Besar Pokok Hutang

 

Artikel ini akan membahas lagi tentang dunia hutang-menghutang (ngga papa ya…), setelah membahas bagaimana cara menghitung cicilan dari satu pokok hutang, lalu cara menghitung bunga hutang, kali ini kita akan belajar tentang bagaimana menghitung besar pokok hutang.
Untuk menghitung pokok hutang, Excel sudah menyediakan formula bernama PV. Penggunaan PV ini cukup mudah, yang perlu anda ketahui adalah nilai bunga yang berlaku, lama angsuran dan besar cicilan tiap bulan-nya.
PV sendiri memiliki format parameter seperti ini: =PV(bunga_tahunan/12;lama_angsuran;besar_cicilan). Jadi misalnya (saya ambil dari contoh yang saya sertakan di artikel ini, besar bunga saya tulis di cell B3, lama angsuran di B4 dan besar cicilan di B5, maka saya dapat menulis formula seperti ini: =PV(B3/12;B4;B5) lalu tekan Enter untuk mengeksekusi formula tersebut.
Secara langsung, Microsoft Excel akan menyajikan besaran pokok hutang yang anda maksud. Semoga artikel ini dapat sedikit membantu rekan-rekan.

Koneksi VB Excel

 

Sekedar berbagi ilmu, sapa tau ada yang butuh, di bawah ini ada sintak VB buat baca dan nulis data dari dan ke file Excel(.xls). Langsung aja kita mulai, ini dia step by step
1. Bikin project baru di VB
2. Buat referensi dari VB ke library untuk Excel, caranya dari menu Project–>References trus kasi tanda cek di Microsoft Excel xx.x (versinya, aku pake 12.0) Object Library, trus klik OK
3. Deklarasikan di variabel global (boleh pake module ato di form, tapi sebaiknya di module aja biar lebih gampang dikelola)

1	Public xlApp As Excel.Application  ' Excel Application Object
2	Public xlBook As Excel.Workbook    ' Excel Workbook Object

4. Nah, ini sintak Function untuk baca data dari file Excel:

01	Public Function GetExcel(xlFileName As String, xlWorksheet As String, _
02	xlCellName As String) As String

03	On Error GoTo GetExcel_Err 'eror handler
04	Dim strCellContents As String

05	'inisiasi Excel App Object
06	Set xlApp = CreateObject("Excel.Application")

07	'inisiasi Excel Workbook Object.
08	Set xlBook = xlApp.Workbooks.Open(xlFileName)

09	'membaca isi cell pada spreadsheet
10	strCellContents = xlBook.worksheets(xlWorksheet).range(xlCellName).Value

11	'tutup spreadsheet
12	xlBook.Close savechanges:=False

13	xlApp.Quit
14	Set xlApp = Nothing

15	Set xlBook = Nothing
16	GetExcel = strCellContents 'mengembalikan nilai

17	Exit Function
18

19	GetExcel_Err:
20	MsgBox "GetExcel Error: " & Err.Number & "-" & Err.Description

21	Resume Next
22	End Function

5. Kalo yang di bawah ini sintak Procedure untuk nulis data ke file Excel:

01	Public Sub SetExcel(xlFileName As String, _
02	xlWorksheet As String, _

03	xlCellName As String, _
04	xlCellContents As String)

05
06	On Error GoTo SetExcel_Err 'eror handler

07
08	' inisiasi Excel App Object

09	Set xlApp = CreateObject("Excel.Application")
10

11	' inisiasi Excel Workbook Object.
12	Set xlBook = xlApp.Workbooks.Open(xlFileName)

13
14	' mengisi nilai tertentu ke cell tujuan

15	xlBook.worksheets(xlWorksheet).range(xlCellName).Value = xlCellContents
16

17	' menyimpan file dan menutup spreadsheet
18	xlBook.Save

19	xlBook.Close savechanges:=False
20	xlApp.Quit

21	Set xlApp = Nothing
22	Set xlBook = Nothing

23	Exit Sub
24	SetExcel_Err:

25	MsgBox "SetExcel Error: " & Err.Number & "-" & Err.Description
26	Resume Next

27

End Sub

Function dan Procedure di atas boleh disimpan di module ataupun di form namun sebaiknya disimpan di module agar lebih mudah dikelola.

Note:

• xlFilename = nama file excelnya, tipenya string, misal “F:Tugas KuliahData.xls”
• xlWorksheet = nama sheet pada spreadsheet yg akan dibaca/ditulis datanya, tipenya string, misal “Sheet1″ atau “Pengeluaran”
• xlCellName = nama cell yang akan dibaca/ditulis datanya, misal “A1″,”JW23″ dst
• xlCellContent = data yang akan ditulis ke file Excel, tipenya string, misal “Wahyu”, “23″ dsb

Contoh Penggunaan:

1	'membaca file Excel dan meyimpan hasilnya ke Text1
2	Text1.text = GetExcel("F:\Tugas Kuliah\Data.xls","Sheet1","A1")

3	'membaca isi Text1 dan dsimpan ke file Excel
4	SetExcel "F:\Tugas Kuliah\Data.xls","Sheet1","A1",Text1.text

Any Question so far? Semoga bermanfaat…

Fungsi Apakah Ada?

 

Dalam setiap project Visual Basic saya yang bersentuhan dengan database object, saya sering memeriksa apakah data yang akan saya tulis atau baca sudah ada di dalam database. Memang ada beberapa teman-teman sesama programmer saya yang sedikit tidak setuju dengan cara saya ini, hal ini di karenakan setiap saya memeriksa record yang ada, tentu saya akan menggunakan tambahan bandwith dalam operasi saya, juga akan ‘nambah-nambahi’ pembuatan function saja.
Ada beberapa event yang membuat saya menggunakan pemeriksaan ini, biasanya adalah dalam event Save dan baca record. Jika saya akan save, sebuah record dengan unique id, saya akan memeriksa apakah unique id ini sudah ada di database atau belum, jika sudah ada tentu saya akan ‘melempar’ hasilnya menjadi sebuah message box dan jika belum ada, akan saya teruskan procedure penyimpanannya. Untuk event baca record juga begitu, jika record dengan unique id yang saya maksud tidak ada maka saya akan memberitahu user dan jika ada maka procedure baca akan di teruskan.
Dan saya selalu membuat satu Public Function untuk ini, jadi saya tinggal memanggilnya dimana pun saya berada di project tersebut, function tersebut saya taruh di satu module. Function ini bertipe Boolean, jadi dalam penggunaannya nanti akan memudahkan saya, tinggal saya mengecek apakah hasilnya true atau false. Dan berikut function yang saya namakan Function apakah ada.

Public Function apakah_ada(ByVal sTable As String, ByVal sField As String, ByVal sStr As String, Optional isNum As Boolean) As Boolean
Dim rs_apa_ada As New ADODB.Recordset
On Error GoTo apakah_ada_Error
With rs_apa_ada
    .CursorLocation = adUseClient
If isNum = True Then
    .Open "SELECT * FROM " & sTable & " WHERE " & sField & " = " & sStr, myconn, adOpenStatic, adLockReadOnly
Else
    .Open "SELECT * FROM " & sTable & " WHERE " & sField & " = '" & sStr & "'", myconn, adOpenStatic, adLockReadOnly
End If
If .RecordCount <= 0 Then
    apakah_ada = False
Else
    apakah_ada = True
End If
.Close
End With
Set rs_apa_ada = Nothing
 
'___________________________________________________________
On Error GoTo 0
Exit Function
 
apakah_ada_Error:
    MsgBox "Ada Kesalahan ! " & vbCrLf & "Nomor Kesalahan : " & Err.Number & vbCrLf & "Deskripsi : " & Err.Description & vbCrLf & "Di prosedur apakah_ada dalam modul mdlfungsi_aplikasi"
End Function

Misal saya akan memeriksa apakah kode barang yang akan saya masukan sudah ada, maka untuk penggunaan function ini adalah sebagai berikut:

'/cek apakah ada ada kode barang yang dimasukkan
If apakah_ada("tbl_data_induk_barang", "kode_barang", kode_barang, False) = False Then MsgBox "Kode barang: " & kode_barang & " tidak ditemukan!", vbExclamation, "Tidak Ditemukan": Exit Sub

Semoga sedikit bermanfaat…

Tengahkan Form Anda

 

Secara default, ketika kita mencoba membuat form di Visual Basic 6 dan menjalankannya, maka form itu akan terbuka secara sembarangan, biasanya di sebelah kiri pojok atas. Jika kita membuat aplikasi dengan profesional looking, tentu hal ini tidak bagus. Kita harus mengaturnya dengan letak yang baik, tepat di tengah layar misalnya. Nah di artikel ini saya akan berbagai satu function yang akan membuat form kita terbuka tepat di tengah layar. Function ini sangat sederhana, kita akan menggerakan form ini ke koordinat tengah layar.
Logika dari function ini adalah mengambil lebar layar dikurangi dengan lebar form nya lalu di bagi 2. Tentu hal akan membuat sudut kiri form akan di letakan dimana ‘sisa’ space kosong sebelah kiri dan kanan form akan memiliki lebar yang sama. Untuk tinggi form juga akan di gerakan dengan perhitungan yang sama.
Nah, berikut adalah function bentuk jadinya.

Sub TengahkanPersis(f As Form)
' Tengahkan form yang anda maksud
f.Move (Screen.Width - f.Width) \ 2, ((Screen.Height - (f.Height)) \ 2)
End Sub

Untuk menggunakan form itu, letakan di prosedur Form_Load. Jadi begitu form terbuka, function TengahkanPersis akan di panggil dan akan meletakan form anda di tengah-tengah layar. Berikut contoh pemanggilan function ini.

Private Sub Form_Load()
'/tengahkan form
TengahkanPersis Me
'/baris berikut isi dengan function yang lain.
End Sub

Semoga artikel ini bermanfaat.

Tema tersembunyi dalam windows 7

Sebelumnya saya mohon maaf karna saya sudah lama tidak posting di blog ini dikarenakan ada kesibukan pribadi saya sehingga saya tidak dapat memposting artikel belakangan ini,untuk itu saya akan memposting satu ilmu yang mungkin banyak orang yang belum tahu yaitu ada nya tema tersembunyi dibalik windows 7,
wah penasaran bukan,ayo disimak langsung ya!!!

1. masuk ke windows explorer .
2. kemudian masuk ke local disk c {tempat anda menyimpan file dari instalan windows}biasa nya ada lambang windows diatas disk nya
3. masuk ke folder windows
4. lalu cari  C:\Windows\Globalization ,
5. setelah di search dan ketemu 2 folder.
6. itu belum selesai sekarang anda masuk ke menu "organize",pilih "folder and search option"
7. kemudian pilih tab view,di advanced setting cari"hidden file and folder"lalu pilih "show hiden file,folder,anda drives"
8. hilangkan ceklist hide protected operating system file [recommended],pilih ok
9. apply dam ok
10. yang tadi nya follder nya ada 2 jadi ada 3 kan 
11. pilih folder "MCT"
12. kemudian ada 5 follder lagi pilih yang mana saja saya ambil contoh saya memilih folder "MCT-AU"
13. kemudian setelah kita buka ada 3 follder lagi pilih theme
14. dan double klik pada file AU otomatis thema windows 7 anda bertambah 
15. jika anda igin melihat thema yang lain anda tinggal pilih saja kok dari 5 follder diatas masing masing ada satu thema
16. selamat mencoba

ini dia hasil nya jadi ada 5 thema baru di windows 7 kita

cara membuka situs yang diblokir

kali ini saya akan share ilmu yang mudah mudahan bermanfaat untuk yang sedang mencari ilmu ini,
sebenarnya ilmu ini saya dapatkan disekolah,yaitu sewaktu saya diajarkan tentang pengertian dari DNS,IP,dll
yang berperan untuk membuka situs yang di blokir adalah DNS karena DNS berfungsi kalau di istilahkan yaitu sebagai satpam  yang dapat mengijinkan baik tidak permintaan dari kita,DNS sikngkatan dari DOMAIN NAME SERVER.
kenapa beberapa situs diblokir???

ya itu karna Provider nya menggunakan DNS yang tidak akan mengijinkan kita untuk mengakses suatu situs istilahnya kalau kita ingin pergi kealamat tertentu kita tidak diijinkan dan pintu pun di tutup oleh satpam tersebut (DNS)

kalau yang ini pengertian DNS menurut paman WIKI PENGERTIAN DNS

ini dia cara nya untuk membuka situs yang di blokir
1.anda harus masuk ke web ini  terlebih dahulu OPEN DNS kemudian pilih home
2.jangan lupa daftar dahulu(sing up)
3.setelah itu anda akan melihat nomer DNS anda yang baru nah setelah dapet nomer DNS yang baru
4.sekarang tinggal menseting pada jaringan anda
5.klik kanan pada koneksi yang terhubung ke internet lalu pilih propertis

sehingga akan muncul tampilan seperti diatas
6.pilih PROPERTIES,LALU NETWORKING,
7.klik 2 kali ,kemudian OK

8,selanjutnya akan mucul tampilan seperti ini

9.pilih "use following DNS server addresses,
10.paste alamat DNS yang kamu dapat tadi DI OPEN DNS
11.kemudian ok
12.jika anda dalam kondisi konek maka disconek terlebih dahulu lalu konek lagi
13.dan lihat hasil nya

perlu diingat ini berlaku untuk semua provider yang memblokir situs situs pornografi dLL
ini hanya ilmu bukan untuk yang macam macam

ALLAHUAKBAR Group Facebook Menghina Nabi Besar SAW Belum di Hapus

Aer Terkini – Grup penghina nabi di akun facebook belum juga ditutup. Dinding di akun penghina Nabi Muhammad SAW masih saja diisi dengan kalimat yang sangat melecehkan Islam. Hingga Kamis (17/7) petang, mereka yang bergabung dengan akun ini mencapai 2.700 orang.

Munculnya akun Facebook yang menghina Nabi Muhammad SAW dinilai psikater sekaligus agamawan Dadang Hawari sebagai provokasi terhadap umat Islam. Karena itu, ia meminta umat Islam untuk menahan diri dengan penghinaan tersebut. Dengan menahan diri, kata dia, umat Islam tidak terjebak dalam permainan orang-orang yang tidak bertanggung jawab.

“Banyak pihak yang menghina Umat Islam sekalipun umat Islam tidak pernah membalas penghinaan tersebut.
Tentu sikap ini harus dipertahankan, karena penghinaan itu hanyalah kerjaan orang sakit saja,” ujarnya saat dihubungi Republika Online, Rabu Sore. Meski begitu, Dadang mengharapkan umat Islam juga bergerak dan menyelesaikan persoalan itu dengan jalan damai.

Menurut dia, banyak hal yang bisa ditempuh seperti menggunakan Undang-undang Informasi dan Transaksi Elektronik untuk memblok akun tersebut sehingga tidak meluas dan memicu kemarahan umat Islam.
Dirinya khawatir, bila umat Islam hanya sebatas diam tanpa melakukan apapun, hal itu memicu pecahnya gunung emosi yang selama ini tertahan akibat penghinaan bertubi melalui laman yang sama.

“Segera selesaikan, saya khawatir nanti terjadi ribut-ribut dan umat Islam kembali tercoreng,” ujarnya.
Dia kemudian mengajak umat Islam meneladani perjalanan para nabi seperti banyak dikisahkan dalam Alquran.

CHRISTOPHER COLUMBUS (1451-1506)

Indotoplist.com : Colombus, dalam upaya mencari jalan dari Eropa ke Timur, tak sengaja menemui benua Amerika yang membuatnya lebih berpengaruh dalam sejarah dunia, di luar dugaannya sendiri. Penemuannya sekaligus merupakan mahkota eksplorasi dan kolonisasi Dunia Baru dan sekaligus pula merupakan tonggak penting dalam sejarah. Colombus bagaikan membuka pintu bagi bangsa Eropa dua benua untuk pemukiman baru, menyebar penduduk dan menyediakan sumber kekayaan mineral dan isi bumi yang pada gilirannya mengubah wajah Eropa. Berbarengan dengan itu, penemuannya juga mengakibatkan hancurnya kebudayaan bangsa Indian. Dalam jangka panjang, penemuan itu melahirkan satu bangsa baru di benua belahan Barat, yang dengan amat cepatnya membedakan diri dengan bangsa Indian selaku penduduk asli. Walhasil, Colombus membawa perubahan besar bagi bangsa-bangsa di Dunia Lama.

Garis besar kisah Colombus bukan masalah baru. Dia dilahirkan di Genoa, Itali, tahun 1451. Tatkala berangkat dewasa, dia menjadi nakhoda kapal dan seorang navigator yang cekatan. Akhirnya Colombus yakin bukan mustahil menemukan jalan lebih praktis ke daerah Asia di timur dengan cara berlayar ke arah barat melintasi Samudra Atlantik dan dia dengan tekun merintis tekadnya. Tentu saja niat besar ini tidak bakal terlaksana tanpa biaya cukup. Karena itulah Colombus membujuk Ratu Isabella I menyediakan anggaran untuk ekspedisi percobaannya. Kapalnya melepas sauh pelabuhan Spanyol tanggal 3 Agustus 1492. Melabuh pertama di Kepulauan Canary di lepas pantai Afrika. Membongkar sauh di Kepulauan Canary tanggal 6 September dan berlayar laju arah ke barat. Sebuah pelayaran yang bukan main panjang, sehingga tidak aneh jika para awak kapal merasa ngeri dan kepingin balik saja. Colombus? Tidak! Perjalanan mesti diteruskan, sekali layar terkembang pantang digulung. Dan tanggal 2 Oktober 1492 bagaikan seutas sutera hijau daratan tampak di haluan. Colombus kembali ke Spanyol bulan Maret berikutnya dari penjelajahan yang dahsyat itu disambut orang dengan penuh penghormatan. Sesudah itu dia melakukan serentetan pelayaran melintas Atlantik dengan harapan menjejakkan kaki di Cina dan Jepang. Tetapi sia-sia! Colombus tetap bersiteguh pada pikirannya bahwa dia sudah menemukan jalur perjalanan ke Asia Timur jauh sebelum orang lain sadar. Ratu Isabella menjanjikan Colombus jadi gubernur di pulau mana pun yang ditemuinya. Tetapi, selaku administrator dia betul-betul tidak becus sehingga dipecat dari jabatannya dan dikirim pulang ke Spanyol dengan tangan terbelenggu. Tetapi, sesampainya di Spanyol dia dibebaskan hanya saja tak pernah diberi jabatan lagi. Kabar angin mengatakan Colombus mati dalam kemiskinan tanpa ada dana apa pun. Tatkala kematiannya di tahun 1506 --kabar lain lagi-- ada jugalah sedikit harta kekayaannya. Jelas, pelayaran pertama Colombus merupakan perubahan revolusioner bagi sejarah Eropa, dan malahan punya pengaruh lebih besar bagi Benua Eropa. Anak-anak sekolah semua menghafal tahun 1492 merupakan tahun penting. Walau begitu masih ada banyak kemungkinan yang keberatan menempatkan nama Colombus dalam urutan daftar buku ini. Salah satu keberatan adalah karena bukannya Colombus orang Eropa pertama yang menemukan Dunia Baru. Leif Ericson, pelaut Viking, berabad-abad sebelum Colombus sudah menjejakkan kaki di Benua Amerika dan bolehlah dipercaya beberapa orang Eropa lain juga sudah menyeberangi Samudera Atlantik di masa-masa antara Leif Ericson dan Colombus.

Dari sudut sejarah, Leif Ericson bukanlah tokoh penting. Hal-hal menyangkut penemuannya belum pernah tersebar luas, begitu pula tidak meninggalkan perubahan apa pun baik di Amerika maupun Eropa. Sebaliknya, berita penemuan Amerika oleh Colombus menyebar bagai kilat ke seluruh Eropa. Hanya beberapa tahun sekembalinya Colombus, dan sebagai akibat langsung dari penemuannya, banyak ekspedisi tambahan berdatangan di Dunia Baru dan penaklukan serta kolonisasi pun mulailah. Seperti halnya tokoh-tokoh lain di dalam buku ini, Colombus mudah terkena gangguan pelbagai komentar seakan-akan apa yang ia lakukan orang lain juga lakukan andaikata Colombus tidak pernah hidup di dunia. Eropa abad ke-15 M berada dalam keadaan risau dan berkemelut: dunia perdagangan berkembang, penjelajahan daerah baru tak terelakkan. Bangsa Portugis nyatanya memang aktif amat mencari arus jalan baru ke Timur, pada saat-saat menentukan sebelum Colombus. Adalah mungkin sekali Amerika cepat atau lambat ditemukan oleh orang Eropa; bahkan mungkin sekali kalaulah ada penundaan, saatnya tidak begitu lama. Tetapi perkembangan berikutnya akan sangat jauh berbeda apabila Amerika ditemukan --katakanlah tahun 1510-- oleh ekspedisi orang Perancis atau Inggris dan bukannya tahun 1492 oleh Colombus. Dengan dalih apa pun memang nyatanya Colombuslah orang yang menemukan benua Amerika. Kemungkinan keberatan ketiga adalah, bahkan sebelum perjalanan Colombus banyak orang-orang Eropa abad ke-15 yang sudah maklum bahwa sesungguhnya bumi ini bulat bentuknya. Teori ini sudah diungkapkan oleh filosof Yunani berabad-abad sebelumnya, dan pembenaran yang tak tergoyahkan dari hipotesa Aristoteles sudah cukup untuk meyakinkan kaum terpelajar Eropa di tahun 1400-an. Sementara itu, Colombus sendiri tidak terkenal orang yang menunjukkan bahwa bumi ini bulat. (Paling tidak, dia tidak berhasil melakukannya). Dia masyhur dalam hal penemuan Dunia Baru, yang baik orang Eropa abad ke-15 atau Aristoteles tak tahu menahu adanya benua Amerika. Akhlak Colombus tidaklah sepenuhnya dikagumi. Dia terkenal kikir. Sifat inilah yang menyebabkan dia menghadapi kesulitan memperoleh tunjangan dana dari Ratu Isabella karena Colombus terlampau menampakkan keserakahannya tatkala melakukan tawar-menawar. Juga --walaupun tidak pantas menuduhnya menurut ukuran etika jaman sekarang-- dia memperlakukan orang-orang Indian dengan kekejaman yang sangat. Karena itu, daftar buku ini bukanlah terdiri dari orang-orang yang paling bijak bestari dalam sejarah, melainkan orang yang paling berpengaruh, dan dalam kerangka ukuran ini Colombus menempati urutan nyaris paling atas.

Web: http://media.isnet.org/iptek/100/index.html

JOHANN GUTENBERG (1400-1468)

Indotoplist.com : Lazim Johann Gutenberg dianggap penemu mesin cetak. Apa yang sebetulnya dia lakukan adalah mengembangkan metode pertama penggunaan huruf cetak yang bergerak dan mesin cetak dalam bentuk begitu rupa sehingga pelbagai macam materi tulisan dapat dicetak dengan cepat dan tepat.

Tak ada penemuan yang terlompat dari pemikiran seseorang, tidak juga mesin cetak. Segel dan bulatan segel yang pengerjaannya menganut prinsip serupa dengan cetak blok sudah dikenal di Cina berabad-abad sebelum Gutenberg lahir dan suatu bukti menunjukkan bahwa di tahun 868 M sebuah buku cetakan sudah ditemukan orang di Cina. Proses serupa juga sudah dikenal orang di Eropa sebelum Gutenberg. Cetak blok memungkinkan pencetakan banyak eksemplar buku tertentu. Proses ini punya satu kelemahan: karena satu set baru serta komplit dari cukilan kayu atau logam harus dibuat untuk sebuah buku, dengan sendirinya tidaklah praktis untuk mencetak berbagai macam buku. Sering disebut orang sumbangan terpenting Gutenberg adalah penemuannya di bidang huruf cetak yang bisa bergerak. Dalam perkara ini pun hal serupa sudah diketemukan di Cina sekitar pertengahan abad ke-11 M oleh seorang bernama Pi Sheng. Huruf-huruf cetak aslinya terbuat dari semacam tanah yang tidak bisa tahan lama. Sementara itu beberapa orang Cina dan Korea sudah melakukan serentetan penyempurnaan dan berhasil baik sebelum Gutenberg. Orang-orang Korea menggunakan huruf cetak metal, dan pemerintah Korea membantu sebuah pabrik peleburan untuk memproduksi huruf cetak di awal abad ke-15 M. Lepas dari semua ini, keliru juga jika menganggap Pi Sheng seorang yang punya pengaruh spesial. Pada tingkat pertama, Eropa tidak belajar huruf cetak bergerak dari Cina melainkan atas kreasinya sendiri. Kedua, mencetak dengan cara huruf cetak bergerak belum pernah digunakan secara umum di Cina sendiri sampai baru-baru ini saja tatkala prosedur percetakan modern mereka pelajari dari Barat. Ada empat komponen esensial cara percetakan modern. Pertama, huruf cetak yang bergerak, berikut beberapa prosedur penyetelan dan peletakan huruf-huruf yang mapan. Kedua, mesin cetak itu sendiri. Ketiga, tinta yang serasi untuk menghasilkan cetakan. Keempat, bahan semisal kertas untuk mencetaknya. Kertas telah diketemukan di Cina bertahun sebelum mesin cetak oleh Ts'ai Lun dan penggunaannya telah tersebar luas di Eropa sebelum jaman Gutenberg. Itulah unsur satu-satunya dari proses cetak Gutenberg yang sudah siap jadi. Meskipun orang lain pernah melakukan macam-macam pekerjaan terhadap tiap-tiap komponen itu, namun Gutenberg telah berhasil melakukan macam-macam penyempurnaan. Misalnya, dia mengembangkan metal logam campuran untuk huruf cetak; menuangkan cairan logam untuk huruf cetak blok secara tepat dan teliti; minyak tinta cetak serta alat penekan yang diperlukan untuk mencetak.

Tetapi, sumbangan pikiran Gutenberg secara keseluruhan lebih besar dari siapa pun juga dalam hal penyempurnaan mesin cetak. Arti pentingnya terutama terletak pada keberhasilannya menggabungkan semua unsur mesin cetak menjadi suatu sistem yang efektif dan produktif. Karena itu mesin cetak, berbeda dengan penemuan-penemuan lain sebelumnya, merupakan proses produksi besar-besaran yang utama. Sepucuk bedil dengan sendirinya jauh lebih efektif ketimbang sebuah busur dan anak panah. Sebuah buku hasil cetakan tak banyak beda dengan sebuah buku hasil tulisan tangan. Kelebihan mesin cetak dengan demikian terletak pada segi produksi besar-besarannya. Apa yang telah dikembangkan oleh Gutenberg bukanlah sebesar sebuah alat atau penemuan akal, dan bukan sekadar serentetan penyempurnaan, melainkan suatu proses produksi lengkap. Perbendaharaan biografis kita mengenai diri Gutenberg langka sekali, kita hanya tahu dia lahir di Jerman sekitar tahun 1400 M di kota Mainz. Sumbangannya terhadap seni cetak-mencetak terjadi pada pertengahan abad dan pekerjaan terbagusnya --apa yang disebut Injil Gutenberg-- dicetak di Mainz sekitar tahun 1454 M. Anehnya, nama Gutenberg tak pernah tercantum dalam buku mana pun, tidak juga dalam Injil Gutenberg, walaupun jelas dia sendiri yang cetak dengan alat penemuannya. Gutenberg tidak pernah tampak sebagai seorang usahawan; benar-benar dia tidak punya keinginan dapat uang dari hasil penemuannya. Dia sering terlibat dengan dakwaan pengadilan yang mengakibatkan keharusan baginya membayar tebusan dalam bentuk alat-alat perlengkapannya kepada temannya bernama Johann Fust. Gutenberg wafat tahun 1468 di kota Mainz. Salah satu pengaruh Gutenberg dalam sejarah dunia dapat mendatangkan keuntungan jika kita hubungkan dengan perkembangan di Cina dan Eropa di masa-masa berikutnya. Pada saat Gutenberg lahir, kedua daerah itu hampir sama majunya. Tetapi sesudah Gutenberg menemukan mesin cetak Eropa melesat maju dengan cepatnya, sedangkan Cina --yang masih menggunakan cetak blok-- perkembangannya agak lambat. Mungkin berlebihan jika kita bilang perkembangan percetakan satu-satunya faktor yang jadi penyebab perbedaan tingkat kemajuan, tetapi penemuan itu jelas punya arti penting yang tidak bisa disingkirkan. Juga penting dicatat jika hanya tiga orang dalam daftar buku ini hidup di masa lima abad sebelum Gutenberg sedangkan enam puluh tujuh hidup di masa lima abad sesudah wafatnya Gutenberg. Ini menunjukkan betapa penemuan Gutenberg amat berarti --bahkan bisa disebut suatu penemuan penting-- dalam kaitan penarikan pelatuk revolusi kemajuan jaman modern. Alexander Graham Bell bahkan boleh saja tidak lahir ke dunia tetapi telepon tetap diketemukan pada saat yang sama dalam sejarah. Begitu juga bisa diambil contoh penemuan-penemuan lain, tanpa Gutenberg, penemuan alat cetak modern akan tertunda beberapa generasi, dan diukur dari hebatnya pengaruh yang ditimbulkannya, tak salah lagi Gutenberg dapat kehormatan tercantum dalam daftar urutan buku ini.

Web: http://media.isnet.org/iptek/100/index.html