Octubre 25, 2014, 11:05:59 pm

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

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

cesitar1702

  • Me das tu IP?
  • *
  • Mensajes: 15
    • Ver Perfil
codigo de numeros quebrados????????? en una calculadora
« en: Mayo 28, 2007, 03:35:11 am »
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

DarkKey

  • Me das tu IP?
  • *
  • Mensajes: 15
  • Sexo: Masculino
    • Ver Perfil
Re: codigo de numeros quebrados????????? en una calculadora
« Respuesta #1 en: Mayo 30, 2007, 03:05:33 am »
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 30, 2007, 03:10:30 am por DarkKey »


exclamation
Calculadora para Sumar numeros con Decimales

Iniciado por hanlly

10 Respuestas
3069 Vistas
Último mensaje Octubre 20, 2010, 06:30:31 pm
por Kracker51
exclamation
[Código PHP] Aumentando numeros.

Iniciado por Mr.Lerzep

2 Respuestas
369 Vistas
Último mensaje Septiembre 26, 2011, 05:25:20 am
por JaAViEr
xx
[Código-C++]Ordenando x numeros - Jh0uBrt

Iniciado por Jh0ubrt

0 Respuestas
500 Vistas
Último mensaje Mayo 20, 2011, 02:08:58 am
por Jh0ubrt
exclamation
[Código] Retorna numeros Pares/Impares

Iniciado por Sthefano02

1 Respuestas
1367 Vistas
Último mensaje Julio 10, 2010, 01:15:57 am
por .:WindHack:.®
exclamation
[Código-Haskell]Números Pares & Impares - JaAViEr

Iniciado por JaAViEr

7 Respuestas
1843 Vistas
Último mensaje Julio 17, 2011, 07:19:55 am
por JaAViEr
xx
Codigo de STAR nose cuanto (Mejorado con numeros)

Iniciado por [N]E[Z]

6 Respuestas
634 Vistas
Último mensaje Abril 29, 2009, 08:18:07 pm
por [N]E[Z]
exclamation
[Código] Calculadora - Sthefano02

Iniciado por Sthefano02

0 Respuestas
948 Vistas
Último mensaje Julio 13, 2010, 03:52:57 am
por Sthefano02
exclamation
[Código]Calculadora PHP - JaAViEr

Iniciado por JaAViEr

0 Respuestas
965 Vistas
Último mensaje Octubre 03, 2010, 03:51:34 am
por JaAViEr
exclamation
[Código] Calculadora de secuencias

Iniciado por B$DB!T

11 Respuestas
2759 Vistas
Último mensaje Agosto 02, 2010, 10:24:48 am
por B$DB!T
exclamation
[CODIGO en Javascript]Calculadora web, =)

Iniciado por myguestp

13 Respuestas
3711 Vistas
Último mensaje Diciembre 21, 2012, 07:18:05 pm
por M4inFox