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.
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
|