March 26, 2008 in Blog by dimassasongko

Import Table dari File Mdb

Ini perintah untuk import table dari file mdb

private sub cmbimport()

Dim strFilter As String
Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, “bmp Files (*.mdb)”, “*.mdb”)
strFilter = ahtAddFilterItem(strFilter, “all Files (*.*)”, “*.*”)

strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, _
OpenFile:=True, _
DialogTitle:=”Silakan Pilih file dari cabang yang akan diproses…”, _
Flags:=ahtOFN_HIDEREADONLY)

If Len(strInputFileName) > 0 Then
MsgBox strInputFileName ‘ Do something with the selected file
DoCmd.TransferDatabase acImport, “Microsoft Access”, strInputFileName, acTable, “table barang masuk”, “table barang masuk cabang”
Me.view_distribusi_cabang.Form.RecordSource = “select * from [nama tabel yang diimport]“
Me.view_distribusi_cabang.Form.refresh

Else
MsgBox “nggak ada mas dimas” ‘No file chosen, or user canceled
End If
end sub

di module:
Type tagOPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
strFilter As String
strCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
strFile As String
nMaxFile As Long
strFileTitle As String
nMaxFileTitle As Long
strInitialDir As String
strTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
strDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Declare Function aht_apiGetOpenFileName Lib “comdlg32.dll” _
Alias “GetOpenFileNameA” (OFN As tagOPENFILENAME) As Boolean

Declare Function aht_apiGetSaveFileName Lib “comdlg32.dll” _
Alias “GetSaveFileNameA” (OFN As tagOPENFILENAME) As Boolean
Declare Function CommDlgExtendedError Lib “comdlg32.dll” () As Long

Global Const ahtOFN_READONLY = &H1
Global Const ahtOFN_OVERWRITEPROMPT = &H2
Global Const ahtOFN_HIDEREADONLY = &H4
Global Const ahtOFN_NOCHANGEDIR = &H8
Global Const ahtOFN_SHOWHELP = &H10
‘ You won’t use these.
‘Global Const ahtOFN_ENABLEHOOK = &H20
‘Global Const ahtOFN_ENABLETEMPLATE = &H40
‘Global Const ahtOFN_ENABLETEMPLATEHANDLE = &H80
Global Const ahtOFN_NOVALIDATE = &H100
Global Const ahtOFN_ALLOWMULTISELECT = &H200
Global Const ahtOFN_EXTENSIONDIFFERENT = &H400
Global Const ahtOFN_PATHMUSTEXIST = &H800
Global Const ahtOFN_FILEMUSTEXIST = &H1000
Global Const ahtOFN_CREATEPROMPT = &H2000
Global Const ahtOFN_SHAREAWARE = &H4000
Global Const ahtOFN_NOREADONLYRETURN = &H8000
Global Const ahtOFN_NOTESTFILECREATE = &H10000
Global Const ahtOFN_NONETWORKBUTTON = &H20000
Global Const ahtOFN_NOLONGNAMES = &H40000
‘ New for Windows 95
Global Const ahtOFN_EXPLORER = &H80000
Global Const ahtOFN_NODEREFERENCELINKS = &H100000
Global Const ahtOFN_LONGNAMES = &H200000

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ‘ Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
‘ Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

Function TestIt()
Dim strFilter As String
Dim lngFlags As Long
strFilter = ahtAddFilterItem(strFilter, “Access Files (*.mda, *.mdb)”, _
“*.MDA;*.MDB”)
strFilter = ahtAddFilterItem(strFilter, “dBASE Files (*.dbf)”, “*.DBF”)
strFilter = ahtAddFilterItem(strFilter, “Text Files (*.txt)”, “*.TXT”)
strFilter = ahtAddFilterItem(strFilter, “All Files (*.*)”, “*.*”)
MsgBox “You selected: ” & ahtCommonFileOpenSave(InitialDir:=”C:\”, _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:=”Hello! Open Me!”)
‘ Since you passed in a variable for lngFlags,
‘ the function places the output flags value in the variable.
Debug.Print Hex(lngFlags)
End Function

