Program Fungsi terbilang sangant sering digunakan dalam pembuatan aplikasi yang berhubungan dengan uang. Berikut kita akan belajar bagaimana cara membuat program fungsi terbilang menggunakan Visual Basic 6.0
Contoh program fungsi terbilang dengan Visual Basic
Contoh program fungsi terbilang dengan Visual Basic
- Pertama-tama bukaklah program Visual basic 6.0, pilih “stanadard EXE” lalu klick Open. Jendela form dengan mode Standard EXE akan terbuka
- Masukkan sebuah "Label"
dan sebuah "TextBox" 
ke dalam area form sehingga tampak seperti gambar berikut.
- Setelah itu, aktifkanjendela kode dan ketiklah kode berikut :
| Function word2(ByVal x As Currency) As StringDim satuan As Variant satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas") Select Case x Case 0 To 11 word2 = " " + satuan(Fix(x)) Case 12 To 19 word2 = word2(x Mod 10) + " Belas" Case 20 To 99 word2 = word2(Fix(x / 10)) + " Puluh" + word2(x Mod 10) Case 100 To 199 word2 = " Seratus" + word2(x - 100) Case 200 To 999 word2 = word2(Fix(n / 100)) + " Ratus" + word2(x Mod 100) Case 1000 To 1999 word2 = "Seribu" + word2(x - 1000) Case 2000 To 999999 word2 = word2(Fix(x / 1000)) + " Ribu" + word2(x Mod 1000) Case 1000000 To 999999999 word2 = word2(Fix(x / 1000000)) + " Juta" + word2(x Mod 1000000) Case 1000000000 To 1999999999 word2 = word2(Fix(x / 1000000000)) + " Milyar" + word2(x Mod 1000000000) Case Else word2 = "Angka sudah melampawi batas. Program ini cuman samapai 1.999.999.999" End Select End Function |
- Lalu klick ganda pada bagian "TextBoox" dan ketikkan kode berikut
| Private Sub Text1_Change() On Error Resume Next If Text1 <> "" Then Label1 = word2(Text1) + " Rupiah" Else Label1 = "" End If End Sub |
- Cobalah program yang anda buat dengan menekan F5 dan lihat hasilnya.
