Mensajes

Una pregunta, de donde se puede sacar el logo (aparte de la pagina principal)? 


xD, no se si participar, se photoshop, pero no soy muuuy creativo xD

Ok Azielito, esta bien  , pero que opinan del trabajo que hice. Lo hice bien o le falta algo.    Entonces preparare uno para setiembre. 

Saludos...

Impresionante, solo que es muuy grande xD xD

Si es verdad que los estandares actuales son mejor de lo que podramos hacer, aunque nunca esta demas inventarse su propio algoritmo para ver como fue evolucionando xD, o simple diversion jajaja xD; puede que iventes el MD6 x ejemplo haciendo esto xD xD jajajaj

Hadess_inf, creo que entendiste mal, creo que lo que el quiere es refrescar un webrowser cada 10 segundos 

Pones un timer a la aplicacion, con intervalo de 10000 (son milisegundos), y en el boton pones

Código (vbnet) [Seleccionar] Expandir

Timer1.Enabled = True
Timer1.Start()

En el timer, en el evento Tick pones

Código (vbnet) [Seleccionar] Expandir

Webrowser1.Refresh()

Espero que te sirva!

VB6 es bueno como dice Karcrack, creo que nunca quedara obsoleto.

VB6 y VB.NET son lenguajes muy distintos, pero se pueden hacer las mismas cosas literalmente, solo que el modo de hacerlas a veces es muuy distinto (ejemplo, array de controles)

Yo decidi usar .net (pero en su version 2.0, o a lo sumo en la 1.1) no me importa el hecho de que "dependa" del framework, porque hoy en dia todo windows (con actualizaciones automaticas, o vista en adelante) ya tiene instalado el framework, es como decir que vb6 depende de windows

Decidi usarlo, no porque "sea el futuro" o "es mas facil", por que es el que mejor me parecio que es. Y tu deberias decidir por lo mismo

En vb puedes usar DirectX 8 (si xD, hagan referencia a d3d8.dll que esta en system32 y veran xD)

Aqui tienes ejemplos del sdk mismo http://idam.ladei.org.ar/descargas.php (fijate al final, el anteultimo item)

No digan que es viejo el 8, la ventaja es que en windows xp no necesitas instalador (xq viene instalado de una xD), si usas el sdk directx 9 tienes que mandarlo con un instalador de no menos 80 mb (no se consigue el sdk puro, sino que es alguna actualizacion grosa)....con tu ejecutable que cuanto puede pesar: 1, 2 megas?? 5 con todos los recursos incluidos xD

[No esta totalmente testeado, es MUY posible que encuentre algun error jeje, sigo trabajando en esta calcu]

  Lo Logre!!!  

Costo un poco.... lo hice ayer (domingo a la tarde jeje) y tenia un problema con los numeros negativos que hoy ya resolvi....aunque no he probado todo tipo de operaciones xD. Eso si....solo soporta los siguentes operadores: + * - / ( )
No soprota potenciación, ahora intentare agregarle esa funcion jeje
Como funciona?? (rapidamente explicado) Divide en terminos, si el termino es numerico suma o resta, si es una multiplicacion o division y/o con parentesis se analiza otra vez (usando recursividad).
No esta totalmente testeado, es MUY posible que encuentre algun error jeje, sigo trabajando en esta calcu

Como usarlo?? Simple, llaman a Eval("5+3*9") por ejemplo y esta le retorna un valor double (en caso de que haya decimales)....


que no se diga mas..aca el codigo  

Código (vbnet) [Seleccionar] Expandir

Imports System.Text.RegularExpressions

