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...

[RobDog888]

Thread Moved

Welcome to the Forums.

I added [highlight=vb] code tags to make your code more readable

[jmcilhinney]

I don't see how you can compare the current value with the next value because you won't have the next value until the next Tick event. I assume you mean you want to compare with the previous value. Unless I'm missing something it should just be something like this:

Private previousValue As Integer
 
Private Sub Timer1_Tick(ByVal sender As Object, _
                        ByVal e As EventArgs) Handles Timer1.Tick
    Dim currentValue As Integer
 
    'Calculate currentValue here.
 
    Select Case currentValue
        Case Is < Me.previousValue
 
        Case Me.previousValue
 
        Case Is > Me.previousValue
 
    End Select
 
    Me.previousValue = currentValue
End Sub

[johnny123]

Thank u so much for reply....i will xplain u clearly wot i want...the code i given makes the output as 'position=35' for 1st tick

'position=22' for 2nd tick after 580milli seconds
'position= 45' for 3rd tick
'position= 33' for 4th tick......similarly.....it goes like this ..its just an xample..

now wot i want is i want to compare the 3rd value with 2nd value and test the condition i.e; 45-22=23

now test condition if difference>10 then run some code....else run the same code....

similarly i want to compare 4th with 3rd....33-45=12...like wise all...this is my problem...could you please help me out...send me the code clearly ..i am very new to VB.... ...thank u so much for ur reply dude....

[jmcilhinney]

I've basically already shown you. You store the previous value in a member variable. On each Tick you get the current value and then you use both the current value and the previous value however you see fit. Finally you replace the previous value with the current value, ready for the next Tick.

[johnny123]

cool thank u so much dude...so we need to include another timer now..... and compare the values in it....cool...can u help with the timing of this timer...i.e; wen to start this timer to get the current value and all...it wil be gr8 for ur help..

[jmcilhinney]

I'm afraid I don't really understand what you're asking for.

[johnny123]

ooops..as u said in ur code...i had a doubt that do we need to include another timer??

[jmcilhinney]

You already have a Timer don't you? You don't need another one, unless you actually need another one.

[johnny123]

yes.. i am already having one timer..can i run ur code in the same timer?..i dont think so bcoz....if we run in the same timer how can we store the current value and compare??

[jmcilhinney]

One of us is missing the point here. You would only need two Timers if you have two operations you need executed at different intervals. Do you? If so then you need two Timers. If not then what would the second Timer be for?