TEO
15 de Junio del 2006

como puedo hacer un programa en bisual basic que al ingresar un numero entero me de como resultado en romanos...

acemel
15 de Junio del 2006

Option Explicit
Dim Numero As Integer
Dim Romanos As String
Dim Resto As String
Dim n, i As Integer
Dim Caracter, CaracterS As String


Private Sub Command1_Click()
Romanos = ""
Numero = Text1.Text

n = Numero 1000
Numero = Numero - 1000 * n
Caracter = "M"
If n > 3 Then
Romanos = Romanos + "("
Romanos = Romanos + Trim(Str(n))
Romanos = Romanos + ")M"
ElseIf n <> 0 Then Call AñadirRomano
End If

n = Numero 500
Numero = Numero - 500 * n
Caracter = "D"
If n <> 0 Then Call AñadirRomano

n = Numero 100
Numero = Numero - 100 * n
Caracter = "C"
CaracterS = "D"
If n <> 0 Then Call AñadirRomano

n = Numero 50
Numero = Numero - 50 * n
Caracter = "L"
If n <> 0 Then Call AñadirRomano

n = Numero 10
Numero = Numero - 10 * n
Caracter = "X"
CaracterS = "L"
If n <> 0 Then Call AñadirRomano

Resto = Numero Mod 5
n = Numero 5
Caracter = "V"
If n <> 0 Then Call AñadirRomano
n = Resto
Caracter = "I"
CaracterS = "V"
If n <> 0 Then Call AñadirRomano

Text2.Text = Romanos
End Sub

Private Sub AñadirRomano()
If n = 4 Then
Romanos = Romanos + Caracter
Romanos = Romanos + CaracterS
Else
For i = 1 To n
Romanos = Romanos + Caracter
Next
End If
End Sub