Mensajes

[ATENCIÓN]

Tramposo, no sabia que se podian hacer funciones estaticas

Dije al principio que valía todo...

ATENCIÓN : No tiene porque devolver los números del primer post!!!

Aquí dejo la mía:

Código (vb) [Seleccionar] Expandir


Option Explicit
Option Compare Text

Private Declare Function lstrcmpW Lib "kernel32.dll" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long

' -1 > Error
' 1  > Iguales
' 0  > primera palabra
' 2  > segunda palabra
Public Static Function CompareMrFrog(ByRef strWord1$, ByRef strWord2$) As Long
   If LenB(strWord1) = 0 Or LenB(strWord2) = 0 Then
       CompareMrFrog = -1
       Exit Function
   End If
   
   If strWord1 = strWord2 Then
       CompareMrFrog = 1
       Exit Function
   End If
   
   CompareMrFrog = lstrcmpW(StrPtr(strWord1), StrPtr(strWord2)) + 1
End Function

@Karcrack


DoEvents!

 
Mi forma era igual que la tuya!
Te odio, pero me buscaré la vida para hacerlo diferente, quizás no más rapido pero si diferente.
Asi que no testeeis aun...
Por la tarde posteo la parte 2 del reto

Gracias por participar...

DoEvents!

[Parte 1:]

¿Qué pasa? ¿Donde están los retos que caracterizan a  esta sección?
A ver que os parece este:

Parte 1:

Crear una función que compare dos palabras (sin importar mayúsculas) y devuelva:

Código [Seleccionar] Expandir


0 : Error
1 : La 1ª palabra va antes en el abecedario
2 : La 2ª palabra va antes en el abecedario
3 : Ambas palabras son iguales

Ejemplos:

Código [Seleccionar] Expandir


"rana"        - "" -> 0
"hola"        - "holas" -> 1
"bienvenido"  - "bienvenida" -> 2
"Ejemplo"     - "eJempLIficar"  -> 2
"igual"       - "igual"         -> 3
"PALABRA"     - "palabra"       -> 3


Espero haber sido claro... Si hay alguna duda preguntad.
Por supuesto vale todo y el más rápido gana

PD: La Parte 2 la propondré cuando esté la parte 1 finalizada...

DoEvents!

Lee las reglas, no se hacen pedidos ni tareas... -.-

DoEvents!

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Me.BackColor = RGB(195, 195, 195)
End Sub
Usa el paint os imilar para sacar el valor hexadecimal del color y en RGB...
Buscabas eso??

DoEvents!

Gracias, ya lo elimine borrandolo de inicio usando (msconfig) y escanee de nuevo y creo que no tengo nada...

DoEvents!

Eso, una persona que creia que conocia me infecto, sinceramente no me lo esperaba de él, ni sospeche.
El caso esque empezo a manejar mi ordenador a lo lammer : escribirme cosas y tal, desconecté internét, y escaneé todo con el avast y borre todo lo que encontró. Se que el muy memo usa el Poison Ivy porque me paso una captura de pantalla. -.-
http://img42.imageshack.us/img42/6011/dibujozvw.jpg
¿Alguna sugerencia para deshacerme de este bicho? La verdad es que tengo cosas de bastante valor para mi en mi PC.
Tengo Win XP Sp3

Gracias

BlackZeroX, ¿como decirlo sin sonar gay?

Sos un tierno 

Tuve que cambiar algunos comandos AT pero funcionó EXCELENTE 

gay

DoEvents!

http://www.elguille.info/vb/vb_novatos.htm#novato05

DoEvents!

Y porq es q no funciona? Por eso q dice Seba? de q la funcion no soporta caracteres unicode?

Si.

DoEvents!