Nouvelle variable MVARxxx

Structure STVueConfiguration

CopierSTVueConfiguration est une Structure
	bValeurFixe	est un booléen
	bUniteFixe	est un booléen
FIN

Déclaration de la classe MVARPoids

CopierMVARPoids est une Classe
	hérite de AVariable
PUBLIC
	m_rValeur	est un réel
	m_nRefUnite	est un entier

PROTÉGÉ
	m_stVue est un STVueConfiguration 
FIN

Méthode p_sNomComplet

CopierPROCÉDURE p_sNomComplet() : chaîne

iUnite est un IUnite <- GGlobal.GListe(GUnite).GetModele(m_nRefUnite)

RENVOYER "[%m_rValeur%] [%iUnite.p_sNomComplet%]"

Méthode p_stVue

CopierPROCÉDURE PUBLIQUE p_stVue() : STVueConfiguration

RENVOYER m_stVue

Fonction globale gNouvelleVariable

CopierPROCÉDURE PUBLIQUE GLOBALE gNouvelleVariable(...
	rValeur				est un réel	= 0,...
	nRefUnite		est un entier	= UNITE.KILOGRAMME,...
	bValeurFixe		est un booléen	= Faux,...
	bUniteFixe			est un booléen	= Vrai)

pclNouvelleVariable	est un MVARPoids dynamique

pclNouvelleVariable					= new MVARPoids
pclNouvelleVariable.m_rValeur			= rValeur
pclNouvelleVariable.m_nRefUnite		= nRefUnite
pclNouvelleVariable.m_stVue.bValeurFixe	= bValeurFixe
pclNouvelleVariable.m_stVue.bUniteFixe	= bUniteFixe

RENVOYER pclNouvelleVariable

Méthode SetValeurSiVide

CopierPROCÉDURE SetValeurSiVide(LOCAL rValeur est un réel)

SI m_rValeur = 0 ALORS
	m_rValeur = rValeur
FIN

Méthode ResetValeur

CopierPROCÉDURE ResetValeur()

VariableRAZ(m_rValeur)