Nass Share

Just sharing knowledge and information

Code html Jam Digital


1.  Letakan Script berikut di HEAD pada template HTML anda:

<style>
<!–
.styling{
background-color:black;
color:lime;
font: bold 15px MS Sans Serif;
padding: 3px;
}
–>
</style>

2. Langkah ke 2, letakan script berikut dimana Jam Digital mau di letakin:

<span id=”digitalclock”></span>

<script>
<!–

/*****************************************
* LCD Clock script- by Javascriptkit.com
* Featured on/available at http://www.dynamicdrive.com/
* This notice must stay intact for use
*****************************************/

var alternate=0
var standardbrowser=!document.all&&!document.getElementById

if (standardbrowser)
document.write(‘<form name=”tick”><input type=”text” name=”tock” size=”6″></form>’)

function show(){
if (!standardbrowser)
var clockobj=document.getElementById? document.getElementById(“digitalclock”) : document.all.digitalclock
var Digital=new Date()
var hours=Digital.getHours()
var minutes=Digital.getMinutes()
var dn=”AM”

if (hours==12) dn=”PM”
if (hours>12){
dn=”PM”
hours=hours-12
}
if (hours==0) hours=12
if (hours.toString().length==1)
hours=”0″+hours
if (minutes<=9)
minutes=”0″+minutes

if (standardbrowser){
if (alternate==0)
document.tick.tock.value=hours+” : “+minutes+” “+dn
else
document.tick.tock.value=hours+” “+minutes+” “+dn
}
else{
if (alternate==0)
clockobj.innerHTML=hours+”<font color=’lime’>&nbsp;:&nbsp;</font>”+minutes+” “+”<sup style=’font-size:1px’>”+dn+”</sup>”
else
clockobj.innerHTML=hours+”<font color=’black’>&nbsp;:&nbsp;</font>”+minutes+” “+”<sup style=’font-size:1px’>”+dn+”</sup>”
}
alternate=(alternate==0)? 1 : 0
setTimeout(“show()”,1000)
}
window.onload=show

//–>
</script>

 

 

Desember 22, 2011 Posted by | web | Tinggalkan komentar

Irhabi 007 (Younus At Tsouly) : Sang Legenda Cyber Jihad


Forum Al Ansar Al Islami, Agustus, tahun 2004. Seseorang dari forum jihad yang memiliki ribuan anggota tersebut mengirimkan sebuah pesan kehormatan dan pujian kepada Irhabi 007. Berikut pesannya :

‘” Kepada saudara kami Irhabi 007. Saudara kami Irhabi 007, Anda telah menunjukkan kemampuan yang sangat bagus dalam menyediakan pelayanan message board  ini, sebagaimana yang saya lihat, dan juga dalam melayani hal-hal yang berkenaan dengan jihad, masya Allah.  Demi Tuhan, kami tidak suka mendengar ada yang menyakiti Anda, jadi kami mohonkan kepada Allah, agar Anda selalu berada dalam perlindunganNya.

Anda adalah salah satu dari orang-orang top yang begitu peduli melayani saudara Anda. Semoga Allah menambahkan semua di samping kerja Anda yang bagus, dan semoga Anda selalu berhati-hati dan sukses.

Kami ucapkan lanjutkan kerja Anda dengan berkah dari Allah. Lanjutkan, semoga Allah melindungi Anda. Lanjutkan melayani hal-hal yang berkaitan dengan jihad dan para pendukungnya. Dan saya mohonkan kepada Allah Yang Maha Perkasa, Maha Mulia dan Maha Pemberi Ampunan untuk menjaga semua orang yang ingin membantu agamaNya.

Amin.”

Penghormatan dan pujian kepada Irhabi 007 di atas memang tidak berlebihan. Seseorang yang kemudian dikenal sebagai Irhabi 007 layak mendapatkannya. Nama Irhabi 007 telah begitu melegenda dalam dunia Cyber Jihad. Keahlian dan aktivitas Irhabi 007 telah begitu dikenal di dunia maya, baik oleh kawan maupun lawan. Banyak pengguna internet, terutama forum-forum jihad manca negara yang mengharapkan bisa berjumpa, bertegur sapa dengannya, meski hanya sejenak Dialah Sang Legenda Cyber Jihad, Irhabi 007.

Awal Kemunculan Irhabi 007

Siapakah Irhabi 007 ? Apa saja yang telah dia lakukan sehingga namanya menjadi legenda ? Mengapa dia melakukan semua hal yang bisa dikatakan penuh resiko tersebut ? Sejak kapan identitasnya diketahui secara umum ?

Pada awalnya, nama Irhabi 007 hanya dikenal di dunia maya. Irhaby berarti teroris dan 007 adalah angka terkenal bagi agen rahasia kerajaan Inggris (dalam film) yang bernama James Bond. Namun Irhabi 007 yang ini tidak membela Ratu (Inggris) melainkan memeranginya. Tidak ada seseorang pun yang mengetahui siapa dia sebenarnya dan dimana dia berada. Irhabi 007 hanya dikenal sebagai seorang yang sangat aktif dalam dunia maya, khususnya dalam cyber jihad. Irhabi 007 bisa dikatakan selalu dalam kondisi on line, 24 jam penuh. Irhabi 007 dikenal sebagai seorang simpatisan Al Qaeda yang juga seorang ahli komputer dan dunia cyber. Setiap harinya Irhabi 007 melakukan aktivitas dengan internet, seperti meng-convert video, termasuk video-video jihad, aksi syahid dan eksekusi murtadin di Iraq ke dalam format yang bisa ditampilkan di situs. Kelihatan sekali kalau Irhabi 007 ini banyak menguasai masalah-masalah tehnologi informasi.  Salah satu aktivitasnya yang paling menonjol adalah membuat sebuah situs dengan nama youbomit dan menjadi administrator Forum Al Ansar Al Islami yang sangat bergengsi karena melibatkan sekitar 4500 member yang kebanyakan adalah Mujahidin. 

Tidak ada yang tahu kapan persisnya nama Irhabi 007 mulai malang melintang di jagat Cyber Jihad. Kemunculan namanya pun tidak serta merta bisa memastikan dimana keberadaannya. Ini juga merupakan salah satu keahlian Irhabi 007.  Hanya saja, aktivitas Irhabi 007 mulai bisa dideteksi di tahun 2001. Aktivitas Irhabi 007 meningkat bersamaan dengan dimulainya invasi Amerika ke Iraq, tahun 2003. Saat itu, Irhabi 007 mulai aktif mengupload gambar-gambar perang Iraq di internet. Di tahun itu pula dia mulai mempublikasikan materi-materinya termasuk bagaimana menghack komputer. Bahkan dia juga sudah menulis metodenya tersebut ke dalam sebuah buku. Aktivis dan Mujahidin yang aktif di forum-forum Islam mulai mengenal dan terkagum-kagum pada keahlian dan keberanian Irhabi 007. Pihak musuh, Amerika dan sekutu-sekutunya pun mulai menyadari keberadaan Irhabi 007, yang dari namanya saja sudah cukup menyakitkan hati mereka. Maka perburuan kepada Irhabi 007 pun dimulai!

High Tech Dari Sebuah Kamar

Hampir selama dua tahun, dinas intelijen dari seluruh dunia mencoba mengungkapkan identitas Irhabi 007. Musuh-musuh Islam telah mengetahui bahwa Irhabi 007 adalah pendukung dan simpatisan Al Qaeda. Bahkan keberadaannya diyakini sebagai kunci penghubung Al Qaeda. Mereka kerapkali melihat Irhabi 007 mempropagandakan mujahidin Iraq pimpinan Syekh Abu Musab Az Zarqawi dan mengajarkan secara on line kepada mujahidin bagaimana menggunakan komputer untuk tujuan tersebut. Irhabi 007 bahkan pernah menghack komputer universitas di Amerika. Irhabi 007 memang ahlinya. Dia mampu membuat sebuah terobosan baru tentang kegunaan internet. Tidak terhitung banyaknya situs dan forum-forum Islami dengan password tertentu  bermunculan. Para mujahidin yang berkumpul dalam komunitas dunia maya dengan cepat mempunyai keahlian dalam menghack, membuat program, membuat serangan on line  serta menguasai desain digital dan media, dan Irhabi 007 merupakan seorang ahli dalam semua bidang ini sekaligus menjadi instrukturnya.

Irhabi 007 dengan keahlian dan keikhlasannya telah menggerakkan para mujahid menuju serangan abad 21 melalui kemampuannya secara tersembunyi dan terlindungi dengan menyebarkan buku pedoman persenjataan, video yang memuat aksi mujahidin, seperti eksekusi murtadin, dan materi lain yang bersifat propaganda.

Kesuksesan Irhabi 007 berasal dari kombinasi antara keahlian dan pemilihan waktu. Di awal tahun 2004, Irhabi 007  bergabung dengan forum dengan pesan yang terlindungi oleh password, yang dikenal sebagai Muntada atau Forum al-Ansar al-Islami, dan tidak lama sesudahnya dengan Forum al-Ekhlas, dua dari forum yang terlindungi password dengan ribuan anggota yang telah digunakan oleh Al-Qaeda untuk instruksi militer, propaganda, dan perekrutan. Pada saat yang sama, Syekh Zarqawi, r.h. mulai menggunakan internet sebagai alat utamanya untuk menyebarkan propaganda mengenai perjuangan mujahidin di Iraq. Syekh Zarqawi memerlukan rekan-rekan yang cerdas di bidang komputer, dan Irhabi 007 terbukti menonjol diantara pendukung lainnya, yang kebanyakan berada di Eropa.

Peranan utama Irhabi 007 mulai menjadi pembicaraan di jagat Cyber Jihad di bulan April pada tahun yang sama, ketika mujahidin di bawah kendali Syekh Zarqawi mengubah nama mereka menjadi Tandzim Al Qaeda di Iraq dan mulai mengeluarkan pernyataan resmi melalui juru bicaranya, Syekh Abu Maysara al-Iraqi, di Forum Al Ansar Al Islami. Pada pemunculan pertamanya, al-Iraqi menuliskan dengan bahasa Arab mengenai kabar baik yaitu sebuah kelompok yang terdiri dari orang-orang yang berani dan membanggakan yang diharapkan bisa menyerang kepentingan ekonomi agresor kuffar Amerika dan memenangkan pertarungan tersebut demi kebangkitan Islam.

Pada waktu itu, beberapa orang meragukan keautentikan pemunculan tersebut, namun Irhabi 007 menjadi orang pertama yang memberikan respon, menawarkan kata-kata dukungan. Tidak lama al-Iraqi menjawab tawaran tersebut dan mengukuhkan kerjasama mereka, atas peranan utama Irhabi 007.

Melewati satu setengah tahun berikutnya, Irhabi 007 membuktikan dirinya sebagai mujahidin yang dapat diandalkan yang memiliki keahlian dalam berbagai bidang berkaitan dengan internet. Irhabi 007 menjadi seorang anggota yang sangat aktif di forum-forum jihad dengan bahasa Inggris dan Arab. Dia bekerja melindungi dan memikirkan keamanan on line, membuat jaringan multimedia, dan menyelenggarakan seminar secara on line mengenai kegunaan internet. Irhabi 007 terlihat on line siang dan malam, siap menjawab pertanyaan-pertanyaan tentang bagaimana cara mengirimkan video, bahkan ia seringkali bersedia mengambil alih serta melakukan pengiriman itu sendiri. Irhabi juga memiliki kemampuan menghack situs serta berkonsentrasi mengajarkannya kepada para surfer internet secara rahasia dengan browsing tanpa nama.

