Eternal_pain
Anmeldungsdatum: 08.08.2006 Beiträge: 1783 Wohnort: BW/KA
|
Verfasst am: 23.08.2007, 13:58 Titel: Ausführungsgeschwindigkeit bestimmen (Mid) |
|
|
Nach dem sehr lesenswerten Tutorial 'Ausführungsgeschwindigkeit bestimmen' von ytwinky und dem (bekannten) Hinweis der sehr CPU Lastigen Mid[$] Funktion musste ich ein wenig rumspielen
Mit einem (wirklich) kleinen Versuch konnte ich es doch noch schaffen
eine minimal schnellere Moeglichkeit als alternative zu finden
Code: |
#include "Counter.bas"
#include "Counter.bas"
Dim test as String="123.456.789"
Dim erg as uinteger
erg=0
for ccc as integer=0 to 9
Counter_Begin
locate 1,1:?mid(Test,1,3)
Counter_End
erg+=counter_cycles
next ccc
?erg/10
erg=0
for ccc as integer=0 to 9
Counter_Begin
Dim buffer as UByte PTR
Dim x as string
buffer=allocate (3*Len(ubyte))
for l as ubyte=0 to 2
buffer[l]=test[l]
next l
x=*buffer
locate 4,1:?x
deallocate (buffer)
Counter_End
erg+=counter_cycles
next ccc
?erg/10
sleep
|
da geht ganz bestimmt noch mehr raus zu holen _________________
|
|