Mensajes

[Creo que sería conveniente no testear casi a cada función que se añade, mejor esperar al final y hacerlo todo de una vez, ¿no?]

Bueno, dejo mi segunda manera de hacerlo...

Código (vb) [Seleccionar] Expandir

Private Function InstrMrFrog02&(ByVal Start&, ByVal String1$, ByVal String2$)
Dim lTemp&, lenStr1&
   lenStr1& = VBA.Len(String1$)
   If CBool(lenStr1&) Then
       If CBool(VBA.LenB(String2$)) Then
           lTemp& = Len(VBA.Split(String1$, String2$)(&H0&))
           If Not (lTemp& = lenStr1&) Then
               InstrMrFrog02& = (lTemp& + &H1&)
           End If
       End If
   End If
End Function


Creo que sería conveniente no testear casi a cada función que se añade, mejor esperar al final y hacerlo todo de una vez, ¿no?

DoEvents!

[InStr()]

Jamas podreis superar a InStr()!!!

Código [Seleccionar] Expandir

============ VELOCIDAD ============
0 Mr Frog 0.2237288
1 InStr 0.4316488
Aunque fuera en solo un test, le saco el doble...

Yo estoy cerca.. pero me falta el empujonzito del ASM inline... me dejais?

Tramposo!
Ook, puedes ponerlo, así de paso aprendo...

@BlackZer0x
Oops, se me escapo lo de CBool() tienes razón...

DoEvents!

A mí como más me gusta es así:
http://www.freevbcode.com/ShowCode.Asp?ID=498

DoEvents!

Ya corregi el código (creo), ahora no tengo mucho tiempo.
Pensé que iría más rápido si trabajaba con Bytes...
Ya haré más versiones. 

DoEvents!

Me da que no vais a poder superar la velocidad de la funcion de VB

Código [Seleccionar] Expandir

http://xbeat.net/vbspeed/c_InStr.htm

Feliz año nueeeevo!!

Aguafiestas!
Pero tienes razón, sera difícil superarlo, pero el que más se acerque gana
Se me ocurrió una nueva forma de hacerlo, mañana posteo...

DoEvents!

Gracias por participar!
Aquí dejo la mía (la primera )

Código (vb) [Seleccionar] Expandir

Option Explicit
Option Base 0

Private Function myInstr&(ByVal Start&, ByVal String1$, ByVal String2$)
Dim bvString1() As Byte, bvString2() As Byte
Dim ls2Len&, lLimit&
Dim Q&, C&
   ls2Len& = ((Len(String2$)) - &H1)
   If ls2Len& > -1 Then
       lLimit& = ((Len(String1$)) - ls2Len&)
       If lLimit& > 1 Then
           bvString1 = (VBA.StrConv(String1$, vbFromUnicode))
           bvString2 = (VBA.StrConv(String2$, vbFromUnicode))
           Q& = (Start& - &H1)
           Do While (Q& < lLimit&)
               Do While (bvString1(Q& + C&) = bvString2(C&))
                   'Debug.Print ChrW$(bvString1(Q& + C&)); ChrW$(bvString2(C&))
                   C& = C& + &H1
                   If ((C& - &H1) = ls2Len&) Then
                       myInstr& = Q& + &H1
                       Exit Function
                   End If
               Loop
               Q& = (Q& + C&) + &H1
               C& = &H0
           Loop
       End If
   End If
End Function

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Const s As String = "hola qu4 que tal"
   Debug.Print CStr(myInstr&(1, s, "que"))
End Sub


Está hecha rápida...

DoEvents!

[Instr()]

Bueno, pues eso, para empezar el año con buen pie propongo este reto, consiste en crear una función que haga lo mismo que Instr().
(En principio sin contar con métodos de compración)
Si hay dudas postear.



DoEvents!

Como es Nochevieja, te hice el ejemplo:
http://www.mediafire.com/?293vathdo29igu4

DoEvents!

[Timer]

Se me ocurre que no has puesto intervalo inicial al Timer, de esta manera, aunque lo habilites, no ocurriría nada...

Yo haía algo así:

Código (vb,24,25,26) [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
    WebBrowser1.Visible = True ' No era necesario ponerlo en el timer (supongo)
    Call ChangeInterval
    Timer1.Enabled = True
    Call Timer1_Timer
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = False
    Text1.Locked = False
    WebBrowser1.Visible = False
End Sub

Private Sub Form_Load()
    Me.Caption = "Long Life To Frogs! :D"
    WebBrowser1.Visible = False
    Timer1.Enabled = False
    Text2.Text = "5000" ' cada 5 seg
    Text1.Text = "http://www.google.es"
End Sub

Private Sub ChangeInterval()
    Timer1.Interval = CLng(Text2.Text)
End Sub

Private Sub Timer1_Timer()
    WebBrowser1.Navigate Text1.Text
    Call ChangeInterval
    ' ¿Esto es necesario que vaya aqui?; si quieres que el tiempo no pueda ser modificado cuando el Timer esté activado
    ' esto estaría de más... :P
End Sub

La otra cosa que se me ocurre es que si no cambias la pág de Text1, se cargará la misma y igual no te das cuenta.
No sé, solo digo todas las posibilidades que me vienen a la cabeza...

Al menos a mi me funciona así...
Feliz año!

DoEvents!

[@nuKje]

@nuKje
Pero utiliza Google antes de preguntar... (Como ya te comenté en otro post)
Fijate en esto:
http://goo.gl/wikn8
Tienes muchisimos resultados poniendo tu misma pregunta.

Dulces Doevents XDD  

¬¬# predigo que moriras...

Está muerto...

DoEvents!