Suatu ketika, Irhabi 007 pernah mengirimkan pesan sebanyak 20 halaman berjudul “ Seminar Hacker Website “, kepada forum Al-Ekhlas. Pesan-pesan tersebut berisi informasi mendetail  tentang seni hacker, lusinan daftar website yang mudah diserang, website yang dapat di upload . Irhabi 007 menggunakan sendiri strategi ini, meng up load data ke web site yang dijalankan oleh negara bagian Arkansas, kemudian Irhabi 007 juga meng up load data ke web site yang dijalankan oleh Universitas George Washington. Keahliannya tersebut membuat pihak musuh meyakini bahwa Irhabi 007 bedomisili di Amerika Serikat.

Irhabi 007 juga menggunakan website-website lain yang tidak terhitung jumlahnya untuk memberikan panduan secara gratis mengenai bahan-bahan yang diperlukan oleh para mujahid untuk di up load dan share. Sebagai tambahan dari situs-situs tersebut, Irhabi 007 menyediakan cara-cara untuk menemukan server yang mudah diserang, sekaligus juga saran untuk mengamankan situs tersebut. Dengan cara ini, para mujahid dapat menggunakan bantuan pihak ketiga untuk menyebarkan propaganda mereka, sehingga mereka tidak perlu beresiko menggunakan ruang web mereka sendiri dan yang terpenting mereka tidak menggunakan uang mereka sendiri.

Kemampuan Irhabi 007 dalam Cyber Jihad bermanfaat tidak hanya dalam pertukaran media, tetapi juga dalam pendistribusian dalam skala besar semua produksi Al Qaeda. Dalam suatu kejadian, Irhaby membuat sebuah page untuk menyebarluaskan sebuah film yang diproduksi oleh Al-Qaeda, khususnya Syekh Zarqawi yang berjudul “ Semua Demi Agama Allah “. Alamat page tersebut adalah  http://www.alaflam.net/wdkl.

Jaringan itu, di up load  di bulan Juni 2005, menyediakan berbagai outlet dimana para pengunjung dapat menemukan video tersebut. Bila ada sebuah kejadian yang menyebabkan salah satu situs tidak dapat digunakan, maka ada banyak sumber lain yang tersedia sebagai pendukung. Beberapa di antaranya berada pada domain seperti http://www.irhabi007.ca atau http://www.irhabi007.tv , menunjukkan keterlibatan Irhaby yang sangat kuat. Film tersebut, yang dikeluarkan secara khusus oleh Al Qaeda di Iraq, menampilkan ceramah dan nasihat dari Syekh Usama bin Laden yang sangat bermanfaat bagi para mujahidin, uraian mengenai penjara Abu Ghraib, dan pernyataan politik mengenai aturan Perdana Menteri Murtadin Iraq Ayad Allawi.

Siapa sangka, kecanggihan dunia maya dalam Cyber Jihad ini dilakukan oleh Irhabi 007 melalui kamar tidurnya yang berantakan. Semua itu tidak menghalangi Irhabi 007 yang kemudian dikenali sebagai seorang pemuda muslim berusia 23 tahun, mahasiswa TI di sebuah universitas di London. Dialah Younus At Tsouly, alias Irhabi 007.

Keahlian-Keahlian Irhabi 007

Jika dikumpulkan, keahlian-keahlian dan sepak terjang Irhabi 007 dalam dunia Cyber Jihad meliputi ; keahlian di bidang hacking (membobol ke dalam sistem komputer) dan cracking (dapat melewati penjagaan keamaanan software). Beliau juga mengajarkan kaum muslimin bagaimana cara untuk menyembunyikan diri mereka sendiri dari deteksi.

Komputer yang digunakan Irhabi 007 juga memiliki kemampuan membobol ke dalam server-server web yang tidak terproteksi dan menggunakan File Transfer Protocol (FTP), sebuah mekanisme untuk tukar-menukar file melalui Internet, untuk memposting file yang berhubungan dengan jihad. Teknik ini memungkinkan yang lainnya untuk mengakses secara cepat sejumlah besar file yang beliau posting ke server-server yang di hack. Di antara file-file Irhabi 007 yang disebarkan melalui metode ini adalah file klip-klip audio dan video pimpinan Al Qaeda, termasuk Syekh Usama bin Laden, Syekh Ayman al Zawahiri dan Syekh Abu Musab al Zarqawi.

Irhabi 007 juga berkemampuan menggunakan jasa web hosting gratis, beberapa diantaranya berlokasi di Amerika Serikat, untuk membuat situs-situs web baru. Dalam kaitannya dengan bandwidth yang terbatas (jumlah dan kecepatan data yang dikirimkan) yang biasanya ditawarkan oleh jasa hosting gratis, jasa ini merupakan jasa paling utama yang digunakan beliau untuk memasang link kepada materi yang berlokasi di server-server lainnya, termasuk bermacam-macam situs FTP yang kendalinya telah dia ambil alih.

Beberapa alamat Web yang dibuatnya merupakan variasi dari nicknamenya (nama panggilan, pent) saat online, seperti “erhabi”, “007irhabi,” dan “irhaby007;” dia menamakan dua dari situsnya yang lain “alqa3edah” (seperti Al Qaeda) dan “deadzionists” (matilah para zionis, pent). Para pengunjung situs ini bisa mengakses link-link untuk buku pedoman penggunaan senjata dan klip-klip audio dan video yang mendukung usaha-usaha Al Qaeda di Iraq dan Eropa, termasuk video-video pasukan Amerika yang dipenggal di Iraq.

Dalam rangka untuk mengambil manfaat dari jasa web hosting yang lebih baik, yang tersedia bagi pelanggan yang membayar, Irhabi 007 menggunakan informasi kartu kredit dan kartu identitas pada musim panas 2005. Salah satu situs yang beliau buat dengan memanfaatkan informasi dikenal sebagai “alerhaab.” Beliau menyatakan bahwa “alerhaab” digunakan oleh kelompok jihad sesungguhnya untuk mengirim materi-materi jihadi, tetapi informasi registrasi situs tersebut terdaftar atas nama seorang wanita Inggris yang tinggal di daerah London. Situs ini dapat menelusur balik kepada Irhabi 007 karena alamat email yang terdaftar di registrasi bukan atas nama wanita Inggris, tetapi benar-benar alamat yang digunakan oleh Irhabi 007. Beliau  mengulangi kecakapannya untuk mendaftarkan situs-situs web dengan informasi yang telah dimanfaatkannya secara cepat beberapa kali.  Sebagai contoh, situs “irhaab007″ yang didaftarkan atas nama anggota pasukan Khusus Angkatan Darat Amerika Serikat yang tinggal di Pennsylvania.

