Declenchement automatique d'un programme
nad
-
27 juil. 2001 à 15:53
cs_edesign Messages postés 3 Date d'inscription mercredi 5 avril 2006 Statut Membre Dernière intervention 30 août 2006 - 31 août 2006 à 09:13
cs_edesign Messages postés 3 Date d'inscription mercredi 5 avril 2006 Statut Membre Dernière intervention 30 août 2006 - 31 août 2006 à 09:13
A voir également:
- Undelay traduction
- Un programme tente d'envoyer un courrier en votre nom ✓ - Forum Visual Basic 6
- Défilement automatique page web - Forum Javascript / DHTML
- Un seul champ automatique est permis et il doit être indexé ✓ - Forum SQL
- Applications et programme d'interface - Conseils pratiques -Graphisme
- Echange de lien automatique ✓ - Forum PHP
3 réponses
-------------------------------
Réponse au message :
-------------------------------
je voudrais que tous les jours a 17H, mon programme se lance automatiquement
comment puis je faire????????
Merci d'avance, je suis desesperee
Réponse au message :
-------------------------------
je voudrais que tous les jours a 17H, mon programme se lance automatiquement
comment puis je faire????????
Merci d'avance, je suis desesperee
Bonjour,
Deja tu mets ta form.visible=false et le showintaskbar=false
ensuite tu mets un timer avec un delay de 60000 par exemple et tu fais
if cstr(format(time,"HH:MM"))="17:00" then
form.visible=true
form.showintaskbar=true
end if
et tu lances ton programme au demarrage de la machine soit dans le menu demarrer soit dans la base de registre.
ShadeBob
Deja tu mets ta form.visible=false et le showintaskbar=false
ensuite tu mets un timer avec un delay de 60000 par exemple et tu fais
if cstr(format(time,"HH:MM"))="17:00" then
form.visible=true
form.showintaskbar=true
end if
et tu lances ton programme au demarrage de la machine soit dans le menu demarrer soit dans la base de registre.
ShadeBob
cs_edesign
Messages postés
3
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
30 août 2006
31 août 2006 à 09:13
31 août 2006 à 09:13
Bjr !
jè un prog ki fé un compte à rebours. voila ce prog
Private sub Delay(Temps As Integer)
Tmp_1 = Timer
Do
DoEvents
Tmp_2 = Timer
Loop Until (Tmp_2 - Tmp_1) / 1 > Temps
End sub
Ds un form je mets 2 boutons dt voila son sub
Sub command1_click()
delay(10) :Msgbox("action 1 fini")
end sub
Sub command2_click()
delay(3) : Msgbox("action 2 fini")
end sub
Problème
-cas 1 : Si je click le bouton1 puis tt de suit bouton2, après 3s on a "action 1 fini"et 7s après on a "action 2 fini". Donc c bon jusk la
- cas 2 :Par contre Si je click le bouton2 puis tt de suit bouton1, c après 10s k'on a "action 1 fini" et "action 2 fini" au lieu de après 3s on a "action 1 fini"et 7s après on a "action 2 fini" comme au 1er cas.
pouriez vs m'aider à ce sujet? ou s ke mon function delay n'est pas bon?
jè un prog ki fé un compte à rebours. voila ce prog
Private sub Delay(Temps As Integer)
Tmp_1 = Timer
Do
DoEvents
Tmp_2 = Timer
Loop Until (Tmp_2 - Tmp_1) / 1 > Temps
End sub
Ds un form je mets 2 boutons dt voila son sub
Sub command1_click()
delay(10) :Msgbox("action 1 fini")
end sub
Sub command2_click()
delay(3) : Msgbox("action 2 fini")
end sub
Problème
-cas 1 : Si je click le bouton1 puis tt de suit bouton2, après 3s on a "action 1 fini"et 7s après on a "action 2 fini". Donc c bon jusk la
- cas 2 :Par contre Si je click le bouton2 puis tt de suit bouton1, c après 10s k'on a "action 1 fini" et "action 2 fini" au lieu de après 3s on a "action 1 fini"et 7s après on a "action 2 fini" comme au 1er cas.
pouriez vs m'aider à ce sujet? ou s ke mon function delay n'est pas bon?
