Sabtu, 11 Februari 2012

DOA KU


Tuhan semuanya kuserahkan pada tanganmu hidupku,masa depanku,kedua orangtuaku,abangku adik-adik ku dan seluaruh keluargaku ……hanya kepadamu bapa.Aku percaya Tuhan engkau yang telah membimbing kami sekeluarga smpai kami bisa melangkah sejauh ini.Bapa terimakasih atas berkat-berkat yang engkau alirkan pada kami yang tiada hentinya seperti sungai yang mengelir dan tak pernah berkesudahan.Berkat kuasa dan kebaikanmu Bapa kami anak-anak mu bisa tumbuh menjadi anak-anak yang takut akan Tuhan yang saling mengasihi,saling mencintai dan saling berbagi satu sama lain.Termakasih Tuhan kedua orang tua yang luar biasa baik dan sangat menyayangi kami anak-anaknya .Tuhan berkat cinta kasihmu aku ingin berbagi pada semua orang dan mengajak semua saudara-saudaraku diseluruh dunia dan mengakui betata besarnya cinta kasih Tuhan,dan mengakui bahwa Yesus Tuhankulah Allah yang sesungguhnya Allah yang patut disembah,aku ingin cerita Yesus lah jalan keselamatan yang kekal abadi dan hanya melalui Engkaulah jalan kesurga,Tiada jalan kesurga selain melalui Mu Tuhan.Terimakasih Tuhan atas semua berkat dan cintamu,terima kasih Yesus.

AMIN

JERITAN Q

                                                     SUARA HATIKU
Tuhan semua kuserahkan padamu,aku percaya padamu Bapa tiada yang mustahil bagimu.Engkau tak akan membiarkan ku tenggelam ,diasaaat aku mulai terjatuh dan menurut ukuran manusia aku mungkin tidak akan bias bangkit lagi ,Namun karena kuasamu Tuhan aku masi bias merasakan cahaya kasihmu.Bapa aku bersyukur mempunyai Yesus seperti engkau,yang sangguo memberikan cahaya bagi kami seluruh umatmu.aku tau Tuhan nggak semua orang bias merasakan seperti yangkurasakan dan nggak semua orang bisa memiliki yesus yang luarbiasa sepertimu,dan aku bersyukur aku bisa menjadi salah satu umat pilihanmu,aku bersyukur yesus aku bisa mengenalmu lebih dalam lagi.bapa aku percaya mulai hari ini sampai seterusnya engkaulah bapa yang patut disembah.,aku percaya engkau pastiselalu mengalirkat berkatmu jauh dari yang aku perkirakan.
Terimakasi Yesus atas berkat mu ini saya masi bisa merasakan nikmatnya cinta kasihmu krn pertolonganmu pada kami sekeluarga,terutama pd kedua orangtuaku yang selalu engkau berikan berkat dan kesehatan hingga berlipat kali ganda,semua ini karena kuasamu Tuhan aku bisa memiliki kedua orang tua yang sangat sempurna,mungkin Tuhan didunia ini gak ada yang sempurna,namun Tuhan sejujurnya aku damerasakan kasih yang sempurna melalui kuasamu,aku bisa merasakan apa itu cinta yang sesungguhnya…..















Jumat, 29 Juli 2011

SALING TOLONG MENOLONG

Bryan hampir saja tidak melihat wanita tua yang berdiri dipinggir jalan itu, tetapi dalam cahaya berkabut ia dapat melihat bahwa wanita tua itu membutuhkan pertolongan. Lalu ia menghentikan mobil Pontiacnya di depan mobil Mecedes wanita tua itu, lalu ia keluar dan menghampirinya.
Walaupun dengan wajah tersenyum wanita itu tetap merasa khawatir, karena setelah menunggu beberapa jam tidak ada seorang pun yang menolongnya.

Apakah lelaki itu bermaksud menyakitinya?
Lelaki tersebut penampilanya tidak terlalu baik, ia kelihatan begitu memprihatinkan. Wanita itu dapat merasakan kalau dirinya begitu ketakutan, berdiri sendirian dalam cuaca yang begitu dingin, sepertinya lelaki tersebut tau apa yang ia pikirkan. Lelaki itu berkata ” saya kemari untuk membantu anda bu, kenapa anda tidak menunggu didalam mobil bukankah disana lebih hangat? oh ya nama saya Bryan.Bryan masuk kedalam kolong mobil wanita itu untuk memperbaiki yang rusak.
Akhirnya ia selesai, tetapi dia kelihatan begitu kotor dan lelah, wanita itu membuka kaca jendela mobilnya dan berbicara kepadanya, ia berkata bahwa ia dari St Louis dan kebetulan lewat jalan ini.
Dia merasa tidak cukup kalau hanya mengucapkan terima kasih atas bantuan yang telah diberikan.Wanita itu berkata berapa yang harus ia bayar, berapapun jumlahnya yang ia minta tidak menjadi masalah, karena ia membayangkan apa yang akan terjadi jika lelaki tersebut tidak menolongnya. Bryan hanya tersenyum.

