restart otomatis aplikasi delphi

 IT  Comments Off on restart otomatis aplikasi delphi
Jul 312011
 

OK, sedikit tips saja untuk hari ini. ada kalanya dalam membuat aplikasi kita harus merestart aplikasi itu sendiri, tanpa merestart windows. terlebih jika itu sebuah aplikasi database. misal, ada sebuah aplikasi database. setelah melakukan restore database, maka diperlukan koneksi ulang antara aplikasi dengan database. untuk menghidari error yang tidak diharapkan dan tidak terduga, maka diperlukan restart aplikasi. dan tentu, ini akan menjadi lebih keren dan asyik jika dia bisa merestart dirinya sendiri. kalau anda menemukan kasus seperti ini, maka code yang diperlukan adalah :

ShellExecute(Handle, ‘open’, PAnsiChar(ParamStr(0)), ”, ”, SW_SHOW);
Application.Terminate; // ato bisa pake “Close” aja

o iya, kadang restart terjadi lebih cepat daripada proses import database. jadi, kalau anda menemukan error berupa table yang belum exist, maka diperlukan jeda waktu restart. misal, “restore database berhasil, aplikasi akan restart dalam 5 detik lagi.” dan setelah 5 detik, baru aplikasi restart. untuk hal seperti ini, tentu anda bisa menambahkan komponen timer.

demikian sedikit tips. semoga bermanfaat. 🙂

cara membulatkan pecahan angka ratusan ke ribuan pada delphi

 IT  Comments Off on cara membulatkan pecahan angka ratusan ke ribuan pada delphi
Jul 292011
 

em, sedikit tips kali ini, tentang cara untuk membulatkan angka pecahan ratusan ke dalam ribuan. misal,
192.333 dibulatkan menjadi 192.000
174.250 dibulatkan menjadi 174.000
kalau ada pertanyaan, kenapa juga harus dibulatkan? sedangkan angka itu bukan angka pecahan atau desimal. OK, pembulatan seperti ini akan diperlukan untuk perhitungan data keuangan dengan jangkauan angka yang cukup besar. misal, bila kita bicara tentang pembayaran sebuah angsuran, bukankah sangat jarang bila ada angsuran dengan pecahan ratusan rupiah? terlebih jika jumlahnya mencapai jutaan rupiah. 🙂

kasus ini baru saja saya alami ketika saya membuat sebuah sistem keuangan. dan dari situ juga saya ada niat untuk share disini karena ternyata belum banyak yang menulis tentang ini. entah karena ini terlalu sepele sampai terlewatkan atau bagaimana saya kurang tahu. tapi, yah, semoga bermanfaat.:)

cara pembulatan tersebut cukup sederhana. algoritma yang saya pakai adalah membagi angka tersebut dengan angka 1000, kemudian mengalikannya kembali dengan angka 1000. jadi, untuk codenya kira-kira demikian:

angka := (angka div 1000) * 1000;

dimana angka adalah bilangan bertipe integer. apabila berupa bilangan real atau float, maka ditambah trunc() jadinya kira-kira begini untuk angka adalah bilangan real atau float:

angka := (trunc(angka) div 1000) * 1000;

demikian, semoga membantu. 🙂



Jul 232011
 

emmmm…. sebenarnya kali ini saya tidak akan menulis. (lhah… terus ngopo??) hehehe.  cuma mau share ja tentang tools untuk export data dari delphi ke berbagai format file yang ada. ceritanya, kemaren saya pusing bikin report dari delphi. nampaknya, untuk kasus ini qreport dan rave report belum cukup, bahkan terkesan terlalu sederhana untuk memenuhi model report yang diinginkan.belum lagi bila report harus di export ke format file lain seperti doc, docx, atau rtf nya ms word, xls atau xlsx nya ms excel, atau pdf, atau xml, atau yang lain… hemm… otak pun mulai berfikir.. berfikir sangat.. hingga akhirnya penelusuran jejak pun dimulai. mencari sebuah komponen yang bisa mendukung. singkat cerita, saya menemukan EMS Advanced Data Export Component Suite 4.2.0.6. tools yang menarik saya pikir begitu membaca sekilas tentang penjelasan produk nya :

====================

Advanced Data Export VCL is a component suite for Borland Delphi and C++ Builder that allows you to save your data in the most popular data formats for the future viewing, modification, printing or web publication. You can export data into MS Access, MS Excel, MS Word (RTF), Open XML Format, Open Document Format (ODF), HTML, XML, PDF, TXT, DBF, CSV and more! There will be no need to waste your time on tiresome data conversion – Advanced Data Export will do the task quickly and will give the result in the desired format.

Key Features

  • Data export into 17 most popular formats: MS Access, MS Excel, MS Word, Open XML Format, Open Document Format (ODF), RTF, HTML, XML, PDF, TXT, DBF, CSV, SYLK, DIF, LaTeX, SQL and Windows Clipboard
  • Delphi 5-7, 2005-2007, 2009, 2010, XE and C++ Builder 5-6, 2006-2007, 2009, 2010, XE support
  • Export of Unicode data. Manually preset text encoding for exported data (UTF-8, UTF-16/UCS-2, UTF-32/UCS-4, Latin1, Latin2, Latin5, Latin7 and more)
  • Saving data for future viewing, modification, printing or web publication
  • Easy-to-use wizard allows your end-users to export data quickly
  • Powerful export options for each data format
  • 100% native Delphi code
  • No additional libraries or software required to operate
  • Detailed help system and demo application
  • Powerful components and properties editors
  • Setting the user formats for each field separately
  • Multilanguage support

