Convertir Números Enteros A Romanos En Visual Basic

Páginas: 2 (342 palabras) Publicado: 20 de abril de 2012
para convertir de numero entero a romanos creamos una funcion utilizando seleccion de casos la cual utilizaremos luego dentro del codigo en la zona del button

Public Class Form1
Public FunctionNum2Text(ByVal value As Double) As String

value = Int(value)

Select Case value

Case 1 : Num2Text = "I"

Case 2 : Num2Text = "II"

Case 3 : Num2Text = "III"

Case 4 : Num2Text ="IV"

Case 5 : Num2Text = "V"

Case 6 : Num2Text = "VI"

Case 7 : Num2Text = "VII"

Case 8 : Num2Text = "VIII"

Case 9 : Num2Text = "lX"

Case 10 : Num2Text = "X"

Case 11 :Num2Text = "XI"

Case 12 : Num2Text = "XII"

Case 13 : Num2Text = "XIII"

Case 14 : Num2Text = "XIV"

Case 15 : Num2Text = "XV"

Case Is < 20 : Num2Text = "X" & Num2Text(value - 10)

Case20 : Num2Text = "XX"

Case Is < 30 : Num2Text = "XX" & Num2Text(value - 20)

Case 30 : Num2Text = "XXX"

Case 40 : Num2Text = "XI"

Case 50 : Num2Text = "L"

Case 60 : Num2Text = "LX"Case 70 : Num2Text = "LXX"

Case 80 : Num2Text = "LXXX"

Case 90 : Num2Text = "XC"

Case Is < 100 : Num2Text = Num2Text(Int(value \ 10) * 10) & "" & Num2Text(value Mod 10)

Case 100 :Num2Text = "C"

Case Is < 200 : Num2Text = "C" & Num2Text(value - 100)

Case 200, 300, 400, 600, 800 : Num2Text = Num2Text(Int(value \ 100)) & "C"

Case 500 : Num2Text = "D"

Case 700 :Num2Text = "DCC"

Case 900 : Num2Text = "CM"

Case Is < 1000 : Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)

Case 1000 : Num2Text = "M"

Case Is < 2000 :Num2Text = "M" & Num2Text(value Mod 1000)

Case Is < 1000000 : Num2Text = Num2Text(Int(value \ 1000)) & " M"

If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)



EndSelect



If value = 1 Then

Txtmonl.Text = Num2Text



Else

txtmonl.Text = Num2Text

End If

End Function

'PROGRAMANDO EN LA ZONA DEL BUTTO EN EL EVENTO CLICK

Private...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Números Enteros Séptimo Básico

    ...1. ¿Cuál es la frase que no se relaciona con el número -15? A) Nació el año 15 a.C. B) La temperatura subió 15°C. C) La mínima fue de 15 grados bajo cero. D) Estar 15 metros bajo el nivel del mar. 2. ¿Cuál es la frase incorrecta? A) 3 y -3 son opuestos simétricos. B) Si sumas un negativo con un positivo siempre da negativo. C) La distancia de -4 al 0 es mayor que la del 2 al 0. D) Al sumar dos negativos, siempre da negativo el resultado. 3. Sócrates nació el...

    Leer más
    1050 Palabras 5 Páginas
  • operaciones basica números enteros

    ...GUIA DE EJERCICIOS Operaciones Básicas con Números Enteros 1. Dibuja una recta numérica y ubica en ella, los siguientes números enteros: a) –4 b) 7 c) +2 d) 0 e) –5 (Encierra con un círculo de color azul los enteros positivos y uno de color rojo para los negativos) 2. Determina los siguientes valores absolutos: a) | - 40 | = b) | 18 | = c) | 0 | = d) | + 37 | = e) | - 2 |...

    Leer más
    624 Palabras 3 Páginas
  • Guía numeros enteros séptimo básico

    ...Guía N°3:“Números Enteros” NOMBRE CURSO FECHA ITEM I. En las figuras siguientes marca con un punto de color cada una de las etapas de cada caso. ITEM II. Compara los siguientes números y escribe los signos o =, según corresponda: (1punto c/u) ITEM III. Responde con letra clara y ordenada cada pregunta y en el lugar asignado: • Si el opuesto de un número es –7, ¿cuál es el número? • Si un...

    Leer más
    672 Palabras 3 Páginas
  • Prueba De Números Enteros 8° Básico

    ...identificar números enteros. Analizar y calcular números enteros para ser aplicados en situaciones problemáticas. INSTRUCCIONES: • Lee cuidadosamente las instrucciones y luego contesta o responde. • Deberás dejar escritas las operaciones y no borrarlas si corresponde hacerlo. • Cuida para que sea buen trabajo, ordenado y limpio. I. MARCA LA LETRA DE LA ALTERNATIVA QUE CONSIDERES CORRECTA: 1) Los...

    Leer más
    818 Palabras 4 Páginas
  • Ordenar 3 Numeros En Visual Basica

    ...para ordenar 3 numeros Inserta cuatro cajas de texto, Text1, Text2, Text3, Text4, y un botón, Command1, en tu formulario, Dale doble click al botón, y pega el siguiente código: Private Sub Command1_Click() 'Declaramos Variables Dim Mayor As Integer Dim Mediano As Integer Dim Menor As Integer 'Limpiamos Text4 Text4.Text = "" 'Obtenemos valores de las cajas de texto Mayor = Val(Text1.Text) Mediano = Val(Text2.Text) Menor = Val(Text3.Text) 'Saber que...

    Leer más
    504 Palabras 3 Páginas
  • Funcion Numero A Letra Visual Basic

    ...Public Class NumeroALetra Public Function Negritas(ByVal campo As String) As String Dim formato As String formato = "" & campo & "" Return formato End Function Public Function variables_concepto(ByVal marca As String, ByVal modelo As String, ByVal año As String, ByVal color As String, ByVal nserie As String) As String Dim convierte As New NumeroALetra Dim variables As String Dim mr, md, a, cl, ns As String If...

    Leer más
    993 Palabras 4 Páginas
  • Los numeros enteros

    ...Introduccion En algún momento los números naturales no sirvieron para el cálculo de algunas situaciones, por ejemplo: quedar debiendo 100 bolívares o para el medir las temperaturas bajo cero, fue por eso que nacieron los números enteros, los cuales son una generalización del conjunto de los números naturales, que incluye números negativos. A continuación se presentara una breve historia, de el porque aparecieron, se...

    Leer más
    597 Palabras 3 Páginas
  • Numeros enteros

    ...Numeros enteros Los números enteros son un conjunto de números que incluye a los números naturales distintos de cero (1, 2, 3, ...), los negativos de los números naturales (..., −3, −2, −1) y al cero, 0. Los enteros negativos, como −1 o −3 (se leen «menos uno», «menos tres», etc.), son menores que todos los enteros positivos (1, 2, ...) y que el cero. Para resaltar la...

    Leer más
    1619 Palabras 7 Páginas

OTRAS TAREAS POPULARES

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS