Nilai/Angka menjadi Terbilang VB 2008

Tips kali ini merupakan aplikasi yang sederhana, namun hal rumit bertumbuh dari kesederhanaan konsep. Aplikasi ini menampilkan inputan data berupa angka menjadi terbilang misalkan angka 15 terbilangnya menjadi Lima belas. Tips ini merupakan pertanyaan seseorang yang baru saya kenal dan pada saat itu saya tidak mampu memberikan jawaban yang memuaskan (Saya memang dalam proses belajar). Tampilannya seperti gambar di atas. Ikuti langkah-langkah di bawah ini:

Toolbox yang digunakan seperti gambar di bawah ini:


Design Form dari Toolbox di atas seperti gambar di bawah ini:


Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.

Source Program:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Jumlah_Karakter()
End Sub
Private Sub Jumlah_Karakter()
REM menentukan panjang karakter
Dim jmltext, jmlchar, k As Integer
Dim datapul1 As Char
Dim data As Integer
jmltext = Len(TextBox3.Text) REM Inisialisasi panjang karakter
datapul1 = CStr(Mid(TextBox3.Text, 1)) REM inisialisasi puluhan
data = Val(datapul1) REM inisialisasi puluhan
For k = 0 To jmltext - 1 REM seleksi panjang karakter
jmlchar = jmlchar + 1
TextBox1.Text = jmlchar
If jmlchar > 2 Then REM pembatasan data inputan
MsgBox("Data Angka Sampai Puluhan", MsgBoxStyle.Exclamation)
TextBox2.Text = ""
End If
If jmlchar = 1 Then REM inisilisasi satuan
Call Satuan() REM panggil data terbilang satuan
TextBox1.Text = jmlchar & " " & "Digit (Satuan)" REM tampilkan data satuan
ElseIf data = 1 Then REM inisialisasi belasan
Call Belasan() REM panggil data terbilang belasan
TextBox1.Text = jmlchar & " " & "Digit (Puluhan)" REM tampilkan
ElseIf data >= 2 Then REM inisialisasi puluhan
Call Puluhan() REM panggil data terbilang puluhan
TextBox1.Text = jmlchar & " " & "Digit (Puluhan)" REM tampilkan puluhan
End If
Next

End Sub
Private Sub TextBox3_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Validated
REM inisialisasi data imputan berupa angka
If IsNumeric(TextBox3.Text) = False Then
MsgBox("Harus Karakter Angaka", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub Satuan()
REM data terbilang satuan
If TextBox3.Text = CStr(1) Then
TextBox2.Text = "Satu"
ElseIf TextBox3.Text = CStr(2) Then
TextBox2.Text = "Dua"
ElseIf TextBox3.Text = CStr(3) Then
TextBox2.Text = "Tiga"
ElseIf TextBox3.Text = CStr(4) Then
TextBox2.Text = "Empat"
ElseIf TextBox3.Text = CStr(5) Then
TextBox2.Text = "Lima"
ElseIf TextBox3.Text = CStr(6) Then
TextBox2.Text = "Enam"
ElseIf TextBox3.Text = CStr(7) Then
TextBox2.Text = "Tujuh"
ElseIf TextBox3.Text = CStr(8) Then
TextBox2.Text = "Delapan"
ElseIf TextBox3.Text = CStr(9) Then
TextBox2.Text = "Sembilan"
ElseIf TextBox3.Text = CStr(0) Then
TextBox2.Text = "Nol"
End If
' Next
End Sub
Private Sub Belasan()
REM data terbilang belasan
Dim c As Integer
Dim d As String
If TextBox3.Text = 10 Then
TextBox2.Text = "Sepuluh"
ElseIf TextBox3.Text = 11 Then
TextBox2.Text = "Sebelas"
ElseIf 11 > TextBox3.Text < 19 Then
c = TextBox3.Text
d = CStr(Mid(c, 2))
TextBox3.Text = CStr(d)
Call Satuan()
TextBox2.Text = TextBox2.Text & " " & "belas"
TextBox3.Text = c
End If
End Sub
Private Sub Puluhan()
REM data terbilang puluhan
Dim e As Integer
Dim f As String
Dim pul As String
Dim datapul As Integer
Dim datapul1 As Char
Dim data As Integer
e = TextBox3.Text
datapul = TextBox3.Text
datapul1 = CStr(Mid(datapul, 1))
data = Val(datapul1)
TextBox3.Text = data
Call Satuan()
pul = TextBox2.Text
f = CStr(Mid(e, 2))
TextBox3.Text = CStr(f)
Call Satuan()
If f = 0 Then
TextBox2.Text = pul & " " & "Puluh"
Else
TextBox2.Text = pul & " " & "Puluh" & " " & TextBox2.Text
End If
TextBox3.Text = datapul
End Sub

End Class

Setelah mengetikkan listing dari source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini, kemudian tekan tombol Terbilang tampilannya seperti gambar paling atas.



Artikel yang Berhubungan:
Nilai Nominal Angka Terbilang VB 2008 (7 Digit Angka) ==>> Klik Disini

Pengembangan Program di atas dapat Anda utak-atik, untuk terbilang Ratusan, Ribuan dan seterusnya atau dapat lebih simpel lagi tentu sangat baik. Selamat Berkreasi.
Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian