Examine (avec le log. Super Macro)

Fermé
linus06vl Messages postés 58 Date d'inscription mercredi 2 août 2006 Statut Membre Dernière intervention 25 novembre 2013 - 8 mars 2009 à 17:34
 Pauluxtucru - 11 juil. 2016 à 15:54
Bonjour,

Je voudrai écrire une macro pour faire des captures écran toutes les 15 mn.


Variable : nombre total de capture (nbcapttotal)
Message : vous devez choisir un multiple de 4
Question : combien de captures voulez-vous ?

examine : nbcapttotal =96
examine : nbcapttotal =92
examine : nbcapttotal =88
...........
...............
............
.........
examine : nbcapttotal =4



Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 1.bmp;
Pause 15 mn
Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 2.bmp;
Pause 15 mn
........................
....................
..................
.................
Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 96.bmp;


Comment puis-je indiquer à la macro que si la réponse à la question est par exemple 28, de faire que 28 captures et s'arrêter.

Merci d'avance.

Alain
A voir également:

2 réponses

ta macro doit avoir une forme :

_Début
gadgets (ta question utilisateur "nombre désiré" => var A , etc)
boucle
impression écran
enregistrement image
compteur incrémental => var B
Pause 15mn
comparateur B<A
fin boucle
autres gadgets( traitement des images, renommer le dossier les contenants...)
Fin_

le compteur incrémental ajoute 1 à une variable a chaque fois que ton bidule prend une photo écran. le comparateur regarde si cette variable est inférieure ou non à la variable nombre désiré (cad vérifie qu'on a pas atteint le nombre max de photo a prendre) selon le résultat il sort de la boucle ou non. ainsi:

|
Question (nom du prog);combien de photo à prendre? (entrez un multiple de 4;<A>
Label <Label1>
|
(ton truc a prendre les photos écran)
|
Calcul <B>;+;1
Examine <B>;<;<A>
Goto <Label1>
Pause 00:00:00
|
(la suite du prog)
|

Il reste un problème dans cette manière de faire: tu preneur d'image écran doit à chaque fois donner un nom différent à la photo prise, pour ne pas écraser la précédente. Une autre solution où ce pb ne se pose pas, est de préparer autant de fois que nécessaire le système de photo écran, et en controlant à chaque fois après qu'on ai pas ateint le nombre max, sans quoi il faut sauter directement à la fin. du style :

|
Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 1.bmp;
Pause 15 mn
Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 2.bmp;
Pause 15 mn
Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 3.bmp;
Pause 15 mn
Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 4.bmp;
Examine 4;<;<A>
Pause 15 mn
Goto <Labelfinal>
Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 5.bmp;
Pause 15 mn
|
etc
|
Pause 15 mn
Outil Ecran Copier vers bmp;C:\Program Files\Captures\capture 96.bmp;
Label <Labelfinal>
|
(suite du programme)

là ca marcheras , je te l'assure. mais que c'est long à programmer. meme en copiant-collant le bazar 24 fois, il faut a chaque fois remplacer les valeurs dans les repertoire : capture n.bmp et dans les examine (selon un multiple de 4)
0
Bonjour, désolé de deterrer mais il y a bien plus simple et ca pourra aider les prochains qui se poseront la question:

créer 5 variables
indice = 1 en numérique
nb_boucle = 10 en numérique (ou a poser en question utilisateur)
var1 = C:\Program Files\Captures\capture en alpha
extension=.bmp en alpha
chemin= en alpha (nom vide)

ensuite tu boucles:
label début boucle
examine indice < nb_boucle
si oui, goto suite boucle
si non goto fin boucle
label suite_boucle
calcul évolué: chemin=var1+indice+extension
Outil Ecran Copier vers bmp;chemin
calcul évolué: indice = indice+1
Pause 15 mn
goto debut boucle
label fin boucle

Cordialement
0