Forum Laboratorium BSI Bekasi
Selamat Datang pengunjung...

Jika anda sudah terdaftar dalam forum ini silahkan login, namun jika tidak harap mendaftar dahulu untuk melihat forum-forum yang dikunci...

Forum ini adalah forum yang didirikan oleh Asisten BSI untuk berbagi pengetahuan tentang apa saja....

Semoga forum ini bermanfaat....


Forum Komunitas Lab BSI Bekasi yang ditujukan untuk sharing ilmu pengetahuan tentang apa saja dan juga sebagai tempat nongkrong kaum intelektual
 
HomeFAQSearchRegisterLog in

Share | 
 

 Membuat Angka Terbilang Di VB

View previous topic View next topic Go down 
AuthorMessage
anas
Fresh Threader
Fresh Threader


Jumlah posting : 7
Poin : 29
Reputasi : 0
Join date : 2011-05-08
Age : 25
Lokasi : Jatimulya

PostSubject: Membuat Angka Terbilang Di VB   Sun May 08, 2011 9:26 pm

Persiapan:
1. Buat 1 Project baru dengan 1 Form dan 2 TextBox.
2. Text1 untuk input dengan angka, Text2 menampilkan terbilang.
3. Ketik coding berikut ke dalam editor form yang bertalian.


Ketik coding berikut ini pada Form.

Public Function TerbilangBulat(strAngka As String, _
Optional MataUang As String = "rupiah") As String


Dim strJmlHuruf$, intPecahan As Integer
Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$
Dim X As Integer, Y As Integer, z As Integer
On Error GoTo Pesan
Dim strValid As String, huruf As String * 1
Dim i As Integer
'Periksa setiap karakter yg diketikkan ke kotak

‘UserID

strValid = "1234567890"
For i% = 1 To Len(strAngka)
huruf = Chr(Asc(Mid(strAngka, i%, 1)))
If InStr(strValid, huruf) = 0 Then
Set AngkaTerbilang = Nothing
MsgBox "Harus karakter angka!", _
vbCritical, "Karakter Tidak Valid"
Exit Function
End If
Next i%
If strAngka = "" Then Exit Function
If Len(Trim(strAngka)) > 15 Then GoTo Pesan
strJmlHuruf = LTrim(strAngka)
'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))
If (intPecahan = 0) Then
strPecahan = ""
Else
'strPecahan = LTrim(Str(intPecahan)) "/100 "
strPecahan = ""
End If
X = 0
Y = 0
Urai = ""
While (X < Len(strJmlHuruf))
X = X 1
218
strTot = Mid(strJmlHuruf, X, 1)
Y = Y Val(strTot)
z = Len(strJmlHuruf) - X 1
Select Case Val(strTot)
Case 1
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
Bil1 = "satu "
ElseIf (z = 4) Then
If (X = 1) Then
Bil1 = "se"
Else
Bil1 = "satu "
End If
ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14)
Then
X = X 1
strTot = Mid(strJmlHuruf, X, 1)
z = Len(strJmlHuruf) - X 1
Bil2 = ""
Select Case Val(strTot)
Case 0: Bil1 = "sepuluh "
Case 1: Bil1 = "sebelas "
Case 2: Bil1 = "dua belas "
Case 3: Bil1 = "tiga belas "
Case 4: Bil1 = "empat belas "
Case 5: Bil1 = "lima belas "
Case 6: Bil1 = "enam belas "
Case 7: Bil1 = "tujuh belas "
Case 8: Bil1 = "delapan belas "
Case 9: Bil1 = "sembilan belas "
End Select
Else
Bil1 = "se"
End If
Case 2: Bil1 = "dua "
Case 3: Bil1 = "tiga "
Case 4: Bil1 = "empat "
Case 5: Bil1 = "lima "
Case 6: Bil1 = "enam "
Case 7: Bil1 = "tujuh "
Case 8: Bil1 = "delapan "
Case 9: Bil1 = "sembilan "
Case Else
Bil1 = ""
End Select
If (Val(strTot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
Bil2 = "puluh "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15)
Then
Bil2 = "ratus "
Else
Bil2 = ""
End If
Else
Bil2 = ""
End If
219
If (Y > 0) Then
Select Case z
Case 4: Bil2 = Bil2 "ribu "
Y = 0
Case 7: Bil2 = Bil2 "juta "
Y = 0
Case 10: Bil2 = Bil2 "milyar "
Y = 0
Case 13: Bil2 = Bil2 "trilyun "
Y = 0
End Select
End If
Urai = Urai Bil1 Bil2
Wend
Urai = Urai strPecahan
TerbilangBulat = (Urai & MataUang)
Exit Function
Pesan:
TerbilangBulat = "(maksimal 15 digit)"
End Function
Private Sub Text1_Change()
Text2.Text = TerbilangBulat(Text1.Text)
End Sub
Back to top Go down
http://www.thejapanese-paradise.blogspot.com
indrawan21
Administrator
Administrator


Jumlah posting : 76
Poin : 2147483647
Reputasi : 7
Join date : 2011-05-07
Age : 30
Lokasi : Kelapa Gading Agak kemarian dikit

PostSubject: Re: Membuat Angka Terbilang Di VB   Sun May 08, 2011 9:38 pm

saya pindahin topik ke mari...
sesuai Kategorinya lol!

**************************************************************


Kalo punya ilmu jangan pelit
Kalo punya duit juga jng pelit :p



Lapak dot Tk
Lapak dot Com
Back to top Go down
http://indrawan21.blogspot.com
anas
Fresh Threader
Fresh Threader


Jumlah posting : 7
Poin : 29
Reputasi : 0
Join date : 2011-05-08
Age : 25
Lokasi : Jatimulya

PostSubject: Re: Membuat Angka Terbilang Di VB   Sun May 08, 2011 10:03 pm

Hahaha..sep ka' qt sling share ilmu VB yach..hehe
Back to top Go down
http://www.thejapanese-paradise.blogspot.com
Sponsored content




PostSubject: Re: Membuat Angka Terbilang Di VB   Today at 9:04 am

Back to top Go down
 
Membuat Angka Terbilang Di VB
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Cara membuat diy protein skimmer
» Tips membuat aquascape
» Memilih Dan Memberi pakan ikan hias laut
» Perlengkapan yang dibutuhkan aquarium laut
» jual diy protein skimmer

Permissions in this forum:You cannot reply to topics in this forum
Forum Laboratorium BSI Bekasi :: MATERI LAB :: VISUAL BASIC :: TEKNIK-TEKNIK PEMROGRAMAN VB-
Jump to: