Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick Dim t0 As Integer =me.valeur.text ''' textbox contenant les valeurs a recupérer Dim t1 As Integer =me.valeur.text ''' textbox contenant les valeurs a recupérer t0 = 0 t1 = 0 TextBox2.Text = t0 TextBox2.Text = t1 If TextBox1.Text = TextBox2.Text then msgbox(" pause") end if End Sub
Dim t0 As Integer =me.valeur.text ''' textbox contenant les valeurs a recupérer
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.Threading.Thread Public Class Form1 ' Valeur1 et Valeur2 sont les valeurs à surveiller ' SaveValeur1 et SaveValeur2 sont les sauvegardes de ces valeurs pour pouvoir faire les comparaisons Private Valeur1, Valeur2, SaveValeur1, SaveValeur2 As Long ' Temporisation pour le changement des valeurs ( une valeur aléatoire entre 20 et 40 ) Private Tempo As Integer ' inutile pour toi Private ReadOnly Alea As Random = New Random ' inutile pour toi ''' <summary> ''' chargement de la form ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' initialisation des valeurs au démarrage Valeur1 = 10 Valeur2 = 15 SaveValeur1 = 0 SaveValeur2 = 0 AfficheValeurs() ' pour simuler les changements Tempo = Alea.Next(20, 40) ' inutile pour toi TimerChange.Start() ' inutile pour toi Sleep(2000) ' attendre 2 secondes ' inutile pour toi ' démarrage du contrôle des changements TimerControle.Start() End Sub ''' <summary> ''' Affiche les 2 valeurs dans le Label ''' </summary> Private Sub AfficheValeurs() Label1.Text = "Valeur1 = " & Valeur1.ToString & Environment.NewLine & "Valeur2 = " & Valeur2.ToString End Sub ''' <summary> ''' Timer qui simule les changements de Valeur1 et Valeur2 ''' Sa propriété Interval est de 1000 soit une seconde ''' Le changement se fait aléatoirement après une attente entre 20 et 40 secondes ''' C'est ton programme qui le fait déjà ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> Private Sub TimerChange_Tick(sender As Object, e As EventArgs) Handles TimerChange.Tick Tempo -= 1 If Tempo = 0 Then ' si l'attente est finie on modifie les valeurs Valeur1 et Valeur2 Valeur1 = Valeur1 * 2 Valeur2 = Valeur2 * 3 AfficheValeurs() If Valeur2 > Int32.MaxValue Then Valeur1 = 10 Valeur2 = 15 End If ' on réinitialise l'attente Tempo = Alea.Next(20, 40) End If End Sub ''' <summary> ''' Ce timer vérifie toutes les 5 secondes si les valeurs ont changés ''' c'est ce timer que tu dois programmer ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> Private Sub TimerControle_Tick(sender As Object, e As EventArgs) Handles TimerControle.Tick If SaveValeur1 = 0 Then ' au premier démarrage on ne compare rien SaveValeur1 = Valeur1 SaveValeur2 = Valeur2 Else If Valeur1 <> SaveValeur1 And Valeur2 <> SaveValeur2 Then ' les valeurs ont été modifiées ( attention les 2 valeurs changent toujours toutes les deux en même temps ) ' mettre un Or à la place du And si une seule des valeurs peut changer ou les 2 valeurs peuvent changer ensemble SaveValeur1 = Valeur1 SaveValeur2 = Valeur2 ' on inscrit la modification dans la listbox ListBox1.Items.Add("Les valeurs ont été modifiées à " & Date.Now) End If End If End Sub End Class
Je ne suis pas plus avancé .dommagealors que l'on t'a déjà dit (et depuis longtemps) de prendre le temps d'apprendre les bases et que tu n'en tiens pas compte, je ne suis pas vraiment enclin à t'aider plus....
' initialisation des valeurs au démarrage Valeur1 = 10 Valeur2 = 15
Tempo = Alea.Next(20, 40)
Tempo = Alea.Next(20, 40)
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load valeurcont.Text = 1 Timer1.Start() ' ne sert qu'a simuler le textbox issu de l'autre programme dont je n'ai pas la main Timer2.Start() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick valeurcont.Text = valeurcont.Text + 1 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Timer2.Start() End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick ListBoxpause.Items.Add(valeurcont.Text) If ListBoxpause.Items.Count > 0 Then TextBox21.Text = ListBoxpause.Items(ListBoxpause.Items.Count - 1).ToString() ListBoxpause.SelectedIndex = ListBoxpause.Items.Count - 1 TextBox3.Text = ListBoxpause.SelectedIndex Try TextBox20.Text = ListBoxpause.Items(ListBoxpause.SelectedIndex - 1).ToString() Catch End Try Select Case (String.Compare(TextBox21.Text, TextBox20.Text)) Case < 0 TextBox22.Text = "NOT PAUSE" Case = 0 TextBox22.Text = "PAUSE" Case > 0 TextBox22.Text = "NOT PAUSE" End Select End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Timer2.Stop() End Sub End Class