¿Como convertir numeros a numeros romanos en visual basic.net?

anonymous

alguien me podria ayudar con este programa?

es con dos textbox en el primero yo escribo un numero entero y en el segundo aparecera

el numero en romano.

cat-9

Tienes que implementar la logica tú mismo.

Tienes la base de que

1 es I

2 es II

3 es III

4 es IV

5 es V

6 es VI

7 es VII

8 es VIII

9 es IX

10 es X

20 es XX

30 es XXX (como regla sabes q máximo puedes poner juntas 3 veces la 'X')

40 es XL (esta es una regla,se pone para 40: XL y no un XXXX )

50 es L

90 es XC

100 es C

500, 1000, 5000, etc

A la izquierda se resta del romano mayor (XC es 90, por ejemplo)

A la derecha se suma (CX es 110)

Entonces el número 49 sería:

sabes que 40 es XL, y que 50 es L

pones "XL", y ya llevas 40, te faltan 9

vas a tu tabla y buscas el 9, encontrando que es 'IX'

finalmente XL + IX es 40 + 9 = XLIX

49 -- ?romano

40 = XL

9 = IX

49 = XLIX

miguel-ivan

Yo lo haría de esta forma, lo único que se tendría que escribir mucha linea de código

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim n As String = TextBox1.Text

If TextBox1.Text = "1" Then

TextBox2.Text = "I"

End If

If TextBox1.Text = "2" Then

TextBox2.Text = "II"

End If

If TextBox1.Text = "3" Then

TextBox2.Text = "III"

End If

If TextBox1.Text = "4" Then

TextBox2.Text = "IV"

End If

If TextBox1.Text = "5" Then

TextBox2.Text = "V"

End If

If TextBox1.Text = "6" Then

TextBox2.Text = "VI"

End If

If TextBox1.Text = "7" Then

TextBox2.Text = "VII"

End If

If TextBox1.Text = "8" Then

TextBox2.Text = "VIII"

End If

If TextBox1.Text = "9" Then

TextBox2.Text = "IX"

End If

If TextBox1.Text = "10" Then

TextBox2.Text = "X"

End If

End Sub