Fungsi konversi angka ke huruf

function Terbilang(x:integer):string;
const
abil : array[0..11] of string[10]=('','satu','dua','tiga',
'empat','lima','enam','tujuh','delapan','sembilan',
'sepuluh','sebelas');

begin
if (x<12) then
Result:=' '+abil[x]
else
if (x<20) then
Result:=Terbilang(x-10)+' belas'
else
if (x<100) then
Result:=Terbilang(x div 10)+' puluh'+Terbilang(x mod 10)
else
if (x<200) then
Result:=' seratus'+ Terbilang(x-100)
else
if (x<1000) then
Result:=Terbilang(x div 100)+' ratus'+Terbilang(x mod 100)
else
if (x<2000) then
Result:=' seribu'+ Terbilang(x-1000)
else
if (x<1000000) then
Result:=Terbilang(x div 1000)+' ribu'+Terbilang(x mod 1000)
else
if (x<1000000000) then
Result:=Terbilang(x div 1000000)+' juta'+Terbilang(x mod 1000000);
end;


procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text:=(terbilang(strtoint(edit1.Text)));
end;

Tool Kumpulan Tips n Trik Delphi Tips Explorer 2008

Buat temen2 yang suka utak-atik source code pake delphi, nih ada tool bagus buat bantuin mikir kalo lagi perlu pencerahan. Thanks buat para master delphi "http://www.delphi-id.org"



nih linknya, Silahkan sedot abiiissssss.......
"http://www.ziddu.com/download/3880418/TipsExplorer2008.rar.html"

Software Vendor Payment

Buat rekan2 yang ingin mencoba software yang baru aja aku selesein ni, bisa posting alamat emailnya + komentar disini.
Thank for all.




Fitur :

Items & Vendors : daftar item pembelian dan rekanan yang memproduksi item lengkap harga, perhitungan discount, suspended vendor, duedate(Jatuh Tempo)

Data (Order/Receipt/Payment/Return)

Report/Laporan : Laporan Pembelian, Pembayaran, Retur, dan Keadaan Saldo (hutang) Suppllier

Install Cairo Dock onto Blankon 4.0

1. You need to download signed GPG key for identification and the repository is:
wget -q http://repository.cairo-dock.org/ubuntu/cairo-dock.gpg -O- | sudo apt-key add -

2. Add the Cairo-Dock repository to your sources. Open the sources.list file:
sudo gedit /etc/apt/sources.list
then add this line below at the end of file :
deb http://repository.cairo-dock.org/ubuntu intrepid cairo-dock
save your sources.list

3, update your repository and install the cairo dock from your terminal
sudo apt-get update
sudo apt-get install cairo-dock cairo-dock-plug-ins




Enjoy your nice view...!

ACER Laptop Driver Install Problem

This is tips for anyone who want to install any driver onto ACER Notebook:
1. Always do at the first time install (after Windows installed):
- VGA driver
- Sound driver
- LAN (Not Wireless) driver
- Modem driver
- Touchpad driver
2. Then u can install :
- Wireless driver
- Webcam driver
3. Next, install
- Bluetooth driver

This things need to be done, because this things can be avoid error/problem to finish your driver install.

Happy try...

Daftar Repositori Lokal & Cara Setting Link ke Repos Lokal

Untuk yang sudah update/ install Ubuntu 8.10 Intrepid Ibex silahkan menggunakan Daftar Source List server lokal yang ada di indonesia.

Silahkan gunakan source list yang terdekat dari server anda

kambing.ui.edu (UI, Telkom, Indosat, OpenIXP, INHERENT)
deb http://kambing.ui.edu/ubuntu intrepid main restricted universe multiverse
deb http://kambing.ui.edu/ubuntu intrepid-updates main restricted universe multiverse
deb http://kambing.ui.edu/ubuntu intrepid-security main restricted universe multiverse
deb http://kambing.ui.edu/ubuntu intrepid-backports main restricted universe multiverse
deb http://kambing.ui.edu/ubuntu intrepid-proposed main restricted universe multiverse

