hour&minute j'ai un probleme :-(

Question

Salut tout le monde :
J'ai un grand probleme est je ne sais pas comment je peux faire alors j'ai besoin de vous aides
Voila mon Code:

Private Sub Timer1_Timer()
Dim hour_now, Creat_hour As String
hour_now = TimeSerial(Hour(Now), Minute(Now), Second(Now))
Creat_hour = TimeSerial(Hour(Now), Minute(26), Second(Now))
Text2.Text = hour_now
If (hour_now = Creat_hour) Then
MsgBox ("hahaha")
End If
End Sub 

j'ai essai de faire une condition quand minute actuel = mon minute il va montre ce message , mais il passe rien 
je peux savoir comment je peux faire merci avance

PCPT · Answer

salut, ummm, il sort de où "mon minute" ? un truc du genre... ceci? Option Explicit Const iMyMin As Integer = 26 ' ' Private Sub Form_Load() Timer1.Interval = 60000 '1 minute End Sub ' ' Private Sub Timer1_Timer() Text2.Text = Time If Minute (Time) = iMyMin Then MsgBox "hahaha" End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

cs_Jack · Answer

Salut En fait, il faut que tu détecte si tu viens d'arriver à la 26ème minute de l'heure ? Avec ton Timer réglé à 1000 mSec, tu peux aussi faire ça : Sub tonTimer_Timer() Static MemoMinute As Integer ' Mémo qui garde sa valeur entre deux cycles If Minute(Now) <> MemoMinute Then ' Minute vient de changer ' Mémorise nouvelle minute MemoMinute = Minute(Now) ' Test si c'est la 26ème If MemoMinute = 26 Then MsgBox "Twingo !" End If End Sub

Coloration syntaxique par moi-même manuellement [MMM] Vala Jack, MVP VB NB : Je ne répondrai pas aux messages privés Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Compl&#233;ment
Il faut se souvenir qu'un Timer n'est pas parfait.
Sa p&#233;riode de scrutation (Interval) n'est pas garantie.
Si tu scrute toutes les secondes (Interval = 1000 mSec) et que tu testes deux heures &#224; la seconde pr&#234;t, tu risques en effet de louper si le Timer ne se d&#233;clenche pas durant cette seconde.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

unionx · Answer

merci tout le monde c tres gentil
Merci pour l'aide


je suis heureux mnt

PCPT · Answer

rend les prochains lecteurs aussi heureux en validant tes topics.... ;)

Hour&minute j'ai un probleme :-(

5 réponses

Discussions similaires