Rabu, 06 Mei 2009

Menampilkan Angka Terbilang dengan Visual Basic


http://erge32.blogspot.com Senang rasanya bisa berbagi lagi buat temen-temen karena udah lama gak posting, kali ini tentang cara Menampilkan Angka Terbilang dengan Visual Basic. Maksud angka terbilang disini adalah penulisan angka-angka dengan huruf misalnya Rp. 1.500 jadi (Seribu Lima Ratus Rupiah) tapi tip kali ini hanya untuk penulisan bilangan genap saja dan belum bisa digunakan untuk bilangan decimal atu bilangan berkoma, untuk menghemat waktu dan jangan capek ngetiknya (udah pasti neh) lanjut aja kita dengan cara pembuatan coding nya, nah bagi yang berkenan silakan ikuti langkah-langkah berikut


Persiapan yang dilakukan
  • Buat Project Baru Standart Exe
  • Tambahkan 1 buah TextBox dan 1 Label
  • Tambahkan 1 buah Module

’Ketik Coding dibawah ini pada module

Option Explicit

Public Const vbKeyDecPt = 46
Public Function ConvertirEnText(ValNum As Double) As String

Static Unites(0 To 9) As String
Static Dixaines(0 To 9) As String
Static LesDixaines(0 To 9) As String
Static Milliers(0 To 4) As String

Dim i As Integer
Dim nPosition As Integer
Dim ValNb As Integer
Dim LesZeros As Integer
Dim strResultat As String
Dim strTemp As String
Dim tmpBuff As String

Unites(0) = "nol"
Unites(1) = "satu"
Unites(2) = "dua"
Unites(3) = "tiga"
Unites(4) = "empat"
Unites(5) = "lima"
Unites(6) = "enam"
Unites(7) = "tujuh"
Unites(8) = "delapan"
Unites(9) = "sembilan"

Dixaines(0) = "sepuluh"
Dixaines(1) = "sebelas"
Dixaines(2) = "dua belas"
Dixaines(3) = "tiga belas"
Dixaines(4) = "empat belas"
Dixaines(5) = "lima belas"
Dixaines(6) = "enam belas"
Dixaines(7) = "tujuh belas"
Dixaines(8) = "delapan belas"
Dixaines(9) = "sembilan belas"

LesDixaines(0) = ""
LesDixaines(1) = "sepuluh"
LesDixaines(2) = "dua puluh"
LesDixaines(3) = "tiga puluh"
LesDixaines(4) = "empat puluh"
LesDixaines(5) = "lima puluh"
LesDixaines(6) = "enam puluh"
LesDixaines(7) = "tujuh puluh"
LesDixaines(8) = "delapan puluh"
LesDixaines(9) = "sembilan puluh"

Milliers(0) = ""
Milliers(1) = "ribu"
Milliers(2) = "juta"
Milliers(3) = "milyard"
Milliers(4) = "triliyun"

On Error GoTo NbVersTexteError

strTemp = CStr(Int(ValNum)) 'Untuk Konversi Angka yang di format ke default

For i = Len(strTemp) To 1 Step -1
ValNb = Val(Mid$(strTemp, i, 1))
nPosition = (Len(strTemp) - i) + 1
Select Case (nPosition Mod 3)
Case 1
LesZeros = False
If i = 1 Then
If ValNb > 1 Then
tmpBuff = Unites(ValNb) & " "
Else
tmpBuff = ""
End If
ElseIf Mid$(strTemp, i - 1, 1) = "1" Then
tmpBuff = Dixaines(ValNb) & " "
i = i - 1
ElseIf ValNb > 0 Then
tmpBuff = Unites(ValNb) & " "
Else
LesZeros = True
If i > 1 Then
If Mid$(strTemp, i - 1, 1) <> "0" Then
LesZeros = False
End If
End If
If i > 2 Then
If Mid$(strTemp, i - 2, 1) <> "0" Then
LesZeros = False
End If
End If
tmpBuff = ""
End If
If LesZeros = False And nPosition > 1 Then
tmpBuff = tmpBuff & Milliers(nPosition / 3) & " "
End If
strResultat = tmpBuff & strResultat
Case 2
If ValNb > 0 Then
strResultat = LesDixaines(ValNb) & " " & _
strResultat
End If
Case 0
If ValNb > 0 Then
If ValNb > 1 Then
strResultat = Unites(ValNb) & " ratus " & _
strResultat
Else
strResultat = "seratus " & strResultat
End If
End If
End Select
Next i
If Len(strResultat) > 0 Then
strResultat = UCase$(Left$(strResultat, 1)) & _
Mid$(strResultat, 2)
End If

