Monday, October 31, 2011

New 7 Wonders Scam

Tadi siang temanku di pesbuk posting sebuah link yang mengarah kesini. Isinya mengejutkan bahwa new7wonders yang selama ini menjadi perhatian masyarakat karena membawa misi nasionalisme diduga scam. Ada beberapa alasan yang kalau saya ambil secara garis besar adalah sebagai berikut :

1. Alasan bahwa nama finalis lomba tersebut subjektif, hanya berdasarkan penilaian masyarakat, tidak memperhatikan nilai objektivitas keunikan itu sendiri, pokoknya tempat-tempat yang ga kita kenal bisa muncul disitu, karena kalau dilihat secara objektif menara Eifel, Borobudur tentu sudah pasti menjadi keajaiban dunia, ga usa mikir panjang lebar.

2. seperti nomor 1 pemenang new7wonders belum tentu dikenal masyarakat, selama ini kalau saya kenal 7 keajaiban dunia cuman dari peta/atlas yang dibeli waktu SD.

Ada alasan teknis lain yang bisa dibaca, tapi menurut saya sih, diambil positifnya saja bagi kita bahwa setelah usaha-usaha memamerkan pariwisata kita tentu pasti ada hasil yang diraih, contohnya menarik wisatawan luar negeri datang. dsb. ah entahlah.
Read More...

Sunday, October 30, 2011

Heart Skips A Beat

Denger lagu bagus di radio. kemudian cari liriknya di internet ternyata ini lagunya olly murs feat rizzle kicks, berjudul Heart Skips a Beat, artinya kurang lebih jantung (seperti) berhenti berdetak, saat kau bertemu orang yang kamu dambakan, eh tapi bukannya kebalik? bukannya malah semakin cepat ya :D.
Ternyata bukan cuma olly murs tetapi juga penyanyi asal Australia Lenka juga muncul di pencarian saya, la yang bener ini lagunya siapa? tak masalah asal muasal ini pertama siapa, yang jelas setelah membandingkan keduanya menurut saya lebih suka sama yang olly murs, lebih ngebeat, plus sedikit irama rege, tapi Lenka juga punya keunikan sendiri bagi penggemarnya. keduanya muncul pertengahan tahun 2011.
Read More...

Thursday, October 20, 2011

Menambah fungsi terbilang di excell

caranya, buat modul baru dan tekan alt+F11 untuk menghidupkan jendela vb, lalu add modul, ketikkan kode berikut di modulnya :

Function baris(nilai)
snil = Format(Str(nilai), "000000000")
juta = Mid(snil, 1, 3)
ribu = Mid(snil, 4, 3)
satu = Mid(snil, 7, 3)
If juta = "000" Then
jut = ""
Else
ucap = ucapan(juta)
jut = ucap + "juta"
End If
If ribu = "000" Then
rib = ""
Else
ucap = ucapan(ribu)
rib = "seribu"
End If
If satu = "000" Then
sat = ""
Else
ucap = ucapan(satu)
sat = ucap
End If
baris = jut + rib + sat + "rupiah"
End Function
Function ucapan(bilang)
ratusan = Left(bilang, 1)
puluhan = Mid(bilang, 2, 1)
satuan = Right(bilang, 1)
Select Case ratusan
Case Is = ""
sratus = ""
Case Is = "0"
sratus = ""
Case Is = "1"
sratus = "seratus"
Case Is = "2"
sratus = "dua ratus"
Case Is = "3"
sratus = "tiga ratus"
Case "4"
sratus = "empat ratus"
Case "5"
sratus = "lima ratus"
Case "6"
sratus = "enam ratus"
Case "7"
sratus = "tujuh ratus"
Case "8"
sratus = "delapan ratus"
Case "9"
sratus = "sembilan ratus"
End Select
Select Case puluhan
Case ""
spuluh = ""
Case "0"
spuluh = ""
Case "1"
spuluh = ""
Case "2"
spuluh = "dua puluh"
Case "3"
spuluh = "tiga puluh"
Case "4"
spuluh = "empat puluh"
Case "5"
spuluh = "lima puluh"
Case "6"
spuluh = "enam puluh"
Case "7"
spuluh = "tujuh puluh"
Case "8"
spuluh = "delapan puluh"
Case "9"
spuluh = "sembilan puluh"
End Select
If puluhan = "1" Then
Select Case satuan
Case "0"
ssatu = "sepuluh"
Case "1"
ssatu = "sebelas"
Case "2"
ssatu = "dua belas"
Case "3"
ssatu = "tiga belas'"
Case "4"
ssatu = "empat belas"
Case "5"
ssatu = "lima belas"
Case "6"
ssatu = "enam belas"
Case "7"
ssatu = "tujuh belas'"
Case "8"
ssatu = "delapan belas"
Case Is = "9"
ssatu = "sembilan belas"
End Select
Else
Select Case satuan
Case ""
ssatu = ""
Case "0"
ssatu = ""
Case "1"
ssatu = "satu"
Case "2"
ssatu = "dua"
Case "3"
ssatu = "tiga"
Case "4"
ssatu = "empat"
Case "5"
ssatu = "lima"
Case "6"
ssatu = "enam"
Case "7"
ssatu = "tujuh"
Case "8"
ssatu = "delapan"
Case "9"
ssatu = "sembilan"
End Select
End If
ucapan = sratus + spuluh + ssatu
End Function

setelah itu di save as sebagai "excell macro enabled book"
untuk memakainya tinggal ketik =Baris(cell)
Read More...