Pada bulan Juli 2004, Irhabi 007 melakukan tindakan yang luar biasa berani menyita perhatian FBI ketika dia membajak server FTP yang dioperasikan oleh Departemen Jalan Raya Arkansas dan Transportasi menjelmakannya menjadi papan pesan Al Qaeda. Beliau memposting lusinan file audio dan video jihadi sehingga yang lainnya dapat dengan bebas mendownloadnya. File-file ini termasuk video-video yang dibuat oleh kelompok gabungan Al Qaeda di Saudi Arabia yang bertanggung jawab terhadap serangan atas perumahan yang didiami para karyawan luar negeri di Kerajaan pada bulan November 2003.

Pada bulan Agustus 2004 Irhabi 007 kembali menarik perhatian pelaksana hukum Austria karena memposting peta garasi bawah tanah di Vienna. Dalam kisaran waktu tersebut, pemerintah di Amerika Serikat dan Kerajaan Inggris, seperti halnya ahli-ahli di luar pemerintahan, dibuat kebingungan dengan sepak terjang Irhabi 007 di dunia maya. Mereka pun dengan serius berusaha melacak lokasi Irhaby 007 dengan dengan menggunakan beragam metode pelacakan.  


Sang Legenda Cyber Jihad Yang Terus Hidup

Takdir Allah pasti terjadi pada setiap hambaNya. Di bulan Oktober 2005, Irhabi 007 menghilang dari message boards. Nick Name Irhabi 007 tidak terlihat lagi on line di forum-forum jihad. Sebagian anggota pun mulai bertanya-tanya, apa yang terjadi dengan ‘pahlawan’ mereka. Teryata, pihak kepolisan Skotland Yard, Inggris, berhasil menahan seorang pemuda berusia 23 tahun yang berasal dari London Barat, bernama Younus At Tsouli. Penangkapan ini lebih banyak karena faktor keberuntungan.

Awalnya, di bulan Oktober 2005, polisi Bosnia menahan beberapa orang pemuda di Sarajevo atas tuduhan terorisme. Selama penggeledahan apartemen mereka, pihak kepolisian juga membongkar dan mengacak-acak rekaman telepon dan email mereka. Dari sinilah penyelidikan juga mengarahkan polisi Inggris untuk menangkap Younus Tsouli, Waseem Mughal, dan Tariq Al-Daour, dengan dakwaan di bawah Undang-undang Terorisme Kerajaan Inggris. Tsouli dan Mughal didakwa dengan 10 pelanggaran, termasuk konspirasi pembunuhan, konspirasi untuk melakukan peledakan, konspirasi untuk memperoleh uang dengan melakukan penipuan, pengembangan dana dan memiliki artikel-artikel untuk tujuan terorisme. Sebelumnya, pihak kepolisian Inggris tidak mengetahui siapa Tsouli yang telah ditangkapnya itu. Tapi, bagaikan mendapat durian runtuh, Tim investigator Inggris akhirnya dengan gembira menyatakan mereka yakin bahwa Younus At Tsouli adalah Irhabi 007. Anehnya, sejauh ini tidak ada dakwaan yang secara langsung berkaitan dengan aktifitasnya sebagai Irhabi 007 di internet, tetapi dakwaan yang diberikan pada Tsouli sudah banyak sekali.

Memang, sebagian orang akan beranggapan bahwa butuh waktu yang sangat lama bagi Younus At Tsouli alias Irhabi 007 untuk dapat on line kembali. Namun, pada kenyataannya, meski pun dia telah ditangkap, diadili, dan saat ini telah dijatuhi hukuman penjara oleh pemerintahan Inggris, namun nama Irhabi 007 sudah terlanjur menjadi legenda bagi dunia Cyber Jihad. Dalam forum-forum jihad Islam, bermunculan Copy Cat yang menggunakan nick name serupa atau paling tidak hampir sama dengan nick name beliau, misalnya Teroris 007, Mujahid 007, atau Terrorist. Juga situs-situs dengan nama Irhaby. Hal ini menunjukkan bahwa di dunia maya banyak yang mengagumi Irhaby 007.

Sebuah lembaga kontra terorisme bernama Institut SITE bahkan secara khusus membuat sebuah studi kasus tentang sepak terjang Irhabi 007 dengan cara memonitor dan kemudian menggabungkan antara forum yang terlindungi password dan berkomunikasi dengan komunitas jihad online.

Sebuah stasiun televisi juga telah membuat laporan tentang Irhabi 007, berbahasa Inggris, lengkap dengan analisa dan perspektif dari para pakar IT, pihak kepolisian, hingga kalangan awam. Semua ini menggambarkan pengaruh yang sangat luar biasa dalam bidang Cyber Jihad dari seorang Irhabi 007.

Irhaby 007 pun sudah membuat sebuah buku berjudul Panduan Menjadi Hacker Muslim yang ditulisnya sendiri dan telah tersebar di hampir seluruh forum-forum Islam. Bahkan, dengan sangat canggih Irhabi 007 telah mengantisipasi ketidakmunculannya (seakan tahu bahwa aktivitasnya beresiko terhadap penahanan dirinya). Beberapa bulan sebelumnya, Irhabi 007 mengeluarkan surat wasiatnya di internet. Di dalamnya ia menyediakan jaringan yang membantu keamanan internet dari para pengunjung dan keahlian menghack di tengah ketidakhadirannya, yakni sebuah rubrik bagi para mujahid mencari cara untuk melanjutkan pelayanan untuk tindakan berani mereka. Irhabi 007 mungkin telah ditangkap, tetapi warisan on linenya akan menghasilkan ribuan Irhabi 007 yang baru. Sungguh, nama Younus At Tsouli alias Irhabi 007 telah menjadi legenda bagi para mujahidin dalam dunia Cyber Jihad. Wallahu’alam bis showab!

