Discussion :

[gabcouts]

Bonjour,

J'ai un cas particulié que je n'ai jamais expérimenté;

Je dois afficher differentes images dans plusieurs champ image avec un timer.


Par exemple,

Je crée un gabarit contenant 3 champ Images.
J'affiche mes images en boucle pour chacunes des zones avec interval en secondes.
J'attend un paramètre. (SOIT Fin des boucles d'images ou Timer globale définie par l'utilisateur)
*Je change de gabarit, j'ai maintenant 5 champs images*
J'affiche mes images en boucle pour chacunes des zones avec interval en secondes.

*Je RE-crée mon gabarit 3 champs images*
...
Recommence et boucle jusqua la fermeture du soft





En fait, je dois avoir ;
-minimum 1 timer pour le changement de gabarit
- 1 timer par champ Image


Donc, j'utilise les thread, timer, je boucle, un mélange de tout? Mon soft ne dois pas gélé en attentant la fin d'un temporisation.

Merci

[tatayo]

Bonjour,
Pour moi il faut passer par des timers: la procédure est lancée dans le thread principal, ainsi elle a accès à l'interface utilisateur.
Tu peux sans problème lancer "dynamiquement" de nouveau timer lorsqu'un nouveau champ image est affiché.
Dixit l'aide en ligne, on ne peut pas passer de paramètres à la fonction appelée par le timer.
Par contre on peut appeler une méthode d'un objet.
Tu peux donc utiliser une classe dont un membre contient le nom du champ image, et une méthode qui s'occupe de la modification des images.

A chaque ajout d'un champ image, tu crée une nouvelle instance de la classe, tu lui indiques le nom du champ image (à mon avis il faut le nom complet), et tu lances un nouveau timer en lui indiquant de lancer la méthode idoine de l'instance.

J'imagine assez bien stocker la liste des instances dans un tableau associatif, dont la clé sera le nom du champ image, et ajouter à la classe un membre qui "contient" le numéro du timer, ou alors laisser à l'instance le soin de lancer le timer (et l'arrêter) via des méthodes publiques.
Bref il y a pas mal de pistes.

Tatayo.

[gabcouts]

Bonjour tatayo,

C'est ce que j'ai fait le soir-même, j'ai créer une classe qui gère le changement d'image. J'appel une méthode par timer qui incrémente l'indice en cours de mon tableau (où son stocké les images) et une autre méthode automatique qui appel un changement de valeur de mon champ si l'indice a augmenté.

Je peux initialiser cette classe pour chacun des mes champs images dont je veux afficher un diaporama.


Apercu du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
ViewImageLibrary est une Classe
 
m_sNomChamp est une chaîne
m_tabImage est un tableau de STListeImageLibrary
 
m_nIndiceEnCours est un entier
m_nDernierIndice est un entier
 
m_nNumeroTimer est un entier
m_nSuffixeTimer est un entier
 
FIN
 
PROCÉDURE Constructeur()
 
 
 
PROCÉDURE Destructeur()
 
 
PROCÉDURE Initialise(p_sChamp est une chaîne,p_tabImage est un tableau de STListeImageLibrary)
 
:m_sNomChamp = p_sChamp
:m_tabImage = p_tabImage
m_nNumeroTimer = 0 
SI :m_tabImage..Occurrence = 0 ALORS libérer objet
 
 
// Procédure automatique :
// La procédure est exécutée manuellement, lors d'un appel dans le code
// Elle s'exécutera dans un thread (sans avoir besoin d'appeler la fonction ThreadExecute), sans utilisation de HFSQL
// Elle sera répétée en boucle, en attendant 3 secondes entre chaque appel
// 
 
PROCÉDURE VerifieChangement()
 
SI m_nDernierIndice = m_nIndiceEnCours ALORS
	RETOUR
FIN
 
ExécuteThreadPrincipal(FEN_AFFICHAGES.ChangeValeurImage,m_sNomChamp,m_tabImage[m_nIndiceEnCours].sCheminImage)
 
Trace("CHANGE IMAGE : "+m_sNomChamp)
m_nDernierIndice = m_nIndiceEnCours
 
 
 
PROCÉDURE PasseProchain()
 
m_nIndiceEnCours ++
 
SI m_nIndiceEnCours > :m_tabImage..Occurrence ALORS
	m_nIndiceEnCours = 1 
FIN
 
SI :m_nNumeroTimer <> 0 ALORS
	FinTimer(m_nNumeroTimer)
SINON
	:m_nNumeroTimer = Random(1,99999)
FIN
 
Timer(PasseProchain,(m_tabImage[m_nIndiceEnCours].nFin-m_tabImage[m_nIndiceEnCours].nDebut)*100,m_nNumeroTimer)
 
PROCÉDURE Lance()
 
m_nDernierIndice = 0 
m_nIndiceEnCours = 0 
 
PasseProchain()
 
 
 
VerifieChangement()

Merci pour ton temps,