XProfan

decimals 0
Def QPF(1 )!KERNEL32,QueryPerformanceFrequency   rückgabe als LARGE_INTEGER
Def QPC(1 )!KERNEL32,QueryPerformanceCounter     rückgabe als LARGE_INTEGER
Declare time#
dim time#,8
declare cpu!

proc laint2float

    parameters t&
    declare t#,ta&
    dim t#,8
    declare z!
    ta& = t#   adresse speichern
    t# = t&

    whileloop 8

        z! = z! + byte(t#,&loop-1)*(256 ^ (&loop-1))

    endwhile

    t# = ta&   wieder die alte adresse zuweisen
    dispose t#
    return z!

endproc

if qpf(time#)

    print es gibt einen QueryPerformanceCounter
    cpu! = laint2float(time#)

else

    print es gibt keinen QueryPerformanceCounter !
    waitinput
    end

endif

print HiPerfFreq.: ,cpu!

WhileLoop 20

    qpc(time#)
    AddString str$(laint2float(time#))+  wert in ms: +str$(laint2float(time#)/cpu!*1000)

Wend

ListBox$(QueryPerformanceCounter,2)

 {$cleq}
Declare listbox&
AsmInclude
.data
lbox    dd  0
astring db                                                                        ,0
.code
TimerProc proc hWnd:DWORD, uMsg:DWORD, idEvent:DWORD, dwTime:DWORD
invoke dwtoa,dwTime,addr astring
invoke SendMessage,lbox,LB_ADDSTRING,0,addr astring
ret
TimerProc endp

AsmEnd

Windowtitle Speed-Test
Cls
Usefont MS Sans Serif,10,0,0,0,0
SetDialogFont 1
listbox&=CREATE(LISTBOX,%HWND,,8,8,480,400)

AsmStart StartTimer(%hwnd,listbox&)

m2m lbox,para2
lea edx,TimerProc
invoke SetTimer,para1,64,1,edx

AsmEnd

While 1

waitinput
Case %key=2:BREAK

EndWhile

DestroyWindow(%hwnd)
End