10/31/2008

Sebuah Cerita tentang perubahan

We cannot solve the problems by using the same kind of thinking we used when we created them
Albert Einstein



Banyak hal yang langsung saya pikirkan, setelah saya mendengar nasehat atau rumus dari ilmuan yang dulu menjadi orang paling hebat di jamannya.

Setelah itu, dan tidak hanya itu. Saya makin terisnpirasi oleh sebuah buku yang berjudul "Change!", yang ditulis oleh Rhenald Kasali. Menurut hasil pikiran saya, buku tersebut berisi tentang perubahan yang mesti disadari dan dilakukan, apapun itu, dalam segi kepribadian, maupun manajemen bisnis.

Salah satu artikel dari buku tersebut, menuliskan tentang sejarah seorang pemimpin dari sebuah perusahaan. Ialah Irwan Hidayat. Ia merupakan Direktur utama dari PT. Sido Muncul. Yang merupakan perusahaan warisan keluarga turun temurun.

Irwan Hidayat dan Sidomuncul

Pendidikannya hanya SMA, tetapi di tangannya Sido Muncul yang tadinya hanya usaha jamu tradisional rumahan tumbuh menjadi usaha besar, moderen, dan disamis. Intinya, ia adalah manusia pembelajar yang selalu beradaptasi dengan perubahan.

Semula saya menaruh perhatian pada produk. Saya tanya pada orang - orang apakah suka minum jamu. Mereka bilang tidak. Kenapa? Katanya rasanya pahit, bau, dan tidak enak di mulut. Saya lalu tanya sama orangtua kenapa jamu pahit. Mengapa orang hanya minum jamu kalau lagi tidak ada uang. Jawabnya antara lain adalah, memang disengaja. "Supaya Murah," katanya, "mereka memilih bahan - bahan yang murah - murah." Selain itu ketika memasaknya sering ditinggal sehingga gosong dan pahit. Dapurnya kotor, dan yang bekerja juga tidak punya tradisi bersih," katanya.

Sebagai generasi ketiga yang dipercaya untuk melanjutkan bisnis keluarga, Irwan tidak bisa dengan hanya melanjutkan begitu saja tradisi yang telah di bangun perusahaan. Situasi dan kondisi zaman yang dihadapi telah jauh berbeda, begitu pula tuntutan konsumen terhadap produk yang dihasilkan. Keadaan itu yang memacunya menjadi terobosan - terobosan baru utnuk mengangkat "gengsi" jamu agar dapat setara dengan obat, atau setidaknya menjadi pengobatan alternatif yang teruji keabhsahan dan keilmiahannya.

Maka Irwan mulai membenahi produk. Ia mulai memilih bahan - bahan yang berkualitas dan lebih bersih. Petugasnya harus bersih, pekerangannya bersih, dapurnya bersih, alatnya moderen dan bersih.

Irwan membangun sebuah laboratorium selua 3.000 meter persegi dengan biaya 2,5 miliyar rupiah, dan pabrik seluas 7 hektar. Kenekatan itu membuahkan hasil. Tahun 2000 Departemen Kesehatan memberikan sertifikat Cara Pembuatan Obat yang Baik (CPOB) kepada PT. Sidomuncul, padahal selama ini industri jamu hanya mendapatkan sertidikat Cara Pembuatan Obat Tradisional yang Baik (CPOTB). "Kini kami siap menghadapi persaingan Global," tekad Irwan.

Ia menerapkan standar tinggi, di atas CPOTB. Ini adalah standar perusahaan farmasi.


Sejak itu, perusahaannya diterima oleh pasar. Ia mengubah logo, kemasan, dan cara - cara komunikasi. Ia memakai bintang - bintang unggulan dalam beriklan seperti: Sophia Latjuba, Jeremy Thomas, Grup Band Dewa, Warna, Mayang Sari, Timbul, Inul, sampai atlet tenis Wenny Prakusha dan budayawan Setiawan Djody. Produknya dikembangkan. Produk Tolak Angin berbentuk serbuk yang pahit dikembangkan menjadi Tolak Angin Cair (dengan rasa mint dan madu) yang tidak lagi pahit, serta Tolak Angin anak - anak dan permen Tolak Angin. Produk kuku bima dikembangkan menjadi minuman energi Kuku Bima Energy. Sekarang sido Muncul mulai berevolusi, dari sekedar pembuat jamu, menjadi produsen makanan. Sido Muncul mulai membuat mi instan, kecap dan sebagainya.

Diakui, banyak kesalahan yang tidak perlu terjadi dilakukannya hanya karena ketidaktahuannya. "Saya masih banyak melakukan kesalahan yang tidak perlu. Tahun 1993 itulah saya mendapat pengajaran yang berarti, justru dari orang - orang yang tak terduga, yaitu orang gila yang dengan terus terang mengatakan jamu saya pahit, tidak enak, yang akhirnya membuat saya berfikir keras bagaimana membuat jamu yang disukai.

Biro iklan yang menolak saya mengajarkan bahwa bisnis itu harus dengan hati nurani, dan tukang bajaj mengajarkan kepada saya bahwa kita ini punya tanggung jawab sosial, beribadahlah dengan hati, bukan sekedar kewajiban," katanya.

Pelajaran - pelajaran itu yang kemudian menjadi pedoman Irwan dalam menjalankan perusahaannya. Berbisnis dengan hati nurani diwujudkannya dengan selalu membina hubungan baik dengan supplier-nya, memberikan upah yang layak kepada karyawannya, dan dalam mengambangkan networking (jaringan kerja).

Saya tidak setuju dengan upah minimum, saya lebih suka kalau kita menetapkan upah yang layak. Karena dengan upah yang layak, kita bisa meningkatkan produktivitas, dan itu akan banyak menghemat biaya, daripada kita membayar dengan upah minimum, tetapi produktivitas rendah. Dan, yang terpenting adalah kepercayaan, baik di internal maupun eksternal. Kalau itu bisa kita jaga, smuanya akan lebih mudah," katanya.


Kini, yang menjadi cita - cita Irwan adalah mengembangkan industri jamu sebagai bagian dari pembangunan sistem kesehatan nasional. Untuk itu, dia sedang merintis langkah untuk mendidik para pengobat, seperti halnya China mengembangkan pengobatan tradisionalnya dengan mendidik para shinse.

"Saya punya cita - cita ada pendidikan naturopath di indonesia (semacam pengobatan alternatif menggunakan bahan - bahan yang alami). Sebenarnya Depertemen Kesehatan bisa membantu ke arah sana, toh natoropath ini bukan hal baru, sudah diakui keberadaanya, dan kita punya potensi bagus di bidang ini."

10/30/2008

Antara keinginan dan kita

Seketika saya sedang membaca buku dan terinspirasi oleh buku itu. Terus terang, buku itu buku lama, dan dulu saya hanya membacanya sebagian saja, mungkin karena dulu daya pikir saya tidak seperti sekarang untuk menyerap isinya.

Buku lama itu bilang, "bukan keinginan yang membuat kamu berhasil, tapi apa yang kamu lakukan dengan keinginan itu, dan apa yang dihasilkan dari keinginan itu", setelah saya cerna, maksudnya adalah semua bukan tergantung keinginan kita, tapi apa yang kita lakukan untuk mewujudkannya. Tapi tetap saja, tanpa keinginan, takkan jadi bayangan untuk apa yang akan kita lakukan.

Bukan hanya itu. Penyakit terbesar manusia adalah keinginan. Berbeda dengan masalah, masalah membuat kita untuk belajar mengatasi masalah, sedangkan keinginan, membuat kita semaking menginginkan yang lain ....

Sejak kecil, saya diajarkan oleh orang tua saya, untuk hemat, dalam arti bukan berarti harus menahan - nahan diri untuk membeli sesuatu, atau berusaha menjadi orang pelit, bukan! Maksudnya hemat, adalah melakukan sesuatu yang kiranya perlu dan bermanfaat, tidak merugikan, dan tidak sia - sia.

Bahkan itu juga tercantum pada buku pelajaran Budi Pekerti saat SD, yang dulu saya bilang "ga berguna".

Ternyata. Kalau dipikir, banyak keinginan itu adalah hal yang sia - sia. Setiap ada keinginan yang saya idam idamkan, dan tak tercapai, malah membuat saya merasa sakit. Seakan tidak dapat iklhas menerima hidup. Keinginan seperti mimpi. Orang yang memiliki banyak keinginan sam saja seperti penghayal, yang berfikir bisa berupah jadi orang kuat yang bisa terbang, lalu meninju orang lain yang dia benci.