Source:

Jihad Magazine edisi II

Rubrik Support Jihad Media

Ar Rahmah Media Network

http://ww.arrahmah.com

Desember 18, 2011 Posted by | Uncategorized | | Tinggalkan komentar

Beberapa contoh CODE VBE


Auto Run

Adabeberapa cara untuk membuat macros yang kita buat berjalan secara otomatis ketika pertama kali membuka workbook. Yang pertama adalah Auto Open Method, yang diletakkan di modules, kedua adalah Workbook Open Method, yang diletakkan di pada obyek Workbook (lihat penjelasan pada langkah 3). Dua Contoh kode berikut akan menampilkan pesan “hi” ketika Workbook pertama kali dibuka.

 

Sub Auto_Open( )

Msgbox “hi”

End Sub

 

Private Sub Workbook_Open( )

Msgbox “hi”

End Sub

 

Menghitung Rows, Columns dan Sheet

Kode berikut digunakan untuk menghitung berapa jumlah rows (baris) atau columns(kolom) yang telah kita sorot dengan kursor.

 

Sub Hitung( )

hitung_baris = Selection.Rows.Count

hitung_kolom = Selection.Columns.Count

MsgBox hitung_baris & ” ” & hitung_kolom

End Sub

 

Sub hitung_sheet( )

hitung_sheet = Application.Sheets.Count

Msgbox hitung_sheet

End Sub

 

 

Meng-kopiRange

Contoh berikut akan meng-kopi range A1 sampai A3 ke D1 sampai D3

Sub Kopi_Range( )

Range (“A1:A3”).Copy Destination:=Range(“D1:D3”)

End Sub

 

Waktu Sekarang

Contoh berikut akan menampilkan waktu pada saat ini

Sub sekarang( )

Range (“A1”)= Now

End Sub

 

Mengetahui Posisi Sel yang Sedang Aktif

Sub posisi( )

baris = ActiveCell.Row

kolom = ActiveCell.Column

Msgbox baris & “,” & kolom

End Sub

 

Menghapus Baris yang Kosong

Sub hapus_baris_kosong( )

Rng = Selection.Rows.Count

ActiveCell.Offset(0, 0).Select

For i = 1 To Rng

If ActiveCell.Value = “” Then

Selection.EntireRow.Delete

Else

ActiveCell.Offset(1, 0).Select

End If

Next I

End Sub

 

Menebalkan dan Mewarnai Huruf (Font)

Contoh berikut akan menebalkan dan memberi warna merah pada huruf dimana sel sedang aktif.

Sub tebal_merah( )

Selection.Font.Bold = True

Selection.Font.ColorIndex = 3

End Sub

 

Mengirimkan Workbook melalui Email

Sub email( )

ActiveWorkbook.SendMail recipients:= ”excel@ahoo.c”

End Sub

 

Fungsi Excel

Menggunakan fungsi bawaan Excel dalam VBE hampir sama dengan menggunakannya dalam Excel. Misal fungsi round untuk membulatkan sebuah angka, dalam spreadsheet akan terlihat seperti ini

= round(1.2367, 2)

Dalam VBE Anda cukup menggunakan Application kemudian disusul fungsi yang akan dipakai.

Sub bulat( )

ActiveCell = Application.Round(ActiveCell, 2)

End Sub

Menghapus Nama-Nama Range

Contoh berikut akan menghapus semua nama-nama range di dalam workbook Anda

Sub hapus_nama_range( )

Dim NameX As Name

For Each NameX In Names

ActiveWorkbook.Names(NameX.Name).Delete

Next NameX

End Sub

Layar Berkedip

Program dalam macros yang sedang berjalan dapat membuat layar berkedip-kedip, untuk menghentikannya Anda dapat menyisipkan kode berikut.

Application.ScreenUpdating = False

 

MenujuRangeTertentu

Untuk menuju suatu range tertentu, kode-kode berikut dapat digunakan.

Application.Goto Reference:=”A1”

Atau,

Range(“A1”).Select

 

Menuju Sheet tertentu

Sedangkan untuk menuju worksheet tertentu, gunakan kode-kode berikut.

Sheets(1).Select

Atau

Sheet1.Select

Untuk menuju Sheet terdepan (nomor 1)

Sheet(“coba”).Select

Untuk menuju Sheet bernama “coba”

 

Menyembunyikan WorkSheet

Kode berikut berfungsi untuk menyembunyikan Sheet1

Sheet1.Visible = xlSheetVeryHidden

Pengguna tidak dapat membuka sheet yang telah disembunyikan dengan cara ini, hanya dengan kode VBE sheet dapat dibuka kembali.

 

Input Box

Kode berikut berguna untuk memunculkan Input Box

InputBox(“Masukkan Nama”)

 

Menyisipkan Baris dan Kolom

Kode berikut akan menyisipkan baris diatas range A1,

Range(“A1”).Select

Selection.EntireRow.Insert

Sedang yang berikut akan menyisipkan satu kolom disamping kiri range A1,

Range(“A1”).Select

Selection.EntireColumn.Insert

 

MengaturUlangUkuranRange

Selection.Resize(7,7).Select

 

MemberiNamaRange

Selection.Name = “nama”

 

Menyimpan File

Kode berikut berguna untuk menyimpan file tanpa memberi nama,

ActiveWorkbook.Save

Sedangkan bila Anda hendak memberi nama (SaveAs), gunakan kode berikut,

ActiveWorkbook.SaveAs Filename:=”C:\coba.xls”

Penjadwalan

Kadang-kadang kita hendak menjadwalkan sebuah tugas kepada Excel, contohnya menyimpan file pada jam-jam tertentu. VBE dapat melakukannya dengan menggunakan fungsi Application.OnTime. Sebagai contoh, kode dibawah ini akan menjalankan prosedur Simpan( ) pada jam12:00 dan16:00, prosedur Simpan( ) sendiri berisi perintah untuk menyimpan file,

