Tempat ngumpulnya anak Himatika Perbanas
 
IndeksPortailCalendarFAQAnggotaGroupPencarianPendaftaranLogin

Share | 
 

 Fungsi Terbilang with VB.60

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
yadoy666
Script Learner
Script Learner


Jumlah posting : 121
Registration date : 20.09.07

PostSubyek: Fungsi Terbilang with VB.60   Thu Aug 28, 2008 8:38 pm

Wew...
Iseng-iseng tadi ada temen minta bantuan buat bikin tugas kuliah.. Tugas nya yaitu membuat fungsi terbilang dengan menggunakan VB.6.0 dan harus support sampai bilangan trilyun... Setelah utak-utik sana sini akhirnya selesai juga...




Berikut Source Code nya...

Code:

Private Function Konversi(ByVal nNilai As Currency) As String
Dim Grade As Variant
Dim strTerbilang As String
Dim strPart As String
Dim iGrade As Byte

Grade = Array("Triliun ", "Milyar ", "Juta ", "Ribu ", "")

strTerbilang = ""

If Len(CStr(nNilai)) > 15 Then

strTerbilang = ""

Else

If Trim(nNilai) = "0" Then Konversi = "Nol ": Exit Function

strPart = Format(nNilai, String(15, "0"))

For iGrade = 1 To 5

If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then

strTerbilang = strTerbilang & _
GetRatus(Mid(strPart, (iGrade - 1) * 3 + 1, 3), iGrade)
strTerbilang = strTerbilang & Grade(iGrade - 1)

End If

Next iGrade

End If

Konversi = strTerbilang

End Function

Private Function GetRatus(ByVal strPart As String, ByVal iGrade As Byte) As String

Dim Angka1 As Variant, Angka2 As Variant
Dim i As Integer
Dim strHasil As String
Dim nTemp As Byte

Angka1 = Array("Satu ", "Dua ", "Tiga ", "Empat ", _
"Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
Angka2 = Array("Ratus ", "Puluh ", "")

For i = 1 To 3

nTemp = Val(Mid(strPart, i, 1))

If nTemp = 1 Then

If i = 1 Then

strHasil = "Seratus "

ElseIf i = 2 Then

i = i + 1

nTemp = Val(Mid(strPart, i, 1))

If nTemp = 0 Then

strHasil = strHasil & "Sepuluh "

ElseIf nTemp = 1 Then

strHasil = strHasil & "Sebelas "

Else

strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
End If

ElseIf Val(strPart) = 1 And iGrade = 4 Then

strHasil = strHasil & "Se"

Else

strHasil = strHasil & "Satu "

End If

ElseIf nTemp <> 0 Then

strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)

End If

Next i

GetRatus = strHasil

End Function



Private Sub cmdBilang_Click()
txt_2.Text = Konversi(txt_1.Text)
End Sub


Smoga bisa membantu....
Kembali Ke Atas Go down
Lihat profil user http://yadoy666.blogspot.com
 
Fungsi Terbilang with VB.60
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» fungsi oli dalam paketan pembersih filter replacement
» [ASK] Fungsi "Lowering Kit" Ninja 250r
» Fungsi gantungan spakbor belakang ninja 250r
» (ask) fungsi ganti koil
» Fungsi kondom ninja 250

Permissions in this forum:Anda tidak dapat menjawab topik
Himatika Perbanas :: Interaksi Forum Pilihan :: Forum Membahas Semua Jenis Programming-
Navigasi: