Soucis de création de compteur (ALPHA 3.9)
Bonjour (ou bonsoir) à tous,
Après une longue période sans coder, je m'y remet et je commence bien car j'ai un petit soucis !
Voià j'ai ma fenetre de mon menu et je souhaiterais créer un compteur pour que la fenêtre se ferme au bout de X secondes.
Mais voila je n'y arrive tout simplement pas
MENU_LST:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| FIX/ OUVERT = 1
FIX/ POSY2 = /C %ECRY% - 175
INI/ FENETRE(
INI;NOM = "LST"
INI;TEXTE = "FENETRE MENU"
INI;TYPE = "2;M0A0R0F0T0V1"
INI;COULEUR = "000,000,000"
INI;TX = "120"
INI;TY = "150"
INI;PX = "0"
INI;PY = "%POSY2%"
CREER/
INI/ FENETRE)
INI/ COMPTEUR(
INI;NOM = "CT_MENU"
INI;FENETRE = "LST"
INI;INTERVALLE = "5.000"
INI/ACTIVE = "0"
CREER/
EV/ %SYSTEME%\MENU_EV.CPC
INI/ COMPTEUR) |
MENU_EV:
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
|
FIX/ LST_FER = 0
PROC/ IMG_MENU(CLIC)
SI/ %OUVERT% = 1 (:ALLER/ FERMER:)
EXE/ %SYSTEME%\MENU_LST.CPC
FIN/ PROC
PROC/ IMG_MENU(SURVOLE)
INI/ IMAGEBOX(
INI;NOM = "IMG_MENU"
INI;IMAGE = "OS\Media\Bureau\MENU_2.BMP"
CREER/
INI/ IMAGEBOX)
FIN/ PROC
PROC/ IMG_MENU(NONSURVOLE)
INI/ IMAGEBOX(
INI;NOM = "IMG_MENU"
INI;IMAGE = "OS\Media\Bureau\MENU.BMP"
CREER/
INI/ IMAGEBOX)
FIN/ PROC
PROC/ CT_MENU(CYCLE)
SI/ %OUVERT% = 1 (
INI;COMPTEUR(
INI;NOM = "CT_MENU"
INI;ACTIVE = "1"
INI/ COMPTEUR)
FERMER/ LST
FIX/ OUVERT = 0
SINON/
INI;COMPTEUR(
INI;NOM = "CT_MENU"
INI;ACTIVE = "0"
INI/ COMPTEUR)
FIN)
FIN/ PROC
:FERMER:
FERMER/ LST
FIX/ OUVERT = 0 |
Merci d'avance !
