Discussion :

[lulu45]

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 :

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
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 :

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
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 !

[BlackoOSX]

Salut !
Je pense que tu as fais une petite erreur de syntaxe dans ton fichier événement.
Il faut que tu ai cette syntaxe:

Code :

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

1
2
3
4
INI/ MonCompteur(
     REM/ Paramètres
INI/ MonCompteur)

Tu as juste remplacé le / par un ; je pense.

[cpcdos]

Exact,

Et il faut pas oublier "CREER/" pour actualiser les propriétés

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
PROC/ CT_MENU(CYCLE)

	SI/ %OUVERT% = 1 (
		INI;COMPTEUR(
			INI;NOM		= "CT_MENU"
			INI;ACTIVE	= "1"
			Creer/
		INI/ COMPTEUR)
		FERMER/ LST
		FIX/ OUVERT = 0
	SINON/
		INI;COMPTEUR(
			INI;NOM		= "CT_MENU"
			INI;ACTIVE	= "0"
			Creer/
		INI/ COMPTEUR)
	FIN)

FIN/ PROC