pake ini bisa ga ya? semoga ga salah
Private sub txtHasil_Keypress(Keyascii as Integer)
if not (isnumeric(chr(keyascii)) or Keyascii=8 or Keyascii=48) then
Keyascii=0
End sub
salam ^^
----- Original Message ----
From: Sodik Ihwan <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, April 2, 2008 11:04:35 AM
Subject: Re: [Programmer-VB] Mengurangi bilangan (Mohon Bantuannya)
selain dicoba set regional setting, salah satu cara lain yg bisa dicoba
adalah meng-convert dulu hadi string, kemudian ambil setiap karakter,
begitu ketemu "," ganti jadi "." san sebaliknya.
On Fri, 28 Mar 2008 09:41:04 +0700, NARIF RAHMAT SANTOSA SANTOSA
<[EMAIL PROTECTED]> wrote:
> Master VB yang terhormat saya mau Tanya neh :
> Bagai caranya mengurangi bilangan pecahan dan hasil yang di tampilkan
> bukan koma melainkan titik Contoh :
> Private Sub Command1_Click()
> txthasil.Text = Val(txt1.Text) - Val(txt2.Text)
> End Sub
> Jika di txt1.text dimasukan angka 2.5 dan di txt2.text dimasukan angka 1
> Maka jika di kurangi hasilnya akan 1,5
> Yang saya
> inginkan adalah 1.5 bukan 1,5
> Terimakasih atas bantuannya.
>
>
>
>
>
> ________________________________________________________
> Kunjungi halaman depan Yahoo! Indonesia yang baru!
> http://id.yahoo.com/
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Send instant messages to your online friends http://asia.messenger.yahoo.com
------------------------------------
Wahana Programmer Groups Links
____________________________________________________________________________________
You rock. That's why Blockbuster's offering you one month of Blockbuster Total
Access, No Cost.
http://tc.deals.yahoo.com/tc/blockbuster/text5.com
