Public Class Stopwatch
Inherits System.Object
является членом: System.Diagnostics
Сводка:
Предоставляет набор методов и средств, которые можно использовать для точного измерения затраченного времени.
785412 писал(а):Может засекать за скока времени читается 1кб, затем расчитывается скорость..и.тд...НО почемуто, у мя то 1000кб/сек то 333,(3) то вообще - бесконечность
Imports System.Runtime.InteropServices
Namespace Performance
Friend Structure PerfCounter
Private NotInheritable Class NativeMethods
Private Sub New()
End Sub
<DllImport("kernel32.dll", SetLastError:=True)> _
Friend Shared Function QueryPerformanceCounter(ByRef lpPerformanceCount As Long) _
As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Friend Shared Function QueryPerformanceFrequency(ByRef frequency As Long) As <MarshalAs(UnmanagedType.Bool)> _
Boolean
End Function
End Class
Private mStart As Long
Public Sub Start()
mStart = 0
NativeMethods.QueryPerformanceCounter(mStart)
End Sub
Public Function Finish() As Double
Dim mFinish As Long = 0, mFreq As Long = 0
NativeMethods.QueryPerformanceCounter(mFinish)
NativeMethods.QueryPerformanceFrequency(mFreq)
Return ((mFinish - mStart) / mFreq)
End Function
End Structure
End Namespace
Dim s As Performance.PerfCounter
s.Start()
Dim f = s.Finish()
MsgBox(f)
Да, реально.25000КБ/СЕК реально??
Не заморачивайся.Как я понял надо юзать так:
Dim s As Performance.PerfCounter
785412 писал(а):Как я понял надо юзать так:
Dim s As Performance.PerfCounter
- Код: Выделить всё
Dim s As Performance.PerfCounter
s.Start()
Dim f = s.Finish()
MsgBox(f)
Тока в каких единицах он возвращает значение?
785412 писал(а):25000КБ/СЕК реально??
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 89