Page 1 sur 1

fonction de temps

Posté : mar. 30 oct. 2018 19:57
par sleinininono
Bonjour ! Je regardais comment faire tourner en boucles un programme sur mon ordinateur en l'activant toutes les T secondes. Je pensais convertir l'heure d'activation en secondes puis relever l'heure convertie en secondes modulo T et quand l'heure vaut 0 (cad on est à un multiple de T) on active le programme.
Qu'en pensez vous ? Auriez vous une meilleure façon de faire ? Il faudrait qu'il s'active toutes les 30mins. Avant j'utilisais le planificateur de windows mais ça marchait moyen... et c'était pas assez puissant comme je voulais, donc autant que je code un petit peu, ça sera plus simple.

J'ai donc cherché des outil pour cela et je suis perdu... La seule chose que je trouve c'est _Now Time et je ne comprends pas le retour... Je ne sais pas si c'est une string ou un array ou quoi... Je ne saurais même pas l'utiliser en le coupant et convertissant chaque valeur en ce qu'il faut.

De l'autre j'ai trouvé @Hour et @Min mais je ne sais pas du tout ce que c'est... J'ai trouvé ça un peu par hasard et je ne sais pas à quoi correspond le @ et si c'est bien ça que je cherchais ?

Je vous remercie de votre aide,

sleinininono

Re: fonction de temps

Posté : mer. 31 oct. 2018 01:05
par walkson
Bonjour,
3 solutions parmi d'autres.....

Code : Tout sélectionner

Global $NB = 0

MsgBox(0,"", "Il est le " & @MDAY &"\"& @MON &"\"& @YEAR &"-"& @HOUR &":"& @MIN &":"& @SEC)
While 1
	If $NB = 5 Then ExitLoop
	Sleep(1000) ;toutes les secondes
	temps()
	$NB += 1
WEnd
$NB = 0
$oldtime = @MIN

Do
	ToolTip("Patientez " & @SEC,100,200,"toutes les minutes")
	If $oldtime <> @MIN Then
	$oldtime = @MIN  ;toutes les minutes
	temps()
	$NB += 1
	EndIf
	Sleep(1000)
Until $NB = 2
ToolTip("")

$NB = 0
$oldtime = TimerInit()
Do
	$diff = TimerDiff($oldtime)
	If $diff > 3000 Then ;toutes les 3 secondes
	temps()
	$NB += 1
	$oldtime = TimerInit()
	$diff = 0
	EndIf
Until $NB = 3


Func temps()
	MsgBox(0,"Temps " & $NB, "Il est " & @HOUR &":"& @MIN &":"& @SEC, 1)
EndFunc


Re: fonction de temps

Posté : mer. 31 oct. 2018 09:56
par sleinininono
vraiment intéressant, merci !

Re: fonction de temps

Posté : mer. 31 oct. 2018 21:17
par mikell
sleinininono a écrit : mar. 30 oct. 2018 19:57Il faudrait qu'il s'active toutes les 30mins
AdlibRegister("my_programme", 30*60*1000)   ; 30 mn

Func my_programme()
   Run("my_programme.exe")
EndFunc
:?:

Re: fonction de temps

Posté : mer. 31 oct. 2018 23:40
par jchd
C'est un remake de Google translate : on lit un thread sur le forum anglais et hop on a la copie conforme en hexagonal ici...

Re: fonction de temps

Posté : jeu. 01 nov. 2018 08:46
par mikell
C'est vrai mais ici la question est anodine - les réponses aussi d'ailleurs
Si on commence à verrouiller sur ce genre de question, c'est plus un forum, c'est la Cité Interdite .... :|

Re: fonction de temps

Posté : jeu. 01 nov. 2018 20:31
par jchd
Ce n'était qu'une remarque, pas un appel à l'incarcération immédiate.

Re: fonction de temps

Posté : jeu. 01 nov. 2018 21:26
par mikell
Certes.
Cela dit merci pour la remarque, parce que je reconnais pour ma part avoir complètement zappé le topic sur le forum US ... Image