1. #1
    Membre régulier
    Homme Profil pro
    createur d'os
    Inscrit en
    novembre 2014
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 18
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : createur d'os

    Informations forums :
    Inscription : novembre 2014
    Messages : 70
    Points : 70
    Points
    70

    Par défaut 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 confirmé
    Avatar de BlackoOSX
    Homme Profil pro
    Lycéen
    Inscrit en
    septembre 2014
    Messages
    333
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 17
    Localisation : France, Vienne (Poitou Charente)

    Informations professionnelles :
    Activité : Lycéen
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : septembre 2014
    Messages : 333
    Points : 648
    Points
    648
    Billets dans le blog
    3

    Par défaut

    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é
    Avatar de cpcdos
    Homme Profil pro
    Etudiant Master ESI Isitech Développeur technicien informatique embarqué chez Navya
    Inscrit en
    mai 2010
    Messages
    566
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 23
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Etudiant Master ESI Isitech Développeur technicien informatique embarqué chez Navya
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : mai 2010
    Messages : 566
    Points : 1 705
    Points
    1 705
    Billets dans le blog
    1

    Par défaut

    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à

Discussions similaires

  1. Soucis de création de menu
    Par Lost In Translation dans le forum Formulaires
    Réponses: 1
    Dernier message: 03/05/2007, 18h07
  2. Souci avec création de liste
    Par talggir dans le forum Général VBA
    Réponses: 2
    Dernier message: 29/04/2007, 19h12
  3. Réponses: 4
    Dernier message: 21/03/2007, 14h56
  4. [VB6] Soucis avec Création de label dynamique
    Par Lucas42 dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 19/06/2006, 18h55
  5. Soucis de création de requêtes sql
    Par Zebeber dans le forum Requêtes et SQL.
    Réponses: 11
    Dernier message: 26/05/2006, 11h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo