Reinkarnasi dan hari berbangkit

Reinkarnasi itu merupakan simpangan dari cerita bahwa manusia yang meninggal dunia nantinya akan dibangkitkan lagi dalam keadaan yang sesuai dengan sifat kelakuannya pada hari kiamat. Sedang reinkarnasi menganggap yang mati akan hidup lagi di dunia ini. Wallahu a’lam.

Ilmu Padi

aduhai
aku yang berilmu padi…
makin kosong
makin tegak berdiri!

Module Excel

Berikut ini kode untuk baca-tulis file excel dengan vb express:

Module xls

Dim Koneksii As New System.Data.OleDb.OleDbConnection
Dim Perintahh As New System.Data.OleDb.OleDbCommand
Public Hasill As System.Data.OleDb.OleDbDataReader

Dim NotFreee As Boolean

Public Sub OpenGuard()
While NotFreee
Application.DoEvents()
End While
NotFreee = True
End Sub

Public Sub CloseGuard()
NotFreee = False
End Sub

Public Sub SetXLS(ByVal Alamat As String)
Koneksii.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & Alamat & “; Extended Properties=” & Chr(&H22) & “Excel 8.0;HDR=No;IMEX=2″ & Chr(&H22) & “;”
Perintahh.Connection = Koneksii
End Sub

Public Sub DoQueryXLS(ByVal Command As String)
Koneksii.Open()
Perintahh.CommandText = Command ‘”Select * from log”
Hasil = Perintahh.ExecuteReader
End Sub

Public Sub CloseKoneksi()
Koneksii.Close()
End Sub

Public Sub DoNonQueryXLS(ByVal Command As String)
Koneksii.Open()
Perintahh.CommandText = Command ‘”insert into”
Perintahh.ExecuteNonQuery()
Koneksii.Close()
End Sub

End Module

Berikut ini contoh penggunaannya:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
xls.OpenGuard()
xls.SetXLS(“Presensi.xls”)
xls.DoNonQueryXLS(“Update [Sheet1$A1:A1] set F1=’123′”)
xls.DoNonQueryXLS(“Update [Sheet1$A2:A2] set F1=’WAS’”)
xls.DoNonQueryXLS(“Update [Sheet1$A3:A3] set F1=’TO’”)

xls.DoNonQueryXLS(“Update [Sheet1$B1:B1] set F1=’123b’”)
xls.DoNonQueryXLS(“Update [Sheet1$B2:B2] set F1=’WASb’”)
xls.DoNonQueryXLS(“Update [Sheet1$B3:B3] set F1=’TOb’”)

xls.DoQueryXLS(“select * from [Sheet1$A1:A2]“)
While Hasil.Read()
TextBox1.AppendText(Hasil(0) & vbCrLf)
End While

xls.CloseKoneksi()
xls.CloseGuard()
End Sub

Azan Scheduler 1.0 Released

Setelah menggunakan program sederhana hasil porting dari program Basic tulisan dari Dr. T. Djamaluddin, akhirnya Azan Scheduler yang aku tulis dapat di-share di http://sourceforge.net/projects/azan

Azan Scheduler ditulis dalam bahasa C++ menggunakan editor dari Qt Designer pada operating system Linux Red Hat 9. Program ini pernah dicoba juga pada Fedora Core 5 dan Kubuntu 7.04. Target penggunanya adalah KDE. Tapi sesungguhnya secara teori dapat digunakan pada Linux yang lain asalkan ada program crontab dan media player. Hal itu dilakukan dengan adanya skrip perl azan.pl yang tidak mengharuskan instal menggunakan GUI dengan Qt library.

Silahkan Anda download dan coba program ini pada: http://sourceforge.net/projects/azan

Salam.

Pencarian

awalnya menerima
tanpa sanggah tanpa tanya
berikutnya mencoba
menjalani menyelami
tengahnya tengok kanan kiri
ternyata tidak satu tetapi bermacam cara
esoknya timbang sana timbang sini
bersiap berbenah diri
akhirnya memilih
menggabungkan apa yang mesti

salam.

Pandangi Diri

bagaimana tidak terpana
baru saja melihat diri
ketika amal, ilmu, akal, hati, jiwa, rasa, rafsu, qalbu hadir dihadapan
ketika sinar menerpanya berpendarlah …

siapa yang tidak menyaksikan ini
sedang itu bagian yang dekat
bagaimana mengingini yang dianggap jauh di atas sana
padahal ia tidak terkena sifat perubahan dan fana

Dia tak membutuhkan jarak untuk disebut dekat
Dia tak bersinggungan karena bukan benda
Dia bukan ruh karena bukan isi
Dia tidak diisi karena Dia bukan tempat