Function GetOpenFile(Optional varDirectory As Variant, _
Optional varTitleForDialog As Variant) As Variant
‘ Here’s an example that gets an Access database name.
Dim strFilter As String
Dim lngFlags As Long
Dim varFileName As Variant
‘ Specify that the chosen file must already exist,
‘ don’t change directories when you’re done
‘ Also, don’t bother displaying
‘ the read-only box. It’ll only confuse people.
lngFlags = ahtOFN_FILEMUSTEXIST Or _
ahtOFN_HIDEREADONLY Or ahtOFN_NOCHANGEDIR
If IsMissing(varDirectory) Then
varDirectory = “”
End If
If IsMissing(varTitleForDialog) Then
varTitleForDialog = “”
End If

‘ Define the filter string and allocate space in the “c”
‘ string Duplicate this line with changes as necessary for
‘ more file templates.
strFilter = ahtAddFilterItem(strFilter, _
“Access (*.mdb)”, “*.MDB;*.MDA”)
‘ Now actually call to get the file name.
varFileName = ahtCommonFileOpenSave( _
OpenFile:=True, _
InitialDir:=varDirectory, _
Filter:=strFilter, _
Flags:=lngFlags, _
DialogTitle:=varTitleForDialog)
If Not IsNull(varFileName) Then
varFileName = TrimNull(varFileName)
End If
GetOpenFile = varFileName
End Function

Function ahtCommonFileOpenSave( _
Optional ByRef Flags As Variant, _
Optional ByVal InitialDir As Variant, _
Optional ByVal Filter As Variant, _
Optional ByVal FilterIndex As Variant, _
Optional ByVal DefaultExt As Variant, _
Optional ByVal Filename As Variant, _
Optional ByVal DialogTitle As Variant, _
Optional ByVal hwnd As Variant, _
Optional ByVal OpenFile As Variant) As Variant
‘ This is the entry point you’ll use to call the common
‘ file open/save dialog. The parameters are listed
‘ below, and all are optional.
‘
‘ In:
‘ Flags: one or more of the ahtOFN_* constants, OR’d together.
‘ InitialDir: the directory in which to first look
‘ Filter: a set of file filters, set up by calling
‘ AddFilterItem. See examples.
‘ FilterIndex: 1-based integer indicating which filter
‘ set to use, by default (1 if unspecified)
‘ DefaultExt: Extension to use if the user doesn’t enter one.
‘ Only useful on file saves.
‘ FileName: Default value for the file name text box.
‘ DialogTitle: Title for the dialog.
‘ hWnd: parent window handle
‘ OpenFile: Boolean(True=Open File/False=Save As)
‘ Out:
‘ Return Value: Either Null or the selected filename
Dim OFN As tagOPENFILENAME
Dim strFileName As String
Dim strFileTitle As String
Dim fResult As Boolean
‘ Give the dial
og a caption title.
If IsMissing(InitialDir) Then InitialDir = CurDir
If IsMissing(Filter) Then Filter = “”
If IsMissing(FilterIndex) Then FilterIndex = 1
If IsMissing(Flags) Then Flags = 0&
If IsMissing(DefaultExt) Then DefaultExt = “”
If IsMissing(Filename) Then Filename = “”
If IsMissing(DialogTitle) Then DialogTitle = “”
If IsMissing(hwnd) Then hwnd = Application.hWndAccessApp
If IsMissing(OpenFile) Then OpenFile = True
‘ Allocate string space for the returned strings.
strFileName = Left(Filename & String(256, 0), 256)
strFileTitle = String(256, 0)
‘ Set up the data structure before you call the function
With OFN
.lStructSize = Len(OFN)
.hwndOwner = hwnd
.strFilter = Filter
.nFilterIndex = FilterIndex
.strFile = strFileName
.nMaxFile = Len(strFileName)
.strFileTitle = strFileTitle
.nMaxFileTitle = Len(strFileTitle)
.strTitle = DialogTitle
.Flags = Flags
.strDefExt = DefaultExt
.strInitialDir = InitialDir
‘ Didn’t think most people would want to deal with
‘ these options.
.hInstance = 0
‘.strCustomFilter = “”
‘.nMaxCustFilter = 0
.lpfnHook = 0
‘New for NT 4.0
.strCustomFilter = String(255, 0)
.nMaxCustFilter = 255
End With
‘ This will pass the desired data structure to the
‘ Windows API, which will in turn it uses to display
‘ the Open/Save As Dialog.
If OpenFile Then
fResult = aht_apiGetOpenFileName(OFN)
Else
fResult = aht_apiGetSaveFileName(OFN)
End If

‘ The function call filled in the strFileTitle member
‘ of the structure. You’ll have to write special code
‘ to retrieve that if you’re interested.
If fResult Then
‘ You might care to check the Flags member of the
‘ structure to get information about the chosen file.
‘ In this example, if you bothered to pass in a
‘ value for Flags, we’ll fill it in with the outgoing
‘ Flags value.
If Not IsMissing(Flags) Then Flags = OFN.Flags
ahtCommonFileOpenSave = TrimNull(OFN.strFile)
Else
ahtCommonFileOpenSave = vbNullString
End If
End Function

Function ahtAddFilterItem(strFilter As String, _
strDescription As String, Optional varItem As Variant) As String
‘ Tack a new chunk onto the file filter.
‘ That is, take the old value, stick onto it the description,
‘ (like “Databases”), a null character, the skeleton
‘ (like “*.mdb;*.mda”) and a final null character.

If IsMissing(varItem) Then varItem = “*.*”
ahtAddFilterItem = strFilter & _
strDescription & vbNullChar & _
varItem & vbNullChar
End Function

Private Function TrimNull(ByVal strItem As String) As String
Dim intPos As Integer
intPos = InStr(strItem, vbNullChar)
If intPos > 0 Then
TrimNull = Left(strItem, intPos – 1)
Else
TrimNull = strItem
End If
End Function
‘************** Code End *****************

March 26, 2008 in Blog by dimassasongko

Info Pengajian Bulanan di Al-Azhar

Al Azharpeduli
Hadirilah Pengajian Bulanandi Masjid Agung Al-Azhar
Bersama Ust. Yusuf Mansur
Jum'at 28 Maret 2008
Pukul 19.30-21.00 WIB
Pengajian ini rutin setiap jum'at pekan ke-4
Informasi Al-Azhar Peduli Ummat
Jl. Sisingamangaraja Kebayoran BaruJakarta Selatan 12110
Telp.021-722 1504 Fax.726 5241
YM: al_azharpeduli
Mohon di sebarkan…
– 

Incoming search terms:

• pengajian al-azhar

March 25, 2008 in Blog by dimassasongko

Pelaku Sejarah Internet Indonesia

Pelaku Sejarah Internet Indonesia
Beberapa tokoh dan pelaku sejarah Internet Indonesia dan kontribusinya adalah:

