Скорость

[785412]

Как определить скорость чтения из файла? Или как создать секундомер, для того, чтобы засеч чтение 1кб данных? Затем расчитать

[Nord777]

Public Class Stopwatch
Inherits System.Object
является членом: System.Diagnostics
Сводка:
Предоставляет набор методов и средств, которые можно использовать для точного измерения затраченного времени.

[785412]

Мне бы желательно дать функцию, которая возвращает скорость... А так я с таймером пробовал...

[785412]

с временем(таймером) я розабрался

[785412]

Может засекать за скока времени читается 1кб, затем расчитывается скорость..и.тд...НО почемуто, у мя то 1000кб/сек то 333,(3) то вообще - бесконечность

[iGrok]

Может засекать за скока времени читается 1кб, затем расчитывается скорость..и.тд...НО почемуто, у мя то 1000кб/сек то 333,(3) то вообще - бесконечность

Потому, что 1кб читается ОЧЕНЬ быстро. Вот 100Мб - это да. На них уже и скорость позамерять можно.

[785412]

думаю 1мб-10мб пойдет?

[785412]

а, и как правильно считывать текст из файла? монатак?:
dim str as string=my.computer.filesystem.readalltext
dim st as string=str
???

[785412]

25000КБ/СЕК реально??

[Williams]

Пользуйся на здоровье:

Код: Выделить всё

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

[785412]

Как я понял надо юзать так:
Dim s As Performance.PerfCounter

Код: Выделить всё

Dim s As Performance.PerfCounter
        s.Start()
        Dim f = s.Finish()
        MsgBox(f)

Тока в каких единицах он возвращает значение?

[785412]

а почему при первом обращении к функции число=0,003...., а при втором - 3,599965...??

[Nord777]

25000КБ/СЕК реально??

Да, реально.
25000кб / 1024 = 24.4 мб
такая скорость есть даже у некоторых флэшек.

Как я понял надо юзать так:
Dim s As Performance.PerfCounter

Не заморачивайся.
StopWatch это удобная надстройка над QueryPerformanceCounter.

[Williams]

Как я понял надо юзать так:
Dim s As Performance.PerfCounter

Код: Выделить всё

Dim s As Performance.PerfCounter
        s.Start()
        Dim f = s.Finish()
        MsgBox(f)

Тока в каких единицах он возвращает значение?

MessageBox.Show (s.Finish.ToString("0.00") - обычно этого достаточно. Значение в секундах.

[iGrok]

25000КБ/СЕК реально??

Более чем.
Если обычный винт - то около 40-80МБ/сек. Если хороший SATA - то может и до 100-120.
Если стрип-RAID, то реально даже 300000кБ/сек.