Mensajes

Creo que podrian ser una pareja guia; abrir un foro para problemas de la vida diaria, y creo que seria exitoso

y tu de donde piensas que el-brujo sacaria suficiente dinero para pagarle a cada mod? (tampoco hace magia con e dinero)
si ni siquiera la pagina tiene publicidad (aunq si ha tenido, pero poca, muy poca)...
acaso tu pagas para que te resuelvan tus dudas?, aqui la gente apoya porque tiene ganas de apoyar
y ganas de enseñar como de aprender; saludos

bueno lo logre usando el cerficiado Halmer... y su pack HQhalmer...

Quiero firmar una aplicacion mobil para que no me este pidiendo a cada segundo un mensaje de confirmacion... dado que lee archivos de sistema, entonces es un fastidio estar aceptando a cada rato el mensajito..
eh visto las aplicaciones que vino inicialmente y estan firmadas con este certificado: X.509; quisiera saber si alguien sabe como hacerlo...

GRACIAS

a mi me gustaria saber como le hiciste para el unhook a las apis, he tenido curiosidad de lograrlo; te mande un privado...

Bueno, te pongo el codigo aqui (lo acabo de hacer); la explicacion del algoritmo usada esta arriba, falta mejorar, ya haslo tu...:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
Dim Numero As Double
Dim Fraccion As String

Numero = 123.135
Fraccion = cFraccion(Numero) 'Obtiene la fraccion sin simplificar
MsgBox "La fracion de " & Numero & " es " & Simplificar(Fraccion) 'Simplifica la Fracion

End


End Sub

Function cFraccion(Rac As Double) 'Rac: Racional
    Dim sRac As String 'la cadena que contiene a Rac
    Dim Num As Long 'Numerador
    Dim Den As Long 'Denominador
    Dim nDec As Integer
    sRac = Str(Rac) 'Convierte en cadena
    nDec = 0 'cifras decinamales a cero por defecto
   
    If InStr(1, sRac, ".") <> 0 Then 'Observa si tiene el punto decimal
    nDec = Len(Mid(sRac, InStr(1, sRac, ".") + 1)) 'Cuenta el Numero de Decimales
    End If


    Num = Rac * Potencia(10, nDec)
    Den = Potencia(10, nDec)
   
    cFraccion = Num & "/" & Den
   

End Function
Function Simplificar(ByVal Fraccion As String)

Dim Aux, A, B As Long
Dim Den, Num As Long
Dim MCD As Integer

'Recorta y obtiene el Numerador y Denominador
Num = Val(Mid(Fraccion, 1, InStr(1, Fraccion, "/") - 1))
Den = Val(Mid(Fraccion, InStr(1, Fraccion, "/") + 1))
A = Num
B = Den
If Num = 0 Or Den = 0 Then Simplificar = "0": Exit Function

'#############   Busca el Maximo Comun Divisor - Algoritmo de euclides para hacerlo...
    While (B <> 0)
        Aux = A Mod B
        A = B
        B = Aux
    Wend
'############

MCD = A 'Asigna el Valor del Maximo C. D
Simplificar = Num / MCD & "/" & Den / MCD  'Divide el Num y Den por el MCD, y lo convierte en cadena


End Function

Function Potencia(ByVal n As Integer, ByVal A As Integer)
'haya la potencia de un numero: "n" elevado a la "a"
Potencia = n
    For i = 1 To A - 1
        Potencia = Potencia * n
    Next i
   
End Function


Lo que hace es por ejemplo: 123.135
saca el Numerador: 123135 y Denominador: 1000
ahora ese resultado lo simplifica y lo muestra...


alguna duda?

mira primero tienes que convertir el numero a una cadena y determinar la cantidad de cifras decimales; para luego multiplicar el numero por dicha cantidad de cifras decimales; entonces obtendrias el mismo numero multiplicado por un 1 * #cifras decimales (llamaremos "N" a este numero; ahora tienes que tener otra variable para almacenar dicha cantidad; es obvio que si divides el numerador (el numero multiplicado por  N; llamamos...) entre el numero N (ya que dara el mismo numero, pues es lo correcto).
Ahora lo que te falta es tener una funcion que simplifique; esto lo consiges obteniendo el maximo comun divisor entre dichos numeros y dividiendolos las veces que sea necesarias hasta que no tengan mas divisores comunes... entonces tendras el numero en fraccion simplificado...

Recuerdo que pense en esta forma para hacer una calculadora que sume fraciones en JAVA (es mas facil si conoces los conceptos de objetos y clases, pues ....)

Saludos; si tienes dudas posteas (no te lo puse re-contra explicado, para que te des el trabajo de poder hacerlo... y no dartelo todo facil...)

hubo otro error cuando se presionaba el botom "marcar todos como no leidos"
(todos los mensajes) ... y daba error; pero a unos dias se soluciono (supongoq ue el brujo estaba actualizando)

los que tengan mas de mil mensajes colaborando en el foro tambien deberian recibir una

esperaa... las fotos del tio en calzones no es Azieliitoo?? hasta se ha tomado el trabajo de tomarse footoooos, jajajajaja (por la primera foto lo dudo, por la segunda si creo)