Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Depart differe

Depart differe

8 réponses
Avatar
OlivierT
Bonjour,

Dans mon code VB6, je souhaiterai executer une procedure a une heure
precise. J'ai trouve sur le net la commande Application.OnTime mais elle ne
fonctionne qu'en VBA.
Quelqu'un aurait-il une solution ?

Merci,

Olivier
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
X
Bonjour,

Avec l'objet timer, qui te permet de contrôler le temps ici, en bouclant
tant que... De facto, si l'heure est celle que tu veux, tu n'as plus qu'à
déclencher ton code, voici un schéma de principe...

sub load...
timer1.interval = 60000
timer1.enabled=true
end sub

sub timer1
if hour(time) = x and minute(time) = y then call il_est_lheure
end sub

sub il_est_lheure
timer1.enabledúlse
...code...
end sub



------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"OlivierT" a écrit dans le message de
news:
Bonjour,

Dans mon code VB6, je souhaiterai executer une procedure a une heure
precise. J'ai trouve sur le net la commande Application.OnTime mais elle
ne
fonctionne qu'en VBA.
Quelqu'un aurait-il une solution ?

Merci,

Olivier


Avatar
bayosky
salut,

Très franchement si une "action spéciale" se fait à une "heure
précise" et que rien ne se passe le reste du temps, il vaut mieux
écrire le programme "qui fait cette chose spéciale" et utiliser le
planificateur de tâche...
Tu peux même "inscrire la tâche" avec un prgm fait en VB je pense :o)

HB
Avatar
X
Bonjour,

Oui, une autre possibilité...

Je répondais en VB...

Mais le planificateur de tâche fait la même chose de toute façon, il va
voir régulièrement s'il a quelque chose à faire, je ne suis pas certains
qu'il prennent moins de temps horloge...


------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"bayosky" a écrit dans le message de news:
uoYwQ%
salut,

Très franchement si une "action spéciale" se fait à une "heure précise" et
que rien ne se passe le reste du temps, il vaut mieux écrire le programme
"qui fait cette chose spéciale" et utiliser le planificateur de tâche...
Tu peux même "inscrire la tâche" avec un prgm fait en VB je pense :o)

HB


Avatar
OlivierT
Merci pour ces reponses. En effet, le planificateur de tache marcherait bien
mais les postes sur lesquels doit tourner l'application sont bridé. Du coup,
le planificateur de tache est inutilisable, meme par l'administrateur...

Merci pour ton code X, je vais le tester ce matin :-))

Olivier

"X" wrote:

Bonjour,

Oui, une autre possibilité...

Je répondais en VB...

Mais le planificateur de tâche fait la même chose de toute façon, il va
voir régulièrement s'il a quelque chose à faire, je ne suis pas certains
qu'il prennent moins de temps horloge...


------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"bayosky" a écrit dans le message de news:
uoYwQ%
> salut,
>
> Très franchement si une "action spéciale" se fait à une "heure précise" et
> que rien ne se passe le reste du temps, il vaut mieux écrire le programme
> "qui fait cette chose spéciale" et utiliser le planificateur de tâche...
> Tu peux même "inscrire la tâche" avec un prgm fait en VB je pense :o)
>
> HB





Avatar
X
Bonjour,

J'ai donné un exemple, veux-tu que je te fasse la routine complètement,
de façon à elle qu'elle fonctionne par copier/coller (heu, en mettant
l'objet Timer quand même) ???


------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"OlivierT" a écrit dans le message de
news:
Merci pour ces reponses. En effet, le planificateur de tache marcherait
bien
mais les postes sur lesquels doit tourner l'application sont bridé. Du
coup,
le planificateur de tache est inutilisable, meme par l'administrateur...

Merci pour ton code X, je vais le tester ce matin :-))

Olivier

"X" wrote:

Bonjour,

Oui, une autre possibilité...

Je répondais en VB...

Mais le planificateur de tâche fait la même chose de toute façon, il
va
voir régulièrement s'il a quelque chose à faire, je ne suis pas certains
qu'il prennent moins de temps horloge...


------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"bayosky" a écrit dans le message de news:
uoYwQ%
> salut,
>
> Très franchement si une "action spéciale" se fait à une "heure précise"
> et
> que rien ne se passe le reste du temps, il vaut mieux écrire le
> programme
> "qui fait cette chose spéciale" et utiliser le planificateur de
> tâche...
> Tu peux même "inscrire la tâche" avec un prgm fait en VB je pense :o)
>
> HB







Avatar
OlivierT
Bonjour,

Ma fois, se serait sympas de ta part si tu pouvais me donner la routine
complete :-)

Olivier

"X" wrote:

Bonjour,

J'ai donné un exemple, veux-tu que je te fasse la routine complètement,
de façon à elle qu'elle fonctionne par copier/coller (heu, en mettant
l'objet Timer quand même) ???


------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"OlivierT" a écrit dans le message de
news:
> Merci pour ces reponses. En effet, le planificateur de tache marcherait
> bien
> mais les postes sur lesquels doit tourner l'application sont bridé. Du
> coup,
> le planificateur de tache est inutilisable, meme par l'administrateur...
>
> Merci pour ton code X, je vais le tester ce matin :-))
>
> Olivier
>
> "X" wrote:
>
>> Bonjour,
>>
>> Oui, une autre possibilité...
>>
>> Je répondais en VB...
>>
>> Mais le planificateur de tâche fait la même chose de toute façon, il
>> va
>> voir régulièrement s'il a quelque chose à faire, je ne suis pas certains
>> qu'il prennent moins de temps horloge...
>>
>>
>> ------
>> Site logiciels
>> http://irolog.free.fr
>> Mail
>> http://irolog.free.fr/ecrire/index.htm
>> Site perso
>> http://irolog.free.fr/joe/index.htm
>> Principe d'utilisation des news Groups
>> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>> ------------------------------------------------------------------------------------
>> "bayosky" a écrit dans le message de news:
>> uoYwQ%
>> > salut,
>> >
>> > Très franchement si une "action spéciale" se fait à une "heure précise"
>> > et
>> > que rien ne se passe le reste du temps, il vaut mieux écrire le
>> > programme
>> > "qui fait cette chose spéciale" et utiliser le planificateur de
>> > tâche...
>> > Tu peux même "inscrire la tâche" avec un prgm fait en VB je pense :o)
>> >
>> > HB
>>
>>
>>





Avatar
X
Voici, ci-joint les fichiers à télécharger, plus le code ci-dessous
(qui est déjà dans les fichiers joints):

' form1 : gestion du temps
' 6 objets = timer1 + combo1 + combo2 + command1 + command2 (boutons) +
label1
'
Option Explicit ' oblige à déclarer les variables
Dim hh As Byte ' variables, heure
Dim mn As Byte ' minutes
'

Sub Form_Load() ' lancement
Dim i As Long
'
For i = 0 To 59 ' chamgement de l'heure dans les combo * 2
If i < 24 Then Combo1.AddItem Format(i, "00") ' heure
Combo2.AddItem Format(i, "00") ' minutes
Next i
Combo1.ListIndex = Hour(Time) 'combo mis à l'heure actuel
Combo2.ListIndex = minute(Time) ' combo mis à la minute actuel
Label1 = "Minuterie INACTIVE" ' indication de l'activité de la minuterie
Timer1.Interval = 1000 ' va voir tous les 1/1000eme de seconde = 1 seconde
Form1.Caption = " Timer" ' entête de la form
Timer1.Enabled = False ' timer inactif
End Sub

