Cómo invertir fracciones en Visual Basic

Escrito por vivek saxena | Traducido por beatriz sánchez
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo invertir fracciones en Visual Basic
(Jupiterimages/Photos.com/Getty Images)

El lenguaje de programación Visual Basic (VB) viene con un grupo de funciones integradas para realizar cálculos sencillos como sumas, restas, multiplicaciones y divisiones de enteros. Desafortunadamente, VB no es muy amigo de las fracciones, por lo que los cálculos que utilizan números racionales deben realizarse manualmente. La mejor forma de hacerlo es crear tu propia clase fracción e incluirla con una función que invertirá las fracciones.

Nivel de dificultad:
Moderadamente difícil

Otras personas están leyendo

Instrucciones

  1. 1

    Crea un nuevo modelo de clase y ponle el nombre FractionClass.cls.

  2. 2

    Define las variables para la clase. Estas variables son las responsables de almacenar los valores del numerador y denominador.

    Private m_Numerator As Long Private m_Denominator As Long

  3. 3

    Inicializa la fracción. Esto tomará una cadena de la forma A/B y la preparará para ser dividida en dos valores separados. Sepárala colocando la A en m_Numerator y la B en m_Denominator.

    Public Sub FromString(ByVal txt As String) Dim pieces() As String pieces = Split(txt, "/") m_Numerator = CLng(pieces(0)) m_Denominator = CLng(pieces(1)) Simplify End Sub

    Public Property Get Numerator() As Long Numerator = m_Numerator End Property

    Public Property Let Numerator(ByVal value As Long) m_Numerator = value Simplify End Property

    Public Property Get Denominator() As Long Denominator = m_Denominator End Property

    Public Property Let Denominator(ByVal value As Long) m_Denominator = value Simplify End Property

  4. 4

    Separa la A y la B de la cadena A/B en las variables m_Numerator y m_Denominator, respectivamente.

    Public Sub SetValues(ByVal numer As Long, ByVal denom As _ Long) m_Numerator = numer m_Denominator = denom Simplify End Sub

  5. 5

    Crea una función Invert() que recibirá una cadena A/B y la invertirá con su valor recíproco B/A.

    Public Function Invert() As Fraction Dim result As New Fraction result.SetValues m_Denominator, m_Numerator Set Invert = result End Function

  6. 6

    Accede a la función de fracciones invertidas desde tu código fuente principal en cualquier momento utilizando Invert() con una cadena. Ten en cuenta que la variable que almacena la cadena debe estar en el formato de datos largo.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles