Rabu, Januari 28, 2009

Menggabungkan PCMAV dan CalmAV (antivirus)

Selama tahun 2008 gejala menjamurnya VM (virus maker) lokal sudah harus diwaspadai, kurang lebih 24 virus made in Indonesia Raya telah lahir dari otak-otak kreatif, pinter, cerdas dan usil. Oke lah.. virus banyak bermunculan dengan diimbangi oleh semakin canggihnya antivirus (" tetapi virus pasti lebih dulu muncul dari anti virusnya, beda dengan telur dan ayam , he..].he...") .Banyak terdapat antivirus baik yang komersil maupun free dan made in luar negeri maupun made in Indonesia Raya. Ada salah satu antivirus made in Indonesia Raya yang cukup handal dan murah, yaitu PC Media Antivirus (PCMAV), biasanya terdapat pada cd yang disertakan dari pembelian tabloid PC Mild ataupun PC Media. Dan ada lagi satu antivirus ClamAV adalah antivirus open source unutk unix yang berlicency GPL (general publik licence). Dari penggunaan double/gabungan milik PCMAV dan ClamAV akan dapat hasil pendeteksian virus lebih banyak lagi. Dengan konsekuensi proses scanningnya akan lebih lama karena banyaknya database punya ClamAV.
Cara penggabungan 2 Kekuatan Antivirus PCMAV dan ClamAV :
1. Copy file PCMAV-CLN.exe dan PCMAV-RTP.exe ke folder sesuka anda di komputer. misal : C:\PCMAV.
2. ekstrak file clamav-win32-).94.17z yang ada difolder ClamAV Library dengan WinRar ke folder sesuka anda. Copy 3 files bernama libclamav.dll ; libclamunrar.dll ; libclamunrar_iface.dll ke folder C:\PCMAV.
3. Dari folder ClamWin 0.94, copy file main.cvd dan daily.cvd and taruh ke folder C:\PCMAV.
4. Total ada 7 files dalam folder C:\PCMAV. and than jalankan PCMAV-CLN.exe.
5 Untuk meng-update database ClamAV, tinggal ganti file daily.cvd yang ada di folder C:\PCMAV dengan yang baru, bisa di download dari http://db.xlamav.or.id/daily.cvd.

Semoga artikel ini dapat sedikit membantu untuk mencegah malware yang menggangu.
Sudah lama tidak mem-posting blog, lagi banyak urusan di real life. Baru sibuk persiapan membuat SMK dan RSK. Bingun siapa-siapa yang mau di kasih istimewa dan buruk.Maklum pencapaian nya minim 101, bla..bla.. % Gimana cabang lain, mempunyai kendala sama atau beres-beres saja. Udahlah yang penting tetap semangat. Sukses selalu.!!!!!!!!!!!!!!!!!!!!!!!!!

by h2o

Rabu, November 19, 2008

"THE PRICE IS REALLY UP TO YOU", SAYS RADIOHEAD

by Hermawan Kertajaya

Silakan membayar berapa saja. Kalau tidak mau membayar sama sekali juga tidak apa-apa
Itulah yang kira-kira dikatakan Radiohead kepada setiap orang yang ingin mendapatkan album terbaru mereka (saat itu), "In Rainbows".
Ya, band rock alternatif asal Oxfordshire, Inggris ini meluncurkan album mereka yang ketujuh secara online di Internet pada 10 Oktober 2007. Ke-15 lagu dalam album "In Rainbows" tadi bisa didown-load di situs www.radiohead.com atau www.inrainbows.com.
Yang menarik, Radiohead tidak mengenakan harga khusus untuk lagu-lagu tadi. Jadi, ketika orang sudah memilih lagu apa saja yang diinginkan lewat situs di atas, ketika mau check-out, akan muncul tulisan "It's Up to You". Seakan ingin menegaskan untuk orang yang kebingungan, ketika diklik sekali lagi muncul lagi tulisan "It's Really Up To You."
Jadi, kita bisa membayar 1 poundsterling, 10 pundstreling, 1.000 pundstreling, atau malah tidak membayar sama sekali. Semua terserah kita.
Langkah yang unik, bukan ?
Band yang dipimpin oleh Thom Yorke ini seakan ingin meruntuhkan model bisnis musik yang sudah mapan. Kebetulan, band ini juga sudah tidak terikat kontrak lagi dengan studio rekaman manapun alias Independen. Kontrak terakhir mereka dengan EMI/Capitol berakhirt pada tahun 2004. Jadi, mereka bisa dengan bebas mengatur model bisnis yang ingin mereka lakukan.
Selain itu, band yang berdiri pada tahun 1986 dengan nama On a Friday itu juga menyadari bahwa lagu-lagu mereka di album-album sebelumnya juga bisa didapatkan dengan gratis di Internet, secara ilegal tentunya. Jadi, mereka pikir, kenapa tidak sekalian saja diluncurkan album resmi dengan cara seperti itu?
Inilah yang menunjukan bahwa harga itu sekarang bisa berubah-ubah seperti Currency. Tergantung bagaimana orang mengapresiasi produk atau Co-creation tersebut.
Dalam kasus Radiohead, walaupun mayoritas tidak membayar, namun tidak sedikit pula yang justru berani membayar jauh lebih mahal daripada harga yang wajar. Mereka beranggapan bahwa hasil karya dan langkah terobosan Radiohead itu perlu diapresiasi dengan baik.
Nah, sekali lagi, ini menunjukan adanya proses horisontalisasi antara produsen dan pelanggan. Harga yang dulu pada era Legacy Marketing bisa ditetapkan secara sepihak, di era New Wave Marketing ini juga bisa ditentukan oleh pelangan sendiri.

