trik untuk membuat fungsi yang mengubah angka pada text menjadi fungsi terbilang. misalnya kita mengetikkan angka "10000" maka hasil konversinya akan menjadi "sepuluh ribu"
bagaimana cara membuatnya???
langkah-langkahnya sebagai berikut :
1. buka project baru dengan sebuah form
2. masukkan sebuah text box sebagai input data
3. masukkan sebuah label sebagai tempat menampung hasil akhir berupa fungsi terbilang
4. copykan script berikut pada form
Function Num2Word(ByVal n As Currency) As String 'max 2.147.483.647
Dim satuan As Variant
satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case n 'keadaan
Case 0 To 11
Num2Word = " " + satuan(Fix(n))
Case 12 To 19
Num2Word = Num2Word(n Mod 10) + " Belas"
Case 20 To 99
Num2Word = Num2Word(Fix(n / 10)) + " Puluh" + Num2Word(n Mod 10)
Case 100 To 199
Num2Word = " Seratus" + Num2Word(n - 100)
Case 200 To 999
Num2Word = Num2Word(Fix(n / 100)) + " Ratus" + Num2Word(n Mod 100)
Case 1000 To 1999
Num2Word = " Seribu" + Num2Word(n - 1000)
Case 2000 To 999999
Num2Word = Num2Word(Fix(n / 1000)) + " Ribu" + Num2Word(n Mod 1000)
Case 1000000 To 999999999
Num2Word = Num2Word(Fix(n / 1000000)) + " Juta" + Num2Word(n Mod 1000000)
Case Else
Num2Word = Num2Word(Fix(n / 1000000000)) + " Milyar" + Num2Word(n Mod 1000000000)
End Select
End Function
Private Sub Text1_Change()
On Error Resume Next
If Text1 <> "" Then
Label1 = Num2Word(Text1) + " Rupiah"
Else
Label1 = ""
End If
End Sub
5. klik run atau F5
6. berdoa supaya tidak eror heheheheheh
ini contoh program yang tampilan snapshootnya diatas download contoh konversi huruf
Grand Theft Auto 4 Cheats
11 tahun yang lalu
Tidak ada komentar:
Posting Komentar