1 second in RB2006r2 on a G5 Dual 2Gh
------
ListBox1.Open event
dim ind as integer
dim ris as double
ris = Microseconds
for ind = 1 to 100000
ListBox1.addrow format(microseconds, "0000000000")
next
StaticText1.Text = format ( ( ( Microseconds - ris ) / 1000000 ) ,
"##########" )
-------
0.789807 second in RB2006r2 on a G5 Dual 2Gh
------
ListBox1.Open event
dim ind as integer
dim ris as double
ris = Microseconds
for ind = 1 to 100000
ListBox1.addrow str ( microseconds )
next
StaticText1.Text = str ( ( ( Microseconds - ris ) / 1000000 ) )
-------
Op 14-apr-2006, om 15:17 heeft Giulio het volgende geschreven:
dim ind as integer
dim ris as double
ris = Microseconds
for ind = 1 to val(100000)
lista.addrow str(microseconds)
next
result.text = str((Microseconds - ris)/1000000)
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
