May 8, 2010

Trik Input Angka Dalam Format Rupiah ( Ribuan ) Dengan Delphi

Proses input angka rupiah, akan lebih manarik, lebih memudahkan interaksi dengan user, jika proses input tersebut dalam format ribuan ( rupiah ).





Berikut ini trik untuk proses input dalam format ribuan ( rupiah ) :

1. Pada form, tambahkan component Edit ( Tedit )
2. Pada Component TEdit, tambah code pada Event OnKeyPress


3. Pada Component TEdit, tambah code pada Event OnKeyUp


Lihat hasilnya: ( screenshot)

5 comments:

Yuki said...

bisa mas tapi kalo seandainya saya terapkan untuk penjualan pada harga jual (format rupiahnya) kan rumus saya = harga jual * qty
nah, pas dikali sama qty, error katanya gak bisa format string dikali sama integer
nah solusinya gimana mas??
tlong dibalas
thanks

rehmoe said...

@Yuki,
sori baru bales..

kalo mo dilakukan operasi numerik ( perkalian,penjumlah,dsb )
- format ribuan di normalin dulu (diilangin tanda ribuannya)
- setelah diilangin di konvert ke numerik ( strtoint/strtofloat/strtocurr)
- baru dilakukan operasi numerik ( kali,bagi,jumlah,kurang,dsb..)



semoga membantu

zardi's said...

ada source code cara menghilangkan tanda ribuannya ga...???

rehmoe said...

@zardi's,

mas, source diatas sudah termasuk bagian menghilangkan ribuan, silahkan dari:
//ribuan --> currency ( menyesuaikan setting windows )
...s.d..
// convert srupiah ke currency


silahkan di test..
itu bagian untuk menghilangkan ribuannya

irraraswari said...

bisa kasih contoh script operasi numeriknya ini ngga gan?

Post a Comment