Chase Your Dream

Chase your dream. Motto yang baru-baru ini yang saya terapkan. Entah dari mana istilah itu datang. Meaning dari kalimat diatas (menurut saya lho), sebuah keberhasilan diawalin sebuah mimpi yang sepertinya tidak mungkin.

 

Ada banyak contoh sih yang mendukung teori itu, misalnya manusia dulunya pengen terbang seperti burung, maka terciptalah pesawat. Hehehe. Unik kan. Mungkin sebelum penemu pesawat berhasil menciptakan pesawat, sudah pasti banyak orang yang bermimpi terbang seperti burung, tapi mengapa pesawat tidak ditemukan lebih awal?

 

Jawabannya adalah keinginan untuk mengejar mimpi dan mewujudkannya. Mungkin bagi sebagian orang itu, mimpi adalah sesuatu yang hanya bisa dibayangkan tetapi sulit untuk diwujudkan. Memang harus diakui untuk mewujudkan mimpi itu, tidaklah mudah, banyak hambatan, tantangan yang harus dilalui, pengorbanan yang besar, tapi pernahkah terpikir oleh kita, mengapa saya tidak mencobanya lebih dahulu, nanti terwujud atau tidak baru dipikirkan kembali dibelakang.

 

Yup, itu yang sekarang ada dibenak saya. Saya ingin mewujudkan sesuatu yang mungkin bagi seumuran saya dengan latar belakang yang saya miliki adalah sesuatu yang sulit sekali. Tapi bagi saya saat ini, mustahil atau tidak bukanlah sesuatu yang terpenting, tapi apa yang harus saya lakukan untuk mewujudkan mimpi itu. Banyak hal yang harus saya lalui untuk mimpi satu ini. Pengorbanannya besar sekali, banyak mengeluarkan energi untuk terus berlari sampai tujuan itu. Tapi, lebih baik berlari terus dan berhenti pada saat mimpi itu sudah ada tujuan, entah itu gagal atau sukses, tetapi berlari lagi untuk mimpi yang lain.

 

So, jangan hanya menjadi orang yang bisa bermimpi saja, tapi bangunlah dari mimpi dan wujudkan itu.

 

Chase your dream…

 

Good day. God Bless.

Fungsi terbilang

tadi di milis ada yang kirim fungsi terbilang. yang satu ini menarik perhatian aku, karena fungsi terbilangnya dibuat dalam rekursif (oleh saudara Toni Rahayu).

berikut coding yang saya qoute. semoga berguna bagi yang membaca.

Public Function Terbilang(ByVal x As Double) As String
Dim ambil As Variant
ambil = Array(“”, “satu”, “dua”, “tiga”, “empat”, “lima”, “enam”, “tujuh”,
“delapan”, “sembilan”, “sepuluh”, “sebelas”)

If x < 12 Then
Terbilang = ” ” & ambil(x)
ElseIf x < 20 Then
Terbilang = Terbilang(x – 10) & ” belas”
ElseIf x < 100 Then
Terbilang = Terbilang(x \ 10) & ” puluh” & Terbilang(x Mod 10)
ElseIf x < 200 Then
Terbilang = ” seratus” & Terbilang(x – 100)
ElseIf x < 1000 Then
Terbilang = Terbilang(x \ 100) & ” ratus” & Terbilang(x Mod 100)
ElseIf x < 2000 Then
Terbilang = ” seribu” & Terbilang(x – 1000)
ElseIf x < 1000000 Then
Terbilang = Terbilang(x \ 1000) & ” ribu” & Terbilang(x Mod 1000)
ElseIf x < 1000000000 Then
Terbilang = Terbilang(x \ 1000000) & ” juta” & Terbilang(x Mod 1000000)
ElseIf x < 1000000000000# Then
Terbilang = Terbilang(x \ 1000000000) & ” milyar” & Terbilang(x Mod
1000000000)
End If

End Function

Fungsi terbilang

Fungsi terbilang adalah suatu fungsi dimana mengkonvert angka menjadi kalimat. Contoh fungsi terbilang yang ada dalam kehidupan sehari-hari adalah: faktur, slip setor tabungan, dan lain sebagainya.

 

Fungsi terbilang boleh dibilang cukup simple tapi ruwet dalam algoritmanya. Karena fungsi terbilang menggunakan frasa-frasa bahasa yang digunakan. untuk contoh coding dibawah ini menggunakan bahasa Indonesia, untuk bahasa inggris atau bahasa yang lain, silakan modif source yang ada dibawah ini.

 

Berikut contoh coding yang saya buat di crystal report 8.5:

 

