Program Roman Numeral Converte

Program Roman Numeral Converter Untuk Mengkonversi Angka Biasa ke dalam Angka Romawi dengan menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Langkah – langkah pembuatan program Roman Numeral Converter  :

·           Buka proyek Standard EXE yang baru

·           Disain tampilan form seperti gambar berikut dengan menggunakan objek Label dan TextBox dan Line

·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Text      Font ForeColor BackColor	txt_angka (dikosongkan) MS Sans Serif, Bold, 10 &H00000080& &H0080C0FF&
Label1	Caption Font ForeColor BackColor	Angka Romawi (Roman Numeral) MS Sans Serif, Bold, 14 &H00FF0000& &H0080FF80&
Label2	Caption Font ForeColor BackColor	1 MS Sans Serif, Bold, 12 &H0080FF80& &H0080FF80&
Label3	Caption Font ForeColor BackColor	5 MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label4	Caption Font ForeColor BackColor	10 MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label5	Caption Font ForeColor BackColor	50 MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label6	Caption Font ForeColor BackColor	100 MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label7	Caption Font ForeColor BackColor	500 MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label8	Caption Font ForeColor BackColor	1000 MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label9	Caption Font ForeColor BackColor	I MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label10	Caption Font ForeColor BackColor	V MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label11	Caption Font ForeColor BackColor	X MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label12	Caption Font ForeColor BackColor	L MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label13	Caption Font ForeColor BackColor	C MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label14	Caption Font ForeColor BackColor	D MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label15	Caption Font ForeColor BackColor	M MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label16	Caption Font ForeColor BackColor	Angka maximum yang dapat dikonversi = 3999 MS Sans Serif, Bold, 10 &H00404000& &H0080FF80&
Label17	Caption Font ForeColor BackColor	Angka Latin MS Sans Serif, Bold, 10 &H00000080& &H0080FF80&
Label18	Caption Font ForeColor BackColor	Angka Romawi MS Sans Serif, Bold, 10 &H00000080& &H0080FF80&
Label19	Name Caption Font ForeColor BackColor	lbl_terbilang (dikosongkan) Palatino Linotype, Bold, 12 &H00000080& &H0080C0FF&
Line1 s/d Line11	BorderColor BorderWidth	&H00404000& 2
Line12	BorderColor BorderWidth	&H00FF0000& 2
Line13	BorderColor BorderWidth	&H008080FF& 3
Line14	BorderColor BorderWidth	&H008080FF& 3
CommandButton1	Name Caption BackColor	cmd_exit E&xit &H00FFC0FF&

Form1

Name Caption BackColor

frm_latin2romawi Roman Numeral Converter &H0080FF80&

·           Klik menu View  =>  Code, lalu kode program di bawah ini :

Function Latin2Romawi(ByVal n As Currency) As String

Dim Satuan, Puluhan, Ratusan, Ribuan As Variant

Dim R1, R2, R3 As Integer

Satuan = Array("", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX")

Puluhan = Array("", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC")

Ratusan = Array("", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM")

Ribuan = Array("", "M", "MM", "MMM")

Select Case n

    Case 0 To 9

        Latin2Romawi = Satuan(Fix(n))

    Case 10 To 99

        R1 = Fix(n / 10)

        Latin2Romawi = Puluhan(Fix(R1)) + Latin2Romawi(n Mod 10)

    Case 100 To 999

        R2 = Fix(n / 100)

        Latin2Romawi = Ratusan(Fix(R2)) + Latin2Romawi(n Mod 100)

    Case 1000 To 9999

        R3 = Fix(n / 1000)

        Latin2Romawi = Ribuan(Fix(R3)) + Latin2Romawi(n Mod 1000)

End Select

End Function

Private Sub cmd_exit_Click()

End

End Sub

Private Sub Form_Activate()

Me.txt_angka.SetFocus

End Sub

Private Sub txt_angka_Change()

If Me.txt_angka.Text = "" Then

    Me.lbl_terbilang.Caption = ""

ElseIf Me.txt_angka.Text <= 3999 Then

    Me.lbl_terbilang.Caption = Latin2Romawi(Me.txt_angka.Text)

ElseIf Me.txt_angka.Text > 3999 Then

    Me.txt_angka.Text = ""

    MsgBox "Angka tidak boleh melebihi 3.999", vbOKOnly + vbInformation, "Angka Salah"

    Me.lbl_terbilang.Caption = ""

    Me.txt_angka.SetFocus

End If

End Sub

·           Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·           Hasilnya ketika program dijalankan :

 *  Ketika angka yang diketik lebih kecil atau sama dengan ( <= ) 3999, maka angka akan dkonversi  ke dalam angka romawi seperti gambar di bawah ini :

*   Ketika angka yang diketik lebih besar ( > ) dari 3999, maka akan muncul pesan seperti gambar di bawah ini :

Download Program Roman Numeral Converter  disini