www.foss-id.web.id (Telkom)
deb http://dl2.foss-id.web.id/ubuntu intrepid main restricted universe multiverse
deb http://dl2.foss-id.web.id/ubuntu intrepid-updates main restricted universe multiverse
deb http://dl2.foss-id.web.id/ubuntu intrepid-security main restricted universe multiverse
deb http://dl2.foss-id.web.id/ubuntu intrepid-backports main restricted universe multiverse
deb http://dl2.foss-id.web.id/ubuntu intrepid-proposed main restricted universe multiverse

mirror.its.ac.id (ITS, INHERENT)
deb http://mirror.its.ac.id/ubuntu intrepid main multiverse restricted universe
deb http://mirror.its.ac.id/ubuntu intrepid-security main multiverse restricted universe
deb http://mirror.its.ac.id/ubuntu intrepid-backports main multiverse restricted universe
deb http://mirror.its.ac.id/ubuntu intrepid-updates main multiverse restricted universe

komo.vlsm.org
deb http://komo.vlsm.org/ubuntu intrepid main restricted universe multiverse
deb http://komo.vlsm.org/ubuntu intrepid-updates main restricted universe multiverse
deb http://komo.vlsm.org/ubuntu intrepid-security main restricted universe multiverse
deb http://komo.vlsm.org/ubuntu intrepid-backports main restricted universe multiverse
deb http://komo.vlsm.org/ubuntu intrepid-proposed main restricted universe multiverse

ftp.itb.ac.id (ITB, INHERENT)
deb ftp://ftp.itb.ac.id/pub/ubuntu intrepid main restricted universe multiverse
deb ftp://ftp.itb.ac.id/pub/ubuntu intrepid-updates main restricted universe multiverse
deb ftp://ftp.itb.ac.id/pub/ubuntu intrepid-security main restricted universe multiverse
deb ftp://ftp.itb.ac.id/pub/ubuntu intrepid-backports main restricted universe multiverse
deb ftp://ftp.itb.ac.id/pub/ubuntu intrepid-proposed main restricted universe multiverse

http://mirror.unmul.ac.id/

deb http://mirror.unmul.ac.id/ubuntu hardy main multiverse restricted universe
deb http://mirror.unmul.ac.id/ubuntu hardy-security main multiverse restricted universe
deb http://mirror.unmul.ac.id/ubuntu hardy-backports main multiverse restricted universe
deb http://mirror.unmul.ac.id/ubuntu hardy-updates main multiverse restricted universe
deb http://mirror.unmul.ac.id/ubuntu hardy-proposed main multiverse restricted universe

Untuk mengubah daftar repositori, ada 2 cara, yaitu melalui Terminal dan “Synaptic Package Manager” :

Melalui terminal:

1. Masukkan perintah berikut:
   

   sudo gedit /etc/apt/sources.list

2. Hapus seluruh baris dan ganti dengan baris-baris pada salah satu server dari daftar di atas. Contoh:
   deb http://dl2.foss-id.web.id/ubuntu intrepid main restricted universe multiverse
   deb http://dl2.foss-id.web.id/ubuntu intrepid-updates main restricted universe multiverse
   deb http://dl2.foss-id.web.id/ubuntu intrepid-security main restricted universe multiverse
   deb http://dl2.foss-id.web.id/ubuntu intrepid-backports main restricted universe multiverse
   deb http://dl2.foss-id.web.id/ubuntu intrepid-proposed main restricted universe multiverse
3. Ketikkan perintah

sudo apt-get update
sudo apt-get upgrade

Melalui Synaptic Package Manager:

1. Buka menu: System | Administration | Synaptic Package Manager
2. Pilih menu: Settings | Repositories
3. Pilih tab “Third-Party Software”
4. Pilih “Add”
5. Masukkan baris pertama pada salah satu server repositori pada daftar di atas. Misalnya:
   

   deb http://kambing.ui.edu/ubuntu intrepid main restricted universe multiverse

