Para extremistas!¡.

QueryPerformanceCounter

Edito:

Proyecto gral!¡. 

Dulces Lunas!¡.

Oye BlackZerox:

Gracias por el proyecto general. Te voy a molestar con una pregunta:

El módulo que contiene las funciones del timer, si yo no lo tuviera, ¿Tengo que crearlo, o ya hay una librería o algo así?

       Por tu atención, gracias.

Para quien le interese la funcion Sqr en ASM (es el punto critico ahora)

http://www.azillionmonkeys.com/qed/sqroot.html

@Tokes

en el mismo .Zip esta el archivo CTiming.cls, ya esta el proyecto completo!¡.

Dulces Lunas!¡.

[OffTopic]
estuve queriendo probar las diferencias de velocidades entre el IF, SELECT CASE, IF inline etc.
la cuestion es que vi que las funciones que se llaman primero tiene cierta ventaja con respecto a las otras, esto mismo pasa cuando queremos comparar las funciones que estamos haciendo. Es correcto esto que digo?¿?¿

esto es lo que hice
si alteran el orden de las llamadas hay ciertos cambios.

Option Explicit
 
Private CTiming As CTiming
 
 
Private Sub Form_Load()
    Dim i As Long, j As Long
    Dim ValTest As Long
 
    Set CTiming = New CTiming
 
    Me.AutoRedraw = True
 
    Me.Print "Test de velocidad" & vbCrLf
 
    ValTest = 5000000
 
    CTiming.Reset
 
    For i = 0 To ValTest
        For j = 1 To 4
            Prueba1 j
        Next
    Next
 
    Me.Print "Prueba1 " & CTiming.sElapsed
 
    CTiming.Reset
 
    For i = 0 To ValTest
        For j = 1 To 4
            Prueba2 j
        Next
    Next
 
    Me.Print "Prueba2 " & CTiming.sElapsed
 
    CTiming.Reset
 
    For i = 0 To ValTest
        For j = 1 To 4
            Prueba3 j
        Next
    Next
 
    Me.Print "Prueba3 " & CTiming.sElapsed
 
    CTiming.Reset
 
    For i = 0 To ValTest
        For j = 1 To 4
            Prueba4 j
        Next
    Next
 
    Me.Print "Prueba4 " & CTiming.sElapsed
 
    CTiming.Reset
 
    For i = 0 To ValTest
        For j = 1 To 4
            Prueba5 j
        Next
    Next
 
    Me.Print "Prueba5 " & CTiming.sElapsed
 
    CTiming.Reset
 
    For i = 0 To ValTest
        For j = 1 To 4
            Prueba6 j
        Next
    Next
 
    Me.Print "Prueba6 " & CTiming.sElapsed
 
    CTiming.Reset
 
    For i = 0 To ValTest
        For j = 1 To 4
            Prueba7 j
        Next
    Next
 
    Me.Print "Prueba7 " & CTiming.sElapsed
 
End Sub
 
 
 
Private Function Prueba1(ByVal num As Long) As Long
    Select Case num
        Case 1
            Prueba1 = 1
        Case 2
            Prueba1 = 2
        Case 3
            Prueba1 = 3
        Case Else
            Prueba1 = -1
    End Select
End Function
 
 
Private Function Prueba2(ByVal num As Long) As Long
    If num = 1 Then Prueba2 = 1 Else If num = 2 Then Prueba2 = 2 Else If num = 3 Then Prueba2 = 3 Else Prueba2 = -1
End Function
 
 
Private Function Prueba3(ByVal num As Long) As Long
 
    If num = 1 Then
        Prueba3 = 1
        Exit Function
    End If
 
    If num = 2 Then
        Prueba3 = 2
        Exit Function
    End If
 
    If num = 3 Then
        Prueba3 = 3
        Exit Function
    End If
 
    Prueba3 = -1
 
End Function
 
Private Function Prueba4(ByVal num As Long) As Long
 
    If num = 1 Then
        Prueba4 = 1
    Else
        If num = 2 Then
            Prueba4 = 2
        Else
            If num = 3 Then
                Prueba4 = 3
            Else
                Prueba4 = -1
            End If
        End If
    End If
 
End Function
 
Private Function Prueba5(ByVal num As Long) As Long
 
    If num = 1 Then
            Prueba5 = 1
        ElseIf num = 2 Then
                Prueba5 = 2
            ElseIf num = 3 Then
                    Prueba5 = 3
                Else
                    Prueba5 = -1
                End If
 
 
End Function
 
 
Private Function Prueba6(ByVal num As Long) As Long
    Prueba6 = IIf(num = 1, 1, IIf(num = 2, 2, IIf(num = 3, 3, -1)))
End Function
 
Private Function Prueba7(ByVal num As Long) As Long
    If num = 1 Then Prueba7 = 1: Exit Function
    If num = 2 Then Prueba7 = 2: Exit Function
    If num = 3 Then Prueba7 = 3: Exit Function
    Prueba7 = -1
End Function
 

Sabes que yo estaba sospechando lo mismo? Cambio el orden de las llamadas, espero un buen rato (2 min ) sin ejecutar nada y vuelvo a hacer las pruebas y ...... cambian los resultados (aunque se mantiene una "pequeña" proporcion)

Aun asi, no es "para tanto". Lo que me parece raro, es que yo copie la funcion de tokes, le cambie de nombre a las variables.... y? .... 2ms mas lento no se si sera mi cpu o que...