19 Septiembre 2014, 01:44:39 am

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

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

Desconectado cesitar1702

  • Me das tu IP?
  • *
  • Mensajes: 15
  • Puntos: +0/-0
    • Ver Perfil
codigo de numeros quebrados????????? en una calculadora
« en: 28 Mayo 2007, 02: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

Desconectado DarkKey

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


  Asunto / Iniciado por Respuestas / Vistas Último mensaje
exclamation
Calculadora para Sumar numeros con Decimales

Iniciado por hanlly

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

Iniciado por Mr.Lerzep

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

Iniciado por Jh0ubrt

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

Iniciado por Sthefano02

1 Respuestas
1357 Vistas
Último mensaje 10 Julio 2010, 12:15:57 am
por .:WindHack:.®
xx
Codigo de STAR nose cuanto (Mejorado con numeros)

Iniciado por [N]E[Z]

6 Respuestas
627 Vistas
Último mensaje 29 Abril 2009, 07:18:07 pm
por [N]E[Z]
exclamation
[Código-Haskell]Números Pares & Impares - JaAViEr

Iniciado por JaAViEr

7 Respuestas
1802 Vistas
Último mensaje 17 Julio 2011, 06:19:55 am
por JaAViEr
exclamation
[Código]Calculadora PHP - JaAViEr

Iniciado por JaAViEr

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

Iniciado por B$DB!T

11 Respuestas
2716 Vistas
Último mensaje 02 Agosto 2010, 09:24:48 am
por B$DB!T