sungguh sifat yang tidak bisa disifat
hanya Dialah yang tau
tauku hanya sedikit yang Dia izinkan
tauku hanya sekehendak Ar-Rohman

tak berani lagi aku kini
tak kuat lagi aku kini
tak sanggup lagi aku kini
kecuali dengan keinginan-Nya

hidup mati adalah milik-Nya
hanya mengingini jauh dekat dianggap sama
ada dan tiada, tidak berbeda
semoga jalan ini dalam ridho-Nya.

salam.

Hadiah Terunikku

Dalam tidurku…
Kulihat ia sesosok tubuh wayang yang ringkih
Tergeletak bergulingan kekanan dan kekiri
Sosok kuning langsat lelaki ideal
Tetapi tetaplah berwujud wayang
Ku angkat kepalanya diatas kedua sila kakiku
Ku bacakan solawat ke kupingnya hingga tiga kali
Solawat yang separuhnya aku tidak pernah baca sebelumnya

Sekian lama aku abaikan …

Dalam tidurku…
Kulihat gadis yang selalu diiringi
Kemanapun aku pergi ia selalu hadir
Secepat apapun aku perlari
Sedalam apapun aku terjatuh
Berdua mereka selalu beriringan hadir untukku
Kalau ditengah kumpulan lelaki
Tetap saja ia hanya mau denganku
Bercakap tentang hal yang menyenangkan
Makin kutatap wajahnya makin indah elok rupanya
Manusiakah atau apa gadis ini?

Yang satu ini tidak bisa ku abaikan …

Setelah solat awal malamku
Makin menjadi kegundahan pikiranku
Apa arti semua itu?
Bukannya zikir dan do’a, malah merebahkan diri
Berguling kekanan dan kekiri!
Beberapa saat bagai tak sadar diri …
Ingat lagi dan menjalani apa yang mesti …

Malam itu guruku cerita laduni
Dikira akan diberi
Eh, hanya bercerita sang penggembala
Bukan yang susah dengan puasa 40 harinya
Tapi yang mudah dengan solawat 70 untuk 70 jum’atnya!
Oh, ternyata ini sang kekasihku
Sebuah do’a bagi nabiku
Lengkap sudah separuh yang tidak pernah aku baca dulu
Ia tuliskan untukku

Terima kasih untuk Abdul Hamid guruku

Aplikasi dengan style Xp menggunakan VB6

Biasanya membuat program di VB6 agak membosankan, karena tampilannya tidak terlalu bagus. Tetapi kini dengan menambahkan kode berikut tampilannya menjadi sesuai dengan skin Xp saat dijalankan di Xp.

Private Type tagInitCommonControlsEx
    lngSize As Long
    lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
(iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200
Public Sub WriteManifest()
    On Error Resume Next
    Dim F As String
    F = App.Path & "\" & App.EXEName & ".exe.manifest"
    If Dir(F) = "" Then
        Open F For Output As #3
        Print #3, "<?xml version=" & Chr(&H22) & "1.0" & _
        Chr(&H22) & " encoding=" & Chr(&H22) & "UTF-8" & _
        Chr(&H22) & " standalone=" & Chr(&H22) & "yes" & _
        Chr(&H22) & " ?>"
        Print #3, "<assembly xmlns=" & Chr(&H22) & _
        "urn:schemas-microsoft-com:asm.v1" & Chr(&H22) & _
        " manifestVersion=" & Chr(&H22) & "1.0" & Chr(&H22) & ">"
        Print #3, vbTab & "<assemblyIdentity"
        Print #3, vbTab & vbTab & "version=" & Chr(&H22) & _
        "1.0.0.0" & Chr(&H22)
        Print #3, vbTab & vbTab & "processorArchitecture=" & _
        Chr(&H22) & "X86" & Chr(&H22)
        Print #3, vbTab & vbTab & "name=" & Chr(&H22) & _
        App.CompanyName & "." & App.ProductName & "." & _
        App.EXEName & Chr(&H22)
        Print #3, vbTab & vbTab & "type=" & Chr(&H22) & _
        "win32" & Chr(&H22) & " />"
        Print #3, vbTab & "<description>" & App.Comments & _
        "</description>"
        Print #3, vbTab & "<dependency>"
        Print #3, vbTab & "<dependentAssembly>"
        Print #3, vbTab & "<assemblyIdentity"
        Print #3, vbTab & vbTab & "type=" & Chr(&H22) & _
        "win32" & Chr(&H22)
        Print #3, vbTab & vbTab & "name=" & Chr(&H22) & _
        "Microsoft.Windows.Common-Controls" & Chr(&H22)
        Print #3, vbTab & vbTab & "version=" & Chr(&H22) _
        & "6.0.0.0" & Chr(&H22)
        Print #3, vbTab & vbTab & "processorArchitecture=" & _
        Chr(&H22) & "X86" & Chr(&H22)
        Print #3, vbTab & vbTab & "publicKeyToken=" & _
        Chr(&H22) & "6595b64144ccf1df" & Chr(&H22)
        Print #3, vbTab & vbTab & "language=" & Chr(&H22) & _
        "*" & Chr(&H22) & " />"
        Print #3, vbTab & "</dependentAssembly>"
        Print #3, vbTab & "</dependency>"
        Print #3, "</assembly>"
        Print #3, ""
        Close #3
        Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus
        DoEvents
        End
    End If
    Dim Ticce As tagInitCommonControlsEx
    Ticce.lngSize = LenB(iccex)
    Ticce.lngICC = ICC_USEREX_CLASSES
    InitCommonControlsEx Ticce
    On Error GoTo 0
End Sub

Save code diatas pada file xp.bas. Tambahkan pada project yang ingin menggunakan style Xp. Kemudian tambahkan kode berikut dalam kode form utama.

Private Sub Form_Initialize()
    WriteManifest
End Sub

Agar tampilan form yang diedit juga bertema sesuai dengan tampilan saat run time maka simpan kode  di bawah ini pada folder instalasi VB6 anda, misal: C:\Program Files\Microsoft Visual Studio\VB98, sebagai file vb6.exe.manifest

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    type="win32"
    name="Microsoft.Windows.Editeur"
    processorArchitecture="X86"
    version="4.4.0.0"
/>
<description>Microsoft Visual Basic 6.0</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            language="*"
            processorArchitecture="X86"
            version="6.0.0.0"
            publicKeyToken="6595b64144ccf1df"
        />
    </dependentAssembly>
</dependency>
</assembly>

Salam.

Kicau Burung

lihatlah burung itu telah melayang
suatu saat akan kembali pulang
menukik membawa apa yang ada
dengan cara apa pun jua

memang bukan sekedar harap
perlu cari tau apakah sebab
ditilik dengan hati
diraba dengan rasa

hitunglah kepakannya
betapa banyak usahanya
disetiap ada sempat dan saat
tetap saja ia lantunkan kicau rahasianya

perlu faham tentang takdir
menimbang isi dengan takaran
kalimat apa yang telah terlontar
itukah kata-kata yang telah menjadi do’a

bulu di sayap ia helai dengan paruhnya
sebelum dan sesudah kelananya
satu per satu ia rapihkan susunannya
kini nampak bagus corak warna bulunya

gumamanmu adalah kata-kata
walau aku tidak mendengarnya
pasti ada satu yang selalu mendengarnya
janganlah lengah mengawasinya

sang burung tiada putus asa
mengitari padang mencari hajatnya
mengepak sayap menerjang angin
lalu-lalang di tepian sungai

aku ada disini
dikelilingi oleh puluhan cerita
entah baik atau buruk
hanya berusaha menikmatinya

kicau riuhnya kian meredup
saat sang burung melihat lembayung senja
saatnya merebahkan diri bersama alam
kembali hening dalam pangkuan

sadarmu adalah kumpulan rasa
bekalmu yang utama
terima kasih kepada Sang Pencipta rasa
kini kau diminta untuk mengingat-Nya

Salam.

Berlalu

telah ku garami sang hidup
mempersiapkan hidangan yang sedap

telah ku bumbui sang rasa
menjadikan diri tiada tara

telah ku cicipi sang alam
membuat jiwa terdiam

telah ku hidangkan sang amal
ternyata banyak yang kumal

ah…
kalimat ini bersama asa yang tersisa
berusaha memperbaiki citra
menghalusi sang rasa
diam terpaku mencari cara
semoga jalan itu dekat dan ada

salam

Hei Akal! Kau Kah Itu?

Saatnya semua berkumpul
Ada hal yang perlu diputuskan
Maka ajukan pendapat kalian…

Aku setuju!
Aku tidak setuju!

Apa alasanmu…?
Inilah ilmunya!
Akupun juga, itulah ilmunya!

Begitulah alam ini…
Semua berbicara dengan izin-Nya
Hingga turunlah keputusan
Melalui sang akal
Semua tunduk dalam wilayah kerajaan
Mau apa lagi…
Sudah diputuskan

Salam.

Perjalanan Diri

Sekian tahun aku cari
Kejelasan arti dari mengerti
Hingga letih kian menghantui
Apakah cukup sampai disini

Hilang semua harap ini
Fana sirna tanpa perlu menanti
Kini hadirlah ia dalam lubuk hati
Sinar jernih saling mengisi

Akankah kuat jiwa menanti
Dambaan terasa jauh hingga mati

Salam.