• Home
 · 
• Miscellaneous
 · 
• Application to measure the performance of code fragments. Simply put two pieces of code you want to

Application to measure the performance of code fragments. Simply put two pieces of code you want to

Application to measure the performance of code fragments. Simply put two pieces of code you want to measure within the methods code1 and code2

Rate Application to measure the performance of code fragments. Simply put two pieces of code you want to

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Inherits System.Windows.Forms.Form

    'by Sider 2009

    Private fin As Boolean = False
    Const unMillon As Integer = 1000000
    Declare Function QueryPerformanceCounter Lib "Kernel32" (ByRef lpPerformanceCount As Int64) As Boolean
    Declare Function QueryPerformanceFrequency Lib "Kernel32" (ByRef lpFrequency As Int64) As Boolean

    Private components As System.ComponentModel.IContainer

    Friend WithEvents txtMax1 As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox
    Friend WithEvents txtMin1 As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox
    Friend WithEvents txtAvg1 As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox
    Friend WithEvents txtAvg2 As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox
    Friend WithEvents txtMin2 As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox
    Friend WithEvents txtMax2 As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox
    Friend WithEvents btnStar As System.Windows.Forms.Button = New System.Windows.Forms.Button
    Friend WithEvents pb1 As System.Windows.Forms.ProgressBar = New System.Windows.Forms.ProgressBar
    Friend WithEvents btnStop As System.Windows.Forms.Button = New System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents txtRep As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents lblMINR2 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents lblMAXR2 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents lblMINR1 As System.Windows.Forms.Label = New System.Windows.Forms.Label
    Friend WithEvents lblMAXR1 As System.Windows.Forms.Label = New System.Windows.Forms.Label


    Public Sub New()
        Me.txtMax1 = New System.Windows.Forms.TextBox
        Me.txtMin1 = New System.Windows.Forms.TextBox
        Me.txtAvg1 = New System.Windows.Forms.TextBox
        Me.txtAvg2 = New System.Windows.Forms.TextBox
        Me.txtMin2 = New System.Windows.Forms.TextBox
        Me.txtMax2 = New System.Windows.Forms.TextBox
        Me.btnStar = New System.Windows.Forms.Button
        Me.pb1 = New System.Windows.Forms.ProgressBar
        Me.btnStop = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label5 = New System.Windows.Forms.Label
        Me.txtRep = New System.Windows.Forms.TextBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.lblMINR2 = New System.Windows.Forms.Label
        Me.lblMAXR2 = New System.Windows.Forms.Label
        Me.lblMINR1 = New System.Windows.Forms.Label
        Me.lblMAXR1 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'txtMax1
        '
        Me.txtMax1.BackColor = System.Drawing.Color.White
        Me.txtMax1.ForeColor = System.Drawing.Color.Black
        Me.txtMax1.Location = New System.Drawing.Point(47, 35)
        Me.txtMax1.Name = "txtMax1"
        Me.txtMax1.ReadOnly = True
        Me.txtMax1.Size = New System.Drawing.Size(100, 20)
        Me.txtMax1.TabIndex = 0
        '
        'txtMin1
        '
        Me.txtMin1.BackColor = System.Drawing.Color.White
        Me.txtMin1.ForeColor = System.Drawing.Color.Black
        Me.txtMin1.Location = New System.Drawing.Point(47, 61)
        Me.txtMin1.Name = "txtMin1"
        Me.txtMin1.ReadOnly = True
        Me.txtMin1.Size = New System.Drawing.Size(100, 20)
        Me.txtMin1.TabIndex = 1
        '
        'txtAvg1
        '
        Me.txtAvg1.BackColor = System.Drawing.Color.White
        Me.txtAvg1.ForeColor = System.Drawing.Color.Black
        Me.txtAvg1.Location = New System.Drawing.Point(47, 95)
        Me.txtAvg1.Name = "txtAvg1"
        Me.txtAvg1.ReadOnly = True
        Me.txtAvg1.Size = New System.Drawing.Size(100, 20)
        Me.txtAvg1.TabIndex = 2
        '
        'txtAvg2
        '
        Me.txtAvg2.BackColor = System.Drawing.Color.White
        Me.txtAvg2.ForeColor = System.Drawing.Color.Black
        Me.txtAvg2.Location = New System.Drawing.Point(204, 95)
        Me.txtAvg2.Name = "txtAvg2"
        Me.txtAvg2.ReadOnly = True
        Me.txtAvg2.Size = New System.Drawing.Size(100, 20)
        Me.txtAvg2.TabIndex = 5
        '
        'txtMin2
        '
        Me.txtMin2.BackColor = System.Drawing.Color.White
        Me.txtMin2.ForeColor = System.Drawing.Color.Black
        Me.txtMin2.Location = New System.Drawing.Point(204, 61)
        Me.txtMin2.Name = "txtMin2"
        Me.txtMin2.ReadOnly = True
        Me.txtMin2.Size = New System.Drawing.Size(100, 20)
        Me.txtMin2.TabIndex = 4
        '
        'txtMax2
        '
        Me.txtMax2.BackColor = System.Drawing.Color.White
        Me.txtMax2.ForeColor = System.Drawing.Color.Black
        Me.txtMax2.Location = New System.Drawing.Point(204, 35)
        Me.txtMax2.Name = "txtMax2"
        Me.txtMax2.ReadOnly = True
        Me.txtMax2.Size = New System.Drawing.Size(100, 20)
        Me.txtMax2.TabIndex = 3
        '
        'btnStar
        '
        Me.btnStar.BackColor = System.Drawing.Color.Transparent
        Me.btnStar.Location = New System.Drawing.Point(135, 160)
        Me.btnStar.Name = "btnStar"
        Me.btnStar.Size = New System.Drawing.Size(98, 23)
        Me.btnStar.TabIndex = 6
        Me.btnStar.Text = "Start"
        Me.btnStar.UseVisualStyleBackColor = False
        '
        'pb1
        '
        Me.pb1.Location = New System.Drawing.Point(7, 125)
        Me.pb1.Name = "pb1"
        Me.pb1.Size = New System.Drawing.Size(330, 23)
        Me.pb1.TabIndex = 7
        '
        'btnStop
        '
        Me.btnStop.BackColor = System.Drawing.Color.Transparent
        Me.btnStop.Enabled = False
        Me.btnStop.Location = New System.Drawing.Point(239, 160)
        Me.btnStop.Name = "btnStop"
        Me.btnStop.Size = New System.Drawing.Size(98, 23)
        Me.btnStop.TabIndex = 8
        Me.btnStop.Text = "Stop"
        Me.btnStop.UseVisualStyleBackColor = False
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(248, 7)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(13, 13)
        Me.Label1.TabIndex = 9
        Me.Label1.Text = "2"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(94, 7)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(13, 13)
        Me.Label2.TabIndex = 10
        Me.Label2.Text = "1"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(9, 38)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(30, 13)
        Me.Label3.TabIndex = 11
        Me.Label3.Text = "Max."
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(8, 64)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(27, 13)
        Me.Label4.TabIndex = 12
        Me.Label4.Text = "Min."
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(8, 98)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(29, 13)
        Me.Label5.TabIndex = 13
        Me.Label5.Text = "Avg."
        '
        'txtRep
        '
        Me.txtRep.Location = New System.Drawing.Point(47, 162)
        Me.txtRep.Name = "txtRep"
        Me.txtRep.Size = New System.Drawing.Size(69, 20)
        Me.txtRep.TabIndex = 14
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(5, 165)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(30, 13)
        Me.Label6.TabIndex = 15
        Me.Label6.Text = "Rep."
        '
        'lblMINR2
        '
        Me.lblMINR2.AutoSize = True
        Me.lblMINR2.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblMINR2.Location = New System.Drawing.Point(310, 66)
        Me.lblMINR2.Name = "lblMINR2"
        Me.lblMINR2.Size = New System.Drawing.Size(10, 12)
        Me.lblMINR2.TabIndex = 16
        Me.lblMINR2.Text = "0"
        Me.lblMINR2.Visible = False
        '
        'lblMAXR2
        '
        Me.lblMAXR2.AutoSize = True
        Me.lblMAXR2.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblMAXR2.Location = New System.Drawing.Point(310, 40)
        Me.lblMAXR2.Name = "lblMAXR2"
        Me.lblMAXR2.Size = New System.Drawing.Size(10, 12)
        Me.lblMAXR2.TabIndex = 17
        Me.lblMAXR2.Text = "0"
        Me.lblMAXR2.Visible = False
        '
        'lblMINR1
        '
        Me.lblMINR1.AutoSize = True
        Me.lblMINR1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblMINR1.Location = New System.Drawing.Point(153, 66)
        Me.lblMINR1.Name = "lblMINR1"
        Me.lblMINR1.Size = New System.Drawing.Size(10, 12)
        Me.lblMINR1.TabIndex = 18
        Me.lblMINR1.Text = "0"
        Me.lblMINR1.Visible = False
        '
        'lblMAXR1
        '
        Me.lblMAXR1.AutoSize = True
        Me.lblMAXR1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblMAXR1.Location = New System.Drawing.Point(153, 40)
        Me.lblMAXR1.Name = "lblMAXR1"
        Me.lblMAXR1.Size = New System.Drawing.Size(10, 12)
        Me.lblMAXR1.TabIndex = 19
        Me.lblMAXR1.Text = "0"
        Me.lblMAXR1.Visible = False
        '
        'WT
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(343, 190)
        Me.Controls.Add(Me.lblMAXR1)
        Me.Controls.Add(Me.lblMINR1)
        Me.Controls.Add(Me.lblMAXR2)
        Me.Controls.Add(Me.lblMINR2)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.txtRep)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.btnStop)
        Me.Controls.Add(Me.pb1)
        Me.Controls.Add(Me.btnStar)
        Me.Controls.Add(Me.txtAvg2)
        Me.Controls.Add(Me.txtMin2)
        Me.Controls.Add(Me.txtMax2)
        Me.Controls.Add(Me.txtAvg1)
        Me.Controls.Add(Me.txtMin1)
        Me.Controls.Add(Me.txtMax1)
        Me.Name = "WT"
        Me.Text = "WT"
        Me.TransparencyKey = System.Drawing.Color.Ivory
        Me.ResumeLayout(False)
        Me.PerformLayout()
    End Sub

    Private Sub btnStar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStar.Click
        fin = False
        btnStop.Enabled = True
        btnStar.Enabled = False
        proceso()
        fin = True
        btnStop.Enabled = False
        btnStar.Enabled = True
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        fin = True
        btnStop.Enabled = False
        btnStar.Enabled = True
    End Sub

    Private Sub max1(ByVal t As Double)
        txtMax1.Text = CStr(t)
    End Sub

    Private Sub max2(ByVal t As Double)
        txtMax2.Text = CStr(t)
    End Sub

    Private Sub min1(ByVal t As Double)
        txtMin1.Text = CStr(t)
    End Sub

    Private Sub min2(ByVal t As Double)
        txtMin2.Text = CStr(t)
    End Sub

    Private Sub avg1(ByVal t As Double)
        txtAvg1.Text = CStr(t)
    End Sub

    Private Sub avg2(ByVal t As Double)
        txtAvg2.Text = CStr(t)
    End Sub

    Private Sub proceso()
        Try
            Dim ran As Boolean = False
            Dim x, y As Long
            Dim f As Long
            Dim tot As Integer = 1

            Dim aux As Double = 0
            Dim avgTot As Double = 0
            Dim aux2 As Double = 0
            Dim avgTot2 As Double = 0

            max1(0)
            min1(0)
            avg1(0)
            max2(0)
            min2(0)
            avg2(0)

            If String.IsNullOrEmpty(txtRep.Text) = False Then
                If IsNumeric(txtRep.Text) Then
                    tot = CInt(txtRep.Text)
                Else
                    txtRep.Text = "1"
                End If
            Else
                txtRep.Text = "1"
            End If
            QueryPerformanceFrequency(f)
            pb1.Value = 0
            pb1.Maximum = tot
            Dim i As Integer = 0
            code()
            code2()
            While i < tot And fin = False

                If ran Then
                    QueryPerformanceCounter(x)
                    code()
                    QueryPerformanceCounter(y)
                    aux = (y - x) * unMillon / f

                    QueryPerformanceCounter(x)
                    code2()
                    QueryPerformanceCounter(y)
                    aux2 = (y - x) * unMillon / f
                    ran = Not ran
                Else
                    QueryPerformanceCounter(x)
                    code2()
                    QueryPerformanceCounter(y)
                    aux2 = (y - x) * unMillon / f

                    QueryPerformanceCounter(x)
                    code()
                    QueryPerformanceCounter(y)
                    aux = (y - x) * unMillon / f
                    ran = Not ran
                End If

                avgTot += aux
                avgTot2 += aux2

                If CDbl(txtMin1.Text) > CStr(aux) Or CDbl(txtMin1.Text) = 0 Then
                    min1(aux)
                    lblMINR1.Visible = False
                    lblMINR1.Text = CStr(1)
                ElseIf CDbl(txtMin1.Text) = CStr(aux) Then
                    lblMINR1.Visible = True
                    lblMINR1.Text = CStr(CInt(lblMINR1.Text) + 1)
                End If

                If CDbl(txtMax1.Text) < CStr(aux) Then
                    max1(aux)
                    lblMAXR1.Visible = False
                    lblMAXR1.Text = CStr(1)
                ElseIf CDbl(txtMax1.Text) = CStr(aux) Then
                    lblMAXR1.Visible = True
                    lblMAXR1.Text = CStr(CInt(lblMAXR1.Text) + 1)
                End If

                If CDbl(txtMin2.Text) > CStr(aux2) Or CDbl(txtMin2.Text) = 0 Then
                    min2(aux2)
                    lblMINR2.Visible = False
                    lblMINR2.Text = CStr(1)
                ElseIf CDbl(txtMin2.Text) = CStr(aux2) Then
                    lblMINR2.Visible = True
                    lblMINR2.Text = CStr(CInt(lblMINR2.Text) + 1)
                End If

                If CDbl(txtMax2.Text) < CStr(aux2) Then
                    max2(aux2)
                    lblMAXR2.Visible = False
                    lblMAXR2.Text = CStr(1)
                ElseIf CDbl(txtMax2.Text) = CStr(aux2) Then
                    lblMAXR2.Visible = True
                    lblMAXR2.Text = CStr(CInt(lblMAXR2.Text) + 1)
                End If

                avg1(avgTot / (i + 1))
                avg2(avgTot2 / (i + 1))
                pb1.Value += 1
                Application.DoEvents()
                i += 1
            End While
            pb1.Value = 0
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


    Private Sub code()
        'Put here the function 1
    End Sub

    Private Sub code2()
        'Put here the function 2
    End Sub

End Class