Problème timer sous VB

Question

Salut je dois réaliser un programme dans le cadre d'un stage et je suis amené à faire un timer, en fait toutes les 5min je lance mon programme pour vérifier la température et toutes les 30 min enregistrer la valeur de la température dans une base de données =)

Et en fait je veux que toutes les 5 min je vérifie, s'il s'est écoulé 30 min depuis la derneire sauvegarde, donc dans mon fichier.ini, j'ai mis une date, et dans mon programme je fais :

Duree = Now - DatVerif

et la j'obtient par exemple: 00:49:11

et je voudrais tout simplement faire un IF duree > 30 minutes then .....

mais comment on fait pour indiquer 30 minutes ?

cs_Julien39 · Answer

Et pourquoi ne pas faire 2 timer ?

SebSemos · Answer

Salut, au lieu de la date tu met une variable qui s'incrémente à chaque éxécution, puis :
If variable = 5 then .....


_______________________
Imports System.Thinking
'La vie Roxxx un max à qui s'en donne la peine

ucfoutu · Answer

Bonjour,
je n'aime aucune de ces deux soloutions;
La 1ère est démesurée
la 2ème est imprécise
Je propose cet exemple (ici deux compteurs : l'un sur 2 secondes et l'autre sur 4 secondes)
un label label1 - un timer Timer1 et un bouton de commande

Private min1 As Date
Private min2 As Date

Private Sub Command1_Click()
  Timer1.Enabled = True
  Timer1.Interval = 100
  min1 = Now
  min2 = Now
End Sub

Private Sub Timer1_Timer()
  Dim seq1 As Integer, seq2 As Integer
  seq1 = 2
  seq2 = 4
  If DateDiff("s", min1, Now) >= seq1 Then
    Label1.Caption = seq1 & " secondes écoulées"
    min1 = Now
  End If
  If DateDiff("s", min2, Now) >= seq2 Then
    Label1.Caption = seq2 & " secondes écoulées"
    min2 = Now
  End If
End Sub
pour faire avec 5 et 30 minutes :
modifier
seq1 = 5
seq2 = 30
et remplacer les "s" par "m"



____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

non par "m", mais par "n", bien sûr

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

et on y verra mieux clair avec ce nouvel exemple qui, en modifiant la couleur toutes les deux secondes, montre bien les différentes "tranches" repérées.
horloge : toutes les 2 et 6 secondes


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

ah oui ! le code :
Private min1 As Date
Private min2 As Date

Private Sub Command1_Click()
  Timer1.Enabled = True
  Timer1.Interval = 100
  min1 = Now
  min2 = Now
End Sub

Private Sub Timer1_Timer()
  Dim seq1 As Integer, seq2 As Integer
  seq1 = 2
  seq2 = 6
  If DateDiff("s", min1, Now) >= seq1 Then
    If Label1.ForeColor vbBlack Then Label1.ForeColor vbRed Else Label1.ForeColor = vbBlack
    Label1.Caption = seq1 & " secondes écoulées"
    min1 = Now
  End If
  If DateDiff("s", min2, Now) >= seq2 Then
    Label1.Caption = seq2 & " secondes écoulées"
    min2 = Now
  End If
End Sub



____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

Problème timer sous VB

6 réponses

Votre réponse

Discussions similaires