selamat malam sobat blogger, ketemu lagi dengan saya dalam rangka indahnya berbagi ilmu, Postingan saya pada malam hari ini yaitu Sebuah Program Konversi Angka Ke Huruf Menggunakan VB.2008.
Sudah Lama banget rasanya, saya tidak pernah memposting lagi tentang Program Visual Basic, Yaaa. itu disebabkan karna Kesibukan saya yg tak menentu, dan Hoby saya yg berubah-ubah, Jadinya akhir-akhir ini saya hanya sering memposting tentang Sekitar aktivitas kita sehari-hari dan juga membuat postingan tentang Tutorial Blogger. Jadi gak sempat lagi dech memposting program Visual basic.
Sebelumnya Di program Visual Basic, Saya Memposting tentang Konversi Bilangan Menggunakan VB.2008, namun kali ini, Mungkin Agak Kembar tapi tak serupa, Keluarlah postingan tentang Cara Konversi Angka Ke huruf Menggunakan VB.2008
Sebelumnya Di program Visual Basic, Saya Memposting tentang Konversi Bilangan Menggunakan VB.2008, namun kali ini, Mungkin Agak Kembar tapi tak serupa, Keluarlah postingan tentang Cara Konversi Angka Ke huruf Menggunakan VB.2008
Tanpa Memperpanjang Cerita, Langsung saja kita memasuki TKP;
Download Programnya Disini>>>
Download Listing Program Lengkapnya Disini>>>
Dalam Postingan Ini, Jika Saya Buat hanya tentang program pengkonversiannya saja, maka akan Selesai Dengan Cepat, Jadi Sedikit Saya tambah Embel-Embel Sangat Sederhana biar agak kelihatan padat, dan lebih berisi, Walaupun tujuannya hanya untuk pengkonversian Angka ke Huruf. :D
Aturan Main:
* Input Nilai 1
* Input Nilai 2
* Pilih Eksekusi yang Anda Inginkan ( Tersedia: Tambah, Kurang, Kali, Dan Bagi)
* Bentuk Angka Akan Muncul Secara Otomatis
* Tekan Convert (untuk Konversi dari Angka Ke Huruf)
Download Programnya Disini>>>
Download Listing Program Lengkapnya Disini>>>
Dalam Postingan Ini, Jika Saya Buat hanya tentang program pengkonversiannya saja, maka akan Selesai Dengan Cepat, Jadi Sedikit Saya tambah Embel-Embel Sangat Sederhana biar agak kelihatan padat, dan lebih berisi, Walaupun tujuannya hanya untuk pengkonversian Angka ke Huruf. :D
Aturan Main:
* Input Nilai 1
* Input Nilai 2
* Pilih Eksekusi yang Anda Inginkan ( Tersedia: Tambah, Kurang, Kali, Dan Bagi)
* Bentuk Angka Akan Muncul Secara Otomatis
* Tekan Convert (untuk Konversi dari Angka Ke Huruf)
Bahan-Bahan;
* ambil 4 Label
* ambil 4 Textbox
* ambil 2 Group Box
* ambil 6 Buah button
* Desainlah Seperti Gambar Utama di atas.
Setelah Itu, Langsung Ketikkan Script Dibawah Ini;
Public Class Form1
Public Function terbilang(ByVal
x As Double) As String
Dim isi
As Double
Dim
teks As String
Dim
bagian As String
Dim i As Integer
Dim
tanda As Boolean
Dim
letak(5)
letak(1) = "ribu
"
letak(2) = "juta
"
letak(3) = "milyar
"
letak(4) = "triliun
"
If (x =
0) Then
terbilang = "nol"
Exit
Function
End If
If (x
< 2000) Then
tanda = True
End If
teks = ""
If (x
>= 1.0E+15) Then
terbilang = "Nilai terlalu besar"
Exit
Function
End If
For i =
4 To 1 Step -1
isi = Int(x / (10 ^ (3 * i)))
If
(isi > 0) Then
bagian = ratusan(isi, tanda)
teks = teks & bagian &
letak(i)
End
If
x = x - isi * (10 ^ (3 * i))
Next
teks = teks & ratusan(x, False)
terbilang = teks
End Function
Function
ratusan(ByVal y As
Double, ByVal
flag As Boolean)
As String
Dim tmp
As Double
Dim
bilang As String
Dim bag
As String
Dim j As Integer
Dim
angka(9)
angka(1) = "se"
angka(2) = "dua
"
angka(3) = "tiga
"
angka(4) = "empat
"
angka(5) = "lima
"
angka(6) = "enam
"
angka(7) = "tujuh
"
angka(8) = "delapan
"
angka(9) = "sembilan
"
Dim
posisi(2)
posisi(1) = "puluh
"
posisi(2) = "ratus
"
bilang = ""
For j =
2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If
(tmp > 0) Then
bag = angka(tmp)
If
(j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If
(y >= 1) Then
posisi(j) = "belas "
Else
angka(y) = "se"
End
If
bilang = bilang &
angka(y) & posisi(j)
ratusan = bilang
Exit
Function
Else
bilang = bilang & bag
& posisi(j)
End
If
End
If
y = y - tmp * 10 ^ j
Next
If
(flag = False) Then
angka(1) = "satu"
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function
Private Sub btnconvert_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnconvert.Click
Dim
angka As Integer
Dim
teks As String
angka = Val(hasil.Text)
teks = terbilang(angka)
huruf.Text = teks
If
hasil.Text = "" Then
hasil.Text = "input angka!"
End If
If Not IsNumeric(hasil.Text) Then
huruf.Text = "Input angka, bukan huruf!"
End If
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
hasil.Text = Val(nilai1.Text) +
Val(nilai2.Text)
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
hasil.Text = Val(nilai1.Text) -
Val(nilai2.Text)
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
hasil.Text = nilai1.Text * nilai2.Text
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
hasil.Text = nilai1.Text / nilai2.Text
End Sub
Private Sub btnclose_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnclose.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
nilai1.Focus()
TextBox1.Text = "raflyzea-agara.blogspot.com"
TextBox1.ForeColor = Color.Red
hasil.ReadOnly = True
huruf.ReadOnly = True
End Sub
Private Sub nilai1_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
nilai1.KeyPress
If Not ((e.KeyChar >= "0"
And e.KeyChar <= "9")
Or e.KeyChar = vbBack) Then
e.Handled = True
End If
End Sub
Private Sub nilai2_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
nilai2.KeyPress
If Not ((e.KeyChar >= "0"
And e.KeyChar <= "9")
Or e.KeyChar = vbBack) Then
e.Handled = True
End If
End Sub
End Class
mungkin cukup sekian pembahasan kita tentang konversi Angka K e Huruf menggunakan VB.2008, Silahkan Baca juga Tentang Artikel Program, Membuat Atribut Warna Di CMD (command Promt).
+ komentar + 1 komentar
Silahkan Berkunjung ya gan...
di http://senangkedie.blogspot.com/
Posting Komentar
komentar anda sangat kami butuhkan, namun tolong gunakan bahasa yang sopan.!