Les quotas

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=quota.upl

Revenir en haut de la page...

quota

Revenir en haut de la page...

Source Composant "Exemple d'emploi des quotas" Version 1.0.0;

Public :
/*****/
Type T Defaut Quota
/*****************/
Fin Type

Variable
/******/
Public :
/******/ Constructeur T(CC : Caractere)
/**************************/
Debut
C=CC;
Fin Constructeur

Procedure Quota T.CalculerStatistiques()
/**************************************/
Variable Debut
Pour I=0 JusquA 10000 Faire Fin Pour
Fin Procedure

Procedure Quota CalculerStatistiquesGlobalement()
/***********************************************/
Variable Debut
Pour I=0 JusquA 10000 Faire Fin Pour
Fin Procedure

Procedure Synchroniser AlimenterListe()
/*************************************/
Variable Debut
Pour I=0 JusquA 10000 Faire Fin Pour
Fin Procedure

Principal
/*******/
Variable Debut
UtilisateurAdministrateur.ModifierMotDePasse("", "Administrateur");
UtilisateurSpoule.ModifierMotDePasse("", "Spoule");
Connecter("Administrateur", "Administrateur");

RoleAdministrateur.AjouterQuotaAppel(CalculerStatistiquesGlobalement, 10, 1.0);
RoleAdministrateur.AjouterQuotaType(T, 10, 1.0);

AttraperException TraiterException Fin AttraperException

AttraperException TraiterException Fin AttraperException

AttraperException TraiterException Fin AttraperException
Fin Principal

Revenir en haut de la page...