26.06.2015 Views

contribution à l'etude et au dimensionnement d'un reseau d'entreprise

contribution à l'etude et au dimensionnement d'un reseau d'entreprise

contribution à l'etude et au dimensionnement d'un reseau d'entreprise

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

ANNEXE 4 : Utilisation de l’AGL Windev version 9<br />

Voici le code source de notre application :<br />

//Clic sur le bouton Suivant<br />

debit_local est un entier<br />

MoiMême..Etat=Grisé<br />

SELON Proj<strong>et</strong>_creation..Plan<br />

CAS 1<br />

SI Proj<strong>et</strong>_LibelleEOT ALORS<br />

EcranVersFichier<br />

HAjoute(Proj<strong>et</strong>)<br />

HLit(Proj<strong>et</strong>)<br />

IDProj<strong>et</strong>Encours=Proj<strong>et</strong>.Proj<strong>et</strong>_ID<br />

FIN<br />

NomProj<strong>et</strong>=Proj<strong>et</strong>_Libelle<br />

Precedent..Etat=Actif<br />

CAS 2<br />

SI Table_Localité..Occurrence0 ALORS<br />

HDésactiveFiltre(Localite)<br />

sRubCléParcours2 est une<br />

chaîne=HFiltre(Localite,"Localite_Proj<strong>et</strong>ID="+IDProj<strong>et</strong>Encours)<br />

ListeAffiche(Cmb_localite)<br />

FIN<br />

CAS 3<br />

SI maillage=F<strong>au</strong>x ALORS<br />

// en étoile<br />

// Compte rendu<br />

SI HTrouve ALORS<br />

Proj<strong>et</strong>.Proj<strong>et</strong>_SwitchCentre=""+commcentre<br />

SELON commcentre<br />

CAS ~="SWITCH 10/100"<br />

Proj<strong>et</strong>.Proj<strong>et</strong>_ModeleType="Modèle à une couche"<br />

CAS ~="SWITCH GIGABIT"<br />

Proj<strong>et</strong>.Proj<strong>et</strong>_ModeleType="Modèle à deux couches"<br />

CAS ~="SWITCH MULTILAYER"<br />

Proj<strong>et</strong>.Proj<strong>et</strong>_ModeleType="Modèle à trois couches"<br />

FIN<br />

HModifie(Proj<strong>et</strong>)<br />

FIN<br />

SINON<br />

HLitRecherchePremier(Proj<strong>et</strong>, Proj<strong>et</strong>_ID,<br />

IDProj<strong>et</strong>Encours)<br />

89

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!