===============================================
Continue reading »

Metode Berpikir Islami

 Islami  Comments Off on Metode Berpikir Islami
May 182011
 

Berpikir adalah cara khas manusia yang membedakannya dari makhluk lain. Di kalangan ahli mantiq sangat masyhur istilah yang mendefinisikan manusia sebagai (hewan yang berpikir). Karena kemampuan berpikir itu pulalah manusia merupakan makhluk yang dimuliakan Allah SWT, seperti dijelaskan dalam Al-Qur’an (yang artinya), (Al-Israa’: 70). Bahkan, amanah kekhalifahan yang hanya diserahkan Allah kepada manusia (Adam) pun adalah karena faktor berpikir yang hanya dimiliki oleh manusia itu. Sebab, dengan kemampuan berpikir, manusia akan dapat menyerap ilmu pengetahuan dan mentransfernya. Peristiwa dialog antara malaikat, Adam, dan Allah SWT memberikan gambaran yang jelas kepada kita betapa pemuliaan itu berpangkal pada kemampuan berpikir dan menyimpan ilmu. Mari kita simak ayat-ayat berikut.

“Dan Allah mengajarkan kepada Adam nama-nama (benda) itu seluruhnya, kemudian Allah mengajukannya kepada para malaikat sambil berkata, ‘Sebutkanlah kepada-Ku nama benda-benda itu jika kamu memang orang-orang benar.’ Mereka menjawab, ‘Maha Suci Engkau, tiada yang kami ketahui selain apa yang Engkau ajarkan kepada kami. Sesungguhnya Engkaulah Yang Maha Mengetahui dan Maha Bijaksana.’ Allah berfirman, ‘Hai Adam, beri tahukanlah kepada mereka nama-nama benda ini.’ Maka setelah diberitahukannya, Allah berfirman, ‘Bukankah sudah Ku-katakan kepadamu bahwa sesungguhnya Aku mengetahui rahasia langit dan bumi dan mengetahui apa yang kamu zahirkan dan yang kamu sembunyikan’.” (Al-Baqarah: 31-33).

Penghargaan Allah kepada manusia demikian besarnya, sampai ke tingkat memerintahkan malaikat agar bersujud kepada Adam. Bahkan, yang menolak perintah sujud itu dicap sebagai kafir. Adakah pemuliaan yang melebihi penghargaan yang luar biasa itu?

Berpikir dalam Islam

Islam memandang berpikir itu sebagai media untuk mendekatkan diri kepada Allah SWT. Sebab dengan berpikir, manusia menyadari posisinya sebagai hamba dan memahami fungsinya sebagai khalifatullah di muka bumi. Tugasnya hanyalah menghambakan diri kepada Allah SWT dengan beribadah. Dengan berpikir juga, manusia mengetahui betapa kuasanya Allah menciptakan alam semesta dengan kekuatan yang maha dahsyat, dan dirinya sebagai manusia sangat kecil dan tidak berarti di hadapan Allah Yang Maha Berkuasa.

Al-Qur’an berkali-kali merangsang manusia, khususnya orang beriman, agar banyak memikirkan dirinya, lingkungan sekitarnya, dan alam semesta. Karena dengan berpikir itu, manusia akan mampu mengenal kebenaran (al-haq), yang kemudian untuk diimani dan dipegang teguh dalam kehidupan. Allah berfirman, “Hanyalah orang-orang yang berakal saja yang dapat mengambil pelajaran.” (Ar-Ra’d: 19).

Continue reading »

islam dan sains; Pembuktian AL QUR’AN : ada api di dasar lautan

 Islami, Other  Comments Off on islam dan sains; Pembuktian AL QUR’AN : ada api di dasar lautan
Jan 052011
 

Subhanallah! Baru-baru ini muncul sebuah fenomena retakan di dasar lautan yang mengeluarkan lava, dan lava ini menyebabkan air mendidih hingga suhunya lebih dari seribu derajat Celcius. Meskipun suhu lava tersebut luar biasa tingginya, ia tidak bisa membuat air laut menguap, dan walaupun air laut ini berlimpah-ruah, ia tidak bisa memadamkan api.

Allah bersumpah dengan fenomena kosmik unik ini. Firman-Nya: “Ada laut yang di dalam tanahnya ada api” (Qs. Ath-Thur 6).

Nabi SAW bersabda: “Tidak ada yang mengarungi lautan kecuali orang yang berhaji, berumrah atau orang yang berperang di jalan Allah. Sesungguhnya di bawah lautan terdapat api dan di bawah api terdapat lautan.”

Ulasan Hadits Nabi :

Hadits ini sangat sesuai dg sumpah Allah SWT yang dilansir oleh Al-Qur’an pada permulaan Surah Ath-Thur, di mana Allah bersumpah (Maha Besar Allah yang tidak membutuhkan sumpah apapun demi lautan yang di dalam tanahnya ada api “al-bahrul masjur.” Sumpahnya:

“Demi bukit, dan kitab yang ditulis; pada lembaran yang terbuka; dan demi Baitul Ma’mur; dan atap yang ditinggikan (langit), dan laut yang di dalam tanahnya ada api, sesungguhnya azab Tuhanmu pasti terjadi, tidak seorangpun yang dapat menolaknya.” (Qs. Ath-Thur: 1-8)

Continue reading »