Module Module1

    Sub Main()
        Dim opcion As String = ""
        Console.WriteLine("Ingrese una operacion combinada o 'end' para salir")

        Do
            opcion = Console.ReadLine()

            If opcion = "end" Then Exit Do

            Try
                Console.WriteLine("Resultado: " & Eval(opcion).ToString("N"))
            Catch ex As Exception
                Console.ForegroundColor = ConsoleColor.White
                Console.WriteLine("Error: " & ex.Message)
                Console.ForegroundColor = ConsoleColor.Gray
            End Try
        Loop
    End Sub

    Public Function Eval(ByVal operacion As String) As Double
        Dim resp As Double = 0D
        Dim temp As Double = 0D

        operacion = operacion.Replace(" ", "")
        operacion = operacion.Replace(".", ",")

        Dim RegexObj As New Regex( _
            "(?<Termino>[+\-]?  (?: \d [\d,*/]* | \( [\d,+\-*/]* \) (?: [*/] \d | [*/] \( [\d,+\-*/]* \) )* ) )", _
            RegexOptions.IgnorePatternWhitespace)
        If RegexObj.IsMatch(operacion) Then
            Dim MatchResults As MatchCollection = RegexObj.Matches(operacion)
            Dim MatchResult As Match = MatchResults(0)
            Dim termino As String
            For i As Int32 = 0 To MatchResults.Count - 1
                termino = MatchResult.Groups("Termino").Value
                If IsNumeric(termino) Then
                    temp = Double.Parse(termino)
                Else
                    ' No podemos pasarle +(5+5)*2 porque lo tomaria como termino y entraria en un bucle infinito
                    ' asi que le extraemos el signo, por defecto le ponemos como positivo y despues le volvemos al
                    ' signo que debe tener
                    Dim signo As Integer = 1

                    If termino.Substring(0, 1) = "-" Then
                        signo = -1
                        termino = termino.Substring(1)
                    ElseIf termino.Substring(0, 1) = "+" Then
                        signo = 1
                        termino = termino.Substring(1)
                    End If
                    temp = ResolverTermino(termino)

                    temp *= signo ' Multiplicamos por -1 para cambiar el signo, por 1 para mantenerlo igual
                End If

                resp += temp
                MatchResult = MatchResult.NextMatch()
            Next

            Return resp
        Else
            Throw New Exception("La operacion no pudo ser reconocida")
        End If
    End Function

    Function ResolverTermino(ByVal Termino As String) As Double
        Dim resp As Double = 0D
        Dim temp As Double = 0D

        Dim RegexObj As New Regex("(?<Termino> [\+\-]?\( .* \) | [\*\/] \d*\,?\d* | [\+\-]? \d*\,?\d* )", RegexOptions.IgnorePatternWhitespace)

        If RegexObj.IsMatch(Termino) Then

            Dim MatchResults As MatchCollection = RegexObj.Matches(Termino)
            Dim MatchResult As Match = MatchResults(0)
            Dim subTermino As String
            For I As Int32 = 0 To MatchResults.Count - 2
                subTermino = MatchResult.Groups("Termino").Value
                If IsNumeric(subTermino) Then
                    resp = Double.Parse(subTermino)
                Else
                    Select Case subTermino.Substring(0, 1)
                        Case "*"
                            temp = Double.Parse(subTermino.Substring(1))
                            resp *= temp
                        Case "/"
                            temp = Double.Parse(subTermino.Substring(1))
                            resp /= temp
                        Case Else
                            resp = Eval(Regex.Match(subTermino, "\((?<Operacion>.*)\)").Groups("Operacion").Value)
                    End Select
                End If
                MatchResult = MatchResult.NextMatch
            Next
            Return resp
        Else
            Throw New Exception("Parte de la operacion no pudo ser reconocida")
        End If
    End Function
End Module

Esta en vb.net.....pero es facilmente convertible, cuando este bien terminado y sin bugs (por ejemplo, ahora no se puede poner "((1+2)*3)*4)" porque lo rompes jajaja) lo convertire a C# con mis propias manos xD

Cualquier ayuda se agradece  

EDIT: Arreglado el tema de los espacios, y el punto (que es una coma en realidad)

y si en lugar de declararla como variable, la modificas directamente desde el array

Código (vbnet) [Seleccionar] Expandir

InfoClienteActual = Clientes(IDReal)
        With InfoClienteActual
             ....
        End with

por

Código (vbnet) [Seleccionar] Expandir


        With Clientes(IDReal)
             ....
        End with

1º Si es visaul studio 2008, estas programando en .net (asi que algun moderador mueva esto)

2º estas guardando, pero no estas diciendo que cambie los valores por los que hay en los textbox. No te puedo ofrecer codigo porque no se los nombres de los controles que tienes (y no me acuerdo mucho como se usaban, yo me voy mas por codigo  , haria un simple update por sql y listo)

una pregunta (tal vez sea tonta jeje), la dll que estas injectando, no deberia reemplazar a otra que use el programa para que asi pueda llamara???
Porque yo creo (corrijanme si estoy equivocado) que es el mismo programa que llame la dll (de ahi que tome el control), no que la dll se llame de la nada y de ahi mismo controle el programa.

Me parece a mi, tal vez estoy en lo correcto como puedo haber mandado cualquier fruta jejeje