EndNbVersTexte:
ConvertirEnText = strResultat & " rupiah"
Exit Function

NbVersTexteError:
strResultat = "Une Erreur !"
Resume EndNbVersTexte
End Function

Public Function AngkaTerbilang(Counter As Double) As String
On Error Resume Next
Dim A As Single
AngkaTerbilang = ConvertirEnText(Counter)
A = Len(ConvertirEnText(Counter))
If Mid(ConvertirEnText(Counter), 1, 4) = "Ribu" Then
AngkaTerbilang = "Se" + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 4) = "Juta" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "Milyard" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
End Function

’Ketik Coding dibawah ini pada Form

Option Explicit

Private Sub Text1_Change()
If Text1 <> "" Then
Text1.Text = Format(Text1, "#,##0")
Text1.SelStart = Len(Text1)
Label1.Caption = AngkaTerbilang(Text1)
Label1.Caption = StrConv(Label1, vbProperCase)
Else
Label1.Caption = ""
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

Nah coba jalankan program atau tekan F5 dan isi beberapa angka pada Text1 akan secara otomatis angka terbilangnya akan ditampilkan pada Label1.

Mudah-mudahan ada mampaat nya bagi kita semua, dan jangan lupa beri komentar nya yah … sebelumnya saya ucapkan terima kasih ... wassalam

42 Komentar: Menampilkan Angka Terbilang dengan Visual Basic


yoyok on 6 Mei 2009 09.11 mengatakan...

wah brother emang jago kalau masalah VB
Teruskan brother,saya tunggu artikel berikutnya
Salam

brother

Terima Kasih Sob yoyok Atas Komentarnya.
eRGe on 6 Mei 2009 09.16 mengatakan...

wah .. makasih brother .. semoga sukses slalu yah

tiyo avianto on 6 Mei 2009 09.24 mengatakan...

wah tambah rame aj nih tutorialnya

Terima Kasih Sob tiyo avianto Atas Komentarnya.
Djahe-kunyit on 6 Mei 2009 11.13 mengatakan...

Wah,segera di praktekan nih bos

Terima Kasih Sob Djahe-kunyit Atas Komentarnya.
kAnzENk™ on 6 Mei 2009 11.45 mengatakan...

Brot keren pembahasan kamu tuh..aku jadi ingin mengulas VB hasil belajar dengan kakak...hihi..

keep post brot..aku dukung terus dehh..

Terima Kasih Sob kAnzENk™ Atas Komentarnya.
Tukang Arsip on 7 Mei 2009 06.57 mengatakan...

susah juga dipelajaron ya....agak membingungkan mas

Terima Kasih Sob Tukang Arsip Atas Komentarnya.
bunda azka on 7 Mei 2009 19.42 mengatakan...

mksh aja deh eka infonya.
sayang nih blm bs praktekin

Terima Kasih Sob bunda azka Atas Komentarnya.
Tukang Arsip on 8 Mei 2009 06.43 mengatakan...

wah hbt2 ajah penerapannnya

Terima Kasih Sob Tukang Arsip Atas Komentarnya.
Blogger Magazine on 8 Mei 2009 21.19 mengatakan...

sekali2 tinggalin komen ah walaupun kurang ngerti.. hehehe.. :P

Terima Kasih Sob Blogger Magazine Atas Komentarnya.
kAnzENk™ on 8 Mei 2009 22.13 mengatakan...

brot ajarkan saya VB dong, biar saya punya ilmu VB...hehe..

Terima Kasih Sob kAnzENk™ Atas Komentarnya.
1-1y4n9 on 8 Mei 2009 22.59 mengatakan...

wah infonya mantaff bangetzz kang, kayaknya buat saya lumayan sulit tuh, tapi bolehlah saya coba ya kang, sukses selalu buat kang eRGe (kang eRGe memang T-O-P lah)

Terima Kasih Sob 1-1y4n9 Atas Komentarnya.
kece_kecil on 9 Mei 2009 01.08 mengatakan...

postingan yang bagus bang.berguna banget buat pemula seperti saya.hehehhehhehe

Terima Kasih Sob kece_kecil Atas Komentarnya.
diachra on 9 Mei 2009 04.24 mengatakan...

