Fungsi Terbilang Pake Vb

Mengubah angka menjadi huruf ..fungsi terbilang sangat bermanfaat buat kamu yang bikin program yang banyak berhubungan dengan uang.


Rabu Pahing, 9 April 2008

Buat Module baru dengan nama Mod_terbilang :
isi script didalamnya :

Function NumToText(dblValue As Double) As String
    Static ones(0 To 9) As String
    Static teens(0 To 9) As String
    Static tens(0 To 9) As String
    Static thousands(0 To 4) As String
    Dim i As Integer, nPosition As Integer
    Dim nDigit As Integer, bAllZeros As Integer
    Dim strResult As String, strTemp As String
    Dim tmpBuff As String
    
    ones(0) = ""
    ones(1) = "one"
    ones(2) = "two"
    ones(3) = "three"
    ones(4) = "four"
    ones(5) = "five"
    ones(6) = "six"
    ones(7) = "seven"
    ones(8) = "eight"
    ones(9) = "nine"

    teens(0) = ""
    teens(1) = "eleven"
    teens(2) = "twenteen"
    teens(3) = "thirteen"
    teens(4) = "fourteen"
    teens(5) = "fiveteen"
    teens(6) = "sixteen"
    teens(7) = "seventeen"
    teens(8) = "eighteen"
    teens(9) = "nineteen"

    tens(0) = ""
    tens(1) = "ten"
    tens(2) = "twenty"
    tens(3) = "thirty"
    tens(4) = "fourty"
    tens(5) = "fivety"
    tens(6) = "sixty"
    tens(7) = "seventy"
    tens(8) = "eighty"
    tens(9) = "ninety"

    thousands(0) = ""
    thousands(1) = "thousand"
    thousands(2) = "million"
    thousands(3) = "billion"
    thousands(4) = "triliun"

    'Errors Handler
    On Error GoTo NumToTextError
    'Bagian akhir
    strResult = "rupiah "
    'Konversi ke string
    Dim des, j, t1, t2
    Dim ada As Boolean
    For j = 1 To Len(totalbiaya)
       des = Mid(totalbiaya, j, 1)
       If des = "." Or des = "," Then
          ada = True
          t1 = Mid(totalbiaya, 1, j - 1)
          t2 = Mid(totalbiaya, j   1)
          j = Len(totalbiaya)
       End If
    Next j
    If ada = True Then
      strTemp = CStr(Int(t1))
      ada = False
    Else
      strTemp = CStr(Int(dblValue))
    End If
'    strTemp = CStr(Int(dblValue))
    'Diulang sebanyak panjang teks
    For i = Len(strTemp) To 1 Step -1
        'Ambil nilai angka posisi ke-i
        nDigit = Val(Mid$(strTemp, i, 1))
        'Ambil posisi angka
        nPosition = (Len(strTemp) - i)   1
        'Pilihan proses tergantung posisi satuan, puluhan, atau ratusan
        Select Case (nPosition Mod 3)
            Case 1  'Posisi satuan
                bAllZeros = False
                If i = 1 Then
                    tmpBuff = ones(nDigit)

Daftar Komentar

farid wahyudi

udinrocet@...  Sabtu Pahing, 24 Mei 2008
kuereeen

sugianto

Aryantok@...  Rabu Legi, 28 Mei 2008
mas tolongin saya donk!!gimana caranya mengatasi error jika form pencarian diiputkan tanda ' (petik) pada bahasa pemograman visual basic dengan menggunakan database SQL server 2000? Trim`s ya

Sandy

ksandy888@...  Rabu Kliwon, 11 Juni 2008
mas gmn caranya membuat VB yang dapat menterjemahkan text jadi terbilang, sy ga ngerti lisstingnya mw dicopy k procedure mana?? dan misalnya sy menggunakan 1 textbox dan 1 label,gmn caranya biar labelnya dapat terisi dengan terbilangnya dengan ketentuan sesuai dengan nilai yang diisi manual dalam textbox. thx b4

xfaridx

joey_suckruless@...  Rabu Pahing, 18 Juni 2008
vb sangat menyenangkan tp kadang juga bikin pusyng... mas ada contoh aplikasi vb ato ga...buat tambahan ilmu... trima kasih..: )

Kyogoku

makoto.kyogoku@...  Rabu Pahing, 18 Juni 2008
@sugianto, kenapa ga divalidasi dulu setiap mau diproses. jadi semua yg ada tanda kutip diilangin. mungkin contohnya misal di form ada 1 command button: command1 dan 2 textbox: text1

akni

akniwidiya@...  Senin Pahing, 23 Juni 2008
data base visual basic donk, thank's ya

ezzy

enchore@...  Rabu Legi, 2 Juli 2008
cool!!

Hamid Muhammad

Ashabulyamin@...  Kamis Pahing, 3 Juli 2008
Ass wr wb Help..Help..Help Gmana caranya Fungsi Terbilang Pada Crystal Report 10 Thanks.

muhammad nasir

enciknas@...  Sabtu Wage, 5 Juli 2008
Izin sedot ya.. thanks Pak Taofik wassalam semoga bermamfaat bagi saya da Bapak.

sujai

nakahara_shuuja@...  Senin Legi, 7 Juli 2008
whoa.. gak ngatri euy logka source nya, rumit.. gak tau saya yang bodoh, ato pak topik yg kepinteran.. maaf.. btw, saya punya source yang lebih sederhana (karena saya tu masih amatir) dan lebih mudah dipahami logika nya.. bagi yang berminat, harap kirim imel ke nakahara_shuuja@yahoo.co.id sekalian nambah2 temen.. salam!!


URL: http://bengkelprogram.com/data-artikel-2045.0.bps