Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: erick185 en 9 Mayo 2006, 06:23 am

Título: simplificar dos numeros
Publicado por: erick185 en 9 Mayo 2006, 06:23 am

Hola:

Necesito ayuda, como puedo poner, por ej: en dos textbox los 2000 y 600 y que me le pase a dos label a 10 y 3 (osea simplificado).

Muchisima gracias

Salu2

Título: Re: simplificar dos numeros
Publicado por: Ironhorse en 9 Mayo 2006, 20:25 pm

Primero deberias pensar en un algoritmo y despues pasarlo a codigo. Podria ser comprobando si los dos numeros son divisibles por un numero, por ejemplo por 2, si son divisibles, hacer la division y seguir haciendo la comprobacion hasta que no sean divisibles, luego ir incrementando el divisor (2) y hacer el procedimiento anterior. El divisor lo iras incrementando mientras que sea menor o igual al menor de los dos numeros(numerador y denominador).

Saludos

Título: Re: simplificar dos numeros
Publicado por: Ironhorse en 9 Mayo 2006, 20:46 pm

Al final lo terminé haciendo:

Código:

Private Sub Simplificar(ByRef Numerador As Long, ByRef Denominador As Long)
Dim Divisor As Long
  Divisor = 2
  Do While (Divisor <= Numerador) And (Divisor <= Denominador)
    If (Numerador Mod Divisor = 0) And (Denominador Mod Divisor = 0) Then
      Numerador = Numerador / Divisor
      Denominador = Denominador / Divisor
    Else
      Divisor = Divisor + 1
    End If
  Loop
End Sub