visualbasic.net 2005

[janka1]

hola a todos espero que me ayuden con este problema kisiera hacer un pequeño programita en visual basic.net .

el problema es que kiero ingresar (n) numero en un textbox1 puede ser 1,7,10,100 etc. y que al hacer clic en el button1 me devuelva el valor del numero ingresado pero en numeros romanos en el label1 OK

--------------------------muchicimas gracias de antemano--------------------------
----------------------------------------------------------------------------------------------

[sanchy]

vas a la vista de diseño.
doble click al BUTTON1
y escribis:

Dim num As Integer = textbox1.Text
--aca buscas una funcion que te tradusca el "num" a numeros romanos y se lo asignas a una nueva variable "numRomano" que probablemente sea un String--

label1.text = numRomano


y ta... :x no se si era eso lo q pedias... y la funcion googleala alguien la debe haber hecho alguna vez

[Insomnia]

Hola

Hace unos cuantos post creo que realizaste la misma pregunta, a la cual yo respondí. Igual mi respuesta no te funciono o no era lo que necesitabas, pero si yo me tomé la molestia y el tiempo para intentar buscar una solución a TU problema, hubiese agradecido un comentario acerca de la misma.

Hola

En VB 6 puedes hacer algo como esto:

Código:

Private Sub Command1_Click()
Dim rest As Integer
Dim Rom As String
Dim num As Integer

num = Text1.Text \ 10
Select Case num
    Case 10
        Rom = "C"
    Case 9
        Rom = "XC"
    Case 8
        Rom = "LXXX"
    Case 7
        Rom = "LXX"
    Case 6
        Rom = "LX"
    Case 5
        Rom = "L"
    Case 4
        Rom = "XL"
    Case 3
        Rom = "XXX"
    Case 2
        Rom = "XX"
    Case 1
        Rom = "X"
End Select
    

rest = Text1.Text Mod 10
Select Case rest
    Case 9
        Rom = Rom & "IX"
    Case 8
        Rom = Rom & "VIII"
    Case 7
        Rom = Rom & "VII"
    Case 6
        Rom = Rom & "VI"
    Case 5
        Rom = Rom & "V"
    Case 4
        Rom = Rom & "IV"
    Case 3
        Rom = Rom & "III"
    Case 2
        Rom = Rom & "II"
    Case 1
        Rom = Rom & "I"
End Select

MsgBox Rom

        
End Sub

Creo que tiene que ser sencillo adaptarlo a .NET y puede que alguien pueda reducir mas el código.

--Saludos--