oke kali ini saya akan memposting tentang Membuat Fungsi Terbilang dengan C# dan VB.NET
Apa itu fungsi terbilang ?
fungsi terbilang adalah fungsi yang digunakan untuk mengubah angka menjadi kalimat dalam bahasa indonesia
Langkah - langkah Membuat Fungsi Terbilang dengan C# dan VB.NET
1. Buat sebuah project baru di visual studio anda, dengan nama fungsi_terbilang
2. Tambahkan 2 buah textbox dan 1 button lalu atur lokasi object seperti dibawah ini
3. buat sebuah fungsi dengan nama fungsi terbilang lalu isikan code dibawah ini
C#
private string terbilang(int angka)
{
string strterbilang = "";
// membuat array untuk mengubah 1 - 11 menjadi terbilang
string[] a = { "", "satu", "dua","tiga","empat","lima","enam","tujuh","delapan","sembilan","sepuluh","sebelas" };
if (angka < 12)
{
strterbilang = " " + a[angka];
}
else if (angka < 20)
{
strterbilang = this.terbilang(angka - 10) + " belas";
}
else if (angka < 100)
{
strterbilang = this.terbilang(angka / 10) + " puluh" + this.terbilang(angka % 10);
}
else if (angka < 200)
{
strterbilang = " seratus" + this.terbilang(angka - 100);
}
else if (angka < 1000)
{
strterbilang = this.terbilang(angka / 100) + " ratus" + this.terbilang(angka % 10);
}
else if (angka < 2000)
{
strterbilang = " seribu" + this.terbilang(angka - 1000);
}
else if (angka < 1000000)
{
strterbilang = this.terbilang(angka / 1000) + " ribu" + this.terbilang(angka % 1000);
}
else if (angka < 1000000000)
{
strterbilang = this.terbilang(angka / 1000000) + " juta" + this.terbilang(angka % 1000000);
}
// menghilangkan multiple space
strterbilang = System.Text.RegularExpressions.Regex.Replace(strterbilang, @"^\s+|\s+$", " ");
// mengembalikan hasil terbilang
return strterbilang;
}VB.NET
Private Function terbilang(ByVal angka As Integer) As String
Dim strterbilang As String = ""
' membuat array untuk mengubah 1 - 11 menjadi terbilang
Dim a As String() = {"", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
If (angka < 12) Then
strterbilang = " " + a(angka)
ElseIf (angka < 20) Then
strterbilang = Me.terbilang(angka - 10) + " belas"
ElseIf (angka < 100) Then
strterbilang = Me.terbilang(angka / 10) + " puluh" + Me.terbilang(angka Mod 10)
ElseIf (angka < 200) Then
strterbilang = " seratus" + Me.terbilang(angka - 100)
ElseIf (angka < 1000) Then
strterbilang = Me.terbilang(angka / 100) + " ratus" + Me.terbilang(angka Mod 100)
ElseIf (angka < 2000) Then
strterbilang = " seribu" + Me.terbilang(angka - 1000)
ElseIf (angka < 1000000) Then
strterbilang = Me.terbilang(angka / 1000) + " ribu" + Me.terbilang(angka Mod 1000)
ElseIf (angka < 1000000000) Then
strterbilang = Me.terbilang(angka / 1000000) + " juta" + Me.terbilang(angka Mod 1000000)
End If
' menghilangkan multiple space
strterbilang = System.Text.RegularExpressions.Regex.Replace(strterbilang, "^\s+|\s+$", " ")
' mengembalikan hasil terbilang
Return strterbilang
End Function
4. Klik 2 kali pada button1 lalu tambahkan script dibawah ini
C#
// menampilkan hasil dari fungis terbilang ke textbox 2 berdasarkan angka dari textbox 1VB.NET
textBox2.Text = this.terbilang(Convert.ToInt32(textBox1.Text)).TrimStart();
' menampilkan hasil dari fungis terbilang ke textbox 2 berdasarkan angka dari textbox 1
textBox2.Text = LTrim(Me.terbilang(Convert.ToInt32(textBox1.Text)))
5. Jalankan project yang kita buat dengan menekan tombol F5 maka akan seperti gambar dibawah ini
Anda dapat mendownload source codenya dibawah ini
Untuk password silahkan klik disini
Tunggu tutorial menarik lainnya, karena itu kunjungi terus blog ini
0 komentar:
Post a Comment