Visual Basic - DE DECIMAL A FRACCIÓN

Life is soft - evento anual de software empresarial
   
Vista:

DE DECIMAL A FRACCIÓN

Publicado por LUIS (1 intervención) el 29/09/2015 20:42:53
Hola buenas tardes, estoy haciendo una programa sobre sistema de ecuaciones de 2x2 teniendo el siguiente código

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CALCULAR_Click()
Dim A1 As Integer, A2 As Integer, A3 As Integer, B1 As Integer, B2 As Integer, B3 As Integer
Dim x As Double, y As Double, D As Double
 
A1 = Val(Text1): A2 = Val(Text2): A3 = Val(Text5)
B1 = Val(Text3): B2 = Val(Text4): B3 = Val(Text6)
 
 
D = (A1 * B2) - (B1 * A2)
y = ((A1 * B3) - (B1 * A3)) / D
x = ((A3 * B2) - (B3 * A2)) / D
 
Text7 = x
Text8 = y

el problema que tengo que no me acepta fracciones, por ejemplo escribir 2/3 o algo asi.
al mismo tiempo los resultados aparecen en decimal y los quiero tambien en fracción.
necesito ayuda, de antemano gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

DE DECIMAL A FRACCIÓN

Publicado por Facundo (58 intervenciones) el 30/09/2015 00:39:16
Escribite una función que convierta los decimales a fracción y vicerversa.
Para ingresar los datos me parece que vas a tener que ingresar numerador y denominador por separado, a menos que hagas una fina manipulación de la cadena de entrada de datos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leodán

DE DECIMAL A FRACCIÓN

Publicado por Leodán (4 intervenciones) el 30/09/2015 01:15:48
'La declaración de las variables no es la adecuada puedes utilizar "Long" o "Currency" y si los datos son alfanuméricos son de tipo "String"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CALCULAR_Click()
Dim A1 As Integer, A2 As Integer, A3 As Integer, B1 As Integer, B2 As Integer, B3 As Integer
'Dim x As Double, y As Double, D As Double
'
Dim x As Long, y As Long, D As Currency ' Long     Currency    String
 
 
A1 = Val(Text1): A2 = Val(Text2): A3 = Val(Text5)
B1 = Val(Text3): B2 = Val(Text4): B3 = Val(Text6)
 
 
D = (A1 * B2) - (B1 * A2)
y = ((A1 * B3) - (B1 * A3)) / D
x = ((A3 * B2) - (B3 * A2)) / D
 
Text7 = x
Text8 = y
 
End sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar