CONVERTIR DE NÚMEROS ENTERO A NÚMEROS ROMANOS

En este caso vamos a convertir números romanos del 1 al 3999. Utilizamos este rango porque es más fácil de entenderlo, ya que de 4000 en adelante se coloca una línea horizontal por encima del número, para indicar que la base de la multiplicación es por 1.000. Esto no lo vamos a hacer para no crear demasiada confusión.

http://i.imgur.com/kdGub.jpg

Los romanos no utilizaban el cero, ya que su defición era que los números era algo que se podía contar pero el cero no se puede contar.


Para no extendernos muchos repasas este link que te explica la teoría de los números romanos link wiki: http://es.wikipedia.org/wiki/Numeraci%C3%B3n_romana

Vamos al grano.

La idea es crear una matriz o array:


Entero ------>Romano----->Indice
1000--------> M---------->0
900--------> CM---------->1
500---------> D---------->2
400---------> CD---------->3
100---------> C---------->4
90----------> XC---------->5
50----------> L---------->6
40----------> XL---------->7
10----------> X---------->8
9----------> IX---------->9
5----------> V---------->10
4----------> IV---------->11
1----------> I----------->12


Crearemos matriz unidimensional de 13 elementos para los enteros

Dim Entero() As Integer = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1}

matriz unidimensional de 13 elementos para los simbolos romanos

Dim Romano() As String = {"M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}

En indice nos indica que los arreglos comienza a partir del cero en adelante.

En el form tenemos un textbox, lo que escribamos dentro son texto para convertirlo a numero entero utilizaremos la función Val.

numero = Val(TxtNumero.Text)

Como queremos en ese mismo textbox convertir a numero enteros entonce, limpiamos el contenido, no te olvides que el valor ya está guardado en la variable número.

En esta línea verifica si se cumple la condición.

If ((numero >= 1) And (numero < 4000)) Then

En esta parte del codigo:

Código PHP:

---

  While (numero > 0)
                    While (numero >= Entero(indice))
                        TxtNumero.Text = TxtNumero.Text + Romano(indice)
                        numero = numero - Entero(indice)
                    End While
                    indice = indice + 1
              End While 


---

Para entenderlo pongamos un número que es 152:

152>=Entero(0) 152>=1000 NO entonces indice=0+1
152>= Entero(1) 152>=900 NO entonces indice=1+1
152>= Entero(2) 152>=500 NO entonces indice=2+1
152>=Entero(3) 152>=400 NO entonces indice=3+1
152>=Entero(4) 152>=100 SI entonces TxtNumero.Text=””+ ”C” numero=152-100 indice=4+1
52>= Entero(5) 52>=90 NO entonces indice=5+1
52>=Entero(6) 52>=50 SI entonces TxtNumero.Text=”C”+ ”L” numero=52-50 indice=6+1
2>=Entero(7) 2>=40 NO entonces indice=7+1
2>=Entero(8) 2>=10 NO entonces indice=8+1
2>=Entero(9) 2>=9 NO entonces indice=9+1
2>=Entero(10) 2>=5 NO entonces indice=10+1
2>=Entero(11) 2>=4 NO entonces indice=11+1
2>=Entero(12) 2>=1 SI TxtNumero.Text=”CL”+ ”I” numero=2-1
1>=Entero(12) 1>=1 SI TxtNumero.Text=”CLI”+ ”I” numero=1-1

Y finalmente se sale del bucle porque while(numero>0) While(0>0) entonces no cumple la condición y finalmente la variable TxtNumero.Text=”CLII”

En el siguiente está el código completo, no puse comentario para no confundirte. Solamente copia el código y pégalo en tu actual proyecto, ya que los nombres de las variables y los objetos, me base en el código que pusiste en tu mensaje.

Código PHP:

---

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        Me.Close()
    End Sub

    Private Sub BtnConvertir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConvertir.Click
        Try
            Dim numero, indice As Integer
            Dim Entero() As Integer = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1}
            Dim Romano() As String = {"M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}
            numero = Val(TxtNumero.Text)
            indice = 0
            TxtNumero.Text = ""
            If ((numero >= 1) And (numero < 4000)) Then
                While (numero > 0)
                    While (numero >= Entero(indice))
                        TxtNumero.Text = TxtNumero.Text + Romano(indice)
                        numero = numero - Entero(indice)
                    End While
                    indice = indice + 1
                End While
            Else
                MsgBox("Debe digitar numeros enteros de 1 al 3999")
            End If
        Catch ex As Exception
            MsgBox("Debe digitar numeros enteros")
        End Try
    End Sub
End Class 


---

Generando el ejecutable:

http://i.imgur.com/Wo83Q.jpg http://i.imgur.com/viDT9.jpg

NOTA: La etiqueta dice PHP, pero es código de visual Basic .net, ya que no hay etiqueta de Visual Studio.

Mil disculpas si hay errores, es que en mi país ahorita son la 3 de la madrugada, espero haberte ayudado.

Saludos,

Hola Rekker:

Muchas gracias por la edición para entender los while, así creo lo van a entender todo el mundo. Gracias.


Si vas a usar el Cint, hay que controlar los errores, usas la instrucción Try...Catch...End Try

Aquí te muestro el código

Código PHP:

---

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Label1.Text = CInt(TextBox1.Text)
        Catch ex As Exception
            MsgBox("Se ha producido el siguiente error: " + ex.Message, _
                       MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            MsgBox("Debe digitar numeros enteros")
        End Try
    End Sub
End Class 


---

http://i.imgur.com/dNc9f.jpg

Saludos,