Tecnología

Inicio

Cómo invertir fracciones en Visual Basic

September 25

El Basic (VB) lenguaje de programación Visual viene con un grupo de funciones integradas para realizar cálculos simples como la suma, resta, multiplicación y división de números enteros. Por desgracia, VB no es demasiado fracción amable, en que todos los cálculos que implican números racionales deben hacerse manualmente. La mejor manera de hacerlo es mediante la creación de su propia clase de fracción y la incrustación con una función que va a invertir fracciones.

Instrucciones

1 Crear un nuevo módulo de clase y el nombre de FractionClass.cls.

2 Definir variables para la clase. Estas variables serán responsables de almacenar los valores de numerador y denominador.

m_Numerator privada como de largo

m_Denominator privada como de largo

3 Inicializar la fracción. Esto tomará una cadena en forma de A / B y prepararla para dividir en valores independientes. separarlo poniendo la A en m_Numerator y el B en m_Denominator.

Public Sub fromstring (ByVal como secuencia txt)

piezas Dim () como secuencia

pieces = Split(txt, "/")

m_Numerator = CLng (piezas (0))

m_Denominator = CLng (piezas (1))

Simplificar

End Sub

Propiedad pública Obtener Numerador () As Long

Numerator = m_Numerator

fin de la propiedad

Public Property Let Numerador (ByVal valor As Long)

m_Numerator = value

Simplificar

fin de la propiedad

Propiedad pública Obtener Denominador () As Long

Denominator = m_Denominator

fin de la propiedad

Public Property Let Denominador (ByVal valor As Long)

m_Denominator = value

Simplificar

fin de la propiedad

4 Se separa la A y B de la cadena A / B en las variables m_Numerator y m_Denominator, respectivamente.

SetValues ​​Sub públicos (numer ByVal As Long, ByVal _ Como DENOM

Long)

m_Numerator = numer

m_Denominator = denom

Simplificar

End Sub

5 Crear una función Invertir () que se llevará a una cadena A / B y se invierte en el recíproco valor de B / A.

Invertir Función Pública () Como Fracción

Como resultado tenue Nueva Fracción

result.SetValues m_Denominator, m_Numerator

Conjunto Invertir resultado =

End Function

6 Acceder a la función fracciones inversas a partir del código fuente principal en cualquier momento mediante su uso Invertir () con una cadena. Tome nota de que la variable que contiene la cadena debe ser en forma de datos de longitud.