Tutorial Koding

Assalamualaykum, para pembaca blog ini, karena sudah lumayan lama saya tidak memposting sebuah tutorial,saya akan melanjutkan postingan saya sebelumnya yang berjudul <a href="http://dwirandyherdinanto.blogspot.com/2015/03/membuat-fungsi-terbilang-dengan-c-dan.html">Membuat Fungsi Terbilang dengan C# dan VB.NET</a> kali ini saya akan posting tentang <a href="http://dwirandyherdinanto.blogspot.com/2015/04/konversi-bilangan-angka-ke-romawi-dan.html">Konversi Bilangan Angka ke Romawi dengan C# dan VB.NET,</a><br />
<br />
Apa itu Bilangan Romawi ?<br />
Bilangan romawi adalah bilangan unik yang memiliki aturan-aturan yang berlaku yang terdiri dari huruf Capital seperi I,X,C,M,V,L. Bilangan romawi memiliki bilangan dasar dan maksimal perulangan ganda pada huruf-huruf dalam suatu angka yaitu 3 kali, misalnya XXX = 30 atau III = 3.<br />
<br />
oke langsung saja <a href="http://dwirandyherdinanto.blogspot.com/2015/04/konversi-bilangan-angka-ke-romawi-dan.html">Konversi Bilangan Angka ke Romawi dengan C# dan VB.NET,</a><br />
<br />
1. Buat sebuah project Windows Form dengan visual studio anda<br />
<br />
2. Tambahkan 4 Textbox 2 button dan 4 label lalu desain form seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgC18JNxUe-DhEq1F9YFwuMPTKP2Y54iFtBuqQtqKUQMZyjGJMypB2sN6vwfpgBwzML1NIpZLDTsjhxmfpV_gmGQ-FqjMvjRGAUHwH3GPk1LgOqjBeCfE9mxkasMTWJRH89tIv-uMHXr_Bl/s1600/Konversi+Bilangan+Angka+ke+Romawi+dan+Sebaliknya+dengan+CSharp+dan+VBNET.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Konversi Bilangan Angka ke Romawi dan Sebaliknya dengan C# dan VB.NET" border="0" height="242" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgC18JNxUe-DhEq1F9YFwuMPTKP2Y54iFtBuqQtqKUQMZyjGJMypB2sN6vwfpgBwzML1NIpZLDTsjhxmfpV_gmGQ-FqjMvjRGAUHwH3GPk1LgOqjBeCfE9mxkasMTWJRH89tIv-uMHXr_Bl/s1600/Konversi+Bilangan+Angka+ke+Romawi+dan+Sebaliknya+dengan+CSharp+dan+VBNET.png" title="Konversi Bilangan Angka ke Romawi dan Sebaliknya dengan C# dan VB.NET" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
3. Tambahkan namespace System.Collections.Generic<br />
<br />
4. Buat fungsi dengan nama RomanToInteger (fungsi ini digunakan untuk merubah romawi ke angka)<br />
C#<br />
<pre class="brush:html">public int RomanToInteger(string StrRomanValue)
        {
            Dictionary<string,int> RomanNumbers = new Dictionary<string,int>();
            RomanNumbers.Add("M", 1000);
            RomanNumbers.Add("CM", 900);
            RomanNumbers.Add("D", 500);
            RomanNumbers.Add("CD", 400);
            RomanNumbers.Add("C", 100);
            RomanNumbers.Add("XC", 90);
            RomanNumbers.Add("L", 50);
            RomanNumbers.Add("XL", 40);
            RomanNumbers.Add("X", 10);
            RomanNumbers.Add("IX", 9);
            RomanNumbers.Add("V", 5);
            RomanNumbers.Add("IV", 4);
            RomanNumbers.Add("I", 1);

int result = 0;

foreach (var pair in RomanNumbers)
            {
                while (StrRomanValue.IndexOf(pair.Key.ToString()) == 0)
                {
                    result += int.Parse(pair.Value.ToString());
                    StrRomanValue = StrRomanValue.Substring(pair.Key.ToString().Length);
                }
            }

return result;
        }</pre>
VB.NET<br />
<pre class="brush:html">Private Function RomanToInteger(ByVal StrRomanValue As String) As Integer
        Dim RomanNumbers As New Dictionary(Of String, Integer)()
        RomanNumbers.Add("M", 1000)
        RomanNumbers.Add("CM", 900)
        RomanNumbers.Add("D", 500)
        RomanNumbers.Add("CD", 400)
        RomanNumbers.Add("C", 100)
        RomanNumbers.Add("XC", 90)
        RomanNumbers.Add("L", 50)
        RomanNumbers.Add("XL", 40)
        RomanNumbers.Add("X", 10)
        RomanNumbers.Add("IX", 9)
        RomanNumbers.Add("V", 5)
        RomanNumbers.Add("IV", 4)
        RomanNumbers.Add("I", 1)

Dim result As Integer = 0

For Each pair As KeyValuePair(Of String, Integer) In RomanNumbers
            While StrRomanValue.IndexOf(pair.Key.ToString()) = 0
                result += Integer.Parse(pair.Value.ToString())
                StrRomanValue = StrRomanValue.Substring(pair.Key.ToString().Length)
            End While
        Next

Return result

End Function
</pre>
<div>
<br /></div>
5. Buat fungsi dengan nama IntegerToRoman (fungsi ini untuk mengubah romawi ke angka)<br />
C#<br />
<pre class="brush:html">        public string IntegerToRoman(int IntNumberValue)
        {
            Dictionary<string, int> RomanNumbers = new Dictionary<string, int>();
            RomanNumbers.Add("M", 1000);
            RomanNumbers.Add("CM", 900);
            RomanNumbers.Add("D", 500);
            RomanNumbers.Add("CD", 400);
            RomanNumbers.Add("C", 100);
            RomanNumbers.Add("XC", 90);
            RomanNumbers.Add("L", 50);
            RomanNumbers.Add("XL", 40);
            RomanNumbers.Add("X", 10);
            RomanNumbers.Add("IX", 9);
            RomanNumbers.Add("V", 5);
            RomanNumbers.Add("IV", 4);
            RomanNumbers.Add("I", 1);

string result = "";

foreach (var pair in RomanNumbers)
            {
                while (IntNumberValue >= pair.Value)
                {
                    IntNumberValue -= pair.Value;
                    result += pair.Key;
                }
            }
            return result;
        }
</pre>
<div>
<br /></div>
VB.NET<br />
<pre class="brush:html">    Public Function IntegerToRoman(IntNumberValue As Integer) As String
        Dim RomanNumbers As New Dictionary(Of String, Integer)()
        RomanNumbers.Add("M", 1000)
        RomanNumbers.Add("CM", 900)
        RomanNumbers.Add("D", 500)
        RomanNumbers.Add("CD", 400)
        RomanNumbers.Add("C", 100)
        RomanNumbers.Add("XC", 90)
        RomanNumbers.Add("L", 50)
        RomanNumbers.Add("XL", 40)
        RomanNumbers.Add("X", 10)
        RomanNumbers.Add("IX", 9)
        RomanNumbers.Add("V", 5)
        RomanNumbers.Add("IV", 4)
        RomanNumbers.Add("I", 1)

Dim result As String = ""

For Each pair As KeyValuePair(Of String, Integer) In RomanNumbers
            While IntNumberValue >= pair.Value
                IntNumberValue -= pair.Value
                result += pair.Key
            End While
        Next
        Return result
    End Function
</pre>
<div>
<br /></div>
6. Jalankan program tersebut maka akan seperti gambar dibawah ini<br />
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjyRyTliWJ7PAmSzMuihLrdidFgn-h4RVRzYV3hp0QSfuyk7zetFoiyjIp4MXkXPUd3SmppD0uWI5AEpGjZqR3Kp5cz7h3eHq5JPZ9v_rHU43mFlXN7jttLRzE_tft3e9vmL7JJuo_MVfAE/s1600/Konversi+Bilangan+Angka+ke+Romawi+dan+Sebaliknya+dengan+CSharp+dan+VBNET+2.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img alt="Konversi Bilangan Angka ke Romawi dan Sebaliknya dengan C# dan VB.NET" border="0" height="241" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjyRyTliWJ7PAmSzMuihLrdidFgn-h4RVRzYV3hp0QSfuyk7zetFoiyjIp4MXkXPUd3SmppD0uWI5AEpGjZqR3Kp5cz7h3eHq5JPZ9v_rHU43mFlXN7jttLRzE_tft3e9vmL7JJuo_MVfAE/s1600/Konversi+Bilangan+Angka+ke+Romawi+dan+Sebaliknya+dengan+CSharp+dan+VBNET+2.png" title="Konversi Bilangan Angka ke Romawi dan Sebaliknya dengan C# dan VB.NET" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Mengubah Romawikke Angka</td></tr>
</tbody></table>
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjyNBd3p8iX4OG2Jc8c7ERWrXsI5isU1b-5U6oh67_bdrahhhDcl0FsYm1eZJD6lO5Tz77COX6aRa5tQdP_X85U4fBEuAFadD5usmUvuZh4dsVPhT3LH9bd1GRHuQDql6aM5FIrpPAeS7Z7/s1600/Konversi+Bilangan+Angka+ke+Romawi+dan+Sebaliknya+dengan+CSharp+dan+VBNET+3.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img alt="Konversi Bilangan Angka ke Romawi dan Sebaliknya dengan C# dan VB.NET" border="0" height="242" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjyNBd3p8iX4OG2Jc8c7ERWrXsI5isU1b-5U6oh67_bdrahhhDcl0FsYm1eZJD6lO5Tz77COX6aRa5tQdP_X85U4fBEuAFadD5usmUvuZh4dsVPhT3LH9bd1GRHuQDql6aM5FIrpPAeS7Z7/s1600/Konversi+Bilangan+Angka+ke+Romawi+dan+Sebaliknya+dengan+CSharp+dan+VBNET+3.png" title="Konversi Bilangan Angka ke Romawi dan Sebaliknya dengan C# dan VB.NET" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Mengubah Angka ke Romawi</td></tr>
</tbody></table>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjzCrbaEHjNydneM-aypLhGCtAx76umP6UlfGO1Wnyewh4IuLTj6B-La6afaTKrPDiTeuoYD64OKxDfKgqTCuNHCFogg65hTEBSj8AspTAVDzdE_5Zih1OGMn8VpucMx2dJ00K2YEjKTCAF/s1600/Konversi+Bilangan+Angka+ke+Romawi+dan+Sebaliknya+dengan+CSharp+dan+VBNET+4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Konversi Bilangan Angka ke Romawi dan Sebaliknya dengan C# dan VB.NET" border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjzCrbaEHjNydneM-aypLhGCtAx76umP6UlfGO1Wnyewh4IuLTj6B-La6afaTKrPDiTeuoYD64OKxDfKgqTCuNHCFogg65hTEBSj8AspTAVDzdE_5Zih1OGMn8VpucMx2dJ00K2YEjKTCAF/s1600/Konversi+Bilangan+Angka+ke+Romawi+dan+Sebaliknya+dengan+CSharp+dan+VBNET+4.png" title="Konversi Bilangan Angka ke Romawi dan Sebaliknya dengan C# dan VB.NET" width="320" /></a></div>
<br />
<div style="text-align: center;">
Anda dapat mendownload source codenya dibawah ini</div>
<div style="text-align: center;">
| <a href="http://www.tusfiles.net/1hrwe9xmdx2i">VB.NET</a> | <a href="http://www.tusfiles.net/bp5fg04sttv9">C#</a> |</div>
<div style="text-align: center;">
Untuk password silahkan klik <a href="http://tny.cz/cca303d4">disini</a></div>
<br />
<br />
Sekian pembahasan tentang <a href="http://dwirandyherdinanto.blogspot.com/2015/04/konversi-bilangan-angka-ke-romawi-dan.html">Konversi Bilangan Angka ke Romawi dengan C# dan VB.NET,</a><br />
Tunggu tutorial menarik lainnya, karena itu kunjungi terus blog ini