Bryan tidak mengatakan berapa jumlah yang harus dibayar, karena baginya MENOLONG ORANG BUKANLAH SUATU PEKERJAAN YANG HARUS DIBAYAR. Ia sangat yakin apabila menolong seseorang yang membutuhkan pertolongan tanpa suatu imbalan suatu hari nanti Tuhan pasti akan membalas amal perbuatanya.

Ia berkata kepada wanita itu ” Bila ia benar-benar ingin membalas jasanya, maka apabila suatu saat nanti ia melihat seseorang yang membutuhkan pertolongan maka tolonglah orang tersebut “…dan ingatlah pada saya”.

Bryan menunggu sampai wanita itu menstater mobilnya dan menghilang dari pandangan.
Setelah berjalan beberapa mil wanita itu melihat kafe kecil, lalu ia mampir kesana untuk makan dan beristirahat sebentar. Pelayan datang dan memberikan handuk bersih untuk mengeringkan rambutnya yang basah. Wanita itu memperhatikan sang pelayan yang sedang hamil, dan masih begitu muda. Lalu ia teringat kepada Bryan

Setelah wanita itu selesai makan dan, sang pelayan sedang mengambil kembalian untuknya, wanita itu pergi keluar secara diam-diam.

Setelah kepergiannya sang pelayan kembali, pelayan itu bingung kemana wanita itu pergi, lalu ia menemukan secarik kertas diatas meja dan uang $1000. Ia begitu terharu setelah membaca apa yang ditulis oleh wanita itu:
“Kamu tidak berhutang apapun pada saya karena seseorang telah menolong saya, oleh karena itulah saya menolong kamu, maka inilah yang harus kamu lakukan:
“Jangan pernah berhenti untuk memberikan cinta dan kasih sayang”.
Malam ketika ia pulang dan pergi tidur, ia berfikir mengenai uang dan apa yang di tulis oleh wanita itu.
Bagaimana wanita itu bisa tahu kalau ia dan suaminya sangat membutuhkan uang untuk menanti kelahiran bayinya?
Ia tau bagaimana suaminya sangat risau mengenai hal ini, lalu ia memeluk suaminya yang terbaring disebelahnya dan memberikan ciuman yang lembut sambil berbisik :”semuanya akan baik-baik saja sayangku, I Love You Bryan”.

Sahabat, ternyata sang pelayan tersebut adalah istri lelaki yang bernama Bryan.

“Segala sesuatu yang berputar akan selalu berputar”, therefore, don’t ever to stop to do good things in your life. (Oleh karena itu, jangan pernah berhenti untuk melakukan hal-hal baik dalam hidup Anda )

http://e-motis.blogspot.com/2010/12/kembalikan-tanganku-pa.html

Sepasang suami isteri seperti pasangan lain di kota-kota besar meninggalkan anak-anak untuk diasuh pembantu rumah ketika mereka bekerja. Anak tunggal pasangan ini, perempuan berusia tiga setengah tahun. Sendirian di rumah, dia sering dibiarkan pembantunya yang sibuk bekerja.

Dia bermain diluar rumah. Dia bermain ayunan, berayun-ayun di atas ayunan yang dibeli papanya, ataupun memetik bunga matahari, bunga kertas dan lain-lain di halaman rumahnya.

Suatu hari dia melihat sebatang paku karat. Dia pun mencoret semen tempat mobil ayahnya diparkirkan tetapi karena lantainya terbuat dari marmer, coretan tidak kelihatan. Dicobanya pada mobil baru ayahnya. Ya... karena mobil itu bewarna gelap, coretannya tampak jelas. Apa lagi kanak-kanak ini pun membuat coretan sesuai dengan kreativitasnya. Hari itu bapak dan ibunya mengendarai motor ke tempat kerja karena ada perayaan Thaipusam sehingga jalanan macet. Setelah penuh coretan yg sebelah kanan dia beralih ke sebelah kiri mobil. Dibuatnya gambar ibu dan ayahnya, gambarnya sendiri, lukisan ayam, kucing dan lain sebagainya mengikut imaginasinya. Kejadian itu berlangsung tanpa disadari si pembantu rumah.