Hhhfff...
Keinginan juga berasal dari diri yang kurang bisa menerima kenyataan. Untuk itu, ada satu hal yang dapat kita pelajari dari buku budi pekerti itu. "Bersyukur". Inilah cara terampuh kita untuk mengendalikan keinginan kita. Tapi jangan lupa, tetaplah berusaha dengan maksimal, kalau kita benar - benar keinginan kita terwujud... sungguh bodoh bagi saya saat itu, yang baru megerti pelajaran budi pekerti saat SD, tapi baru menyerapnya sekarang.

Hidup bukan untuk keinginan kita sendiri....
Yang dapat hidup, adalah orang yang dapat seperti air...
Ia yang tidak memaksakan bentuknya terhadap jalannya...
Namun terus berjalan hingga mencapai tujuannya...

10/20/2008

Program terbilang (15 digit ; VB 6.0)

Artikel sebelumnya, sudah dibahas tentang pemrograman program membilang 3 digit. Dengan nilai maksimum sebesar 999. Seperti yang sebelumnya sudah dibahas, rahasia pemrograman program terbilang ini terletak pada pemisahan (pembagian) digit pada angka.

Pada program 3 digit, terdapat 3 karakter angka yang masing - masing bernilai sebagai satuan, puluhan, dan ratusan. Bila pada pemrograman lebih dari 3 digit, hanya diperlukan sedikit perulangan dari fungsi program 3 digit, karena berapa digitpun ( > 3) pastinya dibagi setiap 3 digit. Contoh : dua puluh lima ribu = 25.000 ; perhatikan tanda titik pada 25.000 dan bayangkan pada angka - angka lainnya.

Intinya, hanya diperlukan sebuah fungsi yang dapat memanggil fungsi 3 digit dan memprosesnya, kemudian ditambahkan kata seperti "ribu", "juta", "miliyar", dan "triliun" sebagai pemisah nilai.

Berikut adalah diagram fungsinya.



Ok, cukup simple bukan? sekarang hanya tinggal mengetahui bagaimana cara mengambil 3 digit yang barusan dimaksud. Huh, lagi - lagi kita akan gunakan dungsi yang sama, pengolahan string, yaitu left, right dan Len.

Untuk menemukannya, cukup rumit dan membuat saya sedikit bingung, bagaimana saya bisa tepat mengambuil per 3 digit pada angka yang tak tentu digitnya? setelah di cuba - cuba, ternyata disini rahasianya "Len ( x ) -3", hasil dari jurus rahasia ini bisa diperkirakan seperti ini, "99687" di Len menghasilkan 5, dikurang 3 menjadi 2, nah angka 2 ini yang akan mengmbil "99", dan "687" nya diproses terlebih dahulu, baru angka "99" itu di proses.

Hmmm....
saya bingung apalagi yang mesti dijelaskan, mungkin anda akan lebih dapat polanya apabila membuatnya sendiri dari awal. Kembali ke pembahasan utama, semua terletak pada pembagian dan pengolahan string.

Ini script untuk program pembilangnya (max 15 digit) :

Dim digit As String
Dim Angka(10)

Public Function hasilTerbilang(ByVal isinya As String) As String

Dim y1, y2, y3, y4, y5 As String

If (Len(isinya) > 0) Then
y1 = Right(isinya, 3)
y1 = writeBilangan(y1)

If (Len(isinya) > 3) Then
y2 = Right(Left(isinya, Len(isinya) - 3), 3)
If (y2 = 1) Then
y2 = "seribu "
Else
y2 = writeBilangan(y2) & "ribu "
End If If (Len(isinya) > 6) Then
y3 = Right(Left(isinya, Len(isinya) - 6), 3)
If (y3 = 1) Then
y3 = "sejuta "
Else
y3 = writeBilangan(y3) & "juta "
End If If (Len(isinya) > 9) Then
y4 = Right(Left(isinya, Len(isinya) - 9), 3)
y4 = writeBilangan(y4) & "miliyar "


If (Len(isinya) > 12) Then
y5 = Right(Left(isinya, Len(isinya) - 12), 3)
y5 = writeBilangan(y5) & "triliyun "
End If
End If
End If
End If

hasilTerbilang = y5 & y4 & y3 & y2 & y1

ElseIf (isinya = 0) Then
hasilTerbilang = "nol"
End If

End Function



Public Function writeBilangan(ByVal nilai As String) As String

Angka(1) = "satu"
Angka(2) = "dua"
Angka(3) = "tiga"
Angka(4) = "empat"
Angka(5) = "lima"
Angka(6) = "enam"
Angka(7) = "tujuh"
Angka(8) = "delapan"
Angka(9) = "sembilan"

If nilai <> 0 Then
nilai = Trim(nilai)
writeBilangan = procRatusan(Abs(nilai)) & procPuluhan(Abs(nilai)) & procSatuan(Abs(nilai))
Else
writeBilangan = "nol"
End If
End Function




Private Function procSatuan(ByVal x1 As String) As String
If (Left(Right(x1, 2), 1) <> Null) Then
procSatuan = ""
ElseIf (Len(x1) > 1 And Left(Right(x1, 2), 1) = 1) Then
procSatuan = ""
Else
procSatuan = Angka(Right(x1, 1))
End If

End Function



Private Function procPuluhan(ByVal x2 As String) As String
Dim r2, s2 As String
r2 = Left(Right(x2, 2), 1)
s2 = Right(x2, 1)

If (Len(x2) > 1) Then
If (r2 = 1 And s2 = 0) Then
procPuluhan = "sepuluh "
ElseIf (r2 = 1 And s2 = 1) Then
procPuluhan = "sebelas "
ElseIf (r2 = 1 And s2 > 1) Then
procPuluhan = Angka(s2) & " belas "
ElseIf (r2 > 0) Then
procPuluhan = Angka(r2) & " puluh "
End If
End If
End Function



Private Function procRatusan(ByVal x3 As String) As String
If (Len(x3) > 2) Then
If (Left(Right(x3, 3), 1) = 1) Then
procRatusan = "seratus "
Else
procRatusan = Angka(Left(Right(x3, 3), 1)) & " ratus "
End If
End If
End Function
Apabila sebelumnya anda membaca tentang pembilang 3 digit, disini anda akan menemukan sedikit perubahan pada bagian deklarasi fungsi, bagian public pada fungsi "writeBilangan" diganti menjadi private. Pada script sebelumnya, tidak ada perubahan, hanya kode pemrograman yang 3 digit, dijalankan berulang - ulang, dan perulangan ini membuat fungsi baru bernama "hasilTerbilang" yang menghasilkan pembilang dari angka 15 digit. Dan ingat, masih banyak kode pemrograman yang lebih indah logikanya dari pemrograman ini.

10/17/2008

Aku

Anggap lah aku sebagai angin
Yang membawa udara segar untukmu
Untuk waktu yang singkat
Sebentar saja … hingga kau mudah melupanya


Pernahkah kau membayangkan
Aku adalah air
Yang memberimu kesejukan
Meski kau tak bisa menggenggamku


Aku kan terus bermimpi
Hingga aku dapat mencapainya
Tidak sebagai angin atau air
Tapi sebagai aku yang kini ada


Aku kan terus berjuang
Untuk terus dapat berarti
Tidak sebagai angin atau air
Tapi sebagai aku yang akan membuktikannya.

10/17/2008

Program Pembalik kata....

Tidak lama setelah liburan sekolah usai, beberapa kelas yang telah mengumpul tugas komputer mulai mempelajari bab - bab baru, namun ternyata ada beberapa kelas yang ternyata belum kebagian mendapat tugas komputer... Berbeda dengan kelas IPA 1 , dan IPA 2... Kelas itu mendapat tugas untuk membuat program membilang, namun, kelas lainnya mendapat tugas lainya....

Tanggal 15 kemarin, yaitu hari rabu... Saya sempat kerumah teman saya, Yessi, dan sekalian ia minta dijelaskan sedikit tentang Visual Basic.. Namun saya kira ia minta dijelaskan tentang Program Pembalik kata, karena beberapa anak waktu pulang sekolah menanyakannya, namun ternyata hanya menanyakan beberapa fungsi dari Visual Basic untuk ulangan besok... Duh, maaf yah yessi, kamu ga ngomong dulu sih...

Dan sebenarnya saya ingin nge-post Topic ini saat pulang dari rumah teman saya, namun sayang, guru saya melarang saya untuk melakukannya, dimarahin, karena waktu tugas Program pembilang saya sudah mem post nya ke blog ini sebelum dikumpulkan,,,, hehehhe....

...
OK, kita langsung saja ke VB nya....
Sebenarnya, untuk membalik kata (String) hanya cukup fungsi StrReverse dalam visual Basic.. Sebenarnya cukup sederhana untuk mengerjakan tugas ini. Tapi, mungkin saja bukan string yang telah terbalik, tapi tujuan utamanya adalah logika dari terbaliknya string...

Fungsi StrReverse

StrReverse(Expression As String) As string

