Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Cpcdos Discussion :

Soucis de création de compteur (ALPHA 3.9)


Sujet :

Cpcdos

  1. #1
    Membre régulier
    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 : 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 !

  2. #2
    Membre éclairé
    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.
    Cordialement,
    Herman Adrien.

  3. #3
    Membre expérimenté
    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
    Sébastien FAVIER
    co-kernel Cpcdos OSx un noyau 32bits simplifié et complet.. ou presque - Le fofo officiel c'est par ici.
    Les cours sur les systèmes c'est par là