Wednesday 22 April 2015

Membuat Aplikasi Terbilang Dari VB.NET

By Faiz_FTC 08:40:00 , Leave a Comment
Aplikasi terbilang adalah program conversi dari angka menjadi kalimat, biasanya Aplikasi ini sering digunakan pada kwitansi. jadi dengan adanya aplikasi ini akan mempermudah dalam penulisan terbilang tersebut, kita tidak usah menulis manual. mari kita ikuti langkah-langkah berikut dalam pembuatan aplikasi terbilang yang sederhana. ok langsung saja :

1. Buka VB.NET anda

2. New Project..

3. Berinama misalnya "terbilang" kemudian ok

4. Desain seperti dibawah ini,
Dan atur Propertiesnya :
ToolBox
Properties
Value
Textbox1
-
-
label1
Autosize
BorderStyle
False
FIxed3D
button1
Text
Terbilang

5. Buka code dengan cara klik kanan "Form1.vb" yang ada di bagian "solution Explorer" pilih View code (biasa langsung tekan F7)

6. Buat Function baru, letakkan script dibawh ini tepat dibawah "Public Class"
Public Function Terbilang(ByVal nilai As Long) As String
        Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", _
        "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
        If nilai < 12 Then
            Return " " & bilangan(nilai)
        ElseIf nilai < 20 Then
            Return Terbilang(nilai - 10) & " belas"
        ElseIf nilai < 100 Then
            Return (Terbilang(CInt((nilai \ 10))) & " puluh") + Terbilang(nilai Mod 10)
        ElseIf nilai < 200 Then
            Return " seratus" & Terbilang(nilai - 100)
        ElseIf nilai < 1000 Then
            Return (Terbilang(CInt((nilai \ 100))) & " ratus") + Terbilang(nilai Mod 100)
        ElseIf nilai < 2000 Then
            Return " seribu" & Terbilang(nilai - 1000)
        ElseIf nilai < 1000000 Then
            Return (Terbilang(CInt((nilai \ 1000))) & " ribu") + Terbilang(nilai Mod 1000)
        ElseIf nilai < 1000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000))) & " juta") + Terbilang(nilai Mod 1000000)
        ElseIf nilai < 1000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000))) & " milyar") + Terbilang(nilai Mod 1000000000)
        ElseIf nilai < 1000000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000000))) & " trilyun") + Terbilang(nilai Mod 1000000000000)
        Else
            Return ""
        End If
    End Function
7. Klik dua kali pada Button Terbilang, kemudian copy script dibawah ini
Label1.Text = Terbilang(TextBox1.Text) & " rupiah" 
 8. Kemudia tekan (F5) untuk melihat hasilnya
 

Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.
Terimakasih.

NB : Kritik dan Saran bisa di komentar. 
If You Enjoyed This, Take 5 Seconds To Share It

0 komentar:

Post a Comment

ADS