Structures conditionnelles

Une structure de branchement permet aux méthodes de tester une condition et d'emprunter des chemins alternatifs, en fonction du résultat.

If...Else...End if

La syntaxe de la structure conditionnelle If...Else...End if est la suivante :

 If(Boolean_Expression)
    instruction(s)
 Else
    instruction(s)
End if

A noter que l'élément Else est optionnel, vous pouvez écrire :

 If(Boolean_Expression)
    instruction(s)
 End if

La structure If...Else...End if permet à votre méthode de choisir dans une alternative, en fonction du résultat, TRUE ou FALSE, d’un test (une expression booléenne). Si l’expression booléenne est TRUE, les instructions qui suivent immédiatement le test sont exécutées. Si l’expression booléenne est FALSE, les instructions suivant la ligne Else sont exécutées. Le Else est optionnel ; lorsqu’il est omis, c’est la première ligne d’instructions suivant le End if (s’il y en a une) qui est exécutée.

A noter que l'expression booléenne est toujours évaluée en totalité. Examinons en particulier le test suivant :

 If(MethodA & MethodB)
    ...
 End if

L'expression n'est TRUE que si les deux méthodes sont mises à TRUE. Or, même si MethodA retourne FALSE, 4D évaluera quand même MethodB, ce qui représente une perte de temps inutile. Dans ce cas, il est préférable d'utiliser une structure du type :

 If(MethodA)
    If(MethodB)
       ...
    End if
 End if

Le résultat est équivalent et MethodB n'est évaluée que si nécessaire.

Exemple

  // Ask the user to enter a name
 $Find:=Request(Type a name)
 If(OK=1)
    QUERY([People];[People]LastName=$Find)
 Else
    ALERT("You did not enter a name.")
 End if
 End if
 End if 

Astuce : Il n'est pas obligatoire que des instructions soient exécutées dans chaque branche de l'alternative. Lorsque vous développez un algorithme, ou lorsque vous poursuivez un but précis, rien ne vous empêche d'écrire :

 If(Expression_booléenne)
 Else
    instruction(s)
 End if

ou :

 If(Expression_booléenne)
    instruction(s)
 Else
 End if

Case of...Else...End case

La syntaxe de la structure conditionnelle Case of...Else...End case est la suivante :

 Case of
    :(Expression_booléenne)
       instruction(s)
    :(Expression_booléenne)
       statement(s)
       .
       .
       .

    :(Expression_booléenne)
       instruction(s)
    Else
       instruction(s)
 End case

A noter que l'élément Else est optionnel, vous pouvez écrire :

 Case of
    :(Expression_booléenne)
       instruction(s)
    :(Expression_booléenne)
       statement(s)
       .
       .
       .

    :(Expression_booléenne)
       instruction(s)
 End case

Tout comme la structure If...Else...End if, la structure Case of...Else...End case permet également à votre méthode de choisir parmi plusieurs séquences d’instructions. A la différence de la structure If...Else...End, la structure Case of...Else...End case peut tester un nombre illimité d’expressions booléennes et exécuter la séquence d’instructions correspondant à la valeur TRUE.

Chaque expression booléenne débute par le caractère deux points (:). La combinaison de deux points et d’une expression booléenne est appelée un cas. Par exemple, la ligne suivante est un cas :

:(bValidate=1)

Seules les instructions suivant le premier cas TRUE (et ce, jusqu’au cas suivant) seront exécutées. Si aucun des cas n’est TRUE, aucune instruction n’est exécutée (s'il n'y a pas d'élément Else).

Vous pouvez placer une instruction Else après le dernier cas. Si tous les cas sont FALSE, les instructions suivant le Else seront exécutées.

Exemple

Cet exemple teste une variable numérique et affiche une boîte de dialogue d’alerte comportant un simple mot :

 Case of
    :((vResult=1) & (vCondition#2)) //this case will be detected first
       ... //statement(s)
    :(vResult=1)
       ... Case of
    :(vResult=1) //Tester si le chiffre est 1
       ALERT("One.") //Si le chiffre est 1, afficher une alerte
    :(vResult=2) //Tester si le chiffre est 2
       ALERT("Two.") //Si le chiffre est 2, afficher une alerte
    :(vResult=3) //Tester si le chiffre est 3
       ALERT("Three.") //Si le chiffre est 3, afficher une alerte
    Else //Si le chiffre n'est pas 1, 2 ou 3, afficher une alerte
       ALERT("It was not one, two, or three.")
 //déclaration(s)
 End case //Si le chiffre est 2, afficher une alerte
    :(vResult=3) //Tester si le chiffre est 3
       ALERT("Three.") //Si le chiffre est 3, afficher une alerte
    Else //Si le chiffre n'est pas 1, 2 ou 3, afficher une alerte
       ALERT("It was not one, two, or three.")
 //statement(s)
 End case

A titre de comparaison, voici la version avec If...Else...End if de la même méthode :

 If(vResult=1) //Tester si le chiffre est 1
    ALERT("One.") If(vResult=1) //Test if the number is 1
    ALERT("One.") //If it is 1, display an alert
 Else
    If(vResult=2) //Test if the number is 2
       ALERT("Two.") //If it is 2, display an alert
    Else
       If(vResult=3) //Test if the number is 3
          ALERT("Three.") //If it is 3, display an alert
       Else //If it is not 1, 2, or 3, display an alert
          ALERT("It was not one, two, or three.")
       End if
    End if
 End if If(vResult=1) //Tester si le chiffre est 1
    ALERT("One.") If(vResult=1) //Tester si le chiffre est 1
    ALERT("One.") If(vResult=1) //Tester si le chiffre est 1
    ALERT("One.") If(vResult=1) //Tester si le chiffre est 1
    ALERT("One.") //Si le chiffre est 1, afficher une alerte
 Else
    If(vResult=2) //Tester si le chiffre est 2
       ALERT("Two.") //Si le chiffre est 2, afficher une alerte
    Else
    If(vResult=3) //Tester si le chiffre est 3
       ALERT("Three.") //Si le chiffre est 3, afficher une alerte
    Else //Si le chiffre n'est pas 1, 2 ou 3, afficher une alerte
       ALERT("It was not one, two, or three.")
       End if
    End if
 End if //Si le chiffre est 2, afficher une alerte
    Else
    If(vResult=3) //Tester si le chiffre est 3
       ALERT("Three.") //Si le chiffre est 3, afficher une alerte
    Else //Si le chiffre n'est pas 1, 2 ou 3, afficher une alerte
       ALERT("It was not one, two, or three.")
       End if
    End if
 End if //Si le chiffre est 2, afficher une alerte
    Else
    If(vResult=3) //Tester si le chiffre est 3
       ALERT("Three.") //Si le chiffre est 3, afficher une alerte
    Else //Si le chiffre n'est pas 1, 2 ou 3, afficher une alerte
       ALERT("It was not one, two, or three.")
       End if
    End if
 End if //Si le chiffre est 2, afficher une alerte
    Else
    If(vResult=3) //Tester si le chiffre est 3
       ALERT("Three.") //Si le chiffre est 3, afficher une alerte
    Else //Si le chiffre n'est pas 1, 2 ou 3, afficher une alerte
       ALERT("It was not one, two, or three.")
       End if
    End if
 End if //Si le chiffre est 3, afficher une alerte
    Else //Si le chiffre n'est pas 1, 2 ou 3, afficher une alerte
       ALERT("It was not one, two, or three.")
       End if
    End if
 End if

Rappelez-vous qu’avec une structure de type Case of...Else...End case, seul le premier cas TRUE rencontré est exécuté. Même si d’autres cas sont TRUE, seules les instructions suivant le premier cas TRUE seront prises en compte.

Par conséquent, lorsque vous testez dans la même méthode des cas simples et des cas complexes, vous devez placer les cas complexes avant les cas simples, sinon ils ne seront jamais exécutés. Par exemple, si vous souhaitez traiter le cas simple (vResult=1) et le cas complexe (vResult=1) & (vCondition#2) et que vous structurez la méthode de la manière suivante :

 Case of
    :((vResult=1) & (vCondition#2)) //this case will be detected first
       ... //statement(s)
    :(vResult=1)
       ...

... les instructions associées au cas complexe ne seront jamais exécutées. En effet, pour que ce cas soit TRUE, ses deux conditions booléennes doivent l’être. Or, la première condition est celle du cas simple situé précédemment. Lorsqu'elle est TRUE, le cas simple est exécuté et 4D sort de la structure conditionnelle, sans évaluer le cas complexe. Pour que ce type de méthode fonctionne, vous devez écrire :

 Case of
    :(vResult=1) //Test if the number is 1
       ALERT("One.") //If it is 1, display an alert
    :(vResult=2) //Test if the number is 2
       ALERT("Two.") //If it is 2, display an alert
    :(vResult=3) //Test if the number is 3
       ALERT("Three.") //If it is 3, display an alert
    Else //If it is not 1, 2, or 3, display an alert
       ALERT("It was not one, two, or three.")
 End case

Astuce : Il n'est pas obligatoire que des instructions soient exécutées dans toutes les alternatives. Lorsque vous développez un algorithme, ou lorsque vous poursuivez un but précis, rien ne vous empêche d'écrire :

 Case of
    :(Expression_booléenne)
    :(Expression_booléenne)
      ...

    :(Expression_booléenne)
       instruction(s)
    Else
       instruction(s)
 End case

ou :

 Case of
    :(Expression_booléenne)
    :(Expression_booléenne)
        instruction(s)
       ...

    :(Expression_booléenne)
       instruction(s)
    Else
       instruction(s)
 End case

ou :

 Case of
    Else
       instruction(s)
 End case