Gambas France BETA


Pas de compte ? Incription

[GB3]? Au sujet de Timer.Trigger.

1
AuteurMessages
Reivillo#1 Posté le 11/8/2012 à 14:35:42
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir à Tous.

D'après la Doc Gambas,
l'Objet Timer flanqué de la Méthode Trigger,
permet de déclencher le Timer une fois.

Dans le Code suivant, il déclenche immédiatement,
alors, que je souhaite le faire au délai de 3 secondes.

Bien sûr, je peux jouer du Start & Stop.

Pour moi Trigger devrait être égal à Start & Stop.

Merci.
Reivillo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Gambas class file

PUBLIC hTrigger AS NEW Timer AS "_hTrigger"
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

hTrigger.Delay = 3000
hTrigger.Trigger

END

PUBLIC SUB _hTrigger_Timer()

PRINT "_hTrigger_Timer : " & hTrigger.Delay

END
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Reivillo#2 Posté le 16/8/2012 à 01:02:18
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bon.

On ne pas peut-être pas bien compris.

Un Trigger, j'en emploi pratiquement,
tous les jours.(Hardware),
(Et ça tourne comme suit):

1: Il y a le Top de Départ.
2: le delai
3: L' Action a Réaliser

Je vous monte un Code:

Prérequis:
Mettre 2 Buttons sur le Formmulaire.
Puis Copier/Coller le Code ci-après.

Il y a Un Test sous Start and Stop,
et l'Autre sous Trigger.

Sur Gambas2 c'est Pareil.


Voir les retours dans la Console Gambas.

Bizarre, Bizarre, vous avez dis bizarre?

A+.
Reivillo.



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
' Gambas class file

PUBLIC hTrigger AS NEW Timer AS "_hTrigger"
PUBLIC fTimer AS FLOAT

PUBLIC SUB Form_Open()

END

PUBLIC SUB _hTrigger_Timer()

ME.Mouse = Mouse.Default
hTrigger.Stop
PRINT "_hTrigger_Timer : " & Int(Int(Timer - fTimer) * (1000))
PRINT

END

PUBLIC SUB Button1_Click() 'Test With Start and Stop

PRINT "Test With Start and Stop"
hTrigger.Delay = 3000
fTimer = Timer
hTrigger.Start
ME.Mouse = Mouse.Wait

END

PUBLIC SUB Button2_Click() 'Test With Trigger

PRINT "Test With Trigger"
hTrigger.Delay = 3000
fTimer = Timer
hTrigger.Trigger
ME.Mouse = Mouse.Wait

END

Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
1