• Anton Raharja, orang di balik operasional-nya VoIP Rakyat[ http://www.voiprakyat.or.id]. Salah satu programmer open source yang handal dan banyak berkontribusi di SourceForge[ http://www.sf.net].
• Bambang Dwi Anggono, PDE Pemkab Kebumen, berhasil membawa inisiatif berbasis komunitas e-kebumen menjadi finalis stockholmchallenge award 2006 dan menjadi inspirasi di berbagai inisiatif e-government berbagai pemkab.
• Barata W. Wardhana, ketua INDOWLI. Banyak melakukan negosiasi dengan POSTEL untuk masalah frekuensi Internet.
• Basuki Suhardiman, orang nomor satu di operasional Internet ITB & jaringan perguruan tinggi Indonesia. Orang dibalik operasinalnya IT KPU pada saat PEMILU 2004 & mengkoordinir 17000 relawan IT data entry PEMILU 2004.
• Bona Simanjuntak, guru SMK. Pemimpin di Jaringan Informasi Sekolah (JIS), ICT Center, WAN DKI.
• Budi Raharjo[ http://budi.insan.co.id/], dosen ITB. Pendiri ID-CERT[ http://www.cert.or.id/]. Pernah menjadi Country Code Top Level Domain ccTLD .id antara 1998 – 2005, sebelum diberikan kepada Dep KOMINFO di tahun 2005-2006.
• Dani Firmansyah, juga dikenal sebagai xnuxer, tokoh dunia hacker Indonesia. Pernah membobol Web KPU & dipenjara selama beberapa bulan. Aktif menyebarkan ilmu & roadshow untuk memintarkan orang Indonesia khususnya bidang network security.
• Donny B.U., Peneliti di ICT Watch ( http://www.ictwatch.com), jurnalis TI di http://www.detikinet.com (Detikcom Group), dan dosen ICT di UBiNus ( http://www.binus.ac.id). Memimpin gerakan 'turun gunung' ke sekolah/pesantren, membidani groups.or.id, Lab Komputer Swadaya Masyarakat dan Program Kampanye Internet Sehat ( http://www.ictwatch.com/cyberwise). Kumpulan tulisannya dapat dibaca di http://www.ictwatch.com/paper dan http://www.detikinet.com/index.php/kanal/408
• Enda Nasution[ http://enda.goblogmedia.com/], tokoh authoritif Blogger Indonesia.
• Frans Thamura, Java evangelist Indonesia.
• Gatot Hari Priowirjanto , dosen ITB, mantan direktur Pendidikan Menengah Kejuruan di DIKNAS. Tokoh dibalik terkaitnya 4000 SMK Indonesia ke Internet, WAN Kota, dan ICT Center di tahun 2000-2005.
• Gun, tokoh inspirasional dibalik wajanbolic & pancibolic e-goen untuk akses Internet wireless yang murah.
• Heru Nugroho, pernah menjadi Sekjen APJII. Merupakan motor di belakang Yayasan Sekolah 2000[ http://www.sekolah2000.or.id/] dan Yayasan Air Putih[ http://www.airputih.or.id/].
• I Made Wiryana[ http://wiryana.pandu.org/], dosen Gunadharma yang saat ini sedang menjalani pendidikan di Jerman. Pendorong Linux Indonesia.
• Jim Geovedi[ http://jim.geovedi.com/], salah satu aktivis hacking Indonesia dan dunia. Bersama Michael Sunggiardi, pernah melakukan roadshow keliling Indonesia untuk memberikan materi keamanan teknologi informasi. Kontributor dan pendorong penggunaan sistem operasi FreeBSD dan OpenBSD. Pengelola mailinglist id-freebsd[ http://groups.yahoo.com/group/id-freebsd/] dan id-openbsd[ http://groups.yahoo.com/group/id-openbsd/] di YahooGroups[ http://groups.yahoo.com/].
• Ismail Fahmi[ http://ismailfahmi.org/], developer Ganesha Digital Library, pemimpin awal & pendorong Indonesia Digital Library Network.
• Johar Alam, orang dibalik operasionalnya IIX dan kemudian Open IX.
• Judith MS, salah satu presidium Asosiasi WARNET Indonesia (AWARI). Sangat aktif memperjuangkan kepentingan WARNET & masyarakat IT kepada pemerintah.
• Judhi Prasetyo[ http://www.prasetyo.net/], pelopor Internet di ITENAS dan ikut aktif dalam mengembangkan jaringan di Pusat Antar Universitas ITB tahun 1993-1995. Menyumbangkan desain antena kaleng [ http://www.pbase.com/judhi/tincan/] untuk koneksi Internet WLAN pada frekuensi 2.4Ghz.
• Khalid Mustafa, guru SMK. Aktifis Jaringan Informasi Sekolah (JIS) & penggerak jaringan sekolah khususnya di Indonesia timur.
• Michael Sunggiardi[ http://www.sunggiardi.com/michael/], direktur BONET[ http://www.bogor.indo.net.id/]. Penggagas dan implementor RT/RW-net di Bogor. Sangat aktif mengadakan roadshow untuk memperkenalkan penggunaan IT pada masyarakat.
• Onno W. Purbo, mantan dosen ITB. Pembangun gateway Internet ITB & Jaringan AI3 Indonesia. Aktif menulis buku & memberikan ilmu IT pada masyarakat Indonesia.
• PY Adi Prasaja, orang yang banyak berkontribusi waktu dan pengetahuannya dalam mengoperasikan server groups.or.id.
• Rahmat M. Samik-Ibrahim[ http://rms46.vLSM.org/], Direktur vLSM.org[ http://vLSM.org/]. Pernah mengelola jaringan di Universitas Indonesia[ http://www.ui.edu/] antara 1990-1996; serta pernah mengelola Domain Tingkat Tertinggi (Top Level Domain) "ID" antara 1993-1998. Dewasa ini, ikut mengelola seekor kambing[ http://kambing.vLSM.org/], si komo[ http://komo.vLSM.org/], dan distro De2-UI[ http://de2.vLSM.org/].
• Romi Satrio Wahono[ http://romisatriawahono.net/], penggerak ilmukomputer.com[ http://www.ilmukomputer.com]. Membuka akses masyarakat pada Ilmu Komputer.
• Rusmanto, redaktur majalah InfoLinux[ http://www.infolinux.web.id/]. Aktif membagikan ilmu tentang open source dan Linux.
• M. Salahuddien, biasa dikenali sebagai Didien, aktifis AWARI, salah satu pendiri INDOWLI, salah satu koordinator Air Putih[ http://www.airputih.or.id]
• Sanjaya, mantan direktur P.T Indo Internet[ http://www.indo.net.id/], ISP komersial pertama Indonesia. Salah satu pendiri APJII. Bekerja di APNIC[ http://www.apnic.net/] di Australia.
• Susanto[ http://jasakom.com/sto/], juga dikenal sebagai S'to, tokoh dunia hacker Indonesia. Penulis buku hacking. Pembina dan moderator mailing list hacker & network security terbesar jasakom-perjuangan@yahoogroups.com.
• Valens Riyadi, direktur Mikrotik Indonesia, pendiri Fotografer.Net[ http://www.fotografer.net], aktifis APJII Jogjakarta, anggota dewan penasehat Airputih[ http://www.airputih.or.id]

Incoming search terms:

• sejarah programmer
• sejarah pembuatan internet
• sejarah internet dan pembuatannya
• sejarah penbuatan unternet
• sejarah programmar
• tokoh progammer sukses
• tokoh tokoh programmer as
• website sejarah internet

March 25, 2008 in Blog by dimassasongko

Test TAMPILIN

DARI DIMAS YA
–
Muhammad Dimas Sasongko
http://www.masdimas.co.cc
+62 21 92630359

March 19, 2008 in Blog by dimassasongko

Tambal gigi di puskesmas

Gigi bagian depanku sudah bolong memang pengen banget tambel tapi baru ada duit. Kata mbak – tambal gigi cuman Rp. 8000 di puskesmas …weleh . Pada tanggal 15 maret 2008 kalo nggak salah hari sabtu . ..tanpa pikir panjang lebar ya aku dateng ke puskesmas sama kakak dan adikku. Dateng jam 7.30 berharap urutan pertama nggak tahunya dah urutan ke 20 .weleh – weleh. Jam buka loket jam 8 ternyata setelah ngantri ambil nomor juga ngantri nunggu dokter …

Gila dokternya baru buka pintu jam 10 . Mampus !!!. Kagak disiplin amet sich melayani masyarakat seenak udele dewe . (Harap kepada Dinas Puskesmas harap lebih meningkatkan kedisipilinan)Kebetulan aku dapet nomor 8 . Hehehe kebanyakan pasiennya ibu -ibu. Ya wes ….ngumpul ma ibu2 . Dengerin ibu2 cerita tentang gigi sampe minyak tanah sampe bisul…gile nggak abiz abiz ibu2 pada cerita.
ada seorang ibu 2 cerita :
“…dulu mas udah 2 bulan lalu saya kesini juga pengen nambel gigi. Trus giginya dah dipake lebih dari 1 minggu .eh pas lagi makan tempe bacem …tambelan giginya copot …rasanya kayak kerupuk gitu dech ….ya udah ompong lagi dech …..” nadanya sambil tertawa terbahak bahak.

….tak terasa udah dipanggil doktor.Tok….tok ….tok … ” , “ya masuk kata dokternya”, eh dokternya cowok.”Kenapa giginya mas ” sapanya, “Gigi saya bolong dok bagian depan … nih”, jawabku sambil ngasih liat…. “wew … cukup besar juga bolongnya ya .- saya akan coba tambel …tapi semestinya harus di tambel khusus di dokter gigi khusus harganya bisa Rp.750.000 …” , kata dokternya. “Weleh …..mahal ya dok. ya wes … yang biasa aja mang tahan berapa lama dok”…” ya ada yang cuman tahan 1 minggu,2 minggu,ada yang tahunan tergantung pemakaian dan perawatan….” nguuuuuuuiinnnngggg gigi ku di bor …..ngilu juga …….. trus ….ditambel pake semen putih ……….nguiiiiiiiiiiiing lagi ……….tambelannya dirapiin…………… “Silakan kumur ” kata dokternya. “udah selesai dok ?” tanyaku.”berapa tarifnya dok ” , semuannya rp.20.000 dengan rincian …bla …bla ..bla ….. (nggak ngerti ) …”dok boleh pinjem kaca ” hehehe lagi mo liat gigi baru .Weleh lumayan lah …. nggak dikatain ompong lagi ….paling dikatain “tambel “.

Incoming search terms:

• harga tambal gigi
• tambal gigi di puskesmas
• Biaya tambal gigi
• harga tambal gigi di puskesmas
• tambal gigi murah
• biaya tambal gigi puskesmas
• harga nambal gigi
• harga menambal gigi
• penggunaan jasa nambal gigi
• Tambal gigi depan

March 18, 2008 in Blog by dimassasongko

REFERENSI untuk teman2

Buat Ridwan : http://www.google.co.id/search?q=belajar+wap&hl=id&cr=countryID&start=10&sa=N
http://mti.ugm.ac.id/~yosephhandoko/010417/?p=67
http://i31.photobucket.com/albums/c400/mail2yogie/koleksi/wap_gama.jpg
http://ple-q.com/2006/12/01/akhirnya-bisa-bikin-wp/
http://en.wikipedia.org/wiki/WAP

Buat Ali dan dkk silakan pilih di:

http://www.bengkelprogram.com
www.vb-bego.com
http://opensource-indonesia.com/kioss.php/index.php

March 18, 2008 in Blog by dimassasongko

Create WAP Hello Word with php

<?

header(“Content-Type: text/vnd.wap.wml”);

echo “”;
echo “”;

?>

Today is

<?
echo date(“m/d/Y”);
?>

closeFont();

March 18, 2008 in Blog by dimassasongko

Cerita Kutu Anjing

Kutu anjing adalah binatang yang mampu melompat 300 kali tinggi tubuhnya.
Namun, apa yang terjadi bila ia dimasukan ke dalam sebuah kotak korek api kosong lalu dibiarkan disana selama satu hingga dua minggu? Hasilnya, kutu itu sekarang hanya mampu melompat setinggi kotak korek api saja!
Kemampuannya melompat 300 kali tinggi tubuhnya tiba-tiba hilang.

Ini yang terjadi. Ketika kutu itu berada di dalam kotak korek api ia mencoba melompat tinggi. Tapi ia terbentur dinding kotak korek api. Ia mencoba lagi dan terbentur lagi. Terus begitu sehingga ia mulai ragu akan kemampuannya sendiri.

Ia mulai berpikir, “Sepertinya kemampuan saya melompat memang hanya segini.” Kemudian loncatannya disesuaikan dengan tinggi kotak korek api. Aman. Dia tidak membentur. Saat itulah dia menjadi sangat yakin, “Nah benar kan ? Kemampuan saya memang cuma segini. Inilah saya!”

Ketika kutu itu sudah dikeluarkan dari kotak korek api, dia masih terus merasa bahwa batas kemampuan lompatnya hanya setinggi kotak korek api. Sang kutu pun hidup seperti itu hingga akhir hayat. Kemampuan yang sesungguhnya tidak tampak. Kehidupannya telah dibatasi oleh lingkungannya.

Sesungguhnya di dalam diri kita juga banyak kotak korek api. Misalnya anda memiliki atasan yang tidak memiliki kepemimpinan memadai. Dia tipe orang yang selalu takut tersaingi bawahannya, sehingga dia sengaja menghambat perkembangan karir kita. Ketika anda mencoba melompat tinggi, dia tidak pernah memuji, bahkan justru tersinggung. Dia adalah contoh kotak korek api yang bisa mengkerdilkan anda.

Teman kerja juga bisa jadi kotak korek api. Coba ingat, ketika dia bicara begini, “Ngapain sih kamu kerja keras seperti itu, kamu nggak bakalan dipromosikan, kok.” Ingat! Mereka adalah kotak korek api. Mereka bisa menghambat perkembangan potensi diri Anda.

Korek api juga bisa berbentuk kondisi tubuh yang kurang sempurna, tingkat pendidikan yang rendah, kemiskinan, usia dan lain sebagianya. Bila semua itu menjadi kotak korek api maka akan menghambat prestasi dan kemampuan anda yang sesungguhnya tidak tercermin dalam aktivitas sehari-hari.

Bila potensi anda yang sesungguhnya ingin muncul, anda harus take action untuk menembus kotak korek api itu. Lihatlah Ucok Baba, dengan tinggi tubuh yang di bawah rata-rata ia mampu menjadi presenter di televisi. Andapun pasti kenal Helen Keller. Dengan mata yang buta, tuli dan “gagu” dia mampu lulus dari Harvard University . Bill Gates tidak menyelesaikan pendidikan sarjananya, namun mampu menjadi “raja” komputer. Andre Wongso, tidak menamatkan sekolah dasar namun mampu menjadi motivator nomor satu di Indonesia .

Contoh lain Meneg BUMN, Bapak Sugiharto, yang pernah menjadi seorang pengasong, tukang parkir dan kuli di Pelabuhan. Kemiskinan tidak menghambatnya untuk terus maju. Bahkan sebelum menjadi menteri beliau pernah menjadi eksekutif di salah satu perusahaan ternama.

Begitu pula dengan Nelson Mandela. Ia menjadi presiden Afrika Selatan setelah usianya lewat 65 tahun.
Kolonel Sanders sukses membangun jaringan restoran fast food ketika usianya sudah lebih dari 62 tahun.

Nah, bila anda masih terkungkung dengan kotak korek api, pada hakekatnya anda masih terjajah. Orang-orang seperti Ucok Baba, Helen Keller, Andre Wongso, Sugiharto, Bill Gates dan Nelson Mandela adalah orang yang mampu menembus kungkungan kotak korek api. Merekalah contoh sosok orang yang merdeka, sehingga mampu menembus berbagai keterbatasan.

BREAK YOUR BORDER . . . . TOUCH THE SKY . . . . !

Semoga dapat memacu kita untuk berkarya dimanapun …….

Albert Zhu
Commercial Team Leader TOP