seorang petani yang sedang mencangkul di sawah, karena sudah siang nasi belum juga di antarkan ke sawah, tiba-tiba datang 2 orang bule sambil bertanya.
bule: is mantang?
petani dengan terkejut menjawab: apa? kamu nantang?
bule: no, is mantang?
tani: kurang ajar! kamu nantang saya!
bule: can u speak english?
tani: aku ga bawa linggis!
bule : sorry!
Tani: kenapa nunggu ampe sore? siang ini saya ladenin!
akhirnya dengan ketakutan si bule teriak ” u crazy! ”
si tani pun sambil mengumpat ” sialan kamu yang terasi!!!!!” *#*#*#??????????*#*#*#*#

“Ya Allah, Engkau Rabbku, tidak ada tuhan selain Engkau. Engkau telah menciptakan aku, dan aku adalah hamba-Mu dan aku akan terus berada dalam jalan dan janji-Mu selama aku mampun. Aku berlindung kepada-Mu dari kejahatan apa yang telah aku perbuat, dan aku mengakui nikmat yang Engkau berikan kepadaku, dan aku akui pula dosa yang telah aku perbuat, maka ampunilah daku, karena tidak ada yang dapat mengampuni dosa selain daripada Engkau.” [Hadits diriwayatkan oleh Bukhari dalam Kitab Ad Da'awat dari Syidad bin Aus dengan nomor: (6306)].

11 September, Sore – Bebek Goreng depan tugu pahlawan enak bgt, dagingnya empuk. tempatnya luas. tapi sayang pelayanannya kurang memuaskan. klo mo pesen mesti berantem dulu ma pelayannya.. baru dilayani.. coba aja…

LANGKAH 1: jalankan MS Excel.
LANGKAH 2: klik menu Tools – Macro – Security dan pilih pada opsi LOW kemudian tekan OK.
LANGKAH 3: tekan ALT + F11 bersama-sama sehingga masuk ke Microsoft Visual Basic.
LANGKAH 4: klik kanan pada VBAProject (Book1) – Insert – Module dan sisipkan kode berikut ini:

‘****************’ Main Function *’****************
Function Inrupiah(ByVal MyNumber)
Dim Rupiah, Sen, Temp, llSeribu
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = ” Ribu “
Place(3) = ” Juta “
Place(4) = ” Miliar “
Place(5) = ” Trilyun ” ‘ String representation of amount
MyNumber = Trim(Str(MyNumber)) ‘ Position of decimal place 0 if none
DecimalPlace = InStr(MyNumber, “.”)
‘Convert cents and set MyNumber to Rupiah amount
If DecimalPlace > 0 Then
Sen = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & “00″, 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace – 1))
End If
Count = 1

Do While MyNumber “”
Temp = GetHundreds(Right(MyNumber, 3))
If Temp “” Then Rupiah = Temp & Place(Count) & Rupiah

If Len(MyNumber) > 3 Then
llSeribu = IIf(Len(MyNumber) = 4 And Mid(MyNumber, 1, 1) = _
“1″, True, False)
MyNumber = Left(MyNumber, Len(MyNumber) – 3)
Else
MyNumber = “”
End If
Count = Count + 1
Loop

Select Case Rupiah
Case “”
Rupiah = “Nol Rupiah”
Case “One”
Rupiah = “Satu Rupiah”
Case Else

If llSeribu Then
Rupiah = Trim(Rupiah) & ” Rupiah”
Rupiah = Application.Substitute(Rupiah, “Satu Ribu”, “Seribu”)
Else
Rupiah = Trim(Rupiah) & ” Rupiah”
End If

End Select
Select Case Sen
Case “”
Sen = “” ‘” dan Nol Sen”
Case “One”
Sen = ” dan Satu Sen”
Case Else
Sen = ” dan ” & Sen & ” Sen”
End Select

Inrupiah = Trim(Rupiah) & Sen

End Function
‘*******************************************
‘ Converts a number from 100-999 into text *
‘*******************************************
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right(“000″ & MyNumber, 3) ‘Convert the hundreds place
If Mid(MyNumber, 1, 1) “0″ Then
If Mid(MyNumber, 1, 1) = “1″ Then
Result = ” Seratus “
Else
Result = GetDigit(Mid(MyNumber, 1, 1)) & ” Ratus “
End If
End If
‘Convert the tens and ones place
If Mid(MyNumber, 2, 1) “0″ Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If

GetHundreds = Trim(Result)

End Function
‘*********************************************
‘ Converts a number from 10 to 99 into text. *
‘*********************************************
Function GetTens(TensText)
Dim Result As String
Result = “” ‘null out the temporary function value
If Val(Left(TensText, 1)) = 1 Then ‘ If value between 10-19
Select Case Val(TensText)
Case 10: Result = “Sepuluh”
Case 11: Result = “Sebelas”
Case 12: Result = “Dua Belas”
Case 13: Result = “Tiga Belas”
Case 14: Result = “Empat Belas”
Case 15: Result = “Lima Belas”
Case 16: Result = “Enam Belas”
Case 17: Result = “Tujuh Belas”
Case 18: Result = “Delapan Belas”
Case 19: Result = “Sembilan Belas”
Case Else
End Select
Else ‘ If value between 20-99
Select Case Val(Left(TensText, 1))
Case 2: Result = “Dua Puluh “
Case 3: Result = “Tiga Puluh “
Case 4: Result = “Empat Puluh “
Case 5: Result = “Lima Puluh “
Case 6: Result = “Enam Puluh “
Case 7: Result = “Tujuh Puluh “
Case 8: Result = “Delapan Puluh “
Case 9: Result = “Sembilan Puluh “
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ‘Retrieve ones place
End If