Sub Command1_Click() ' lance le timer
hh = Combo1.Text ' variable hh prend l'heure choisie dans le combo1
mn = Combo2.Text ' variable mn prend la minute choisie dans le combo2
Label1 = "Minuterie ACTIVE" ' indique actif
Timer1.Enabled = True 'lancement du timer
End Sub

Sub Timer1_Timer() 'timer visité en activité toute les secondes
If Hour(Time) = hh And minute(Time) = mn Then ' hh + mn = heure
Timer1.Enabled = False ' arrêt timer
MsgBox "IL EST L'HEURE", vbExclamation ' message
Label1 = "Minuterie INACTIVE" ' indique inactif
End If
End Sub

Sub Command2_Click() ' arrêt timer (pour nouveau choix ou rien...
Label1 = "Minuterie INACTIVE" ' indication d'état
Timer1.Enabled = False ' arrêt timer
End Sub

Sub Form_Unload(Cancel As Integer) ' fin
Dim rep ' variable de test
'
If Timer1.Enabled = True Then ' si timer actif demande confirmation de
quitter
rep = ""
rep = MsgBox("La minuterie est active " & vbLf & "Voulez-vous quitter
quand même ", vbQuestion + vbYesNo + vbDefaultButton2)
If rep <> vbYes Then Cancel = (-1) 'si non
End If
'
Unload Form1 ' si oui, déchargement form1 + désallocation des variables
End ' fermeture programme
End Sub




------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"OlivierT" a écrit dans le message de
news:
Bonjour,

Ma fois, se serait sympas de ta part si tu pouvais me donner la routine
complete :-)

Olivier

"X" wrote:

Bonjour,

J'ai donné un exemple, veux-tu que je te fasse la routine
complètement,
de façon à elle qu'elle fonctionne par copier/coller (heu, en mettant
l'objet Timer quand même) ???


------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"OlivierT" a écrit dans le message
de
news:
> Merci pour ces reponses. En effet, le planificateur de tache marcherait
> bien
> mais les postes sur lesquels doit tourner l'application sont bridé. Du
> coup,
> le planificateur de tache est inutilisable, meme par
> l'administrateur...
>
> Merci pour ton code X, je vais le tester ce matin :-))
>
> Olivier
>
> "X" wrote:
>
>> Bonjour,
>>
>> Oui, une autre possibilité...
>>
>> Je répondais en VB...
>>
>> Mais le planificateur de tâche fait la même chose de toute façon,
>> il
>> va
>> voir régulièrement s'il a quelque chose à faire, je ne suis pas
>> certains
>> qu'il prennent moins de temps horloge...
>>
>>
>> ------
>> Site logiciels
>> http://irolog.free.fr
>> Mail
>> http://irolog.free.fr/ecrire/index.htm
>> Site perso
>> http://irolog.free.fr/joe/index.htm
>> Principe d'utilisation des news Groups
>> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>> ------------------------------------------------------------------------------------
>> "bayosky" a écrit dans le message de news:
>> uoYwQ%
>> > salut,
>> >
>> > Très franchement si une "action spéciale" se fait à une "heure
>> > précise"
>> > et
>> > que rien ne se passe le reste du temps, il vaut mieux écrire le
>> > programme
>> > "qui fait cette chose spéciale" et utiliser le planificateur de
>> > tâche...
>> > Tu peux même "inscrire la tâche" avec un prgm fait en VB je pense
>> > :o)
>> >
>> > HB
>>
>>
>>