Sub tugas()

Application.OnTime TimeValue(“12:00:00”), “Simpan”

Application.OnTime TimeValue(“16:00:00”), “Simpan”

End Sub

 

Sub Simpan()

ActiveWorkbook.Save

End Sub

Bila Anda hendak merubah jamnya, missal jam 10:03:05, maka rubah TimeValue menjadi TimeValue(“10:03:05”).

Sedangkan bila Anda hendak melakukannya satu jam setelah prosedur tugas( ) dijalankan maka rubahlah kodenya seperti demikian,

 

Sub tugas()

Application.OnTime Now + TimeValue(“01:00:00”), “Simpan”

End Sub

 

Perhatikan penambahan kata “Now”. Kode-kode di atas bekerja bila disimpan dalam module, bula Anda ingin menyimpannya di dalam Sheet1 (atau worksheet manapun), maka rubahlah “Simpan” menjadi Sheet1.Simpan

Desember 17, 2011 Posted by | VB-Excel | Tinggalkan komentar

Mengendalikan Range


MengendalikanRangemerupakan hal yang penting dalam pemograman VBE. Mari kita mulai, pertama buatlah sebuah file contoh.xls. Kemudian buatlah sebuah makro dengan cara Record New Maro,

beri nama macro tersebut dengan nama Coba, dan shortkey tombol q di keyboard Anda.

ketikan kata coba pada range A1


lalu Stop Recording Macro


Lihat hasil pencatatan pada Visual Basic Editor Excell Anda,

kode Macros akan tertulis pada module1,

Range(“A1”).Select

Merupakan perintah pada VB Excell untuk memilih range A1, bila “A1” diubah menjadi “A4” maka kata “coba” akan dituliskan pada range A4.

ActiveCell.FormulaR1C1 = “coba”

Berarti pada sel aktif yang telah dipilih (select) rumus (Formula) “coba” akan dituliskan. Activecell sendiri menunjuk pada sel dimana kursor aktif.

Rangkaian kode di atas dapat disederhanakan dengan kode seperti berikut ;

bila dijalankan, maka kode ini akan menghasilkan yang sama dengan sebelumnya.

MenggunakanRangedengan Cell

Kita dapat membuat sebuah range pada Excell sebagai “titik pusat” lalu dengan bantuan Cells(Rowindex, Columnlindex)., kita dapat menempatkan sebuah nilai atau rumus disekitarRange yang menjadi pusat. Sebagai contoh tuliskan kode ini pada Sub Coba()

Range(“D5”).Cells(1, 1).Value = “pusat”

Range(“D5”).Cells(0, 1).Value = “atas”

Range(“D5”).Cells(2, 1).Value = “bawah”

Range(“D5”).Cells(1, 0).Value = “kanan”

Range(“D5”).Cells(1, 2).Value = “kiri”

jalankan program, maka hasilnya akan seperti demikian;

dapat dilihatRange(“D5”).Cells(1,1) adalah Range D5 yang menjadi pusat.

BilaRangetidak disebutkan maka secara default , Range yang menjadi titik pusat adalah Range A1. Anda harus berhati-hati ketika memilih range-range yang berada di tepi, seperti A1, A2, B1, C1, dst. Sebab tidak ada lagi range di atas atau di tepi kanan range-range tersebut.

Bila kita menginginkan sel yang menjadi titik pusat adalah sel dimana kursor aktif, maka kode berikut dapat digunakan

ActiveCell.Offset(0, 0).Value = “pusat”

ActiveCell.Offset(0, 1).Value = “kiri”

ActiveCell.Offset(0, -1).Value = “kanan”

ActiveCell.Offset(1, 0).Value = “bawah”

ActiveCell.Offset(-1, 0).Value = “atas”

buka Sheet1, pilih Range D5

lalu tekan Ctrl +q, maka akan menghasilkan

kemudian pilih range H15, tekan Ctrl+q maka akan dihasilkan,

Selain dengan kode diatas, terdapat cara lain

bila dijalankan maka hasil yang sama akan didapatkan.

Menunjuk sel pada worksheet tertentu

Karena ditulis di module maka kode-kode diatas bekerja pada Worksheet yang aktif. Artinya bila Sheet1 yang sedang tebuka maka program aka dijalankan pada Sheet1. Bagaimana bila kita menginginkan agar range yang ditunjuk berada di dalam sheet tertentu. Caranya cukup dengan menuliskan nama worksheet di depan range, sebagai contoh:

Sheet1.Range(“A1”).value=”oke”

Akan mengacu pada range A1 pada Worksheet Sheet1, bila kita menginginkan agar range A1 pada Sheet2 maka ganti kode sebelumnya dengan:

Sheet2.Range(“A1”).value=”oke”

Cara penulisan lain juga dapat dilakukan, contohnya:

Set Pesan = Sheets(“sheet3”).Range(“A1”)

Set Pesan = Sheets(2).Range(“A1”)

Multiple Range

Kita sudah mempelajari bagaimana menujuk sebuah range tunggal sebagai sasaran pemograman. Sekarang bagaimana bila kita menginginkan multiple range.

Range (“A1:C3”).value = ”oke”

Range(“A1”,”D4”).value = “oke2”

Kode-kode di atas menunjuk pada multiple range. Pada kode pertama yang ditunjuk adalah range A1 sampai C3, sedanga yang kedua adalah A1 sampai D4.

Range Bernama

Bagi Anda yang sering menggunakan Excel, mungkin sering memberi nama pada sebuah range untuk mempermudah pekerjaan. Pertanyaan dapatkah menunjuk range bernama tersebut dalam VB Excel ? jawabannya, DAPAT!!

Misalkan Anda memiliki sebuah range yang bernama “sel”, maka range ini dapat ditunjuk dengan kode Range (“sel”), sebagai contoh:

Range (“sel”).value = ”ini sel”