Contoh penggunaan :

StrReverse("Bubur manado") akan menghasilkan "odanam rubuB"

Kalau anda ingin menemukan fungsi - fungsi lainnya, Anda cukup membuka "Object Explorer" (f2) yang dapat anda akses dari menu "View > Object Explorer"...



Ok kita akan bermain dengan logika pemrogramannya....

Sebagai contoh, kita akan menggunakan kata "Bubur manado" sebagai string yang akan kita balik. Mengapa Bubur manado? Script untuk membalik kata ini sudah 2 kali ditulis, tapi script yang paling sempurna terbuat saat teman saya, Yessi, menawarkan bubur manado untuk makan siang.... Karena itu, saya coba menggunakan string "bubur manado" sebagai contoh. Thanks yah, tapi ku ga bisa makan bubur, hehehe.... maaf....



...
So pasti, yang pertama kita perlukan, adalah pendeklarasian Variabel.. yang pasti string untuk bubur manado... Jadi kita buat "Function" nya yang akan menghasilkan nilai berupa string..
Public Function rev_kata(ByVal x As String) As String
---- siapkan spasi untuk kode selanjutnya ----

End Function
Banyak yang bertanya, apa maksud dari kode diatas,... kode diatas gunanya untuk membuat suatu fungsi yang bernama "rev_kata"... dan yang di dalam kurung bertuliskan "ByVal x As String" menandakan bahwa fungsi "rev_kata" berfungsi dengan sebuah nilai yang diberi dan diberi variabel x yang bertipe data stirng. dan deretan kode yang paling akhir (As String) berarti, fungsi "rev_kata" akan menghasilkan nilai yang bertipe data string...

Misal ada fungsi sebagai berikut..

----
Public Function makan_apa(ByVal n as string) as string
makan_apa = n & " Rp. 500"

End Function
----

apabila saya memanggil fungsi itu dengan sebuah kode:

makan apa("Kerupuk")


maka fungsi "makan_apa" akan menghasilkan "kerupuk Rp. 500", disini kita lihat, bahwa "n" diisikan nilai (Value) = kerupuk, dan diproses di tubuh fungsi menjadi "kerupuk" & " Rp. 500", menjadi "kerupuk Rp. 500"
Mari kita langsung bermain dengan logika pemrogramannya..

Apabila string "Bubur manado" kita balik, akan menghasilkan "odanam rubuB"... Disini kita temukan logikanya.. Pertama kita ambil huruf yang paling uncit ("o") setelah itu kita taruh di sebelah paling kiri. Selanjutnya, ambil huruf "d" dimana huruf itu terletek satu langkah setelah huruf yang teruncit. Sekarang kita mempunyai huruf "o" dan "d" yang kini telah digabungkan menjadi "od"... Begitu seterusnya, perulangan terjadi terus menerus hingga kata "Bubur manado" menjadi "odanam rubuB", Artinya, mesti dilakukan berulang-ulang untuk mengambil huruf yang letaknya di kanan, disusun terbalik ke kiri sebanyak 12 kali (12 adalah banyak digit huruf "Bubur manado").

Jurus VisualBasic nya, kita butuh 3 fungsi pada pengolahan string, yaitu Left, Right, dan Len...

Len : mengambil banyaknya character (hasil dlm bentuk angka)
Len ([expression/string dlm variabel])

Right : mengambil beberapa char dlm string, dimulai dari kanan.
Right (string, lenght As long/banyaknya yang diambil)

Left : mengambil beberapa char dlm string, dimulai dari kiri.
Left (string, lenght As long/banyaknya yang diambil)

Contoh penggunaan :

Len ("makanNasi") menghasilkan "9"

Right ("makanNasi", 4) menghasilkan "Nasi"

Left ("makanNasi", 4) menghasilkan "maka"

Ini dia, Penggunaan Fungsi - fungsi untuk mengolah string...
Misal kita umpamakan x = "Bubur Manado"

untuk mengambil "o" : Right( x , 1)
untuk mengambil "d" : Left( Right( x , 2) , 1)
untuk mengambil "a" : Left( Right( x , 3) , 1)
untuk mengambil "n" : Left( Right( x , 4) , 1)

Agar dapat dilakukan perulangan tanpa perubahan script, untuk mengambil huruf "o" : Right( x , 1) dapat diubah menjadi Left( Right( x , 1) , 1)...

Sehingga kita dapatkan rumus : Left( Right( x , n) , 1)

dimana n adalah langkah ke-berapa dimana n = 1 hingga 12 (sesuai dengan jumlah digit dari "Bubur Manado")
Nah kita sudah mendapatkan Rumus untuk membalik kata tersebut.... Namun, tidak mungkin kita menulis kode tersebut berulang - ulang, ini mengakibatkan jumlah digit mesti ditentukan dari awal, dan tidak dapat bervariasi....

Untuk itu, kita memerlukan fungsi perulangan sesuai dengan variabel dari jumlah digit dari kata yang kita masukan. dengan menggunakan "For.. Next" kita akan dapat mengulang script menjadi berkali - kali sesuai dengan banyaknya digit yang ada pada string.

Ini dia script lengkapnya, copy dan paste tidak dilarang...

Public Function rev_kata(ByVal x As String) As String
Dim n, p As Integer
Dim kata As String

p = Len(x)

For n = 1 To p
kata = kata & Left(Right(x, n), 1)
Next n

rev_kata = kata
End Function

Maksudnya :

n adalah variabel yang menyatakan langkah, dimana batas langkah ini sampai dengan jumlah digit string yang diolah (p)...

Lalu, terus diulang langkah "kata = kata & Left(Right(x, n), 1)" hingga n = 12 (hingga n mencapai / sama dengan p yang bernilai 12, nilai n dimulai dari 1, terus hingga langkah ke 12).
Namun, tetap saja cara ini bukan cara yang mutlak dipakai semua programmer, masih banyak cara lain yang lebih sempurna dibandingkan cara ini....

Saya pernah lihat judul lagu terbitan orang luar, judulnya "32 ways to DIE", dari situ saja, kita sudah dapat menyimpulkan, mati saja ada banyak cara, masa pemrograman tidak??

Salah satu cara yang juga bagus, adalah dengan menggunakan Mid... thanks to Oey Irwan....
Mid ( x , n , 1)

dimana n adalah langkah ke- berapa dimana huruf mulai akan diambil
Ok, mungkin sekian saja untuk menjelaskannya, yang jelas, mengcopy saja tidak akan menambah ilmu anda dalam segala hal...., maksud saya, dalam hal programming... hehehe...

9/19/2008

Logika Program Terbilang (3 Digit) VB 6.0

Liburan puasa ini, dapat PR dari guru nih. Masa kita disuruh buat program pembilang? ah, ribet tau, tapi tak apa, rumit bukan berarti sulit, hehehe..... Saya tulis artikel ini buat teman - teman semua dan juga beberapa penjelasan yang mungkin dapat berguna bukan hanya untuk teman - teman sekolah saja, tapi juga buat teman - teman pembaca sekalian... hehe... (Kali ini saya hanya menulis angka 3 digit saja, karena PR nya disuruh 3 digit saja)



Sebenarnya, membuat program terbilang sama saja dengan membuat kamus. Apabila angka 1, menghasilkan terbilang "satu", 10 = "sepuluh", 33 = "tiga puluh tiga", dan 125 = "seratus dua puluh lima". Hanya saja teknik untuk mempresenstasikannya dengan kode yang benar - benar baik tidaklah mudah.



Tekniknya, adalah dengan mengambil angka setiap besaran. Misal 987. Maka 9 termasuk "ratusan", 8 termasuk "puluhan", dan 7 termasuk "satuan". Disini terdapat alur logikanya, apabila 9 adalah ratusan maka dibaca "sembilan" ditambah "ratus, menjadi "sembilan ratus". Kalau 9 adalah puluhan maka "sembilan"+"puluh" = "sembilan puluh". Cukup dengan fungsi pengolahan string seperti Len, Left, Right anda akan menemukan kemudahan dari algoritma ini.


Len : mengambil banyaknya character (hasil dlm bentuk angka)
Len ([expression/string dlm variabel])


Right : mengambil beberapa char dlm string, dimulai dari kanan.
Right (string, lenght As long/banyaknya yang diambil)


Left : mengambil beberapa char dlm string, dimulai dari kiri.
Left (string, lenght As long/banyaknya yang diambil)


Contoh penggunaan :


Len ("makanNasi") menghasilkan "9"


Right ("makanNasi", 4) menghasilkan "Nasi"


Left ("makanNasi", 4) menghasilkan "maka"


Coba baca dengan cepat: 123 321 231 121 221 212 112 312 123 .....

Sebenarnya tak ada hubungannya, saya hanya mengerjai anda. Tapi coba lihat, dari sekian banyak angka, anda pasti membacanya "seratus dua puluh tiga", bukan "satu ratus dua puluh tiga" bukan. Kemunginan inilah yang akan terjadi dalam pemrograman, misal 11 bukan dibaca "sepuluh satu", tapi "sebelas".



Untuk kasus yang seperti itu, kita butuh fungsi deklarasi relatif, atau struktur pengambil keputusan, seperti IF...Then..Else.. dan Function untuk menyimpan fungsi terbilang.



Ok, sepertinya rahasianya sudah terungkap, mari kita lihat kodenya :



Dim Angka(10)

Public Function writeBilangan(ByVal nilai As String) As String

Angka(1) = "satu"
Angka(2) = "dua"
Angka(3) = "tiga"
Angka(4) = "empat"
Angka(5) = "lima"
Angka(6) = "enam"
Angka(7) = "tujuh"
Angka(8) = "delapan"
Angka(9) = "sembilan"

If nilai <> 0 Then
nilai = Trim(nilai)
writeBilangan = procRatusan(Abs(nilai)) & procPuluhan(Abs(nilai)) & procSatuan(Abs(nilai))
Else
writeBilangan = "nol"
End If
End Function

Private Function procSatuan(ByVal x1 As String) As String
If (Left(Right(x1, 2), 1) <> Null) Then
procSatuan = ""
ElseIf (Len(x1) > 1 And Left(Right(x1, 2), 1) = 1) Then
procSatuan = ""
Else
procSatuan = Angka(Right(x1, 1))
End If

End Function

Private Function procPuluhan(ByVal x2 As String) As String
Dim r2, s2 As String
r2 = Left(Right(x2, 2), 1)
s2 = Right(x2, 1)

If (Len(x2) > 1) Then
If (r2 = 1 And s2 = 0) Then
procPuluhan = "sepuluh "
ElseIf (r2 = 1 And s2 = 1) Then
procPuluhan = "sebelas "
ElseIf (r2 = 1 And s2 > 1) Then
procPuluhan = Angka(s2) & " belas "
ElseIf (r2 > 0) Then
procPuluhan = Angka(r2) & " puluh "
End If
End If
End Function

Private Function procRatusan(ByVal x3 As String) As String
If (Len(x3) > 2) Then
If (Left(Right(x3, 3), 1) = 1) Then
procRatusan = "seratus "
Else
procRatusan = Angka(Left(Right(x3, 3), 1)) & " ratus "
End If
End If
End Function

Tulis kode ini (copy paste sajalah) kedalah sebuah form kosong. Apabila anda ingin melihat fungsinya, silahkan tulis kode dibawah pada form, bagian general..



Private Sub Form_Load()
writeBilangan("345")
End Sub

Ok, mungkin itu saja yang bisa saya jelaskan. Apabila anda ingin membuat input text, hapus kode tadi yang berisi writeBilangan("345"), lalu buat "text box", "command button", dan "label". Kemudian buat script di command button yang mengubah caption label menjadi hasil dari fungsi yang sudah dibuat. Contoh :


Private Sub Command1_Click()
label1.caption = writeBilangan(text1.text)
End Sub

Mungkin masih banyak cara lain untuk menyusun program terbilang ini, masih banyak cara lain untuk membuat hasil yang sama dan logika yang sama, hanya saja alur untuk membuatnya saja yang berbeda.



Sebagai pengembangan untuk lebih dari 3 digit saja, saya akan berikan contoh permisalkan.



Tentu kita kesulitan saat membaca 95871258, namun tidak dengan 95.871.258 bukan? bagian 258 dibaca "dua ratus lima puluh delapan", dan bagian 871 dibaca "delapan ratus tujuh puluh satu" + "ribu" , dan 95 dibaca dengan "sembilan puluh lima" + "juta". Saat anda membilangkannya, menjadi "sembilan puluh lima" + "juta" + "delapan ratus tujuh puluh satu" + "ribu" + "dua ratus lima puluh delapan".



Mudah bukan? hanya menambah juta, ribu.. dan memanggil fungsi sebelumnya yang sudah dibuat. Kuncinya adalah pemisahan 3 digit pada bilangan tersebut. Pisahkan setiap 3 digit pada bilangan yang akan diproses, lalu panggil fungsi untuk membilangkannya.

OK, buat pembaca sekalian, selamat mencoba... dan teman - teman sekolah satu SMA 2, moga sukses PR nya!

9/19/2008

Mencegah Virus tanpa Anti Virus... (cukup install text ini di otak!!)

Mungkin sebagian dari kita, pernah dongkol atau muakkk banged ama yang satu ini. tapi ada satu cara yang mungkin bisa menangkal paling tidak beberapa persen kemungkinan untuk menjaga agar komputer kita tetap aman, paling tidak, tanpa antivirus pun, komputer anda akan tetap aman.

(1) Vi-lash disk (Virus infected Flash disk, hehe)...

Nah, baca sampai habis...
Virus bekerja apabila rentetan kode yang menjerumuskan itu dijalankan, salah satu caranya, adalah dengan memanfaatkan flash disk. Cara yang paling akurat adalah dengan menggunakan AUTORUN. nah, AUTORUN ini, adalah situasi dimana window menjalankan suatu perintah otomatis, saat flashdisk di cucuk, jalanlah perintah untuk menjalankan kode yang ada di flash disk (apabila tersedia), karena itu mengapa terkadang komputer kita terjangkit virus, meski kita sudah hati - hati membuka flsh disk. kalau anda mau tahu, penyebab flash disk menjalankan suatu kode, adalah karena file "AUTORUN.INF". File ini berisikan perintah yang akan dijalankan setelah memasukan sebuah flashdisk. Namun, kalau flashdisknya tidak ada file itu, ya tidak terjadi apa - apa.


** Preparing.... Sebelum mulai mencucuk FlashDisk, buka "My Computer", lalu pilih "[tools] } [FolderOptions...]", pilih tab "View". Cari option yang keterangannya "show hidden files and folder" dan aktifkan. Matikan tanda centang pada "Hide extensions for known file types" dan "Hide protected operating sytem files".


Kamus: Folder Option & File extensions


*** "show hidden files and folder" berfungsi untuk menyembunyikan/tidak menampilkan file - file yang hidden (memiliki attribute Hidden).


*** "Hide extensions for known file types" Ini berfungsi untuk menyembunyikan ekstensi file, yang merupakan identitas dari jenis - jenis file. seperti ".doc" (Word Document), ".jpg" (gambar), ".exe" (program/executeable).


*** "Hide protected operating sytem files" Apabila option ini dicentang, semua file yang beratribut "System", akan disembunyikan/tidak ditampilkan. Sebenarnya fungsi ini bertujuan untuk menyemmbunyikan file - file penting windows (system), agar aman atau tidak terjadi salah hapus.


** Untuk menjegah file "AUTORUN.INF" tadi diakses, kita mesti menekan tombol [SHIFT] saat mencucuk flashdisk ke komputer, jangan dilepas, tekan terus sampai muncul gambar flashdisk (atau removable disk) di window "My Computer".


** Nah supaya kita terhindar dari virus tadi, perlu sangat mesti harus diingat, jangan mengakses flashdisk lewat Klik 2x di "My Computer". Itu sama saja dengan menjalankan file "AUTORUN.INF" yang akan mengacu ke Virus yang di tuju. Buka "Window Explorer" (bisa lewat "Start", klik kanan, pilih [Explore]), lalu buka Flashdisk dengan cara meng-klik tanda panah kecil2 dalam kotak yang ada di sebelah kiri (expand), atau boleh meng-klik flashdisk, namun cukup sekali saja. Ini menghindari agar file "AUTORUN.INF" tidak di akses.


** Yeah!!, file "AUTORUN.INF" yang jadi dalangnya kini terlihat tanpa harus kena virus. Sekarang, kita mesti mencari tau, kemana autorun itu mengacu, karena pastilah itu virusnya. Buka "Notepad" atau text editor lainnya, lalu drag (klik lalu geser) file "AUTORUN.INF" itu ke Notepad yang sudah dibuka.


Keterangan file autorun yang dibuat oleh virus


[autorun]
open=explorer.exe (otomatis menjalankan "explorer.exe")
shellexecute=explorer.exe
shell\auto\command=explorer.exe
shell=auto (membuat command baru "auto")