Pulang petang itu, terkejutlah ayah ibunya melihat mobil yang baru setahun dibeli dengan angsuran. Si bapak yang belum lagi masuk ke rumah ini pun terus menjerit, "Kerjaan siapa ini?" Pembantu rumah yang tersentak dengan jeritan itu berlari keluar. Dia juga beristighfar. Mukanya merah padam ketakutan lebih2 melihat wajah bengis tuannya.

Sekali lagi diajukan pertanyaan keras kepadanya, dia terus mengatakan 'Tak tahu... !" "Kamu dirumah sepanjang hari, apa saja yg kau lakukan?" hardik si isteri lagi.Si anak yang mendengar suara ayahnya, tiba-tiba berlari keluar dari kamarnya. Dengan penuh manja dia berkata "Ita yg membuat itu papa.... cantik kan!" katanya sambil memeluk papanya ingin bermanja seperti biasa. Si ayah yang hilang kesabaran mengambil sebatang ranting kecil dari pohon bunga raya di depannya, terus dipukulkannya berkali2 ke telapak tangan anaknya.

Si anak yang tak mengerti apa-apa terlolong-lolong kesakitan sekaligus ketakutan. Puas memukul telapak tangan, si ayah memukul pula belakang tangan anaknya. Si ibu cuma mendiamkan saja, seolah merestui dan merasa puas dengan hukuman yang dikenakan. Pembantu rumah terbengong, tdk tahu hrs berbuat apa?. Si bapak cukup rakus memukul-mukul tangan kanan dan kemudian tangan kiri anaknya.

Setelah si bapak masuk ke rumah dituruti si ibu, pembantu rumah menggendong anak kecil itu, membawanya ke kamar. Dilihatnya telapak tangan dan belakang tangan si anak kecil luka2 dan berdarah. Pembantu rumah memandikan anak kecil itu. Sambil menyiram air sambil dia ikut menangis. Anak kecil itu juga terjerit-jerit menahan kepedihan saat luka2nya itu terkena air. Si pembantu rumah kemudian menidurkan anak kecil itu. Si bapak sengaja membiarkan anak itu tidur bersama pembantu rumah.

Keesokkan harinya, kedua-dua belah tangan si anak bengkak. Pembantu rumah mengadu. "Oleskan obat saja!" jawab tuannya, bapak si anak. Pulang dari kerja, dia tidak memperhatikan anak kecil itu yang menghabiskan waktu di kamar pembantu. Si bapak konon mau mengajar anaknya. Tiga hari berlalu, si ayah tidak pernah menjenguk anaknya sementara si ibu juga begitu tetapi setiap hari bertanya kepada pembantu rumah. "Ita demam...
" jawap pembantunya ringkas."Kasih minum panadol ," jawab si ibu.

Sebelum si ibu masuk kamar tidur dia menjenguk kamar pembantunya. Saat dilihat anaknya Ita dalam pelukan pembantu rumah, dia menutup lg pintu kamar pembantunya. Masuk hari keempat, pembantu rumah memberitahukan tuannya bahwa suhu badan Ita terlalu panas. "Sore nanti kita bawa ke klinik. Pukul 5.00 siap" kata majikannya itu. Sampai saatnya si anak yang sudah lemah dibawa ke klinik. Dokter mengarahkan ia dirujuk ke hospital karena keadaannya serius. Setelah seminggu di rawat inap doktor memanggil bapak dan ibu anak itu.

"Tidak ada pilihan.." katanya yang mengusulkan agar kedua tangan anak itu dipotong karena gangren yang terjadi sudah terlalu parah.
"Ia sudah bernanah, demi menyelamatkan nyawanya kedua tangannya perlu dipotong dari siku ke bawah" kata doktor.

Si bapak dan ibu bagaikan terkena halilintar mendengar kata-kata itu. Terasa dunia berhenti berputar, tapi apa yg dapat dikatakan. Si ibu meraung merangkul si anak. Dengan berat hati dan lelehan air mata isterinya, si bapak terketar-ketar menandatangani surat persetujuan pembedahan.

Keluar dari bilik pembedahan, selepas obat bius yang suntikkan habis, si anak menangis kesakitan. Dia juga heran2 melihat kedua tangannya berbalut kasa putih. Ditatapnya muka ayah dan ibunya. Kemudian ke wajah pembantu rumah. Dia mengerutkan dahi melihat mereka semua menangis. Dalam siksaan menahan sakit, si anak bersuara dalam linangan air mata.

"Papa.. Mama... Ita tidak akan melakukannya lagi. Ita tak mau dipukul papa. Ita tak mau jahat. Ita sayang papa.. sayang mama." katanya berulang kali membuatkan si ibu gagal menahan rasa sedihnya.

"Ita juga sayang Kak Narti.." katanya memandang wajah pembantu rumah, sekaligus membuatkan gadis dari Surabaya itu meraung histeris.

"Papa.. kembalikan tangan Ita. Untuk apa ambil.. Ita janji tdk akan mengulanginya lagi! Bagaimana caranya Ita mau makan nanti? Bagaimana Ita mau bermain nanti? Ita janji tdk akan mencoret2 mobil lagi," katanya berulang-ulang.

Serasa copot jantung si ibu mendengar kata-kata anaknya. Meraung2 dia sekuat hati namun takdir yang sudah terjadi, tiada manusia dapat menahannya.

Jumat, 15 Juli 2011

form pelanggan

FROM PELANGGAN


Sub hapus()
kd_pelanggan.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub

Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO pelanggan(kd_pelanggan, nama, alamat, telp)" & _
" values('" & kd_pelanggan.Text & _
"','" & nama.Text & _
"','" & alamat.Text & _
"','" & telp.Text & "')"
Case 1

SQL = "UPDATE pelanggan SET Nama ='" & nama.Text & "'," & _
" alamat = '" & alamat.Text & "'," & _
" telp = '" & telp.Text & "'," & _
" where kd_pelanggan ='" & kd_pelanggan.Text & "'"
Case 2
SQL = "DELETE FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data pelanggan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_pelanggan.SetFocus
End Sub

Sub Tampilpelanggan()
On Error Resume Next
kd_pelanggan.Text = RS!kd_pelanggan
nama.Text = RS!nama
alamat.Text = RS!alamat
telp.Text = RS!telp

End Sub

Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_pelanggan.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "pelanggan")
If x = vbYes Then prosesDB 2
Call hapus
kd_pelanggan.SetFocus
Case 3
Call hapus
kd_pelanggan.SetFocus
Case 4
Unload Me
End Select
End Sub

Private Sub Form_Load()
Call OPENDB
Call hapus


End Sub

Private Sub kd_pelanggan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_pelanggan.Text = "" Then
MsgBox "Masukkan kd_pelanggan produk !", vbInformation, "pelanggan"
kd_pelanggan.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpelanggan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_pelanggan.Enabled = False
Else
x = kd_pelanggan.Text
Call hapus
kd_pelanggan.Text = x
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub

Rabu, 13 Juli 2011

CARA CEPAT DAN MUDAH BELAJAR VB 6.0

Sebelumnya saya akan menjelaskan pengertian visual Basic atau biasa disingkat vb, vb merupakan bahasa pemrograman yang sangat mudah dipelajari, dengan teknik pemrograman visual yang memungkinkan penggunanya untuk berkreasi lebih baik dalam menghasilkan suatu program aplikasi. Ini terlihat dari dasar pembuatan dalam visual basic adalah FORM, dimana pengguna dapat mengatur tampilan form kemudian dijalankan dalam script yang sangat mudah.

Saya sendiri juga masih newbie dengan vb, karena sebelumya di kampuz kami di ajarkan bahasa pemograman Delpi. Memang secara interface lebih bagus delpi namun lebih mudah menggunakan vb di bandingkan delpi, malah kami mendapat tugas berat dari dosen untuk membuat aplikasi program dari vb untuk di gunakan untuk pengganti ASEP yaitu system komputerisasi yang berisikan data-data mahasiswa dan dosen secara lengkap husus untuk jurusan Akuntansi. Jadi untuk memperdalam bahasa pemrograman vb ini saya sering sekali browsing untuk mendapatkan tutorial yang mudah di mengerti agar bisa lebih cepat ke tahap berikutnya. Dan alhamdullillah tugas tesebut sudah hamper selesai, tenang saja insyaallah akan saya publish ko sementara liat SSnya dulu yah whee… he…

Lanjut ke tutorial VB tadi yah, akhirnya saya mendapatkan tutorial yang sagat mudah dimengerti untuk para newbie,