RE: [indoprog-vb] Terbilang

Tue, 09 May 2006 21:46:25 -0700

Hallo, meskipun saya sudah menyelesaikan program terbilang dengan proses
yang panjang, dan setelah melihat contoh kode anda yang sangat-sangat
efisien, saya ucapkan terima kasih. ini adalah sesuatu yang baru bagi saya.
sekali lagi terimakasih.

vbPian
[zZzz]

-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]
Behalf Of Jusra Girsang
Sent: Wednesday, May 10, 2006 11:36 AM
To: [email protected]
Subject: Re: [indoprog-vb] Terbilang


Hi,

  Untuk bilangan bulat, atau dengan perkataan yang lain bilangan tanpa
pecahan, mungkin dapat dicoba function berikut. Tidak sampai juga 35 baris,
karena menggunakan konsep Recursive Function. Mudah-mudahan dapat membantu.


  Function Bilang(ByVal Angka)
    Dim ABil(12)
    ABil(0) = ""
    ABil(1) = "satu"
    ABil(2) = "dua"
    ABil(3) = "tiga"
    ABil(4) = "empat"
    ABil(5) = "lima"
    ABil(6) = "enam"
    ABil(7) = "tujuh"
    ABil(8) = "delapan"
    ABil(9) = "sembilan"
    ABil(10) = "sepuluh"
    ABil(11) = "sebelas"
    If Angka < 12 Then
       Bilang = " " & ABil(Angka)
    ElseIf Angka < 20 Then
       Bilang = Bilang(Angka - 10) & " belas"
    ElseIf Angka < 100 Then
       Bilang = Bilang(Angka \ 10) & " puluh" & Bilang(Angka Mod 10)
    ElseIf Angka < 200 Then
       Bilang = " seratus" + Bilang(Angka - 100)
    ElseIf Angka < 1000 Then
       Bilang = Bilang(Angka \ 100) & " ratus" & Bilang(Angka Mod 100)
    ElseIf Angka < 2000 Then
       Bilang = " seribu" & Bilang(Angka - 1000)
    ElseIf Angka < 1000000 Then
       Bilang = Bilang(Angka \ 1000) & " ribu" & Bilang(Angka Mod 1000)
    ElseIf Angka < 1000000000 Then
       Bilang = Bilang(Angka \ 1000000) & " juta" & Bilang(Angka Mod
1000000)
    ElseIf Angka < 1000000000000# Then
       Bilang = Bilang(Angka \ 1000000000) & " miliyar" & Bilang(Angka Mod
1000000000)
    End If
  End Function

  '------------------


  Salam,
  JG




Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]

Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.



SPONSORED LINKS
Computer internet security Computer internet business Computer internet access
Computer internet privacy securities Computer internet help Computer internet connection

YAHOO! GROUPS LINKS



Kirim email ke