wahh..,seneng banget berkunjung di sini jadi tambah pinter nich.....

Terima Kasih Sob diachra Atas Komentarnya.
ALI MASRURI on 9 Mei 2009 07.30 mengatakan...

salam kenal, waduh mas saya belajar kaya gitu kok sulit ya, cara mudah belajar kaya gitu bgmn http://uangpanas123.blogspot.com

Terima Kasih Sob ALI MASRURI Atas Komentarnya.
Li on 9 Mei 2009 15.08 mengatakan...

berat..
mbak gak mudeng ka..heheheh..
kabar daku baik baik saja...^^

Terima Kasih Sob Li Atas Komentarnya.
Gossip on 9 Mei 2009 15.39 mengatakan...

Kamu pintar sekali ya VB nya..hebat..saya salut..pa lagi kamu mo berbagi ilmu disini.

Terima Kasih Sob Gossip Atas Komentarnya.
Dimensi Community on 10 Mei 2009 01.24 mengatakan...

wahhh... jago vb loe sob... ntar kalau gua ada tugas vb gua kasih ke loe yah.... :)

Terima Kasih Sob Dimensi Community Atas Komentarnya.
anak nelayan on 10 Mei 2009 08.26 mengatakan...

makasih sob..sukses selalu

Terima Kasih Sob anak nelayan Atas Komentarnya.
edylaw on 11 Mei 2009 13.13 mengatakan...

Gud tutorial. ijin di praktekkan mas :)

Salam kenalwww.edylaw.fforce.us

Terima Kasih Sob edylaw Atas Komentarnya.
Putri Zone on 11 Mei 2009 15.44 mengatakan...

Selamat ka..blognya dpt award..ambil dsini yach.. http://put3zone.blogspot.com/2009/05/put3zone-dapat-award.html

Terima Kasih Sob Putri Zone Atas Komentarnya.
asep canda on 12 Mei 2009 16.53 mengatakan...

waduh keren nih info nya sob selamat ya dah apet award ama undian

Terima Kasih Sob asep canda Atas Komentarnya.
mas wawan on 13 Mei 2009 04.48 mengatakan...

Artikel yang menarik, cerdas dan mencerdaskan. Gak rugi mampir kesini banyak ilmu dan pengetahuan yang diperoleh. Ditunggu postingan berikutnya. Terus berkarya dan…. TETAP SEMANGAT !, Sukses untuk kita semua.

Terima Kasih Sob mas wawan Atas Komentarnya.
riztee on 14 Mei 2009 22.20 mengatakan...

wah, keren juga codingannya,, :D

Terima Kasih Sob riztee Atas Komentarnya.
ems on 15 Mei 2009 00.57 mengatakan...

pengen komentar, tapi gak mudeng vb,
ajarin dooong
:)

Terima Kasih Sob ems Atas Komentarnya.
ems on 15 Mei 2009 05.31 mengatakan...

pengen komentar, tapi gak mudeng vb,
ajarin dooong
:)

Terima Kasih Sob ems Atas Komentarnya.
jHoN on 15 Mei 2009 06.36 mengatakan...

waah... pasti asik yah kalo bisa nerapinnya, gak susah2 lagi ketik dengan huruf karena otomatis akan muncul dengan sendiri.. tapi bro eRGe, saya "buta" kalo masalah kayak beginian.. ajarin juga donk vb.. :D

Terima Kasih Sob jHoN Atas Komentarnya.
Ary on 20 Mei 2009 05.00 mengatakan...

mayan pusing nih tapi info yang bagus buat dicoba... thanks udah sharing :-)

Terima Kasih Sob Ary Atas Komentarnya.
aLDy Sangdipa on 1 Juni 2009 21.11 mengatakan...

Sob lu jago Bnget ya klo masalah VB..kpn2 ajarin ya..

Terima Kasih Sob aLDy Sangdipa Atas Komentarnya.
Anonim mengatakan...

tenk-Q yach....
brguna bgat bwat tgas aq...biz ru knal ma VB...

Terima Kasih Sob Anonim Atas Komentarnya.
download video porno 3gp on 9 September 2009 03.10 mengatakan...

thank you mas uda berbagi

Terima Kasih Sob download video porno 3gp Atas Komentarnya.
natural beauty and health tips on 16 Desember 2009 14.36 mengatakan...

waks ... ora mudheng aku

Terima Kasih Sob natural beauty and health tips Atas Komentarnya.
samsung corby s3650 on 16 Desember 2009 14.39 mengatakan...