*** terjemahan kode tersebut ke bahasa manusia indonesia, adalah, (baris kedua) saat flashdisk di cucuk, window akan menjalankan file "explorer.exe" yang isinya barupa virus, (baris ketiga sampai kelima) secara otomatis, akan membentuk command menu baru bertuliskan "auto" yang akan menjalankan file "exporer.exe" yang isinya virus (command menunya dapat dilihat saat meng-klik kanan flashdisk yang ada file autorun ini.


*** File "AUTORUN.INF" sebenarnya bisa langsung dibuka dengan langsung meng-klik 2x pada file tersebut (open) namun, lebih amannya lagi men-drag tersebut ke text editor (dalam hal ini notepad).


** Setelah Membuka file autorun itu, coba cek kodenya, apakah kode tersebut mengacu ke salah satu file yang kiranya mencurigakan, misal nama filenya berakhiran (ber ekstensi) rentan virus. Contoh ekstensi file rentan virus: ".exe", ".scr", ".cmd", ".bat", ".vbs", ".db", ".htt", ".com", dan lain - lain banyak banged. Yang penting, kita cukup mencermati file autorun yang menuju kemana, itulah virusnya.


** Catatan, anda pasti melihat, file virus kebanyakan beratribut "system", jadi saat kita liat, filenya transparan. Tapi JANGAN DIHAPUS DULU, sapa tau, itu adalah file anda yang disembunyikan oleh virus. Jadi anda mencari file virus yang dituju oleh "Autorun" tadi (misal explorer.exe) klik kanan, lalu properties. Catat Informasi penting seperti size, created, modified.


** Setelah itu, hapus file virusnya (explorer.exe) bersama "Autorun.inf" (file virus tidak mesti "Explorer.exe", masih banyak nama lain yang menipu anda, contohnya, "MyDiary.exe", "PvServerMouse.exe", "CeweBandung.exe", dan banyak lagi)


** File Virus tidak hanya itu saja, banyak kemungkinan, Virus menduplikasi dirinya dan menamai dengan nama yang berbeda - beda. Cukup mencari file yang "ber-extensi" aneh-aneh, seperti ".exe". Cari file tersebut dengan menggunakan "Search" , pilih dulu "All files and folders", lalu ketik pada file name seperti ini: *.exe. Pilih "more advanced options", centang "Search system folders", "Search hidden files and folder", dan "search subfolders".


** Nah, catatan yang sebelumnya pernah dicatat, silahkan dibuka kembali, berupa informasi file yang isinya size, created, modified. Masukan informasi - informasi yang dicatat tadi ke dalam search keyword, dan informasi2 lainnya...


*** Contoh:

Keyword (all part of the file name): "*.exe"


Look in: nama drive flashdisk / lokasi pencarian


modified (when was it modified?) : "11 agustus 2008" (contoh saja)


What size is it? : : misal data yang anda dapatkan adalah 78kb, maka isi seperti ini, centang specify size (in Kb) : at most 80Kb


More advanced options : centang search system folders, hidden files & folders, Search subfolders.


** Yeahh... Ketemulah segala macam file yang ekstensinya *.exe, sekali lagi, telitilah mengecek file2 yang telah ditemukan. Apakah file tersebut benar2 sama dengan informasi2 yang kita dapatkan. Apakah sizenya sama dengan file induk virusnya (yang berada disebelah file "Autorun.inf").


** Salah satu tips yang paling ampuh buat anda, adalah dengan melihat icon file itu (gambar yang tampil), kebanyakan virus menyamar sebagai folder (karena icon/gambar file tersebut adalah folder). User sering terkecoh dengan folder ini, maka dibukalah virus yang bergambar folder tadi. Contohnya "My Pictures.exe", bagi yang terbiasa dengan window, pasti heran, gambarnya folder, tetapi akhirannya (ekstensinya) ".exe", besar sekali kemungkinan file tersebut adalah virus. ".exe" merupakan file executeable, yang isinya berupa program. Tujuan virus ini menyamar sebagai folder, adalah untuk mengecoh orang yang lalai dalam berkeomputer.


** Apabila sudah ketemu semua, dengan tanpa ragu, hapuslah file2 yang dicurigai itu. Tapi hati2, mungkin ada file penting anda yang juga tertera dari hasil pencarian itu... Karena itu, carilah dengan cermat.


** setelah membaca panjang lebar, akhirnya Flashdisk anda bersih dari virus.... selamat... maaf yah kalau artikelnya kepanjangan....


(2) File yang hilang dari Flasdisk....

Kebanyakan, Flashdisk yang sehabis dibersihkan (maupun yang telah di scan & clean oleh Antivirus) menyisakan sisa - sisa virus yang masih ada... Meski itu bukan virus, namun tetap saja mengganggu. Yaitu Folder yang hilang


Sebenarnya Folder itu bukan hilang/terhapus, folder tersebut dapat dikatakan "disembunyikan". Virus meng-copy dirinya yang bergambar folder, dan menamakan dirinya sesuai dengan nama folder yang ada di Flashdisk. Karena itulah ia menyembunyikan Folder yang asli agar anda tidak mengetahuinya.


Untuk melihat folder-folder yang hilang ini, cukup mudah. Buka lagi "[tools][folder option]" lalu ikuti seperti langkah - langkah diatas yang sudah dibahas.


Bagaimana cara mengembalikannya? cukup mudah juga. Buka panel [start][Run]. lalu ketik "cmd", dan klik ok.


Setelah itu anda akan melihat tampilan "Commad Promt" yang merupakan program bawaan dari window.


Ketik seperti ini "[DriveTujuan]:" (Abjad Drive tujuan disertai tanda titik dua). Penjelasannya, misal anda memasukan flashdisk. Buka "My Computer" lalu lihat, apa lokasi drive flshdisk anda.


Setelah mengubah Drive menjadi "I\>", ketik "attrib -s -h /s /d", lalu enter. Tunggu sebentar, lamanya proses tergantung dari banyaknya file yang ada di dalam flashdisk anda....


Penjelasan:


attrib -s -h /s /d

Fungsi attrib adalah untuk melihat attribut file ataupun mengganti attribut dari file


-s : fungsinya untuk menghilangkan attribut "system" pada file. Attribut system merupakan attribut sebagai pengenalan bahwa file yang beratribut ini akan disembunyikan oleh sistem, sebenarnya fungsinya untuk meng-hidden file-file penting system.


-h : untuk menghilangakn attribut hidden.


untuk lebih jelasnya, silahkan ketik pada cmd: "help attrib"


(3) Men-Turn Off Autorun....

File "Autorun.inf" yang berada dalam flashdisk, akan diakses dan dijalankan, kecuali pada Window XP SP2, "critical security update" sudah secara otomatis, dan semua "removable disk" telah di disable autorun-nya. Bagi Anda yang ingin memastikan untuk mendisable-nya. Anda mesti menggunakan "Group Policy" pada windows.


Pilih menu [start][run], dan ketik "GPEDIT.MSC"


Setelah muncul window "Group Policy", Pilih [User Configuration][Administrative Templates][Sytem]. Cukup mengklik folder "system", lalu carilah "Turn Off Autoplay" di panel sebelah kiri, lalu klik dua kali.


pilih option "enable", dan pada pilihan ComboBox "Turn off autoplay on" , Pilih "All Drivers" untuk mematikan Autorun di semua jenis Drive.


Untuk melihat efeknya, silahkan Restart komputer anda, dan lihat, setiap anda memasukan CD ataupun Flash disk, autorun tidak akan dijalankan.


Namun Efek yang cukup merepotkan dari langkah ini, Tiap CD yang memiliki menu khusus yang berjalan saat CD dimasukan, sekarang tidak akan berjalan lagi. Anda perlu menjalankannya secara manual. Hal ini disebabkan karena file autorun yang seharusnya mengakses menu secara otomatis, dimatikan. Untuk itu, pilihan settingan mana yang terbaik, ada di tangan anda.

9/19/2008

FlashDisk Tweaking..... Changing Background...

Pada directory flashdisk, mungkin sebagian dari anda pernah melihat flashdisknya memiliki background tersendiri. Misal gambar fotonya, atau artis A7X pun jadi paparan sebagai identitas flasdisk siapa itu. Hanya dengan script "Desktop.ini" yang ada pada flashdisk, anda akan mendapatkan flashdisk anda memiliki background tersendiri.


ini file desktop.ini

[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}


[{BE098140-A513-11D0-A3A4-00C04FD706EC}]

Attributes=2
IconArea_image=background.jpg (ini lokasi file background/gambar)
IconArea_Text= 0xeedddd


[.ShellClassInfo]
ConfirmFileOp=0

Hanya satu background seperti itu, yah biasa saja. Tapi coba, bagaimana kalau background dari flashdisk anda bisa berubah-ubah? tidak hanya itu - itu saja, Background akan terus berganti apabila diakses. Seru kan? lalu, bagaimana cara membuatnya?


Kunci Pertama adalah pada script "Desktop.ini" pada baris "IconArea_image=background.jpg", maksud dari kode tadi, adalah gambar yang akan ditampilkan adalah "background.jpg". Tak peduli gambarnya seperti apa, ukuran apapun, asal ada file yang bernama "background.jpg", maka gambarnya akan langsung ditampilkan, sudah mengerti sampai disini?



Kunci Kedua, adalah sebuah kode pemrograman yang cukup pendek, yang dijalankan dengan "command promt". OK, kita akan bermain dengan logika pemrograman.



Kita memiliki 2 buah gambar, dan ingin ketiganya menjadi background pada flashdisk. Namun, File "desktop.ini" hanya memperbolehkan 1 nama saja untuk dijadikan background, yaitu "Background.jpg". Untuk mempermudah pengaturan background. Mari kita namakan gambar - gambar kita secara berurutan : "Background.jpg", "Abackground.jpg".


Ganti nama file yang anda perkenankan untuk menjadi background flashdisk anda menjadi "background.jpg", dan "abackground.jpg"


Usahakan gambar yang akan digunakan tidak terlalu terang, karena apabila terlalu terang akan mempersulit untuk melihat folfer - folder pada flashdisk


Misal "Background" = gambar 1, dan "ABackground" = gambar 2. Gambar 1 isinya adalah foto pemandangan, dan gambar 2 adalah gambar kartun naruto. Apabila nama gambar 2 ("Abackground.jpg") anda ganti dengan nama "Background.jpg", maka secara otomatis, background flashdisk kita akan berubah. yaitu yang ada pada gambar 2 yang sekarang bernama "Background.jpg". Disinilah logikanya dimainkan.





Nah untuk mengganti filename kita membutuhkan fungsi yang ada di dalam "Command Promt" yaitu "Rename". Namun ada pengecualian dalam fungsi ini. Dalam satu waktu perubahan, tidak boleh ada nama yang sama. Kita tidak perlu menjalankan Command Promt, karena kita dapat menjalankan fungsinya melalui file yang kita buat sendiri, yang memiliki ekstensi ".bat" (MS-Dos Batch File).



Buka notepad, lalu ketik script seperti dibawah....



Save yang sudah diketik tadi dengan nama "batch.bat" dengan "save as type" : "All files".



Siapkan semua file yang akan dipakai di dalam Flasdisk, jangan taruh file-file itu kedalam sub-folder (atau didalam folder), karena untuk hal itu, mesti dilakukan modifikasi script terlebih dahulu.



Pastikan File-file yang diperlukan ("batch.bat", "desktop.ini", "background.jpg", "abackground.jpg") sudah siap. Sekarang, coba buka flashdisk anda, dan refresh (atau tekan F5). Lihat perubahan pada flashdisk anda. Setelah itu, coba buka "batch.bat", lalu refresh kembali. Lihat Perubahan yan terjadi.


Jangan puas dulu, background akan berganti apabila file "batch" dijalankan. Kita belum membuat background berganti apabila Flashdisk diakses. Untuk itu, kita masih perlu file yang bernama "AUTORUN.INF"... Semacam file yang isinya akan mengacu pada script yang telah kita buat tadi.


Ketik kode dibawah di dengan notepad, lalu save dengan nama "Autorun.inf" dengan save as type "All files


[autorun]

open=batch.bat

shellexecute=batch.bat

shell\Change\command=batch.bat

shell=Change

Penjelasan singkat: Autorun merupakan file yang berisi perintah otomatis, yang akan secara otomatis dijalankan saat sebuah drive di akses. Dalam hal ini, Flashdisk akan secara otomatis menjalankan "Batch.bat" saat ia diakses (di buka) melalui "my computer".


Sekarang cabut flashdisk anda (sebaiknya safely remove dulu), tunggu beberapa saat lalu cucuk kembali. Buka "My Computer" dan Buka Flashdisk anda, dan amati yang terjadi.


Sepertinya, tinggal merapikan hasil kerjaan saja. Ketik Script dibawah ini, lalu save dengan nama "hide.bat".


attrib autorun.inf +s +h
attrib desktop.ini +s +h
attrib batch.bat +s +h
attrib background.jpg +s +h
attrib abackground.jpg +s +h
del hide.bat /q

Jalankan file tersebut. File bukannya hilang, tetapi attribut mereka diganti dengan attribut "System", karena itu, file yang beratribut "system" akan secara otomatis disembunyikan oleh window dengan alasan keamanan file. Kecuali anda telah mendisable option "Hide Protected System files" pada opsi "Folder Option" (cara membuka folder option: buka my computer lalu pilih [tools][folder options]


Masih banyak yang dapat di modifikasi dari script ini. Seperti banyaknya background, lokasi (path directory) file disimpan, dan banyak lagi. Sekedar tips, apabila anda ingin mengubah warna font, coba modifikasi "Desktop.ini" pada baris kode "IconArea_Text= 0xeedddd". Kode "eedddd" bisa anda ubah dalam bilangan Hexa (batasnya : 0-9, A-F). OK? Hahahaha, coba modifikasi sendiri yah. Untuk mempermudah, saya akan berikan logika pemrogramannya pada 4 file sekaligus, dan ingat, dalam satu perubahan nama file, tidak boleh ada nama yang sama, simplenya, dalam tiap langkah perubahan, jangan sampai ada nama yang sama.



Hahahaha..... Met mencoba.... salam.....

8/13/2008

Kebangkitan dan 17 Agustus

Tinggal hitungan jari, hari demi hari telah dekat dengan 17 agustus, hari dimana kenangan - kenangan kebebasan bangsa ini, akhirnya di deklarasikan secara resmi, dan inilah saat - saat dimana Indonesia menyatakan kepada dunia, bahwa kami adalah Negara yang bebas....

Bahagianya saat - saat itu... Akhirnya cita - cita bangsa Indonesia terwujudkan, entah, apa rasa bahagia dan rasa "menghargai" seperti dulu masih ada apa sudah larut begitu saja. Banyak orang yang rasanya biasa - biasa saja dengan hari - hari menyambut kenangan perjuangan pahlawan - pahlawan bangsa terdahulu. Memang merayakan, tapi kok hanya dirayakan, tidak diresapi dan beraksi!

..
Lihat saja perkembangan sekarang, mari kita pikir - pikir sejenak... Hari Pendidikan Nasional, Hari Kebangkitan Nasional, Hari Kemerdekaan, semua dirayakan, semua ada pestanya, upacaranya, lomba - lomba segala macam, kegiatan setengah mati, dan yang lain - lainnya lagi. Sekarang kita coba berfikir dan menghayal sedikit. Semua untuk apa dirayakan? untuk menghormati perjuangan - perjuangan pahlawan yang telah gugur. Jawaban itu sudah pasti so benar, karena, bangsa yang berdaulat adalah bangsa yang menghormati pahlawannya. Namun, kalau dipikir - pikir sambil dihayalkan, mmmmmmm, maaf yah agak gimana gitu, mereka sudah tidak ada lagi, mereka sudah bahagia di alam sana, mereka sudah tidak butuh lagi dihormati disaat mereka sudah tidak ada lagi, mereka bukan ingin dikenal oleh banyak penduduk indonesia di berbagai generasi selanjutnya. Lalu apa yang mereka inginkan, apa yang mereka harapkan, dan mengapa mereka PERJUANGKAN!!

Pahlwan kita, yang telah membebaskan kita hingga bisa browsing seperti ini, bukan orang yang gila hormat, artis yang ingin dikenal, jadi legenda. Mereka berjuang, karena ingin membebaskan negara ini dari penjajahan yang terkutuk, membela negara ini untuk tetap bisa bebas, dan mereka berjuang, untuk kita semua yang menjadi anak cucu mereka...

..
Lalu apa maksud semua perayaan - perayaan dari hari - hari nasional? Semua bukan sekedar upacara pengibaran, pesta - pesta, hari liburan, lomba - lomba, namun apa maksudnya? semua bukan hanya berarti pernghormatan untuk pahlawan.

Semua Hari - hari peringatan Nasional, maksudnya agar para pahlawan yang sudah tidak ada,...
Masih bisa mengingatkan kita, selama kita hidup dan berpijak di tanah air ini, kita itu sedang berjuang, terus berjuang untuk terus membela bangsa ini, terus berjuang untuk mencapai cita - cita bangsa ini. Mereka berjuang untuk kita, bukan untuk kita bersenang - senang di atas pengorbanan mereka, tapi untuk kita terus berjuang - dan berjuang, hingga cita - cita bangsa ini tercapai. Tidak usah takut sia - sia, ini Negara kita, kita tinggal disini, kalau kita yang membangunnya yah kita juga yang menikmatinya.

Maksud mereka ingin dikenang, bukan berarti nama mereka ingin dikenang, tapi mereka ingin perjuangan dan semangat - semangat mereka dikenang dan diresapi, betapa berharganya bangsa ini, negara ini, tanah air ini. Tanpa perjuangan mereka yang membebaskan negara ini, kita mungkin hanya akan jadi budak bangsa lain. Mereka tidak ingin perjuangan mereka sia - sia, dan mungkin, kejadian seperti dulu terulang lagi di masa ini.....

Darah pahlawan yang tertanam di tanah air ini,..
menangis melihat kita semua,..
melihat apa yang telah terjadi pada bangsa ini...
Namun langkah - langkah kaki yang menginjak - injak tanah air ini,..
seakan mengabaikan tangisan itu...


Kuping kita yang seakan tertutup....
Hati nurani tertutup oleh timbunan ego...
Dari suara - suara peringatan pahlawan - pahlawan bangsa....
Yang tidak tenang meninggalkan bangsa ini....
Sedang berteriak mengingatkan kita dari atas sana...


..
Semoga, semua peringatan - peringatan hari nasional, bisa membangkitkan semangat perjuangan kita. Pelajar, berjuanglah dengan pendidikan dan organisasi..... Semua, marilah berbakti untuk rumah kita ini, bangsa kita dan tanah air kita ini.

Merdeka......!!!

8/12/2008

Masa hidup

Kebetulan, waktu itu sudah tengah malam, jarum pendek sudah hampir dekat dengan angka 12. Sudah ngantuk dan cape banged waktu itu. Tapi sebelum tidur, tidak hanya gosok gigi terlebih dahulu, persis setelah saya hampir ketiduran, saya terbayang lagi dengan pengalaman - pengalaman tadi siang bersama teman - teman, candaan yang paling saya ingat adalah kata "Mati Aja Kamu". Hehe, itu biasa sih, candaan anak - anak yang saat itu sedang konyolnya kaluar....

Sempat ketawa - ketawa sendiri sebelum tidur,.. gara - gara ngingetin kumpulan tadi siang, habis itu, aku tidur, dan melihat jarum pendek sudah melewati angka 12.... Tengah malam sudah, waktunya aku tidur....

Namun, sempat ku terbayang candaan dengan kata "Mati Aja Kamu" itu, menurut saya bagus, tapi kalau seandainya saya benar - benar mati besok... Teringat lagi kalau waktu itu sudah jam 12 lewat...

Kepikiran, sudah satu hari lewat, berarti masa hidupku, sudah berkurang satu hari... Waktu demi waktu, detik demi detik, dan saat ke saat yang terus berlalu, seiring dengan masa hidup kita yang terbayar dengan waktu yang berjalan. Masuk akal bukan.

Saat aku ulang tahun yang ke- 17 kemaren, teman - temanku memberi selamat ucapan ulang tahun. Namun, sedikit pikiran usil dari kepala saya, mereka memberi selamat kepada saya atas berkurangnya masa hidup saya, sudah 17 tahun umur total saya berkurang, hehehe..... mungkin mereka bangga, kalau berkurang satu orang seperti saya di dunia ini, hehehe, bercanda saja,....

Lalu, apa maksud dari semua tulisan ini?? semua cuma sekedar mengingatkan, kalau hidup itu ada batas waktunya, waktu yang semakin lama semakin terus berkurang....


..
Sudah ngantuk, tapi rasanya ingin sekali melakukan sesuatu, jam menunjukan jarum pendek di arah 12 lebih 5 menit. Kuambil hp ku di meja belajar, dan mulai menulis pesan singkat. Isinya kurang lebih seperti ini....

-------------------------------------

Jam 12 mlm se-Indnsia tgh..
ni sdh tgh mlm..
slamat, msa hidp anda brkrg 1 hri.


sdhkh mlkukn hal baik sblmx?


ap rncna kdpnx? sia2 kah?


-------------------------------------


Kukirim ini ke teman - teman yang tadi siang pada bercanda "Mati - mati" segala, dan sebagian teman - teman yang saya banggakan. Maaf yang teman, malem - malem mengganggu. Setelah ku kirim semua pesan itu, langsung saja ku matikan hpku, biar ada yang mau marah - marah, bisa ditunda, hehehehe.....

Paginya, saya nyalakan hp saya, terlihat banyak sekali pesan - pesan yang terpending masuk. Responnya kebanyakan bercanda, malah ada yang gak balas. Cuman, saya tersenyum saja pagi itu, smoga aku dan kawan - kawan sadar, kalau hidup, bukan main - main. Satu penyesalan.... Nulis artikel ini bukan langsung tengah malam itu, tapi siangnya, yaaaahh... feel nya kurang deh, hehehe....

8/10/2008

Wuaahh... Kok panas? ohya, Global Warming....

Tiap siang, saya dan anak - anak paskas* lainnya mempersiapkan pasukan pengibar untuk upacara pengibaran bendera 17 agustus nanti di sekolah. Sekarang, saya sudah kelas 3, dan sudah kewajiban sebagai senior untuk melatih anak - anak yang akan mengibar nanti. Namun, ada satu hal yang saya merasa aneh... Panas terik matahari seakan menyengat bukan main panasnya. Perasan, tahun - tahun lalu tidak sepanas ini, jujur dan terus terang, panas kali ini adalah yang terpanas yang pernah di alami di Balikpapan. Sejenak saya ingat, oh ini kan karena Global Warming.... yaah, begitulah bukti nyata efek yang ditimbulkan dari peristiwa ini.

Pasukan pengibar sedang dalam posisi parade (siap sempurna tanpa gerakan tambahan). Awal - awal, panas diabaikan, namun, sudah lama dalam posisi ini, panas bukan main menyengat... Perasaan, dulu tidak seperti ini....

Bumi sudah semakin panas...

Tuhan maafkanlah kami yang lalai menjaga bumi ini...

Teringat Lagu yang dulu dinyanyikan Micael Jackson, yang judulnya "Heal The World"... [reff nya saja yah, ga hapal semua, hehehe]

--- Heal the world...
Make a better place

for you and for me and the entire human race
there are....
people dying, if you care enough for the living...

make a better place, for u, and for me......
---
Coba dengar lagunya, menyentuh banged.....

(*paskas = pasukan pengibar bendera sekolah)

8/07/2008

Haus, apa mungkin dehidrasi?

Kita pernah mendengar istilah tentang dehidrasi bukan? yah, mungkin juga pernah mengalami kejadian ini. Dehidrasi lebih dikenal dengan kekurangan cairan untuk proses metabolisme tubuh. Kesimpulannya, dehidrasi membahayakan bagi setiap orang.

Apa penyebab Dehidrasi?
Pertama, kita sendiri yang kurang mencukupi pasokan cairan yang dibutuhkan oleh tubuh. Kedua, tubuh kita mempunyai suhu yang diatas suhu normal rata-rata yang stabil bagi tubuh. Hingga tubuh kepanasan dan kekeringan.

Kebiasaan yang kurang bagus juga sering menjadi akibat dari munculnya dehidrasi. Contohnya, minum air kalau sudah haus, minum - minuman berkadar zat lain lebih tinggi (bukan air murni).

Kebiasaan kita yang minum hanya saat haus, sebenarnya bukan kebiasaan yang baik. Haus itu, saat tenggorokan dan mulut kita kering. Sedangkan Dehidrasi bukan berarti haus. Dehidrasi itu, kekurangan cairan dalam tubuh. Contoh yang paling simple, saat hari dingin dan udara saat itu lembab, jarang sekali kita merasa haus, karena suhu udara yang melewati tenggorokan tidak begitu mengganggu aktivitas pernapasan, dan sekali lagi, air bukan berarti diserap dan digunakan untuk metabolisme tubuh.

Satu lagi dari sekian banyak. Sebenarnya kalau tubuh kita sedang butuh air, sebaiknya kita penuhi yang air saja, jangan ditambah segala macam lagi, seperti soda dan lain - lain. Dampaknya tidak begitu serius, hanya saja lebih sehat lagi kalau kita minum air murni saja.

8/04/2008

Nyombong? Lihat dulu kenapa....

Terkadang disekitar kita, kita jumpai asumsi - asumsi atau opini yang belum pasti dari hati kita masing - masing, contohnya: "Iih, ni orang sombong banget, sekolahan neneknya apa?", "Ampun, pembualannya ni anak", "Kaya top - top nya aja", "Ampun guru!", yah pokoknya semua presepsi yang maksudnya memvonis seseorang sebagai orang yang angkuh atau sombong, "Show off" atau pamer, dan sok paling hebat, sok sokan lah.



Kita pun, mungkin tak sadar pernah dikatai seperti itu, tak peduli sudah berapa kali, yang penting, kita belajar untuk mengerti kenapa kata - kata mutiara itu bisa dilontarkan untuk memberi gelar seseorang sebagai seorang yang sedang "nyombong"....



Ada dua sudut pandang yang bisa kita analisa dari masalah ini...

#Pertama, kita melihatnya dari diri kita sendiri, mengapa kita memvonis seseorang sedang menyombong?



#Kedua, dari orang yang kita vonis, mengapa mereka seperti itu? apa kita tau alasannya?






...


Didalam benak manusia, sudah tertanam rumus yang menentukan hasil dari reaksi yang kita tanggapi, salah satunya: "Apabila ada seseorang yang sedang memamerkan kebolehan/kelebihan/kepunyaannya tanpa diminta dan bermaksud melebih - lebihkan promosi dirinya sendiri, orang itu = nyoombong", bahkan ada persamaan lain yang berlaku bagi banyak orang, yaiu, tampang. Ada manusia yang memang diciptakan dengan tampang yang seperti itu, namun, sebenarnya bukan berarti tuha menciptakannya untuk harus pembualan, bukan, mungkin hanya rautnya saja, so? berhakkah kita tuk memvonis seseorang tanpa kejelasan yang pasti? daripada berdosa, lebih baik diam, tak peduli orang mau menunjukan siapa dirinya dan apa yang dia coba pamerkan.


Selain itu, mungkin mereka bukan sedang ingin berniat untuk pamer, mungkin, mereka tidak tau caranya bergaul yang baik dengan yang lain, mereka yang tidak biasa bergaul, dan banyak atau yang kemungkinan lain yang sering dilalui bersama hidup ini. Ada orang yang tidak suka menegur orang, ada yang jarang sekali menegur kalau kita tidak menegurnya, yaah, banyak alasan lainnya lah, cuman ada banyak alasan mengapa mereka seperti itu, mungkin mereka tidak ingin dianggap sok tebar pesona, sok baik, cari perhatian, ataupun alasan - alasan lain yang mungkin kita belum tau.

Semua bergantung dari kita, engga ada gunanya memvonis seseorang tanpa alasan yang begitu jelas, mau benar apa kagak, sama aja dosa, ga ada pahalanya!

Kalau mau jujur, yaahhh, gua juga termasuk orang yang dikatai seperti itu, ada beberapa kata - kata mutiara yang diberikan untukku, namun, tetap ku dengarkan dalam hati ku, dan aku belajar dari kata- kata mereka. Oh, aku sedang melakukan kesalahan... aku emang butuh belajar banyak lagi, yaah... nyantai aja....

7/31/2008

Ayo Berkreasi

Sebagian orang, mungkin tak sadar kalau ia selalu membuat keputusan - keputusan yang menghasilkan jalan yang bervariasi dalam hidupnya. Salah satunya ialah ber imajinasi. Tiap - tiap orang adalah desainer, merekalah yang mendesain hidup mereka sendiri.

7/30/2008

Ayo ayoo semangat !!!

Kata - kata "semangat" biasa diteriakkan untuk memberi kekuatan ekstra, membangun rasa percaya diri seseorang untuk lebih yakin pada pada dirinya dan apa yang diperjuangkan.

Saya terisnpirasi dari anak - anak yang tiap sore sedang bermain bola di depan rumah saya, ada yang teriak - teriak histeris sampai mukanya merah, "Ayo ayo tendang bolanya!!", sampai - sampai, sangking semangatnya mereka, di akhir pertandingan ada yang tidak terima dengan kekalahannya, dan mereka pun berkelahi, "Ayo ayo hajarrr!!! Pukul!!! Tendang!!!", lagi - lagi, kata yang membakar semangat, muncul untuk memberi semacam tenaga ekstra buat anak - anak ga jelas tadi, untungnya ga tiap hari mereka kumat begitu...


Hfff....
Napas panjang keluar dari hidung saya, lega sehabis melihat anak - anak berkelahi, seru juga sih, sampai - sampai saya juga jadi semangat, kalau saya sadari, saya juga binggung mengapa juga jadi bersemangat, apa mungkin bahan tontonan untuk mengusir kebosanan?? Mungkin juga iya, hehehe. Tapi, ada yang lebih tepat lagi, mungkin, semangat anak - anak tadi juga menular ke saya, sampai - sampai tangan saya belagak jadi petinju, wuuhh....

Semangat, bisa juga menular seperti penyakit menular yang dapat menjakiti satu sama lain. Provokasi juga dapat menularkan semangat yang berlebih dan membutakan banyak orang. Inilah contoh dari semangat yang kurang bagus bila digunakan secara tidak benar. Namun, para pahlawan kita, dulunya sering menebarkan semangat buat pejuang yang sekarang telah melihat negara ini dari atas sana. Mungkin mereka sedang sedih, bukan saja melihat negara yang dulu mereka perjuangkan, namun juga para pejuang - pejuang bangsa yang sekarang hidup di negeri ini, tidak begitu bersemangat membangun negeri ini. Mungkin, mereka ingin berteriak "Ayo - ayo semangat!!!" dari atas sana, tapi apa daya, mereka tidak sanggup untuk berjuang seperti saat mereka masih ada di dunia ini.

Mungkin, negeri ini sedang membutuhkan orang - orang yang bisa berteriak "Ayo ayoo semangat!!", dan bisa menularkan semangat untuk meneruskan semangat perjuangan - perjuangan para pahlawan kita dahulu, tanpa mereka, mungkin teriakan untuk memperjuangkan Indoseia ini sudah tidak dapat lagi dirasakan. Sekarang, teriakan itu bukan sudah tidak terdengar, namun masih terlalu lemah untuk sampai ke dalam hati nurani kita. Setelah menulis ini, tiba - tiba saya berhenti berfikir, dan saya muali menghayal, suatu hari nanti, kita semualah yang berteriak "Ayo Indonesia, kibarkan semangat buat Merah Putih"... Dan ketika saat itu tiba, kita semua telah sadar, untuk semangat merawat negeri ini, menjaga negeri ini, membela negeri ini, semangatku, untuk tumpah darahku.... Aku Cinta Indonesia....

7/29/2008

Tunas buat Indonesia

Kata "tunas", banyak dikenal sebagai awal dari kehidupan bagi tumbuhan. Arti kata "tunas" bukan berarti tumbuhan yang akan tumbuh. Banyak sekali "tunas" di bumi Indonesia ini, namun sayang, banyak yang tak terawat disini....

Pelajar, adalah masa depan buat bumi pertiwi ini, adalah harapan terakir bagi Indonesia. Sumber Daya Alam, sudah dekat dengan batas akhirnya, keadaan politik dan keamanan di Indonesia, masih meragukan untuk pandangan kedepan, aset-aset tanah air, mulai banyak yang sudah jatuh ke tangan-tangan perusahaan asing.

Yang lebih ironis lagi, banyak para tunas-tunas yang telah dapat berdaya, muak untuk berkarya di tanah air. Banyak yang mengeluh, karena bayaran yang kecil membuat para tenaga ahli lebih memilih untuk bekerja pada perusahaan asing, bahkan jika mereka bisa, mereka bekerja dan berkarya di luar negeri. Mengapa tidak, mereka dapat bayaran yang lebih tinggi dari susah payah mereka, mereka lebih dijamin, mereka lebih dihargai, bahkan karya-karya mereka lebih aman dari pembajakan.

Ibarat sama seperti tanaman, waktu ia akan tumbuh, masih dibayangi dari ancaman ham tumbuhan, setelah tumbuhpun, juga masih ada ancaman buat mereka tuk tetap bertahan hidup.....

Inilah nasib yang telah dialami oleh banyak tunas-tunas bangsa ini. Waktu masih belajar, belum tentu sukses, sudah sukses belajarpun masih belum tentu bisa berhasil. Banyak hal yang seharusnya bisa mendorong para pelajar untuk bisa jadi penentu, namun sayang, mereka malah kesulitan untuk belajar menjadi seseorang yang dapat berdaya bagi diri sendiri, apalagi untuk bangsa ini.

Sebuah pohon tidak akan tumbuh dengan baik, apabila bibitnya, tanahnya, dan perawatannya tidak baik. Kalau bukan kita yang merawat, siapa lagi?

Tidak akan sia-sia, bila kita berkorban untuk negara ini, ini negara kita, kita tinggal disini, kitalah yang mesti merawat tanah kita ini.

7/28/2008

Almost forgotten

Hampir saja..... ku lupa kenangan-kenangan waktu dulu ku berjuang bersama teman - teman...... untung saja ada orang yang menanyakan pengalaman ku... .. Waktu itu jam istirahat... biasalah, teman-teman pada semerawut kemana-mana, ada yang belanja, ada yang dikelas, yang cowo pada gangguin cewe, yang cewe pada bagosipan.... ada yang makan.... wuaahhhhh, beda banged ama yang seperti pas waktu pelajaran deh.... Ada yang bertanya,.. A : "To!!, dulu kita pernah ke samarinda sama-sama kan???" B : "Yahh... pernah... haha... jadi ingat lagi" A : "Apalagi ban bocor dan kabel tebakar, hahaha...." (blum selese)