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.