6. Klik “Add” lagi, lalu isikan baris berikutnya. Lakukan langkah ini hingga semua baris pada server tersebut selesai anda masukkan.
7. Setelah selesai, centang setiap item pada daftar “Third-Party Software”
8. Klik “Close”
9. Klik “Reload” pada ikon di sebelah kiri atas

KM. Teratai Prima Tenggelam - (Karam)

Memang hal inilah yang saya takutkan sejak dulu, mengingat angkutan massal seperti ini selalu kelihatannya memprioritaskan keuntungan semata tanpa memikirkan keselamatan. Walaupun beberapa kali saya baca di media massa bahwa pemilik kapal selalu memperhatikan kelayakan peralatan keselamatan.

Bukan tanpa alasan saya menuliskan posting ini, tetapi merujuk pada pemberitaan di media dan kondisi di lapangan, banyak sekali Armada transportasi massal seperti ini yang tidak lagi memperhatikan faktor keselamatan penumpang ditambah dengan ketidakpedulian aparat yang berkepentingan (Syahbandar, Kepolisian, etc) yang seolah menutup mata atas tetap beroperasinya armada2 transportasi dengan keadaan tidak layak tersebut.

Ada beberapa hal yang sangat rawan jika terjadi kecelakaan pada KM Teratai Prima yang saya pernah lihat sebelumnya dan dapat berakibat sangat fatal, salah satunya ukuran pintu kabin yg sangat kecil. Apalagi berdasarkan kesaksian beberapa korban selamat bahwa mereka berada di luar kabinlah yang banyak selamat, sementara penumpang yang lain terjebak di dalam kabin dan pada saat kejadian pintu kabin dalam keadaan tertutup.

Semoga Allah SWT mengampuni dosa kita semua, AMIN.

Medical Check Up (MCU) Software, Mau.....?

Akhirnya selesai juga pembuatan software Medical Check Up buatan ku sendiri,..... tentunya dengan bantuan semua rekan2 di RSUD. A. Wahab Sjahranie Samarinda. Trim's, Bro for all
Seneng banget rasanya.... Bagi temen-temen yg berminat silahkan posting komen di blog-ku yang sederhana ini. thanks

Perbaiki SVCHOST error pada koneksi internet Broadband

Permasalahan:
- pada saat lagi asik2 browsing, eh tiba-tiba aja koneksi jadi lelet
- trus lo liat ada warning “Generic Host Process for Win32 Services has encountered a problem and needs to close. We are sorry for the inconvenience.”
ni error terjadi karena ada kegagalan proses pada service netapi32.dll 'en svchost.exe.
- trus lo coba mutusin koneksi tapi ikon internet connection-nya ngambek aka 'SEMBUNYI'
- muncul deh pesan kayak gini “Your PC has recovered from a serious problem”

Jalan keluarnya, gini nih....
ikutin petunjuk yang saya dapat dari sebuah pencarian Om Googs

Tutup Port berikut

Port 445:

1. masuk ke regedit, kemudian cari registri berikut :
HKEY_LOCAL_MACHINE-System-CurrentControlSet-Services-NetBT-Parameters-TransportBindName.
2. hapus nilai (value)

Port 135:

1. temukan registri berikut :
HKEY_LOCAL_MACHINE-Software-Microsoft-OLE-EnableDCOM
2. ubah nilai Y menjadi N
3. tutup Regedit, dan restart komputer

Ok, selamat mencoba !!!

Free Translator for Download

Here is link of free greatfull translator :

Portabel Transtool

Tarnstool 1.6

Enjoy the things

how to LIMIT in Firebird, MySQL, and Interbase Databases

Usually if we want to view records, we can use query like this :

Select * from TBarang order by kodebr

here is query to view records with limitation using in MySQL, Firebird dan Interbase database

MySQL :

Select * From TBarang limit 5
Select * from TBarang limit 5,10

Firebird :

Select skip 5 * fromTBarang order by kodebr
Select first 10 * from TBarang order by kodebr
Select First 10 skip 5 * from TBarang order by kodebr

Interbase :

Select * from TBarang order by kodebr rows 1 to 5
Select * from TBarang order by kodebr rows 5 to 10