Tutorial kali ini adalah tentang program Convert Angka Sederhana. Dimana menggunakan aplikasi VB.Net 2010...
Langkah-langkahnya sebagai berikut:
Langkah-langkahnya sebagai berikut:
1. Pertama-tama buka VB.Net 2010, kemudian File, New Project.
Pilih Windows Forms Application, Name (Convert Angka), Lalu OK.
2. Didalam form1, yang perlu toolbar atau tool yang kita kasih adalah:
a. Groupbox , di Properti ; Teks :(Input Angka Penjumlahan)
b. Label 4 buah, yaitu : AngkaI, AngkaII, Hasil, dan Terbilang.
c. Textbox 4 buah : diproperti,
* txtAngka1, txtAngka2, txtHasil, dan txtTerbilang.
d.Button 3 buah, yaitu : Hitung, Convert, dan Close.
* Hitung, properti : Name (btnHitung), Text (&Hitung)
*Convert, Properti : Name (btnConvert), Text (&Convert)
*Close, properti : Name (btnClose), Text (&Close)
3.Pada Form1, ketik listing program berikut :
Ctt: formConvert, nama dari Form1, bisa diganti diproperti
Public Class formConvert
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
4. Setelah Code program diatas, lalu klik Button Hitung, dan isikan program dibawah ini :
Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
Dim angka1 As Long
Dim angka2 As Long
Dim hasil As Long
angka1 = Val(txtAngka1.Text)
angka2 = Val(txtAngka2.Text)
hasil = angka1 + angka2
txtHasil.Text = hasil
End Sub
5. Begitu juga dengan Button Convert, isikan code berikut:
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
Dim angka As Double
Dim teks As String
angka = Val(txtHasil.Text)
teks = Terbilang(angka)
txtTerbilang.Text = teks
If txtHasil.Text = "" Then
txtTerbilang.Text = "input angka!"
End If
If Not IsNumeric(txtHasil.Text) Then
txtTerbilang.Text = "Input angka, bukan huruf!"
End If
End Sub
6. Hal serupa juga pada Button Close ,
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub
7. Setelah itu klik “Start Debugging (F5)”
8. Maka akan tampil program sederhana seperti tampilan berikut ini :
Untuk Programnya Klik Disini
Solusi Terbaik Bagi Anda Yang Selalu Gagal Dalam Berbisnis, Di Berikan $10 Sebagai Modal Awal. Sign Up
0 Komentar:
Posting Komentar