spheris | #1 Posté le 1/2/2012 à 13:21:59 |
---|
![](http://gambaslinux.fr/file/forum/crevette2.png) | Bonjour, Je souhaite creer un timer, le paramétrer avec un temps A (45secondes par exemple) et quand il a atteind sa valeur, avoir un retour d'info dans une variable B ("timer arrété" ou 0 par exemple) puis le détruire. a) Pourriez-vous m'indiquer quel est ce code ? b) Comme je vais m'en servir souvent, dois-je faire un module ou une classe ? Merci pour vos réponses.
|
linuxos | #2 Posté le 1/2/2012 à 16:37:36 |
---|
Un peu de sel, de poivre et la crevette sera... ![](images/avatars/avatar-28.png) | Bonjour,
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| PUBLIC MonTimer AS Timer
PUBLIC SUB Demarrer_Timer()
MonTimer = NEW Timer AS "MonTimer1" MonTimer.Delay = 10000 <--- 10 Secondes MonTimer.Enabled = TRUE MonTimer.Start()
END
PUBLIC SUB MonTimer1_Timer()
' Evenement quand le Timer arrive a son terme
' Arret du Timer MonTimer.Stop MonTimer.Enabled = FALSE
' Destruction du Timer MonTimer = NULL
END
|
OlivierLorsqu'on s'occupe d'informatique, il faut faire comme les canards... Paraître calme en surface et pédaler comme un forcené par en dessous. |
spheris | #3 Posté le 1/2/2012 à 20:06:10 |
---|
![](http://gambaslinux.fr/file/forum/crevette2.png) | Merci LinuxOs mais un peu plus de precisions. Je compte demarrer 5 ou 6 timer en meme temps ou sequentiellement puis les eteindre chacun a une periode donnée. comment les repérer sanchant que si je fais ce que tu dis :
, je les perds tous non ? |
linuxos | #4 Posté le 1/2/2012 à 22:20:16 |
---|
Un peu de sel, de poivre et la crevette sera... ![](images/avatars/avatar-28.png) | spheris,
Je crois que sur le coup tu n'as pas été très précis dans tes explications ![:)](images/smileys/icon_smile.gif)
Donc voila le code:
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
| PUBLIC TableauTimer AS NEW Object[]
PUBLIC SUB Demarrer_Nouveau_Timer()
DIM NouveauTimer AS Timer DIM IndexTableau AS INTEGER
NouveauTimer = NEW Timer AS "ListTimer"
TableauTimer.Add(NouveauTimer)
IndexTableau = TableauTimer.Find(NouveauTimer)
TableauTimer[IndexTableau].Delay = 10000 ' <--- 10 Secondes TableauTimer[IndexTableau].Enabled = TRUE TableauTimer[IndexTableau].Start()
END
PUBLIC SUB ListTimer_Timer()
' Evenement quand un Timer arrive a son terme
' Arret du Timer LAST.Stop LAST.Enabled = FALSE
' Destruction du Timer IF TableauTimer.Exist(LAST) THEN TableauTimer.Remove(TableauTimer.Find(LAST)) END IF
END
|
Lorsqu'on s'occupe d'informatique, il faut faire comme les canards... Paraître calme en surface et pédaler comme un forcené par en dessous. |
spheris | #5 Posté le 2/2/2012 à 23:08:12 |
---|
![](http://gambaslinux.fr/file/forum/crevette2.png) | Dans la même lignée de question, un tableau peut il posséder des integer, variant, string, timer ou autres dans le même tableau vu qu'on le défini en object[] |
linuxos | #6 Posté le 3/2/2012 à 00:12:50 |
---|
Un peu de sel, de poivre et la crevette sera... ![](images/avatars/avatar-28.png) | Spheris,
Je vois que tu n'es pas a l'aise avec la programmation objet mais cela viendra:
1 - Creer une Classe nommée: ClassInfo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| ' Gambas class file
PUBLIC UnTexte AS STRING PUBLIC UnNombre AS INTEGER PUBLIC UnTableauTexte AS String[] PUBLIC UnTableauNombre AS Integer[]
PUBLIC SUB _new()
UnTableauTexte = NEW String[] UnTableauNombre = NEW Integer[]
END
|
2 - Le code
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
| PUBLIC TableauTimer AS NEW Object[] PUBLIC TableauInfo AS NEW Collection
PUBLIC SUB Form_Open()
Lancer_les_Timer()
END
PUBLIC SUB Lancer_les_Timer()
' Procedure pour lancer quelques Timer avec des paramètres différents
Demarrer_Nouveau_Timer(5000, "Timer1", 1, ["45", "12", "48"], [1, 56, 24])
Demarrer_Nouveau_Timer(2000, "Timer2", 2, ["19", "43", "65"], [9, 8, 10])
Demarrer_Nouveau_Timer(12000, "Timer3", 3, ["61", "68", "29"], [12, 6, 74])
Demarrer_Nouveau_Timer(10000, "Timer4", 4, ["82", "52", "99"], [16, 13, 52])
Demarrer_Nouveau_Timer(8000, "Timer5", 5, ["27", "14", "100", "41"], [20, 19, 63])
END
PUBLIC SUB Demarrer_Nouveau_Timer(UnDelais AS INTEGER, UnTexte AS STRING, UnNombre AS INTEGER, UnTableauTexte AS String[], UnTableauNombre AS Integer[])
DIM NouveauTimer AS Timer DIM IndexTableau AS INTEGER DIM NouvelleInfo AS ClassInfo
NouveauTimer = NEW Timer AS "ListTimer" NouvelleInfo = NEW ClassInfo
' Configuration de la nouvelle ficher Info du Timer NouvelleInfo.UnTexte = UnTexte NouvelleInfo.UnNombre = UnNombre NouvelleInfo.UnTableauTexte = UnTableauTexte NouvelleInfo.UnTableauNombre = UnTableauNombre
' Ajout du nouveau Timer dans le tableau des Objets TableauTimer.Add(NouveauTimer) ' Stockage du nouveau Timer dans le tableaur des Objets
' Ajout de la fiche Info du Timer dans la Collection des Infos TableauInfo.Add(NouvelleInfo, Str(NouveauTimer)) ' Stockage de la nouvelle fiche liée au nouveau Timer
IndexTableau = TableauTimer.Find(NouveauTimer)
' Démarrage du nouveau Timer TableauTimer[IndexTableau].Delay = UnDelais ' <--- Delais en ms TableauTimer[IndexTableau].Enabled = TRUE TableauTimer[IndexTableau].Start()
PRINT "Nouveau Timer lancé: " Str(TableauTimer[IndexTableau] " Delais: UnDelais
END
PUBLIC SUB ListTimer_Timer()
' Evenement quand un Timer arrive a son terme
DIM sNumTimer AS STRING
' Arret du Timer LAST.Stop LAST.Enabled = FALSE
sNumTimer = Str(LAST)
' Destruction du Timer IF TableauTimer.Exist(LAST) THEN TableauTimer.Remove(TableauTimer.Find(LAST)) END IF
PRINT "Fin d'un Timer. (Nbre de Timer Restants: " & TableauTimer.Count & ")"
' Affichage des Infos du Timer qui vient de se terminer IF TableauInfo.Exist(sNumTimer) THEN PRINT "Timer: " & sNumTimer PRINT " - UnTexte : " & TableauInfo[sNumTimer].UnTexte PRINT " - UnNombre : " & TableauInfo[sNumTimer].UnNombre PRINT " - UnTableauTexte : " & TableauInfo[sNumTimer].UnTableauTexte.Count & " Element(s)" PRINT " - UnTableauNombre: " & TableauInfo[sNumTimer].UnTableauNombre.Count & " Element(s)"
' Destruction du Timer TableauInfo.Remove(sNumTimer) END IF
END
|
Voila, OlivierLorsqu'on s'occupe d'informatique, il faut faire comme les canards... Paraître calme en surface et pédaler comme un forcené par en dessous. |
spheris | #7 Posté le 3/2/2012 à 08:27:36 |
---|
![](http://gambaslinux.fr/file/forum/crevette2.png) | Linuxos, Merci pour ta réponse. Tu as bien raison, la poo me dépasse de beaucoup trop loin, Je saisi le sens de ton code mais tout se mord la queu et tout est imbriqué l'un dans l'autre. Je suis simplement fait pour du Basic de 1ere catégorie. Je vais essayer de me dépatouiller avec ton code qui est, certainement, très réussi. Merci pour ton aide. |
manu | #8 Posté le 3/2/2012 à 08:44:04 |
---|
Avec Gambas ca roule !![](images/avatars/avatar-16.png) | je compatis.... C'est perturbant la POO, il y a pas de début ni de fin. J'ai beaucoup de mal, moi aussi à m'y faire, ce qui est incontestablement limitant. On fait avec, ou plutôt sans ![:)](images/smileys/icon_smile.gif) Jeanne d'arc, elle a frit, elle a tout compris ! ![;)](images/smileys/icon_wink.png) Config : Manjaro linux (excellent !) XFCE 4.1 (simple et efficace) Gambas 3 dans les dépots (confort total) |
spheris | #9 Posté le 3/2/2012 à 09:46:08 |
---|
![](http://gambaslinux.fr/file/forum/crevette2.png) | Yeeeesss ! Mon programme fonctionne maintenant. J'y ai juste apporté 2 ou 3 modifs :
pour le demarrage de mon timer, il me manquait l'index de qui envoi la demande de demarrage.
1
2
3
4
5
6
| DIM NouveauTimer AS Timer NouveauTimer = NEW Timer AS "listdestimers" lestimers[lindex] = NouveauTimer lestimers[lindex].Delay = 2500 lestimers[lindex].Enabled = TRUE lestimers[lindex].Start()
|
ensuite j'ai compris aussi comment récupérer le numero de l'index du timer en cours par la commande :
ainsi je peux arréter mon timer par cette commande :
1
| tablotimer[lestimers.Find(LAST)].Stop
|
Merci Linuxos pour ton aide précieuse. Et oui tu as raison manu, nous sommes des Procéduraux et non des P.O.O.man. Pourtant ce n'est pas faute de vouloir y arriver. Il manque le déclic... |