MembuatSebuahVariabeldariRange

Membentuk sebuah variabel dari range sangatlah mudah pada VBE. Tujuannya agar mempermudah dalam pemograman. Pertama kita harus membuat dimensinya terlebih dahulu, caranya dengan menuliskan kode seperti ini:

Dim Pesan As Range

Kemudian kita set variabel tersebut, sesuai dengan range yang kita inginkan ;

Set Pesan = Range(“A1”)

Atau

Set Pesan = Range(“A1”).Cells(1, 2)

atau

Set Pesan = Sheet1.Range(“A1”)

atau

Set Pesan = Sheets(“Sheet3”).Range(“A1”)

Kemudian kita dapat melakukan operasi range pada variabel yang telah dibentuk. Sebagai contoh

Dim Pesan As Range

Set Pesan = Sheet1.Range(“A1”)

Pesan.Value = “pesan nih”

Pesan(1, 2).Value = “pesan kedua”

Range A1 pada Sheet1 akan tertulis “pesan nih” dan range A2 akan tertulis “pesan kedua”. Sebab Pesan(1,2) sama dengan Sheet1.Range(“A1”).Cells(1,2).

Sebenarnya kita dapat membentuk variabel tanpa membuat dimensinya terlebih dahulu, tetapi cara ini idak dianjurkan karena memboroskan memori. Caranya adalah seperti demikian:

Set Pesan = Sheet1.Range(“A1”)

Pada kasus ini perintah-perintah berikut bisa bekerja,

Pesan.Value = “pesan nih”

Pesan(1, 2).Value = “pesan kedua”


http://belajar-vbe.blogspot.com/

Desember 17, 2011 Posted by | VB-Excel | Tinggalkan komentar

Memulai Makro Excel


Untuk membuat Makro Excel Anda harus membuka sebuah file Microsoft Excel(contohnya book1.xls). Selanjutnya Anda dapat membuat Makro dengan beberapa cara :

  1. Create Macro (Alt + F8)

Pertama- tama buatlah dan bukalah sebuah file Excell bernama contoh.xls. Pada menu Tools, tunjuk Macro lalu tunjuk Macros

, kemudian klik kiri Mouse (atau tekan Alt +F8),

sehingga muncul tampilan seperti berikut,

 

Ketikan nama Makro yang dikehendaki pada isian Macro name, contohnya : coba. Maka akan tombol create akan aktif

tekan tombol create, sehingga tampilan berikut akan muncul

 

maka Anda telah membuat sebuah Modul Visual Basic Aplication (VBA) bernama Module1 dan sebuah prosedur VBA bernama coba ().

Anda dapat memilih agar Makro ini bekerja di seluruh file Excel yang terbuka (All Open Workbooks), hanya pada file yang sedang Anda buka (This Workbooks), atau pada file contoh.xls, file Excell dimana Anda membuat Makro-nya. Dengan cara memilih pilihan tersebut pada Macros In.

  1. Record New Macro

Cara kedua ini merupakan favorit penulis, sebab dengan cara ini kita dapat membuat kode visual basic tanpa harus menuliskannya. Pada dasarnya, semua operasi Excell dapat dilakukan oleh Macros. Operasi itu dapat dicatat oleh Macros melalui Record New Macros. Kemudian kita dapat mengubah kode-kode VBA yang dihasilkan oleh operasi yang tercatat tersebut.

Untuk memulai mencatat Makro maka pada menu Tools, sorot Macro kemudian sorot Record New Macros lalu klik kiri Mouse,

sehingga tampilan berikut muncul,

Kolom isian “Macro name: dimana Anda mengisikan nama Macro. Kolom “Shortcut key” bila Anda hendak membuat shortcut key dari keyboard (Ctrl+ tombol keypad yang Anda inginkan). “Store Macro in” merupakan kolom isian untuk menentukan dimana macro akan disimpan, pilihannya adalah This Workbook, New Workbook dan Personal Macro Workbook

. Dan kolom “Description”, bila Anda ingin memberi penjelasan singkat mengenai Macro yang akan Anda catat.

Sebagai contoh, kita akan mencatat Macro bernama “ok”, yang mencatat operasi Excell berupa pengisian sel A1 dengan kata “ok”, dan mempunyai shortcut key Ctrl + q.

Pertama-tama lakukan langkah-langkah yang telah disebutkan sehingga muncul tampilan sebagai berikut,

lalu tekan tombol OK.

Pencatatan sedang dilakukan, isilah sel A1 dengan kata “ok”, lalu pada Menu Tools, sorot Macro, kemudian tekan Stop Recording dan pencatatan akan berhenti.

Untuk melihat kode VBA yang telah tercatat, pada menu Tools sorot Macro, sorot Macros.

 

Pilihlah “ok” pada “Macro name:” lalu tekan tombol “Edit”, sehingga akan muncul tampilan sebagai berikut,

Cobalah merubah Range(“A1”) menjadi Range(“A2”), simpan dengan menekan gambar disket atau Ctrl + S. Kembali ke contoh.xls, tekan Ctrl + q dari Keyboard, dan lihat apa yang terjadi.

  1. Visual Basic Editor (Alt +F11)

Bila Anda sudah mengenal pemograman Visual BASIC, maka cara ini tidaklah sulit. Bahkan kadang-kadang Anda akan sering melakukannya. Untuk menampilkan

Visual Basic Editor Anda cukup menekan Alt+F11 maka tampilan berikut akan muncul,

selanjutanya Anda bisa menyisipkan Module, ClassModule dan UserForm, dan mulai melakukan pemograman seperti yang Anda lakukan di VB6. Seperti Anda lihat lembar kerja (WorkSheet) pada Excell merupakan Objek di VBE.

http://belajar-vbe.blogspot.com/

Desember 17, 2011 Posted by | VB-Excel | Tinggalkan komentar

Habibie: Quo Vadis Indonesia?


JAKARTA, KOMPAS.com – Bacharuddin Jusuf Habibie (75) dalam Kuliah Kenangan Sutan Takdir Alisjahbana di Taman Ismail Marzuki Jakarta, Rabu (14/12) malam, mengambil judul, “Quo Vadis Indonesia?”
kita kaya tapi miskin kaya sumber daya alam, miskin penghasilan. Kita besar tapi kerdil besar wilayah dan penduduk, kerdil produktivitas dan daya saingnya. Merdeka tapi terjajah merdeka secara politik, terjajah secara ekonomi

“Saya ingin menyampaikan lewat Power Point (program komputer untuk presentasi), tetapi tidak ada. Saya minta, pemerintah daerah supaya melengkapi gedung ini (Teater Kecil, Taman Ismail Marzuki) supaya diberi fasilitas yang modern,” kata Habibie.

Habibie menguraikan kekinian tentang masyarakat yang menjadii konsumen produksi masyarakat negara lain.

Habibie mempertanyakan, bagaimana masyarakat dapat berkembang dan menjadi unggul jika karya dan produksinya tidak dibina sedini mungkin? Bagaimana masyarakat harus bersaing dengan masyarakat (negara lain) yang telah menikmati insentif pembinaan dan pengembangan?

“Sadarkah kita bahwa di dalam produk impor tersembunyi jam kerja masyarakat lain?” kata Habibie.

Habibie meenyebut, kita kaya tapi miskin (kaya sumber daya alam, miskin penghasilan). Kita besar tapi kerdil (besar wilayah dan penduduk, kerdil produktivitas dan daya saingnya). Merdeka tapi terjajah (merdeka secara politik, terjajah secara ekonomi). Kuat tapi lemah (kuat dalam anarkisme, lemah dalam menghadapi tantangan global). Kemudian, kita itu indah tapi jelek (indah potensi dan prospeknya, jelek dan korup dalam pengelolaannya).

“Mau ke mana kita? Quo vadis Indonesia?” kata Habibie.

Desember 15, 2011 Posted by | Uncategorized | Tinggalkan komentar

How to install VBA for Excel 2007 from your Office CD


rint this webpage and follow the instructions

Note: Users of Excel (2010) or earlier versions (1997 to 2003) do not need to install anything. This installation procedure is for users of Excel 2007 ONLY.

In Excel in 2007 the user needs to install VBA for Excel to be able to develop, maintain or modify macros.

This is how to do it:

– Click on the “Start” button at the bottom of your screen and chose “Control Panel”.

– Double click on “Add or Remove Programs”

– Select “Microsoft Office”( it can read “Enterprise 2007 or “Home 2007…) from the list of programs

– Click on “Change”

– Select “Add or Remove Features” and click on “Continue”

– Expand “Office Shared Features” with the + sign

– Select “VBA for Application” and click on “Continue”

Now that VBA is installed you need to show the “Developer” item on your toolbar. To do so click on the Office button:

then select “Excel Options” at the bottom of the window:

Select “Popular” and check “Show Developer in the Ribbon”:

You should now see a new item on your Excel menu bar “Developer” and you can develop macros when you are ready.

http://www.excel-vba.com/

Desember 14, 2011 Posted by | Computer dan IT | Tinggalkan komentar

Cara bikin localhost di Backtrack


start apache setiap boot diatas runlevel 2

Code:
root@bt:~# update-rc.d apache2 defaults 20

start mysql setiap boot diatas runlevel 2

Code:
root@bt:~# update-rc.d mysql defaults 20

aktifin mod rewrite apache

Code:
root@bt:~# a2enmod rewrite
root@bt:~# nano /etc/apache2/sites-enabled/000-default

edit AllowOverride ke “All”

Code:
<directory var="" www="">
	Options Indexes FollowSymLinks MultiViews
	AllowOverride All
	Order allow,deny
	allow from all
</directory>
Code:
root@bt:~# reboot

http docs ada di /var/www/

 

Desember 14, 2011 Posted by | Computer dan IT | Tinggalkan komentar

Cara koneksi jaringan di Backtrack dengan text mode


Text mode (terminal / konsole)

static ip

Code:
# nano /etc/network/interfaces

cari dan delete untuk ip dhcp, contoh device eth0

Code:
iface eth0 inet dhcp

tambahin baris berikut dan edit sesuain interface dan ip, contoh device eth0 :

Code:
iface eth0 inet static
address 192.168.1.100
netmask 255.255.255.0
network 192.168.1.0
broadcast 192.168.1.255
gateway 192.168.1.254

save DNS info (contoh, DNS google)

Code:
# echo nameserver 8.8.8.8

restart network service

Code:
# service networking restart

test internet

Code:
# host google.com

dhcp ip

contoh device eth0

Code:
# dhclient eth0

contoh device wlan0

Code:
# dhclient wlan0

Desember 13, 2011 Posted by | Computer dan IT | Tinggalkan komentar

kplayer di bt4 (multimedia player)


ganti repository backtrack apt ke repository ubuntu 8.10 yang original (telkom foss)

1 root@bt:~# kate /etc/apt/source.list

ex:

01 #deb http://archive.offensive-security.com pwnsauce main microverse macroverse restricted universe multiverse
02 #deb http://archive.offensive-security.com/repotest/ ./   # BackTrack Devel Repository
03
04 ## ubuntu indonesia ##
05
06 deb http://dl2.foss-id.web.id/ubuntu intrepid main restricted universe multiverse
07 deb http://dl2.foss-id.web.id/ubuntu intrepid-updates main restricted universe multiverse
08 deb http://dl2.foss-id.web.id/ubuntu intrepid-security main restricted universe multiverse
09 deb http://dl2.foss-id.web.id/ubuntu intrepid-backports main restricted universe multiverse
10 deb http://dl2.foss-id.web.id/ubuntu intrepid-proposed main restricted universe multiverse

install kplayer

1 root@bt:~# apt-get update
2 root@bt:~# apt-get install kplayer gstreamer0.10-*

Good Luck! :p

http://ray16.info/~me/?p=559

Desember 13, 2011 Posted by | Computer dan IT | Tinggalkan komentar