Open Source

Mau lebih creative... ya ngoprek ... mau ngoprek ya pake software bebas... mau software bebas... ya pake LINUX ...

 
Pencarian
Google
Pinguinku

Image hosted by Photobucket.com

Tips Belajar Linux

Pertama, pasang niat yang kuat untuk belajar dan berubah. Tanpa ini dijamin sulit!!!.

Kedua, banyak browsing di internet. Karena literatur Linux yang bagus-bagus masih lebih banyak di internet ketimbang di toko buku

Ketiga, berani mencoba install. Jangan takut salah, jika takut salah ingat Tips yang pertama.

Keempat, jika sudah berhasil install tidak ada salahnya Anda ulangi lagi sampai Anda betul-betul paham

Kelima, mulailah memakai linux tiap Anda membuka komputer Anda meski sekedar mengetik surat atau naskah

Keenam, apabila rasa ketidaknyamanan muncul dalam diri Anda, ingat kembali tips yang Pertama.

UBUNTU LINUX
Linux for Human beings. Ubuntu an African word. Meaning "humanity to others" or "I am what I am because of who we all are".Ubuntu distribution brings the spirit of Ubuntu to the software world.
Software Bebas
Software bebas bukan berarti gratis. Software bebas maksudnya adalah software yang dapat digunakan secara bebas untuk dimodifikasi ulang atau dikembangkan tanpa menghilangkan atau mengesaimpingkan pembuatnya yang pertama.
Keuntungan Software Bebas
Yang pasti software bebas itu menghemat devisa. Dari pada kita membeli software yang harganya selangit dan juga daripada kita membajak karya orang lain, mending pakai software bebas. Kita bisa banyak belajar disitu. Pasti Man!!!
Penunjuk Waktu

Utk Nulis Comment
Membuat Fungsi Terbilang pada OpenOffice
Tuesday, July 01, 2008
Pada pembuatan laporan keuangan seringkali ditampilkan pula kata-kata terbilang yang menguraikan sejumlah nilai total dari perhitungan. Padahal software spreadsheet yang banyak beredar tidak memberikan fasilitas untuk hal tersebut. Tak terkecuali software openoffice calc yang berlisensi GNU/GPL. Jangan berkecil hati dulu, berikut ini akan diuraikan langkah-langkah untuk membuat fungsi terbilang pada openoffice. Di sini penulis menggunakan openoffice 2.3. dengan sistem operasi Ubuntu 7.10. Tidak perlu risau apabila Anda menggunakan openoffice lain yang berjalan pada sistem operasi windows, fungsi ini tetap bisa digunakan.

Fungsi ini akan ditulis pada fasiltas macro yang telah disediakan oleh openoffice. Langkah-langkah yang perlu dilakukan untuk memasukkan fungsi terbilang ini adalah sebagai berikut: (sumber: http://maseko.com/code-snippet/openofficeorg-basic/fungsi-terbilang-oob/)
1. Jalankan OpenOffice.org Spreadsheet, pilih menu Tools > Macros > Organize Macros > OpenOffice.org Basic, sehingga nanti akan muncul kotak dialog OpenOffice.org Basic seperti gambar di bawah ini:


[Gambar. 1]

2. Pada kotak dialog OpenOffice.org Basic, pilih makro dari My Macros > Standard, kemudian klik tombol New


[Gambar.2]

3. Masukan kode di bawah ini, salin dan tempelkan pada halaman editor yang muncul.


[Gambar. 3]

Uji Pada sheet dengan memasukkan fungsi terbilangnya. Lihat contoh berikut:


[Gambar.4]

Kode yang harus Anda masukkan adalah sebagai berikut:
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))
Else
temp = trim(kekata(Bilangan))
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



Cara penggunaan Fungsi tersebut adalah:
=terbilang(cell;style) (lihat gambar 4)
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
Misalkan cell G1 berisi bilangan 375000, dan kita akan menuliskannya di cell H1, maka:
= terbilang(G1) menghasilkan: Tiga ratus tujuh puluh lima ribu.
= terbilang(G1;1) menghasilkan: TIGA RATUS TUJUH PULUH LIMA RIBU
= terbilang(G1;2) menghasilkan: tiga ratus tujuh puluh lima ribu
= terbilang(G1;3) menghasilkan: Tiga Ratus Tujuh Puluh Lima Ribu
Dan untuk menambahkan rupiah di akhir kalimat, cukup melakukan trik berikut:
= terbilang(G1;3) & " Rupiah" menghasilkan: Tiga Ratus Tujuh Puluh Lima Ribu Rupiah
Selamat Mencoba!

http://balaibengong.blogspot.com

posted by Kristoforus H. Abadi @ 5:33 PM  
6 Comments:
  • At 1:04 AM, Anonymous Anonymous said…

    Ist Einverstanden, diese bemerkenswerte Mitteilung cialis viagra rezeptfrei in ?sterreich [url=http//t7-isis.org]levitra 20mg 12 st?ck[/url]

     
  • At 1:01 PM, Blogger Eko Prasetiyo said…

    Pendekatan lain bisa menggunakan ekstension numbertext.
    Berikut link tentang numbertext dalam bahasa Indonesia
    http://ekoprasetiyo.blogspot.com/2010/08/ekstension-utk-fungsi-terbilang.html

     
  • At 6:42 PM, Blogger Nana Mulyana said…

    Makasih telah berbagai ilmu dan saya sudah pratekan, ternyata berhasil. Makasih Mas

     
  • At 11:50 AM, Blogger Sd Islam Riyadhus Shalihin said…

    pak kalau (,) koma bisa di komfersi tidak soalnya kalau bikin rapot harus ada komanya misal nya 7,8 di baca tujuh koma delapan. terima kasih pencerahannya

     
  • At 2:19 PM, Anonymous Krist. H.A. said…

    @Nana: Sama2 mas bro...
    @SD Islam: secara logika bisa bro...silahkan diutak atiik ada source code nya dan disesuaikan...saya sendiri belum mencoba, namun saya yakin bisa tinggal sedikit disesuaikan aja.

     
  • At 9:02 PM, Anonymous Anonymous said…

    dear all,
    sy ada sdikit pertanyaan ttg macro openoffice calc, bagaimana modul nya bila saya mw mmbwt perintah copy berdasarkan kriteria ?, misal :
    jika kolom a1=januari
    maka b2:d4 di copy ke f1
    jika kolom a1=februari
    maka b2:d4 di copy ke f5
    bagaimana macro nya ?
    Terimakasih atas bantuannya
    ahonk

     
Post a Comment
<< Home
 
About Me

Name: Kristoforus H. Abadi
Home: Surabaya, Jawa Timur, Indonesia
About Me: Programmer
See my complete profile
Previous Post
Archives
Links
Powered by

Free Blogger Templates

BLOGGER

Text Link Ads

© 2005 Open Source Template by Isnaini Dot Com