GetTens = Trim(Result)

End Function
‘*******************************************
‘ Converts a number from 1 to 9 into text. *
‘*******************************************
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = “Satu”
Case 2: GetDigit = “Dua”
Case 3: GetDigit = “Tiga”
Case 4: GetDigit = “Empat”
Case 5: GetDigit = “Lima”
Case 6: GetDigit = “Enam”
Case 7: GetDigit = “Tujuh”
Case 8: GetDigit = “Delapan”
Case 9: GetDigit = “Sembilan”
Case Else: GetDigit = “”
End Select
End Function

LANGKAH 6: tutup Visual Basic Editor
LANGKAH 7: misal kita ingin menuliskan angka di sel A2, dan hasil nya ada di sel B2 (berupa huruf)… maka tuliskan di sel B2 yaitu =inrupiah(A2)
LANGKAH8: cobalah ketikkan angka di sel A2. Selesai.

Jerman – Hotspot dengan jaringan Wireless Fiedelity (Wi-Fi) untuk akses Internet sedang digalakkan di negeri kita. Namun, di Jerman yang terjadi malah sebaliknya.

Kementerian Lingkungan Jerman justru memperingatkan rakyatnya sedapat mungkin menghindari penggunaan koneksi Internet secara wireless melalui Wi-Fi. Alasannya, hal ini disinyalir merupakan cara untuk menghindari resiko kesehatan yang mungkin ditimbulkan gelombang wireless tersebut.

Laporan dari The Independent mengungkapkan bahwa Kementrian Lingkungan Jerman ini telah menghimbau orang-orang untuk menghindari radiasi yang ditimbulkan Wi-Fi dengan lebih memilih menggunakan koneksi kabel Internet konvensional saja.

The Independent pun mengklaim bahwa kebijakan ini membuat Jerman tetap pada posisinya yang menganggap Wi-Fi berpengaruh negatif terhadap kesehatan.

Sebelumnya seperti dikutip detikINET dari ITNews, Rabu (12/9/2007), kelompok penentang Wi-Fi di Tottenham, Inggris juga menginginkan teknologi ini agar dilarang penggunaannya di sekolah-sekolah dengan alasan yang sama.

Gelombang radio telah digunakan untuk berbagai hal selama seratus tahun termasuk juga untuk teknologi Wi-Fi. Namun memang terdapat anggapan bahwa penggunaannya yang terus meningkat memungkinkan menyebabkan efek negatif bagi manusia.

Lebih dari 30 penelitian juga telah dilakukan untuk menyelidiki pengaruh gelombang elektromagnetik ini bagi otak. Namun, hanya tiga penelitian yang mengungkap kemungkinan dampak buruk bagi kesehatan. Itupun, penelitian ini disebut-sebut mempunyai kesalahan metodologi.
( fyk / ash )

Fino Yurio Kristo – detikinet

Artikel Majalah Chip Maret 2007

Bagaimana cara paling efektif menghindari kerugian karena virus ? Jawabannya simple tetapi sulit dijalankan, jangan kena virus. Ini bukan jawaban nyeleneh, nenek-nenek juga tahu kalau tidak kena virus adalah cara paling efektif menghindari kerugian karena virus. Tetapi yang lebih penting lagi,…. bagaimana caranya supaya tidak kena virus ??

Jawaban klasiknya tentu pakai antivirus yang selalu terupdate supaya dapat mengenali virus dengan baik. Ibarat musik klasik yang tetap digemari sampai hari ini, resep tersebut masih cukup ampuh dan terbukti banyak menolong pengguna komputer tidak menjadi korban virus sampai hari ini, selain back up data dengan metode yang baik dan benar merupakan salah satu “kotbah” yang paling sering dikumandangkan para pakar sekuriti guna menekan kerugian jika terjadi “hal yang tidak diinginkan”. Definisi “hal tidak diinginkan” tidak terbatas pada ancaman virus / software saja, tetapi juga ancaman kerusakan hardware dan lebih luas lagi ancaman diluar kendali manusia seperti force majeure seperti banjir, kebakaran atau dicopet orang.