stringVar array angka := ["Nol", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Se"];

stringVar array satuan := ["belas", "puluh", "ratus", "ribu", "juta", "milyar", "triliun", "billiun"];

stringvar nil1;

stringvar nil2;

numbervar b;

stringvar a;

stringvar strtblg;

stringvar array matrix := ["","","","","","","","","","",""];

 

numbervar i;

numbervar j;

booleanvar nol;

 

b:=1;

a:=”";

nil2:=”";

strtblg = “”;

nil1:= “”;

for i := 2 to len(totext(Sum ({@totalall}, {ado.kode cc fad})))-3  do

(

  if mid(totext(Sum ({@totalall}, {ado.kode cc fad})),i,1) = “,” then

    nil1 := nil1

  else

    nil1 := nil1 & mid(totext(Sum({@totalall}, {ado.kode cc fad})),i,1);

);

nil2 := totext(nil1);

if len(nil2) >= 22 then

  strtblg = “”

else

(

    for i := len(nil1) to 1 step -1 do

    (  

        if len(nil1) = 4 then

        (

            matrix[b] := right(nil2,4);

            b:=b+1;

            i:=i-3;

            if len(nil2) – 4 >=1 then

                nil2 := left(nil2, len(nil2) – 4)

            else

                nil2:=nil2;

        )

        else

        (

            matrix[b] := right(nil2,3);

            b:=b+1;

            i:=i-2;

            if len(nil2) – 3 >=1 then

                nil2 := left(nil2, len(nil2) – 3)

            else

                nil2:=nil2;

           

        );

    );

    strtblg := “”;

    for j := b – 1 to 1 step -1 do

    (

        nil2:=matrix[j];

        nol:= false;

        for i := 1 to len(matrix[j]) do

        (

            a := mid(matrix[j],i,1);

            if a = “1″ then

            (

                if tonumber(mid(nil2,1,1))=0 then

                (

                    if i = 1 then nol := true;                 

                );

                if mid(matrix[j],i+1,1)= “1″ and len(nil2) = 2 then

                (  

                    strtblg := strtblg & angka[11] & satuan[1] & ” “;

                    i := len(matrix[j]) + 1;

                )

                else if mid(matrix[j],i+1,1)= “0″ and len(nil2) = 2 then

                (

                    strtblg := strtblg & angka[11] & satuan[2] & ” “;

                    i := len(matrix[j]) + 1;                    

                )

                else if len(nil2) = 1 then

                (

                    strtblg := strtblg & angka[tonumber(a)+1] & ” “;

                    0;

                )

                else if tonumber(mid(matrix[j],i+1,1)) > 1 and len(nil2) =  2 then

                (

                    strtblg := strtblg & angka[tonumber(mid(matrix[j],i+1,1))+1] & ” ” & satuan[1] & ” “;

                    i := len(matrix[j]) +1;

                )

                else

                (

                    strtblg := strtblg & angka[11] & satuan[len(nil2)] & ” “;

                    0;

                );

            )

            else

            ( 

                if tonumber(mid(nil2,1,1)) = 0 then

                (

                    if i = 1 then nol := true; 

                )

                else if len(nil2) = 1 then

                (

                    strtblg := strtblg & angka[tonumber(a)+1] & ” “;

                    nol := false;

                )

                else

                (

                    strtblg := strtblg & angka[tonumber(a)+1] & ” ” & satuan[len(nil2)-1+1] & ” “;

                    nol := false;

                );

                0;

            );

        

          if i <= len(matrix[j]) then nil2 := right(nil2,len(matrix[j])-i);

        );

      if j >= 2 and nol = false  then strtblg := strtblg & satuan[j+2] & ” “;

    );

);  

strtblg & “Rupiah.”;   

History of me

Semua orang mempunyai impian terbaik dalam hidupnya. Entah itu karir dalam pekerjaan, prestasi dalam sekolah, long lasting relationship dalam membina hubungan dan lain sebagainya.

Saya adalah termasuk orang yang ambisius dalam mengejar segala sesuatu yang menurut aku pantas untuk dikejar. Untuk sekarang ini, ambisi aku adalah mengejar karir yang baik. Saat ini, posisi aku adalah supervisor untuk system development section head. Untuk karir aku ini boleh dibilang cukup cepat, karena dalam waktu 3 tahun aku bisa mendapatkan kepercayaan dari atasanku. Mungkin diluar sana lebih banyak orang yang lebih luar biasa dari aku, namun untuk aku saat ini, momen sekarang adalah yang terbaik, setidaknya sampai aku mempunyai ambisi yang lain lagi.

            Kilas balik sedikit ke belakang sebelum aku menjadi supervisor sekarang ini. Aku lulus kuliah dari binus pada tahun 2004 bulan Juni. Sempat tidak mempunyai kerjaan selama 2 bulan lebih, akhirnya aku masuk sebagai karyawan kontrak 2×6 bulan di salah satu perusahaan otomotif terbesar di Indonesia. Ada rasa senang campur kaget campur tidak percaya. Tapi rasa itu segera lumer dengan panasnya persaingan di kantor. Pada pertama kali masuk, aku masih mengganggap diriku adalah seorang pemula dan semua orang yang ada di kantor itu adalah expert.

            Tapi, aku salah kaprah. Kenapa? Karena lingkungan kerja itu seperti hutan rimba. Siapa yang kuat, dia yang menang. Aku sempat stress berat, karena saat itu aku dapat tugas dari bos aku untuk mempelajari sebuah sistem yang dibuat oleh seniorku, tapi apa hasilnya? Aku tidak digubris oleh seniorku itu. Ada rasa sebal, marah, tapi toh aku tidak bisa apa-apa, karena aku masih anak bawang.

            Selama sebulan pertama aku hanya seperti anak yang bingung harus mengerjakan apa di tempat kerja. Tapi, pada suatu hari, hari yang sangat aku tunggu, hari dimana aku bisa menunjukan keahlianku. Tanpa pikir panjang aku meminta bosku untuk memberikan waktu 3 hari untuk menyelesaikan modul yang dia minta. Sabtu dan minggu aku gunakan untuk membuat modul tersebut. Satu-satunya yang menjadi pikiran aku saat itu adalah pembuktian kepada semua akan kemampuan yang aku miliki.

            Pada hari senin, aku menyerahkan modul tersebut kepada bosku dan dia pada saat itu hanya terperanga. Satu kata yang diucapkan dan aku ingat sampai sekarang. “Yakin uda selesai semuanya?” setelah saat itu aku mulai menyelesaikan modul demi modul dengan semangat. Pada saat itu aku belum begitu tahu tentang politik kantor yang kotor. Aku hanya merasa bahwa semua orang mendukung aku. Ternyata aku salah lagi. Tidak semua orang mendukung karena prestasi yang kita raih, tapi banyak juga orang yang mengometari prestasi kita dengan sinis.

            Singkat kata pada bulan Agustus, setahun setelah aku bekerja di perusahaan ini, aku diangkat menjadi  karyawan tetap di perusahaan itu. Tapi, 3 bulan sebelum itu senior aku sudah resign dari tempatku. Dia mendapatkan diluar yang bisa memberikan salary yang better. Pada bulan Desember, teman aku satu lagi resign dan meninggalkan aku sendirian. Aku benar-benar pada saat itu stress luar biasa. Bisa dibayangkan, mengurus sekitar 30 cabang dan sistem yang sedang dibangun, benar-benar membuat aku hampir menyerah saat itu. Pada bulan februari, aku diangkat menjadi coordinator oleh bosku, tapi tidak ada rasa gembira pada saat itu. Karena, saat itu aku benar-benar stress menghadapi kondisi kantor.

            Flash back sedikit, sistem yang sedang dibangun pada saat itu adalah sistem penggajian. Sistem itu sebenarnya sudah selesai, tapi untuk implemetasi kepada user, itu yang sangat sulit untuk dilakukan. User banyak sekali tipenya. Ada yang takut akan perubahan, ada yang mengatakan ingin berubah tapi sama sekali tidak ada reaksi. Selama setahun sistem itu coba diimplementasikan, tapi gagal. Puji syukur kepada Tuhan, saat stressku sudah hampir mencapai puncak, bosku memberikan 2 orang anak buah. Akhirnya aku bisa bernafas sedikit saat itu. Aku bisa konsentrasi pada sistem penggajian, dan operasional bisa dihandle oleh anak baru tersebut.

            Sistem penggajian makin sulit untuk diimplementasikan karena ada user personnel yang resign. Aku hanya bisa bingung bagaimana nasib sistem ini. Diteruskan atau dinyatakan gagal? Suatu pilihan yang sulit. Tapi sekali lagi, Puji Syukur Kepada TUHAN. Dia begitu baik kepada hambanya ini. Ada user personnel baru, pindahan dari PT sebelah. Dia memberikan harapan baru pada sistem ini. Selama 3 bulan bekerja sama dengan dia, akhir sistem ini bisa dinyatakan siap untuk dipakai dalam operasional sehari-hari. Pada bulan Juli 2006, sistem penggajian ini dipakai dan menghasilkan slip gaji untuk pertama kalinya. Lega rasanya dan untuk pertama kalinya dalam 1 tahun belakang aku bisa tidur dengan nyenyak dan merasa aku telah meraih sesuatu yang baik.

            Saat ini, aku sudah menjadi supervisor, tapi itu bukan tujuan terakhir, masih ada yang harus dicapai dan dipertahankan. Untuk yang membaca tulisan ini, semoga tulisan ini menjadi inspirasi. Jangan pernah putus asa, jangan takut dilecehkan oleh orang lain, terus maju, petik harapan yang tersisa meski sedikit sekali, dan jangan lupa, yang paling penting, selalu berharap dan berdoa kepada TUHAN.

            Saya akan berbagi pengalaman bagaimana menjadi seorang pemimpin yang baik, menghadapi situasi kerja yang tidak kondusif, dan lain sebagainya. Keep your dream and hope always in your heart and believe God never gave his son in heavy and unsolved problem.

 

Thanks in Advance…