A linguagem Visual Basic (VB) de programação vem com um bando de funções integradas para fazer cálculos simples, como adição , subtração , multiplicação e divisão de números inteiros. Infelizmente, VB não é muito amigável fração , em que todos os cálculos que envolvem números racionais devem ser feitas manualmente . A melhor maneira de fazer isso é através da criação de sua própria classe de fração e incorporá-lo com uma função que irá inverter frações. Instruções
1
Criar um novo módulo de classe e nomeá-la FractionClass.cls .
2
Definir variáveis para a classe. Estas variáveis serão responsáveis por armazenar os valores do numerador e denominador .
Privada m_Numerator As Long
Privada m_Denominator As Long
3
Inicializar a fração . Isso vai demorar um barbante em forma de A /B e prepará-lo para ser dividido em valores separados. separá-lo , colocando- o em uma m_Numerator eo B em m_Denominator .
Public Sub FromString (ByVal txt As String)
peças Dim () As String
peças = Dividir (txt , "/")
m_Numerator = CLng ( peças (0) )
m_Denominator = CLng ( pedaços (1) )
Simplifique
End Sub
Public Property Get numerador ( ) As Long
Numerador = m_Numerator
End Property
Public Property Let numerador ( valor ByVal As Long )
m_Numerator = valor
Simplifique
End Property
Public Property Get Denominador ( ) As Long
Denominador = m_Denominator
End Property
Public Property Let Denominador ( valor ByVal As Long )
m_Denominator = valor
Simplifique
End Property
4
Separe o a e B a partir da seqüência de a /B para as variáveis m_Numerator e m_Denominator , respectivamente.
Public Sub SetValues ( ByVal numer as Long , ByVal denom Como _
longo )
m_Numerator = numer
m_Denominator = denom
Simplifique
End Sub
5
Criar um Invert function () que terá uma seqüência de a /B e invertê-lo para a recíproca valor B /A.
Função Pública Invert () As Fraction
resultado Dim as New Fraction
resultado . SetValues m_Denominator , m_Numerator
Set Invert = resultar
End Function
6
Acesse a função frações inverter em seu código fonte principal a qualquer momento , utilizando- Invert () com uma string. Tome nota que a variável segurando o texto deverá estar no formulário de dados de comprimento.
