Mayo 23, 2015, 02:46:19 am

Autor Tema: codigo de numeros quebrados????????? en una calculadora  (Leído 2550 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado cesitar1702

  • Me das tu IP?
  • *
  • Mensajes: 15
    • Ver Perfil
codigo de numeros quebrados????????? en una calculadora
« en: Mayo 27, 2007, 08:35:11 pm »
hola; me dejaron un trabajo de una calculadora en v.b y me pidieron un boton q me me convierta a numeros quebrados??????? ayudenmeeeee....si....................byeeeeeeeee

Desconectado DarkKey

  • Me das tu IP?
  • *
  • Mensajes: 15
  • Sexo: Masculino
    • Ver Perfil
Re: codigo de numeros quebrados????????? en una calculadora
« Respuesta #1 en: Mayo 29, 2007, 08:05:33 pm »
Hola, cesitar1702
Checate este codigo, pasa el decimal a fraccion:

Option Explicit

Private Sub Command1_Click()
    Dim Entero As Long, Fraccion As Long
    Dim Divd As Long
   
    'Separamos la parte entera de la fraccionaria
    Entero = Int(Val(Text1))
    Fraccion = Val(Right(Text1, Len(Text1) - InStr(Text1, ".")))
    'Dependiendo de la longitud de Fraccion sabremos si son décimos, centécimos, etc.
    Divd = Sqrt(10, Len(Str(Fraccion)) - 1)
    'Simplificamos la fracción
    Simpl Fraccion, Divd
    'Si Entero es mayor a 0 lo imprime, si no, se omite
    If Entero > 0 Then Text1 = Entero & "-" & Fraccion & "/" & Divd _
    Else Text1 = Fraccion & "/" & Divd
End Sub

Private Function Sqrt(ByVal Num As Long, ByVal Exp As Long) As Long
    Dim n
   
    For n = 0 To Exp - 2
        Num = Num * 10
    Next
    Sqrt = Num
End Function

Private Sub Simpl(Fraccion As Long, Divd As Long)
    Dim Divs As Long
    Dim Min As Boolean
   
    Do While Min = False
        'Si Min = True ya no se puede simplificar más
        Min = True
        For Divs = Fraccion To 2 Step -1
            'Si hay un divisor común, simplificamos
            If Fraccion Mod Divs = 0 And Divd Mod Divs = 0 Then
                Fraccion = Fraccion / Divs
                Divd = Divd / Divs
                'Es posible que la nueva fraccion pueda simplificarse
                Min = False
            End If
            'Despues del primer divisor el segundo es siempre la mitad
            If Divs = Fraccion Then Divs = Divs / 2
        Next
    Loop
End Sub


Espero que te sirva
Nos vemos...
« Última modificación: Mayo 29, 2007, 08:10:30 pm por DarkKey »


Fatal error: Call to undefined function seo_social_bookmarks() in /home/portalh/public_html/Seo.php on line 1528