Таймер до и после.

[posemon]

Доброе утрО!

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

Dim a As Double
        Dim time As Double
        a = udBox.Value * 3000
        Dim i As Double
        Dim ans As Double
        btnRun.Visible = False
        btnExit.Visible = True
        chkBox.Visible = True

        Dim t As Double     
         t = 1
/////Нужно посчитать сколько времени пройдет после начала циклы////
        For i = 1 To a Step t
            If chkBox.CheckState = CheckState.Checked Then Exit For
            System.Windows.Forms.Application.DoEvents()
            ans = (1 + 1 / i) ^ i
            System.Windows.Forms.Application.DoEvents()
            txtBox.Text = CStr(ans)
            System.Windows.Forms.Application.DoEvents()
            prgBar.Value = (i / a) * 100
            System.Windows.Forms.Application.DoEvents()
        Next
\\\\\\Вот тут в конце вывести время или продолжительность цикла\\\\
        btnRun.Visible = True
        btnExit.Visible = True
        chkBox.Visible = False
        chkBox.CheckState = CheckState.Unchecked


Подскажите пожалуйста!

[Gloom]

Точное измерение производительности в дотнете

[posemon]

как посмотрел это на си, а на vb.net можно?

[Ramzes]

posemon
это на C#
возьми и переведи
если какой-то момент не знаешь спрашивай

[Viper]

Всех то делов правильно объявить QueryPerfomanceConter и QueryPerfomanceFrequency. Или это и есть трабла?

[posemon]

это и есть трабла...

[Viper]

нды... а почитать вдумчиво MSDN религия не позволяет? держи:

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

Private Declare Function QueryPerformanceCounter Lib "kernel32" (ByRef lpPerformanceCount As Long) As Integer
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByRef lpFrequency As Long) As Integer

Это простой вариант, посложнее, но и эффективнее через атрибут DllImport. Смотреть MSDN!

[posemon]

можете последнее, помогите переведите класс

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

using System;
using System.Runtime.InteropServices;

namespace Utils
{
    /// <summary>
    /// Эта структура позволяет подсчитать скорость выполнения кода одним из
    /// наиболее точным способов. Фактически вычисления производятся в тактах
    /// процессора, а потом переводятся в милисекунд (десятичная часть
    /// является долями секунды).
    /// </summary>
    public struct PerfCounter
    {
        Int64 _start;

        /// <summary>
        /// Начинает подсчет вермени выполнения.
        /// </summary>
        public void Start()
        {
            _start = 0;
            QueryPerformanceCounter(ref _start);
        }

        /// <summary>
        /// Завершает полсчет вермени исполнения и возвращает время в секундах.
        /// </summary>
        /// <returns>Время в секундах потраченое на выполнение участка
        /// кода. Десятичная часть отражает доли секунды.</returns>
        public float Finish()
        {
            Int64 finish = 0;
            QueryPerformanceCounter(ref finish);

            Int64 freq = 0;
            QueryPerformanceFrequency(ref freq);
            return (((float)(finish - _start) /(float)freq));
        }

        [DllImport("Kernel32.dll")]
        static extern bool QueryPerformanceCounter(ref Int64 performanceCount);

        [DllImport("Kernel32.dll")]
        static extern bool QueryPerformanceFrequency(ref Int64 frequency);
    }
}

[Viper]

И чего тут переводить?

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

Imports SupportLib, System.Math, BeamLib, System.IO
Imports System, System.Runtime.InteropServices
Namespace Utils
    ''' <summary>
    ''' Эта структура позволяет подсчитать скорость выполнения кода одним из
    ''' наиболее точным способов. Фактически вычисления производятся в тактах
    ''' процессора, а потом переводятся в милисекунд (десятичная часть
    ''' является долями секунды).
    ''' </summary>
    Public Structure PerfCounter
        Public _start As Int64

        ''' <summary>
        ''' Начинает подсчет вермени выполнения.
        ''' </summary>
        Public Sub Start()       
            _start = 0
            QueryPerformanceCounter(_start)
        End Sub

        ''' <summary>
        ''' Завершает полсчет вермени исполнения и возвращает время в секундах.
        ''' </summary>
        ''' <returns>Время в секундах потраченое на выполнение участка
        ''' кода. Десятичная часть отражает доли секунды.</returns>
        Public Function Finish() As Single
            Dim _finish As Int64 = 0
            QueryPerformanceCounter(_finish)

            Dim freq As Int64 = 0
            QueryPerformanceFrequency(freq)
            Return CSng(_finish - _start) / CSng(freq)
        End Function

        <DllImport("Kernel32.dll")> Private Shared Function QueryPerformanceCounter(ByRef performanceCount As Int64) As Integer
        End Function

        <DllImport("Kernel32.dll")> Private Shared Function QueryPerformanceFrequency(ByRef frequency As Int64) As Integer
        End Function
    End Structure
End Namespace

а уж оптимизируешь сам... ручками... тут есть где пооптимизировать

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=6643614#6643614

[posemon]

Спасибо всем!

И с наступающим!

[gaidar]

Эх, а ведь в Google перевод можно легко найти!

http://blogs.gotdotnet.ru/personal/gaid ... 0f38cd3624