APLIKASI TERBILANG VB.NET DENGAN CLASS

Agan-agan sekalian, kali ini kita akan coba untuk membuat Aplikasi Terbilang VB.Net 2005.
seperti tutorial sebelumnya buatlah sebuah form aplikasi untuk me-run

lalu tambahkan sebuah CLASS pada aplikasi anda dan isikan kodingnya seperti dibawah ini dengan seksama

Public Class CLASS_TERBILANG

  Public Function ANGKA_TERBILANG(ByVal n As Double) As String
  Dim SATUAN As String() = {"", "SATU", "DUA", "TIGA", "EMPAT", "LIMA", _
  "ENAM", "TUJUH", "DELAPAN", "SEMBILAN", "SEPULUH", "SEBELAS"}

  Select Case n
  Case 0 To 11
  ANGKA_TERBILANG = " " + SATUAN(Fix(n))
  Case 12 To 19
  ANGKA_TERBILANG = ANGKA_TERBILANG(n Mod 10) + " BELAS"
  Case 20 To 99
  ANGKA_TERBILANG = ANGKA_TERBILANG(Fix(n / 10)) + " PULUH" + _
  ANGKA_TERBILANG(n Mod 10)
  Case 100 To 199
  ANGKA_TERBILANG = " SERATUS" + ANGKA_TERBILANG(n - 100)
  Case 200 To 999
  ANGKA_TERBILANG = ANGKA_TERBILANG(Fix(n / 100)) + " RATUS" + _
  ANGKA_TERBILANG(n Mod 100)
  Case 1000 To 1999
  ANGKA_TERBILANG = " SERIBU" + ANGKA_TERBILANG(n - 1000)
  Case 2000 To 999999
  ANGKA_TERBILANG = ANGKA_TERBILANG(Fix(n / 1000)) + " RIBU" + _
  ANGKA_TERBILANG(n Mod 1000)
  Case 1000000 To 999999999
  ANGKA_TERBILANG = ANGKA_TERBILANG(Fix(n / 1000000)) + " JUTA" + _
  ANGKA_TERBILANG(n Mod 1000000)
  Case 1000000000 To 999999999999
  ANGKA_TERBILANG = ANGKA_TERBILANG(Fix(n / 1000000000)) + " MILYAR" + _
  ANGKA_TERBILANG(n Mod 1000000000)
  Case Else
  ANGKA_TERBILANG = ANGKA_TERBILANG(Fix(n / 1000000000000)) + " TRILYUN" + _
  ANGKA_TERBILANG(n Mod 1000000000000)
  End Select

  End Function

End Class

setelah itu pada form isikan koding berikut dengan seksama pula ya??

Public Class TERBILANG

  'CLASS_TERBILANG = NAMA KELAS YANG DIBUAT
  'DATA = DIM-ENSI YANG KITA PERJELAS UNTUK KELAS TERBILANG
  Dim DATA As CLASS_TERBILANG = New CLASS_TERBILANG

  Private Sub TxtANGKA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtANGKA.KeyPress

  'SUPAYA PADA TxtANGKA HANYA BISA DI INPUT ANGKA (1234567890) SAJA
  Dim INPUT_ANGKA As Integer = Char.ConvertToUtf32(e.KeyChar.ToString(), 0)
  If Not (((INPUT_ANGKA >= 48) And (INPUT_ANGKA <= 57)) Or (INPUT_ANGKA = 8)) Then
  e.Handled = True
  'JADI KALO TEKAN KEYBOARD BUKAN ANGKA PC BUNYI (TUNG!!)
  Beep()
  End If

  End Sub

  Private Sub TxtANGKA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtANGKA.TextChanged

  If TxtANGKA.Text <> "" Then
  TxtKONVERSI.Text = DATA.ANGKA_TERBILANG(TxtANGKA.Text) + " RUPIAH"
  Else
  TxtKONVERSI.Text = ""
  End If

  End Sub

  Private Sub TERBILANG_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

  TxtANGKA.MaxLength = 15

  TxtKONVERSI.Enabled = False
  TxtKONVERSI.BackColor = Color.White

  End Sub

End Class

setelah semua koding tertuliskan dengan benar maka aplikasi baru dapat running seperti layout dibawah ini
WELLDONE !!!