dikutip


h2o

Senin, November 10, 2008

Fungsi Terbilang pada open office calc

Fungsi Terbilang pada open office calc

Berhubung dengan maraknya sweeping microsoft yang dilakukan akhir-akhir ini dikantor kita oleh adik tirinya Mr. Bill Gates mas Ahid alis "Bambang Sukarelawan", maka mau tidak mau kita harus segera ber-migrasi ke open source. Sebenarnya banyak pengolah kata dan spreedsheet yang free "gratis", tetapi yang mendekati Microsoft Office adalan openoffice.org besutan Sunmicrosystem.
Memang masih banyak kekurangan-kekurangan dari openoffice.org, banyak fitur-fiturnya yang aneh yang tidak eh.. eh belum familier. Misalnya pembutan border pada Calc, mailmerge pada write. Belum lagi openofficebase yang sangat kuno "mungkin sih???, ato cuma belum tahu"', sangat berbeda dengan MSAcces. Belum lagi bikin lemot komputer dengan prosesnya yang begitu lama.
Tapi tidak masalah, sudah saatnya kita migrasi ke open source, yang penuh dengan semangat BERBAGI, tidak seperti Mr BG, he..he..., kita harus segera keluar dari strategi marketingnya Mr BG, jangan terus bergantung dengan Microsoft, oke

Fungsi Terbilang.
Pekerjaan kantor kita sering sekali berhubungan dengan yang namanya fungsi terbilang, di openofficecalc bisa juga dibuat seperti di MSexel, fasilitas makro tersedia, meskipun agak berbeda. Tetapi dengan semangat BERBAGI pasti kita bisa.
langkah-langkah :
1. Buka openoffice.org calc
2. Tolls > Macros > Organize Makcros > Openoffice.org basic...

3. My Macros > Standard > klik Add.
4. Ketik code berikut ini :

Fungsi Terbilang pada open office calc

Berhubung dengan maraknya sweeping microsoft yang dilakukan akhir-akhir ini dikantor kita oleh adik tirinya Mr. Bill Gates mas Ahid alis "Bambang Sukarelawan", maka mau tidak mau kita harus segera ber-migrasi ke open source. Sebenarnya banyak pengolah kata dan spreedsheet yang free "gratis", tetapi yang mendekati Microsoft Office adalan openoffice.org besutan Sunmicrosystem.
Memang masih banyak kekurangan-kekurangan dari openoffice.org, banyak fitur-fiturnya yang aneh yang tidak eh.. eh belum familier. Misalnya pembutan border pada Calc, mailmerge pada write. Belum lagi openofficebase yang sangat kuno "mungkin sih???, ato cuma belum tahu"', sangat berbeda dengan MSAcces. Belum lagi bikin lemot komputer dengan prosesnya yang begitu lama.
Tapi tidak masalah, sudah saatnya kita migrasi ke open source, yang penuh dengan semangat BERBAGI, tidak seperti Mr BG, he..he..., kita harus segera keluar dari strategi marketingnya Mr BG, jangan terus bergantung dengan Microsoft, oke

Fungsi Terbilang.
Pekerjaan kantor kita sering sekali berhubungan dengan yang namanya fungsi terbilang, di openofficecalc bisa juga dibuat seperti di MSexel, fasilitas makro tersedia, meskipun agak berbeda. Tetapi dengan semangat BERBAGI pasti kita bisa.
langkah-langkah :
1. Buka openoffice.org calc
2. Tolls > Macros > Organize Makcros > Openoffice.org basic...
gbr
3. My Macros > Standard > klik Add.
4. Ketik code berikut ini :

Function Kekata(Bilangan as double) As String
Dim angka as variant
angka = Array("","satu","dua","tiga","empat","lima","enam",_
"tujuh","delapan","sembilan","sepuluh","sebelas")
Bilangan = abs(Fix(Bilangan))
If Bilangan<12 Then
Kekata = " " & angka(Bilangan)
Elseif Bilangan<20 Then
Kekata = Kekata(Bilangan - 10) & " belas"
Elseif Bilangan<100 Then
Kekata = Kekata(Fix(Bilangan/10)) & " puluh" & Kekata(Bilangan mod 10)
Elseif Bilangan<200 Then
Kekata = " seratus" & Kekata(Bilangan mod 100)
Elseif Bilangan<1000 Then
Kekata = Kekata(Fix(Bilangan/100)) & " ratus" & Kekata(Bilangan mod 100)
Elseif Bilangan<2000 Then
Kekata = " seribu" & Kekata(Bilangan mod 1000)
Elseif Bilangan<1000000 Then
Kekata = Kekata(Fix(Bilangan/1000)) & " ribu" & Kekata(Bilangan mod 1000)
Elseif Bilangan<1000000000 Then
Kekata = Kekata(Fix(Bilangan/1000000)) & " juta" &_
Kekata(Bilangan- (Fix(Bilangan/1000000)*1000000))
Elseif Bilangan<1000000000000 Then
Kekata = Kekata(Fix(Bilangan/1000000000)) & " milyar" &_
Kekata(Bilangan- (Fix(Bilangan/1000000000)*1000000000))
Elseif Bilangan<1000000000000000 Then
Kekata = Kekata(Fix(Bilangan/1000000000000)) & " trilyun" &_
Kekata(Bilangan- (Fix(Bilangan/1000000000000)*1000000000000))
Else
Kekata = "Error! Input Tidak Dapat Diproses."
EndIf
End Function

Function Terbilang(Bilangan as Double, Optional Style as Integer) as String
Dim temp as String
If Bilangan<0 Then
temp = "Minus " & trim(kekata(Bilangan)) & " rupiah"
Else
temp = trim(kekata(Bilangan)) & " rupiah"
EndIf

If Style=1 Then
Terbilang = ucase(temp)
ElseIf Style=2 Then
Terbilang = lcase(temp)
ElseIf Style=3 Then
kata = split(temp)
l = LBound(kata)
u = UBound(kata)

For i=l to u
kata(i) = ucase(mid(kata(i),1,1)) & mid(kata(i),2)
Next i

Terbilang = join(kata())
Else
Terbilang = ucase(mid(temp,1,1)) & mid(temp,2)
EndIf
End Function
' Wis ganti fungsi bos
Function Terbil(Bilangan as Double, Optional Style as Integer) as String
Dim temp as String
If Bilangan<0 Then
temp = "Minus " & trim(kekata(Bilangan))
Else
temp = trim(kekata(Bilangan))
EndIf

If Style=1 Then
Terbil = ucase(temp)
ElseIf Style=2 Then
Terbil = lcase(temp)
ElseIf Style=3 Then
kata = split(temp)
l = LBound(kata)
u = UBound(kata)

For i=l to u
kata(i) = ucase(mid(kata(i),1,1)) & mid(kata(i),2)
Next i

Terbil = join(kata())
Else
Terbil = ucase(mid(temp,1,1)) & mid(temp,2)
EndIf
End Function

5. File > Save
6. File > Exit

Cara penggunaan Fungsi tersebut adalah:
=terbilang(cell;style) atao =terbil(cell;style) untuk terbilang tanpa rupiah.
cell adalah kolom yang berisi bilangan yang akan diterjemahkan.
style adalah nilai integer yang sifatnya optional untuk mengatur output cara penulisan huruf besar atau kecilnya, dan jika tidak disertakan akan tampil huruf besar pada awal kalimat saja.
Nilai Style dapat dilihat sebagai berikut:
1 = Ditulis huruf kapital (Uppercase) semua
2 = Ditulis huruf kecil semua
3 = Huruf kapital hanya pada awal kata saja
Lainnya = Huruf besar pada awal kalimat saja
Selamat Mencoba!
by roy
matur tengkyu pada h2o, delphikidz, de4dl0ck, my family.

Sabtu, November 08, 2008

Undangan Futsal

Salam olahraga.
Akan diselenggarakan pertandingan persahabatan besar-besar. Yang akan dihadiri dari berbagai elemen komunitas futsal, dari berbagai kota. yang akan diselenggarakan.
  • Tempat : Next Futsal ,pool and lounge. Jalan Solo
  • Waktu : 21.00 -23.00

Harap hadir tepat waktu, dengan membawa bekal sendiri-sendiri.
matur thengkyu.

by
mega-roy.

Jumat, Oktober 31, 2008

Futsalholic

Untuk para Futsalholic , agar datang untuk mengikuti permainan dalam rangka mengeluarkan keringat.
  • Waktu : Jumat malem ,
  • Tanggal: 07 November 2008
  • Jam: 19.45
  • Tempat : Dekat Mirota kampus Godean



Harap datang tepat waktu karena waktu adalah uang.
Dihadiri juga dari BRI Bantul, BRI Boyolali, BRI Klaten, dan dari berbagai jaringan pertemanan.
pokoke ramai.
Seperti biasa bekal makanan, minuman harap membawa sendiri.
Boleh membawa pacar, istri, anak, teman.
Undang juga buat IWABRI cabang Jogja. Diadakan arisan untuk menyokong kegiatan Futsal.

Terim Kasih
Kedatangan anda merupakan suatu kesempurnaan permainan futsal

By Mega