Urgent Help needed...Comparing the output with previous values code in timer

[johnny123]

Hi everyone,

I am new to VB programming. I am doing a project on comparing the output value of a code running on timer for every 580mseconds. the objective of this project is to compare the output value of the code to the next output value of same code which is running in timer for every 580ms. i will explain you clearly...here is my code....

Private Sub tm_get_position_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tm_get_position.Tick
        If flag_track = 1 Then
Dim macs(), prob_proc() As String
                macs = New String() {"00112052E170", "0011218F1A60", "00112052ECC0", "00112052D840", "00112052F010", "00112052E5D0"}
                prob_proc = New String() {"probs1", "probs2", "probs3", "probs4", "probs5", "probs6", "probs7", "probs8", "probs9", "probs10", "probs11", "probs12", "probs13", "probs14", "probs15", "probs16", "probs17", "probs18", "probs19", "probs20", "probs21", "probs22", "probs23", "probs24", "probs25", "probs26", "probs27", "probs28", "probs29", "probs30", "probs31", "probs32", "probs33", "probs34", "probs35", "probs36", "probs37", "probs38", "probs39", "probs40", "probs41", "probs42", "probs43", "probs44", "probs45", "probs46", "probs47", "probs48", "probs49", "probs50"}
                Dim k, kk As Integer
                Dim max As Long
                Dim position As Integer
                Dim probablistic(49) As Long
 
 
                For kk = 0 To 49
                    For k = 0 To 5
                        sqlcomm3.Connection = sqlconn
                        sqlcomm3.CommandType = CommandType.StoredProcedure
 
                        sqlcomm3.CommandText = prob_proc(kk)
                        sqlcomm3.Parameters.Clear()
                        q = New SqlParameter
                        q.ParameterName = "@macs"
                        q.Direction = ParameterDirection.Input
                        q.SqlDbType = SqlDbType.NVarChar
                        q.Value = macs(k)
                        sqlcomm3.Parameters.Add(q)
                        q = New SqlParameter
                        q.ParameterName = "@gaussian"
                        q.Direction = ParameterDirection.Output
                        q.SqlDbType = SqlDbType.Int
                        sqlcomm3.Parameters.Add(q)
                        Try
                            sqlcomm3.ExecuteNonQuery()
                        Catch ex As Exception
                            q.Value = 0
                        End Try
 
                        Try
                            If Convert.IsDBNull(q.Value) = True Then
                                q.Value = 25
                            End If
 
                            If q.Value < 25 Then
                                q.Value = 25
                            End If
 
                            If k = 0 Then
                                probablistic(kk) = q.Value
                            Else
                                probablistic(kk) = probablistic(kk) * q.Value
                            End If
                       Catch ex As Exception
                            If k = 0 Then
                                probablistic(kk) = 25
                            Else
                                probablistic(kk) = probablistic(kk) * 25
                            End If
                        End Try
                    Next
                Next
                max = probablistic(0)
                For kk = 0 To 49
                    If max < probablistic(kk) Then
                        max = probablistic(kk)
                        position = kk
                    End If
                Next
 
                Me.Controls.Remove(pbox)
                SuspendLayout()
                pbox.Image = System.Drawing.Image.FromFile(("C:\XandY\Image\dot1.jpg"))
                pbox.Top = pointx(position + 1).Y
                pbox.Left = pointx(position + 1).X
                pbox.Width = 10
                pbox.Height = 10
                Me.Controls.Add(pbox)
                pbox.BringToFront()
                ResumeLayout()
            
    End Sub

Here we get an output value for the variable 'position' . the output will be (0-49).this code is running on timer. this code runs for every 580milliseconds. each and every time it gives the output value for variable 'position'. i need to compare the value of this variable for the next output value after 580milliseconds. can you please help me on this issue.i am not getting any idea how to compare this values. after storing the value i need to check for condition and get the result...can u please respond as soon as possible...