begin 666 Form1.frm
M5D524TE/3B U+C P#0I"96=I;B!60BY&;W)M($9O<FTQ( T*(" @0VQI96YT
M2&5I9VAT(" @(#T@(" Y-S4-"B @($-L:65N=$QE9G0@(" @(" ](" @-C -
M"B @($-L:65N=%1O<" @(" @(" ](" @-#4P#0H@("!#;&EE;G17:61T:" @
M(" @/2 @(#(X,#4-"B @($QI;FM4;W!I8R @(" @(" ](" @(D9O<FTQ(@T*
M(" @4V-A;&5(96EG:'0@(" @(#T@(" Y-S4-"B @(%-C86QE5VED=&@@(" @
M(" ](" @,*(" @4W1A<G15<%!O<VET:6]N(#T@(" S(" G5VEN9&]W
M<R!$969A=6QT#0H@("!"96=I;B!60BY#;VUM86YD0G5T=&]N($-O;6UA;F0R
M( T*(" @(" @0V%P=&EO;B @(" @(" @(#T@(" B4W1O<"(-"B @(" @($AE
M:6=H=" @(" @(" @(" ](" @,S<U#0H@(" @("!,969T(" @(" @(" @(" @
M/2 @(#$Y,C -"B @(" @(%1A8DEN9&5X(" @(" @(" ](" @- T*(" @(" @
M5&]P(" @(" @(" @(" @(#T@(" Q,C -"B @(" @(%=I9'1H(" @(" @(" @
M(" ](" @-#DU#0H@("!%;F0-"B @($)E9VEN(%9"+E1I;65R(%1I;65R,2 -
M"B @(" @($QE9G0@(" @(" @(" @(" ](" @,C0P, T*(" @(" @5&]P(" @
M(" @(" @(" @(#T@(" Q,C -"B @($5N9 T*(" @0F5G:(N0V]M8F]"
M;W@@0V]M8FR( T*(" @(" @2&5I9VAT(" @(" @(" @(#T@(" S,34-"B @
M(" @($QE9G0@(" @(" @(" @(" ](" @-S(P#0H@(" @("!486));F1E>" @
M(" @(" @/2 @(#(-"B @(" @(%1E>'0@(" @(" @(" @(" ](" @(D-O;6)O
M,B(-"B @(" @(%1O<" @(" @(" @(" @(" ](" @,3(P#0H@(" @("!7:61T
M:" @(" @(" @(" @/2 @(#8Q-0T*(" @16YD#0H@("!"96=I;B!60BY#;VUB
M;T)O>"!#;VUB;S$@#0H@(" @("!(96EG:'0@(" @(" @(" @/2 @(#,Q-0T*
M(" @(" @3&5F=" @(" @(" @(" @(#T@(" Q,C -"B @(" @(%1A8DEN9&5X
M(" @(" @(" ](" @,0T*(" @(" @5&5X=" @(" @(" @(" @(#T@(" B0V]M
M8FQ(@T*(" @(" @5&]P(" @(" @(" @(" @(#T@(" Q,C -"B @(" @(%=I
M9'1H(" @(" @(" @(" ](" @-C$U#0H@("!%;F0-"B @($)E9VEN(%9"+D-O
M;6UA;F1"qT;]M;6%N9#$@#0H@(" @("!#87!T:6]N(" @(" @(" @
M/2 @(")';R(-"B @(" @($AE:6=H=" @(" @(" @(" ](" @,S<U#0H@(" @
M("!,969T(" @(" @(" @(" @/2 @(#$S,C -"B @(" @(%1A8DEN9&5X(" @
M(" @(" ](" @, T*(" @(" @5&]P(" @(" @(" @(" @(#T@(" Q,C -"B @
M(" @(%=I9'1H(" @(" @(" @(" ](" @-#DU#0H@("!%;F0-"B @($)E9VEN
M(%9"+DQA8F5L($QA8F5L,2 -"B @(" @($)A8VM#;VQO<B @(" @(" ](" @
M),# P,# P,"8-"B @(" @($)O<F1E<E-T>6QE(" @(" ](" @,2 @)T9I
M>&5D(%-I;F=L90T*(" @(" @0V%P=&EO;B @(" @(" @(#T@(" B3&%B96PQ
M(@T*(" @(" @0F5G:6Y0<F]P97)T>2!&;VYT( T*(" @(" @(" @3F%M92 @
M(" @(" @(" @(#T@(" B35,@4V%N<R!397)I9B(-"B @(" @(" @(%-I>F4@
M(" @(" @(" @(" ](" @."XR-0T*(" @(" @(" @0VAA<G-E=" @(" @(" @
M(#T@(" P#0H@(" @(" @("!796EG:'0@(" @(" @(" @/2 @(#<P, T*(" @
M(" @(" @56YD97)L:6YE(" @(" @(#T@(" P(" @)T9A;'-E#0H@(" @(" @
M("!)=&%L:6,@(" @(" @(" @/2 @(# @(" G1F%L<V4-"B @(" @(" @(%-T
M<FEK971H<F]U9V@@(" ](" @," @("=&86QS90T*(" @(" @16YD4')O<&5R
M='D-"B @(" @($9O<F5#;VQO<B @(" @(" ](" @),$9&1D9&1B8-"B @
M(" @($AE:6=H=" @(" @(" @(" ](" @,C4U#0H@(" @("!,969T(" @(" @
M(" @(" @/2 @(#$R, T*(" @(" @5&%B26YD97@@(" @(" @(#T@(" S#0H@
M(" @("!4;W @(" @(" @(" @(" @/2 @(#8P, T*(" @(" @5VED=&@@(" @
M(" @(" @(#T@(" R,CDU#0H@("!%;F0-"D5N9 T*071T<FEBqE(%9"7TYA
M;64@/2 B1F]R;3$B#0I!='1R:6)U=&)?1VQO8F%L3F%M95-P86-E(#T@
M1F%L<V4-"D%T=')I8G5T92!60E]#<F5A=&%B;&4@/2!&86QS90T*071T<FEB
MqE(%9"7U!R961E8VQA<F5D260@/2!4<G5E#0I!='1R:6)U=&)?17AP
M;W-E9" ]($9A;'-E#0H-"B @)R!F;W)M,2 Z(&=E<W1I;'4@=&5M<',-
M"B @)R V(&]B:F5T<R ]('1I;65R,2 K(&-O;6)O,2 K(&-O;6)O,B K(&-O
M;6UA;F0Q("]M;6%N9#(@*&)OqO;G,I("L@;&%B96PQ#0H@(" @)PT*
M("!/<'1I;;&EC:70@)R!"!DZ6-L87)E<B!L97,@=F%R
M:6%B;&5S#0H@($1I;2!H:"!!<R!">71E("<@=F%R:6%B;&5S+"!H975R90T*
M("!$:6T@;,@0GET92 G(&UI;G5T97,-"B @)PT*(" -"E-U8B!&;W)M
M7TQO860H*2 G(&QA;F-E;65N= T*("!$:6T@:2!!<R!,;VYG#0H@("<-"B @
M1F]R(&D@/2 P(%1O(#4Y("<@8VAA;6=E;65N="!D92!L)VAE=7)E(&1A;G,@
M;&5S(&-O;6)O("H@,@T*(" @($EF(&D@/" R-"!4:&5N($-O;6)O,2Y!9&1)
M=&5M($9O<FUA="AI+" B,# B*2 G(&AE=7)E#0H@(" @0V]M8FR+D%D9$ET
]R;6%T*&DL("(P,"(I("<@;6ENqE<PT*("!.97AT(&D-"B @0V]M
M8FQ+DQI<W1);F1E>" ]($AO=7(H5&EM92D@)V-O;6)O(&UI<R#@(&PG:&5U
M#0H@($-O;6)O,BY,:7-T26YD97@@/2!M:6YU=&4H5&EM92D@
M)R!C;VUB;R!M:7,@X"!L82!M:6YU=&#0H@($QA8F5L,2 ](")-
M:6YU=&5R:!0U1)5D4B("<@:6YD:6-A=&EO;B!D92!L)V%C=&EV:73I
M(&1E(&QA(&UI;G5T97)I90T*("!4:6UE<C$N26YT97)V86P@/2 Q,# P("<@
M=F$@=F]I<B!T;W5S(&QE<R Q+S$P,#!E;&4@<V5C;VYD92 ](#$@<V5C
M;VYD90T*("!&;W)M,2Y#87!T:6]N(#T@(B!4:6UE<B(@)R!E;G3J=&&4@
M;&$@9F]R;0T*("!4:6UE<C$N16YA8FQE9" ]($9A;'-E("<@=&EM97(@:6YA
*16YD(%*#0I3=6(@0V]M;6%N9#%?0VQI8VLH*2 G(&QA;F-E
M(&QE('1I;65R#0H@(&AH(#]M8FQ+E1E>'0@)R!V87)I86)L92!H:"!P
M<F5N9"!L)VAE=7)E(&-H;VES:&%N<R!L92!C;VUB;S$-"B @;6X@/2!#
M;VUB;S(N5&5X=" G('9A<FEA8FQE(&UN('!R96YD(&QA(&UI;G5T92!C:&]I
M<VEE(&1A;G,@;&]M8FR#0H@($QA8F5L,2 ](")-:6YU=&5R:
M259%(B G(&EN9&:68-"B @5&EM97(Q+D5N86)L960@/2!4<G5E
M("=L86YC96UE;'4@=&EM97(-"D5N9"!3=6(-"@T*4W5B(%1I;65R,5]4
M:6UE("=T:6UE<B!V:7-I=@86-T:79I=.D@=&]U=&4@;&5S('-E
M8V]N9&5S#0H@($EF($AO=7(H5&EM92D@/2!H:"!!;F0@;6ENqE*%1I;64I
M(#T@;&AE;B G(&AH("L@;6X@/2!H975R90T*(" @(%1I;65R,2Y%;F%B
M;&5D(#%L<V4@)R!A<G+J="!T:6UE<@T*(" @($US9T)O>"
M($PG2$554D4B+"!V8D5X8VQA;6%T:6]N("<@;65S<V%G90T*(" @($QA8F5L
M,2 ](")-:6YU=&5R:!0U1)5D4B("<@:6YD:7%U92!I;F%C=&EF#0H@
M($5N9"!)*16YD(%*#0I3=6(@0V]M;6%N9#)?0VQI8VLH*2 G(&%R
M<NIT('1I;65R("AP;W5R(&:7@@;W4@<FEE;BXN+@T*("!,
M86)E;#$@/2 B36ENqE<FEE($E.04-4259%(B G(&EN9&EC871I;"?I
M=&%T#0H@(%1I;65R,2Y%;F%B;&5D(#%L<V4@)R!A<G+J="!T:6UE<@T*
M16YD(%*#0I3=6(@1F]R;5]5;FQO860H0V%N8V5L($%S($EN=&5G97(I
M("<@9FEN#0H@($1I;2!R97 @)R!V87)I86)L92!D92!T97-T#0H@("<-"B @
&EM97(Q+D5N86)L960@/2!4<G5E(%1H96X@)R!S:2!T:6UE<B!A8W1I
M9B!D96UA;F1E(&-O;F9I<FUA=&EO;B!D92!QnT=&5R#0H@(" @<F5P(#T@
M(B(-"B @("!R97 @/2!-<V=";(DQA(&UI;G5T97)I92!E:79E
M(" B("8@=F),9B F(")6;W5L97HM=F]U<R!QnT=&5R('%U86YD(&WJ;64@
M("(L('9B475E<W1I;VX@*R!V8EEE<TYO("L@=F)$969A=6QT0G5T=&]N,BD-
M"B @("!)9B!R97 @/#X@=F)997,@5&AE;B!#86YC96P@/2 H+3$I("=S:2!N
M;VX-"B @16YD($EF#0H@("<-"B @56YL;V%D($9O<FTQ("<@<VD@;W5I+"!D
MZ6-H87)G96UE;]R;3$@*R @9.ES86QL;V-A=&EO;B!D97,@=F%R:6%B
M;&5S#0H@($5N9" G(&9E<FUE='5R92!P<F]G<F%M;64-"D5N9"!3=6(-"@T*
"#0H`
`
end

begin 666 tempus.vbp
M5'EP93U%>&4-"D9O<FT]1F]R;3$N9G)M#0I2969E<F5N8V4]*EQ'>S P,#(P
M-#,P+3 P,# M,# P,"U#,# P+3 P,# P,# P,# T-GTC,BXP(S C+BY<+BY<
M+BY<5TE.1$]74UQS>7-T96TS,EQS=&1O;&4R+G1L8B-/3$;VUA=&EO
M;@T*4W1A<G1U<#TB1F]R;3$B#0I#;VUM86YD,S(](B(-"DYA;64](E!R;VIE
M=#$B#0I(96QP0V]N=&5X=$E$/2(P(@T*0V]M<&%T:6)L94UO9&4](C B#0I-
M86IO<E9E<CTQ#0I-:6YO<E9E<CTP#0I2979I<VEO;E9E<CTP#0I!qO26YC
M<F5M96YT5F5R/3 -"E-E<G9E<E-U<'!O<G1&:6QE<STP#0I697)S:6]N0V]M
M<&%N>4YA;64](EA04U R(@T*0V]M<&EL871I;VY4>7!E/3 -"D]P=&EM:7IA
M=&EO;E1Y<&4], T*1F%V;W)096YT:75M4')O*'1M*3TP#0I#;V1E5FEE=T1E
M8G5G26YF;STP#0I.;T%L:6%S:6YG/3 -"D)O=6YD<T-H96-K/3 -"D]V97)F
M;&]W0VAE8VL], T*1FQ0;VEN=$-H96-K/3 -"D9$259#:&5C:STP#0I5;G)O
M=6YD961&4#TP#0I3=&%R=$UO9&4], T*56YA='1E;F1E9#TP#0I2971A:6YE
M9#TP#0I4:')E861097)/8FIE8W0], T*36%X3G5M8F5R3V94:')E861S/3$-
K"@T*6TU3(%1R86YS86-T:6]N(%-E<G9E<ET-"D%U=&]2969R97-H/3$-"@``
`
end
Avatar
OlivierT
Merci !!!
C'est nikel, ca fonctionne a merveille.
Merci beaucoup.

Olivier

"X" a écrit :


Voici, ci-joint les fichiers à télécharger, plus le code ci-dessous
(qui est déjà dans les fichiers joints):

' form1 : gestion du temps
' 6 objets = timer1 + combo1 + combo2 + command1 + command2 (boutons) +
label1
'
Option Explicit ' oblige à déclarer les variables
Dim hh As Byte ' variables, heure
Dim mn As Byte ' minutes
'

Sub Form_Load() ' lancement
Dim i As Long
'
For i = 0 To 59 ' chamgement de l'heure dans les combo * 2
If i < 24 Then Combo1.AddItem Format(i, "00") ' heure
Combo2.AddItem Format(i, "00") ' minutes
Next i
Combo1.ListIndex = Hour(Time) 'combo mis à l'heure actuel
Combo2.ListIndex = minute(Time) ' combo mis à la minute actuel
Label1 = "Minuterie INACTIVE" ' indication de l'activité de la minuterie
Timer1.Interval = 1000 ' va voir tous les 1/1000eme de seconde = 1 seconde
Form1.Caption = " Timer" ' entête de la form
Timer1.Enabled = False ' timer inactif
End Sub

Sub Command1_Click() ' lance le timer
hh = Combo1.Text ' variable hh prend l'heure choisie dans le combo1
mn = Combo2.Text ' variable mn prend la minute choisie dans le combo2
Label1 = "Minuterie ACTIVE" ' indique actif
Timer1.Enabled = True 'lancement du timer
End Sub

Sub Timer1_Timer() 'timer visité en activité toute les secondes
If Hour(Time) = hh And minute(Time) = mn Then ' hh + mn = heure
Timer1.Enabled = False ' arrêt timer
MsgBox "IL EST L'HEURE", vbExclamation ' message
Label1 = "Minuterie INACTIVE" ' indique inactif
End If
End Sub

Sub Command2_Click() ' arrêt timer (pour nouveau choix ou rien...
Label1 = "Minuterie INACTIVE" ' indication d'état
Timer1.Enabled = False ' arrêt timer
End Sub

Sub Form_Unload(Cancel As Integer) ' fin
Dim rep ' variable de test
'
If Timer1.Enabled = True Then ' si timer actif demande confirmation de
quitter
rep = ""
rep = MsgBox("La minuterie est active " & vbLf & "Voulez-vous quitter
quand même ", vbQuestion + vbYesNo + vbDefaultButton2)
If rep <> vbYes Then Cancel = (-1) 'si non
End If
'
Unload Form1 ' si oui, déchargement form1 + désallocation des variables
End ' fermeture programme
End Sub




------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"OlivierT" a écrit dans le message de
news:
> Bonjour,
>
> Ma fois, se serait sympas de ta part si tu pouvais me donner la routine
> complete :-)
>
> Olivier
>
> "X" wrote:
>
>> Bonjour,
>>
>> J'ai donné un exemple, veux-tu que je te fasse la routine
>> complètement,
>> de façon à elle qu'elle fonctionne par copier/coller (heu, en mettant
>> l'objet Timer quand même) ???
>>
>>
>> ------
>> Site logiciels
>> http://irolog.free.fr
>> Mail
>> http://irolog.free.fr/ecrire/index.htm
>> Site perso
>> http://irolog.free.fr/joe/index.htm
>> Principe d'utilisation des news Groups
>> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>> ------------------------------------------------------------------------------------
>> "OlivierT" a écrit dans le message
>> de
>> news:
>> > Merci pour ces reponses. En effet, le planificateur de tache marcherait
>> > bien
>> > mais les postes sur lesquels doit tourner l'application sont bridé. Du
>> > coup,
>> > le planificateur de tache est inutilisable, meme par
>> > l'administrateur...
>> >
>> > Merci pour ton code X, je vais le tester ce matin :-))
>> >
>> > Olivier
>> >
>> > "X" wrote:
>> >
>> >> Bonjour,
>> >>
>> >> Oui, une autre possibilité...
>> >>
>> >> Je répondais en VB...
>> >>
>> >> Mais le planificateur de tâche fait la même chose de toute façon,
>> >> il
>> >> va
>> >> voir régulièrement s'il a quelque chose à faire, je ne suis pas
>> >> certains
>> >> qu'il prennent moins de temps horloge...
>> >>
>> >>
>> >> ------
>> >> Site logiciels
>> >> http://irolog.free.fr
>> >> Mail
>> >> http://irolog.free.fr/ecrire/index.htm
>> >> Site perso
>> >> http://irolog.free.fr/joe/index.htm
>> >> Principe d'utilisation des news Groups
>> >> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
>> >> ------------------------------------------------------------------------------------
>> >> "bayosky" a écrit dans le message de news:
>> >> uoYwQ%
>> >> > salut,
>> >> >
>> >> > Très franchement si une "action spéciale" se fait à une "heure
>> >> > précise"
>> >> > et
>> >> > que rien ne se passe le reste du temps, il vaut mieux écrire le
>> >> > programme
>> >> > "qui fait cette chose spéciale" et utiliser le planificateur de
>> >> > tâche...
>> >> > Tu peux même "inscrire la tâche" avec un prgm fait en VB je pense
>> >> > :o)
>> >> >
>> >> > HB
>> >>
>> >>
>> >>
>>
>>
>>