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

Comments

• cat-9

  May 2021

  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

  May 2021

  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