Wednesday 6 May 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

40 Komentar: Menampilkan Angka Terbilang dengan Visual Basic


yoyok on 6 May 2009 at 09:11 said...

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

brother

Terima Kasih Sob yoyok Atas Komentarnya.
eRGe on 6 May 2009 at 09:16 said...

wah .. makasih brother .. semoga sukses slalu yah

tiyo avianto on 6 May 2009 at 09:24 said...

wah tambah rame aj nih tutorialnya

Terima Kasih Sob tiyo avianto Atas Komentarnya.
Anonymous said...

Wah,segera di praktekan nih bos

Terima Kasih Sob Anonymous Atas Komentarnya.
Pit-Onta™ a.k.a kAnzENk™ on 6 May 2009 at 11:45 said...

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 Pit-Onta™ a.k.a kAnzENk™ Atas Komentarnya.
Tukang Arsip on 7 May 2009 at 06:57 said...

susah juga dipelajaron ya....agak membingungkan mas

Terima Kasih Sob Tukang Arsip Atas Komentarnya.
bunda azka on 7 May 2009 at 19:42 said...

mksh aja deh eka infonya.
sayang nih blm bs praktekin

Terima Kasih Sob bunda azka Atas Komentarnya.
Tukang Arsip on 8 May 2009 at 06:43 said...

wah hbt2 ajah penerapannnya

Terima Kasih Sob Tukang Arsip Atas Komentarnya.
Blogger Magazine on 8 May 2009 at 21:19 said...

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

Terima Kasih Sob Blogger Magazine Atas Komentarnya.
Pit-Onta™ a.k.a kAnzENk™ on 8 May 2009 at 22:13 said...

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

Terima Kasih Sob Pit-Onta™ a.k.a kAnzENk™ Atas Komentarnya.
1-1y4n9 on 8 May 2009 at 22:59 said...

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.
Anonymous said...

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

Terima Kasih Sob Anonymous Atas Komentarnya.
diachra on 9 May 2009 at 04:24 said...

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

Terima Kasih Sob diachra Atas Komentarnya.
Anonymous said...

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

Terima Kasih Sob Anonymous Atas Komentarnya.
Linda on 9 May 2009 at 15:08 said...

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

Terima Kasih Sob Linda Atas Komentarnya.
Gossip on 9 May 2009 at 15:39 said...

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 May 2009 at 01:24 said...

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 May 2009 at 08:26 said...

makasih sob..sukses selalu

Terima Kasih Sob anak nelayan Atas Komentarnya.
edylaw on 11 May 2009 at 13:13 said...

Gud tutorial. ijin di praktekkan mas :)

Salam kenalwww.edylaw.fforce.us

Terima Kasih Sob edylaw Atas Komentarnya.
Putri Zone on 11 May 2009 at 15:44 said...

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 May 2009 at 16:53 said...

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

Terima Kasih Sob asep canda Atas Komentarnya.
Wawan Herdianto on 13 May 2009 at 04:48 said...

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 Wawan Herdianto Atas Komentarnya.
resty on 14 May 2009 at 22:20 said...

wah, keren juga codingannya,, :D

Terima Kasih Sob resty Atas Komentarnya.
ems on 15 May 2009 at 00:57 said...

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

Terima Kasih Sob ems Atas Komentarnya.
ems on 15 May 2009 at 05:31 said...

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

Terima Kasih Sob ems Atas Komentarnya.
jHoN on 15 May 2009 at 06:36 said...

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 May 2009 at 05:00 said...

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

Terima Kasih Sob Ary Atas Komentarnya.
Unknown on 1 June 2009 at 21:11 said...

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

Terima Kasih Sob Unknown Atas Komentarnya.
Anonymous said...

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

Terima Kasih Sob Anonymous Atas Komentarnya.
download video porno 3gp on 9 September 2009 at 03:10 said...

thank you mas uda berbagi

Terima Kasih Sob download video porno 3gp Atas Komentarnya.
natural beauty and health tips on 16 December 2009 at 14:36 said...

waks ... ora mudheng aku

Terima Kasih Sob natural beauty and health tips Atas Komentarnya.
samsung corby s3650 on 16 December 2009 at 14:39 said...

keren sob, tp sy nggak ngerti nih

Terima Kasih Sob samsung corby s3650 Atas Komentarnya.
hidup untuk berbagi on 26 December 2009 at 04:59 said...

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

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

ijin download gan.......

Terima Kasih Sob Rio Atas Komentarnya.
parker on 25 August 2010 at 18:08 said...

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

Terima Kasih Sob parker Atas Komentarnya.
Anonymous said...

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

Terima Kasih Sob Anonymous Atas Komentarnya.
Anonymous said...

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 Anonymous Atas Komentarnya.
Anonymous said...

thank suhu sangat membantu... :)

Terima Kasih Sob Anonymous Atas Komentarnya.
Anonymous said...

oooommm...minta ooommmm

Terima Kasih Sob Anonymous Atas Komentarnya.
Health and wellness Blog india on 25 May 2018 at 02:17 said...

That was a VERY interesting one! Seriously interesting.

Terima Kasih Sob Health and wellness Blog india 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

My Blog Do Follow

5 Komentar Terbaru