keren sob, tp sy nggak ngerti nih

Terima Kasih Sob samsung corby s3650 Atas Komentarnya.
hidup untuk berbagi on 26 Desember 2009 04.59 mengatakan...

wah,,, informasinya menarik banget,,, makasih banyak mas atas ilmu2nya,,,

Terima Kasih Sob hidup untuk berbagi Atas Komentarnya.
Rio mengatakan...

ijin download gan.......

Terima Kasih Sob Rio Atas Komentarnya.
lin on 26 Mei 2010 07.31 mengatakan...

AV,無碼,a片免費看,自拍貼圖,伊莉,微風論壇,成人聊天室,成人電影,成人文學,成人貼圖區,成人網站,一葉情貼圖片區,色情漫畫,言情小說,情色論壇,臺灣情色網,色情影片,色情,成人影城,080視訊聊天室,a片,A漫,h漫,麗的色遊戲,同志色教館,AV女優,SEX,咆哮小老鼠,85cc免費影片,正妹牆,ut聊天室,豆豆聊天室,聊天室,情色小說,aio,成人,微風成人,做愛,成人貼圖,18成人,嘟嘟成人網,aio交友愛情館,情色文學,色情小說,色情網站,情色,A片下載,嘟嘟情人色網,成人影片,成人圖片,成人文章,成人小說,成人漫畫,視訊聊天室,性愛,ut聊天室,情色遊戲,情色a片,情色網

Terima Kasih Sob lin Atas Komentarnya.
鳳梨酥Blue on 6 Juni 2010 19.47 mengatakan...

,徵信社,尋人,偵探,偵探社,徵才,私家偵探,徵信,徵信社,徵信公司,抓猴,出軌,背叛,婚姻,劈腿,感情,第三者,婚外情,一夜情,小老婆,外遇,商標,市場調查,公平交易法,抓姦,債務,債務協商,應收帳款,詐欺,離婚,監護權,法律諮詢,法律常識,離婚諮詢,錄音,找人,追蹤器,徵信,徵信公司,尋人,抓姦,外遇,徵信,徵信社,徵信公司,尋人,抓姦,外遇,徵信,徵信社徵信公司,尋人,抓姦,外遇,徵信,徵信社,徵信公司,尋人,抓姦,外遇,徵信社

Terima Kasih Sob 鳳梨酥Blue Atas Komentarnya.
adhy Purnama on 25 Agustus 2010 18.08 mengatakan...

keren..keren..
lagi nyari listing bwat konversi gini..
akhirnya dapet juga..
thanx gan..saya coba..

Terima Kasih Sob adhy Purnama Atas Komentarnya.
Anonim mengatakan...

menampilkan angka terbilang dgn bisual basic tolong di kasih cintoh langkah langkanya,maksudnya di tampilkan contoh nya

Terima Kasih Sob Anonim Atas Komentarnya.
Anonim mengatakan...

askum kabeh,,,,,oh ya mas admin saya berniat bikin acakan nomer misalkan dari 0800000000 sampai 0899999999 tuk masalah ini kira2 saya harus mnggunakan app apa???? saya tunggu jawabannya via email n d tunnggu sharenya rakamanja67@yahoo.com sebelumnya mkasiiiiih

Terima Kasih Sob Anonim Atas Komentarnya.
Anonim mengatakan...

thank suhu sangat membantu... :)

Terima Kasih Sob Anonim Atas Komentarnya.
highheels on 26 Oktober 2011 19.20 mengatakan...

Christian Louboutin
80% off sale Discounts
Clean up the warehouse, discount promotions,
the latest 2011 super cheap high heeled shoes
http://www.highheels-outlets.com

Terima Kasih Sob highheels Atas Komentarnya.
Anonim mengatakan...

oooommm...minta ooommmm

Terima Kasih Sob Anonim Atas Komentarnya.

Tanggapan Sobat

Zona Bebas Komentar tapi jangan nyepam.

Kalo nyepam minta maaf nih, dengan terpaksa dilaporkan pada kantor polisi terdekat dihapus, monggo sobat silakan komentar jangan malu-malu.

ABOUT ME

Empu Blog ini

SUPPORT BLOG INI




Submit

Display Pagerank Yahoo bot last visit powered by MyPagerank.Net

IKUTI VIA EMAIL

Enter your email address:

Delivered by FeedBurner

5 Komentar Terbaru