Mensajes

Pues entonces me da la sensación de que planteas mal el reto... Si lo que quieres es que las ordene siguiendo el orden de cada carácter en la Tabla Ascii esta mal planteado.
Tu pides alfabeticamente... Y el alfabeto no contempla el espacio... luego lógicamente debería ser situado después de todas las letras del alfabeto...

Código [Seleccionar] Expandir

http://es.wikipedia.org/wiki/Alfabeto_latino

Aún así StrComp() compara según el Ascii Code... así que teóricamente mi función ha de seguir tus directrices...

[StrComp()]

VB NO te apoya... StrComp()

Tu función devuelve un resultado erróneo aquí:

Código [Seleccionar] Expandir

   Debug.Print kCompare("feo", "    ")
Debería devolver la segunda y devuelve la primera...

Ummm... En abecedario el [espacio] no esta incluido, asi que "feo" va antes que " feo"...

Pues si van debuggeando instruccion por instruccion hasta encontrar la llamada a DllFuncionCall() con "KERNEL32" y "GetStartupInfoW"... Pueden parchear la comparacion y devolver False.. pero para ello deben saber que STARTUPINFO.dwFlags tiene un flag distinto dentro de OllyDbg...

Código (vb) [Seleccionar] Expandir

Option Explicit
'KERNEL32
Private Declare Sub GetStartupInfoW Lib "KERNEL32" (ByRef lpStartupInfo As Any)

'---------------------------------------------------------------------------------------
' Procedure : IsOdbg
' Author    : Karcrack
' Date      : 12/03/2011
' TestedOn  : OllyDbg 1.1 & OllyDbg 2.0.1(Alpha)
' Purpose   : Detect whether we are running inside OllyDbg or not.
'---------------------------------------------------------------------------------------
'
Public Function IsOdbg() As Boolean
    Dim bvStartupInfo(0 To 16)  As Long
    Call GetStartupInfoW(bvStartupInfo(0))
    IsOdbg = (bvStartupInfo(11) And &H80)
End Function

[TRAMPOOOOOOOOSOOOOOO!!]

TRAMPOOOOOOOOSOOOOOO!!
Anda que modificar las normas a tu gusto... ya te vale

Todas las ecuaciones tienen una forma canónica... tu en tu programa debes requerir que asi vengan... a no ser que quieras hacer un Derive en VB

[@raul338:]

@raul338:Lo que hace esa linea If (Not Not b) = False Then es comprobar si el array ha sido rellenado... si no lo rellenará... No lo hago ni con un Choose() ni rellenando siempre el array por cuestión de velocidad.

[@79137913:]

@79137913:Reparado, habia un problema con la comprobación de tamaños

[PROBLEM?]

PROBLEM?

PD: Quien haga las pruebas de velocidad que sea bondadoso y desactive la comprobacion de tamaño del buffer y esas cositas para que todo sea mas rapido y divertido