Section courante

A propos

Section administrative du site

Les instructions de conditionnel en langage LotusScript sont au nombres de deux et sont très particulières :

IF THEN ELSE

L'instruction «IF» permet le teste d'une condition et de choisir d'effectuer des instructions plutôt que d'autre dans le cas ou celle-ci serait vrai. Voici donc les syntaxes :

IF expression_vrai THEN instruction_exécuté_si_vrai

ou

IF expression_vrai THEN instruction_exécuté_si_vrai ELSE instruction_exécuté_si_faux

ou

IF expression_vrai1 THEN
 instruction_exécuté_si_vrai1
ELSE
 instruction_exécuté_si_faux
END IF

Vous y remarquerez donc après les syntaxes proposé que les instructions «ELSE» ou «ELSEIF» ne sont pas obligatoire.

Exemple

Cet exemple permet de tester une condition vrai :

  1. Sub Main()
  2.      If 1 Then
  3.           Print "La condition est vrai"
  4.      End If  
  5. End Sub

on obtiendra le résultat suivant :

La condition est vrai

SELECT CASE

Lorsqu'on effectue une série de teste répétitive sur une même variable avec différente valeur de la manière suivante :

IF valeur = 1 THEN
 instruction1_exécuté_si_vrai1
ELSEIF valeur = 2 THEN
 instruction_exécuté_si_vrai2
ELSEIF valeur = 3 THEN
 instruction_exécuté_si_vrai3
ELSE
 instruction_exécuté_si_faux
END IF

On devrait plutôt tenté d'utiliser l'instruction «SELECT CASE» laquelle permet une meilleure lisibilité en plus de simplifié la compréhension pour un programmeur externe à votre code. Ainsi, l'instruction SELECT CASE permet d'effectuer de nombreuses comparaisons sur un unique résultat. Voici donc sa syntaxe:

SELECT CASE résultat
 CASE valeur1
  instruction1_exécuté_si_vrai1
 CASE valeur2
  instruction_exécuté_si_vrai2
 CASE valeur3
  instruction_exécuté_si_vrai3
 CASE ELSE
  instruction_exécuté_si_faux
END SELECT

L'instruction «CASE ELSE» n'est pas obligatoire, il est tout de même préférable de l'inclure pour prévenir une situation anormale ou d'erreur.

Exemple

Voici un exemple une utilisation typique de cette instruction :

  1. Sub Main()
  2.      Dim a As Integer
  3.      a = 2
  4.      Select Case a
  5.      Case 1,2,3
  6.           Print "Entre 1 et 3"
  7.      Case 4,5,6:
  8.           Print "Entre 4 et 6"
  9.      Case 7:
  10.           Print "C'est 7"
  11.      Case Else
  12.           Print "Inférieur ou égale à 0 ou supérieur à 8"
  13.      End Select  
  14. End Sub

on obtiendra le résultat suivant :

Entre 1 et 3


Dernière mise à jour : Dimanche, le 4 janvier 2015