Khusus berbicara mengenai ancaman virus, ada dua tindakan, preventif dan quratif. Preventif adalah tindakan pencegahan atau “sebelum” insiden sedangkan kuratif adalah tindakan “setelah” insiden atau tindakan penyembuhan. Sebenarnya antivirus termasuk kedalam golongan preventif, yaitu berfungsi untuk mencegah komputer terinfeksi virus, walaupun dalam beberapa kasus antivirus digunakan untuk membasmi virus yang sudah menginfeksi komputer dan cukup berhasil, tetapi dalam banyak khusus antivirus tidak berdaya menghadapi virus, bahkan beberapa virus melumpuhkan antivirus dalam aksinya. Kalau sudah mendapatkan kasus seperti virus Gnurbulf (Flu Burung) atau Rontokbro yang tetap restart komputer dalam safe mode, tentunya antivirus sudah mempan lagi dan tindakan kuratif harus dilakukan, yaitu NTFS for DOS, atau tindakan “rawat inap” harddisk dengan membersihkan pada komputer lain (jadikan sebagai slave).

Selain antivirus, banyak tindakan preventif yang dapat mencegah komputer anda terinfeksi virus. Perkembangan terakhir adalah virus yang menginfeksi lewat UFD (USB Flas Disk), pada awalnya virus mengandalkan rekayasa sosial dengan merubah icon dirinya dengan icon file MS Office, folder atau file JPG. Pengguna komputer yang waspada dapat menghindari dirinya terinfeksi virus dengan tidak sembarangan mengklik file. Tetapi sekali lagi pembuat virus menunjukkan kedigdayaannya dengan memanfaatkan fitur autorun pada UFD dimana setiap kali UFD dicolokkan ke komputer maka, file yang mengandung virus secara otomatis akan dijalankan. Lalu, bagaimana caranya menghindari virus menjalankan dirinya secara otomatis ?

Ada dua cara, cara sulit dan cara mudah. Cara sulit (seperti biasa) adalah mengoprek registri komputer, lihat di http://autorun.moonvalley.com/enable.htm (berlaku untuk Windows 98 / ME / NT / 2000 / XP) cara sulit meskipun “sedikit” beresiko jika salah mengubah registri, tetapi dapat membantu anda “naik kelas” dan setidakya mengethaui sedikit cara kerja dan “jeroan” Windows.

Sedangkan cara mudahnya adalah menggunakan tools TweakUI (147 KB) yang hanya tersedia khusus untuk Windows XP.dan dapat anda download langsung dari http://download.microsoft.com/download/f/c/a/fca6767b-9ed9-45a6-b352-839afb2a2679/TweakUiPowertoySetup.exe

Setelah download file ini, silahkan instal dan jalankan. Pada menu TweakUI, akses untuk setelan autorun ada pada menu [My Computer][AutoPlay][Types]. Untuk menonaktifkan autorun pada UFD, hilangkan centang pada pilihan “Enable autoPlay for removable drives”, sedangkan untuk menonaktifkan autorun pada CD / DVD drive, hilangkan centang pada pilihan “Enable autoPlay for CD and DVD drives”

Selain itu, anda juga bisa menentukan drive mana saja yang ingin aktif autorunnya dengan mengakses menu [My Computer][AutoPlay][Drives] dan hilangkan centang pada drive yang ingin dinonaktifkan fitur autorunnya.

Sebenarnya secara default Windows sudah menonaktifkan fitur autorun pada removeable drive, tetapi jika anda pernah terinfeksi virus lokal yang memanfaatkan fitur autorun ini, kemungkinan besar fitur ini diaktifkan sehingga setiapkali anda mencolokkan UFD bervirus pada komputer anda, maka secara otomatis virus akan dijalankan oleh komputer.

Jika anda tetap ingin mengaktifkan autorun dan ingin secara manual menonaktifkan autorun setiap kali anda menasukkan CD, tekan [Shift] pada saat anda memasukkan CD untuk menonaktifkan autorun.

Ketika semua harus berakhir
Ketika peluhku tak lagi berarti
Kau memilih tuk akhiri kisah ini
Kau hempaskan aku tak berdaya

Telah kuberikan yang mau kuberikan
Namun tak jua puaskan hatimu
Kau memilih tuk akhiri kisah ini
Kau hempaskan aku tak berdaya

Aku takkan pernah jadi sempurna
Seperti yang kau pinta
Aku takkan bisa meski tlah kucoba

Kau memilih tuk akhiri kisah ini
Kau hempaskan aku tak berdaya

Aku takkan pernah jadi sempurna
Seperti yang kau pinta
Aku takkan bisa meski tlah kucoba

Aku takkan pernah jadi sempurna
Seperti yang kau pinta
Aku takkan bisa meski tlah kucoba

Ketika semuanya harus berakhir
Ketika peluhku tak lagi berarti
Kau memilih tuk akhiri kisah ini
Kau hempaskan aku tak berdaya

Telah kuberikan yang mau kuberi
Namun tak jua puaskan hatimu
Kau memilih tuk akhiri kisah ini
Kau hempaskan aku tak berdaya

Aku takkan pernah jadi sempurna
Seperti yang kau pinta
Aku takkan bisa meski tlah kucoba

Kau memilih tuk akhiri kisah ini
Kau hempaskan aku tak berdaya

Aku takkan pernah jadi sempurna
Seperti yang kau pinta
Aku takkan bisa meski tlah kucoba

Aku takkan pernah jadi sempurna
Seperti yang kau pinta
Aku takkan bisa meski tlah kucoba