pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


L'exemple suivant permet de créer dynamiquement une procédure en fonction des choix effectués par l'utilisateur. Cet exemple permet de saisir deux chiffres dans deux champs de saisie (Valeur1 et Valeur2) et de réaliser un calcul en fonction de l'option cochée dans le sélecteur.



// Exemple : opération sélectionnée dans sélecteur Opération
Res est une chaîne
CodeàCompiler est une chaîne = "Résultat1 est un entier" + RC +…
                     "Saisie2 est un entier" + RC
SELON Opération
  
CAS 1 : // Addition
    
CodeàCompiler = CodeàCompiler + "Résultat1 = Valeur1+Valeur2" + RC + ...
                     "Saisie2 = Valeur1+Valeur2"
  
CAS 2 : // Soustraction
     
CodeàCompiler = CodeàCompiler + "Résultat1 = Valeur1-Valeur2" + RC + ...
                     "Saisie2 = Valeur1-Valeur2"
  
CAS 3 : // Multiplication
     
CodeàCompiler = CodeàCompiler + "Résultat1 = Valeur1*Valeur2" + RC + ...
                     "Saisie2 = Valeur1*Valeur2"
  
CAS 4 : // Division
     
CodeàCompiler = CodeàCompiler + "Résultat1 = Valeur1/Valeur2" + RC + ...
                     "Saisie2 = Valeur1/Valeur2"
  
AUTRES CAS : 
     CodeàCompiler = ""
FIN
SI CodeàCompiler <> "" ALORS
   CodeàCompiler = CodeàCompiler + RC + ...
         "Info(""Résultat1 = ""+Résultat1, ""Saisie2= ""+Saisie2)"
  
Res = Compile ("Calcule", CodeàCompiler)
   SI Res = "" ALORS
      ExécuteTraitement("Calcule", trtProcédure )
   SINON
      Erreur("Erreur compilation dynamique", Res)
   FIN
SINON
   Erreur("Aucune fonction à compiler")
FIN