Autres commandes


Syntax
Goto <label>
Description
Cette commande permet de transférer directement l'exécution du programme à l'emplacement d'un label. Soyez attentif en utilisant Goto car une mauvaise utilisation peut provoquer une fin anormale du programme...

Syntax
End [CodeDeSortie]
Description
Termine et quitte le programme de manière correcte à n'importe quel endroit du code source. Le paramètre optionnel 'CodeDeSortie' peut être utilisé pour renvoyer un code d'erreur différent de 0 (valeur par défaut) lorsque le programme se termine (souvent utilisé par les programmes en mode console).

Le 'CodeDeSortie' peut-être récupéré dans un autre programme à l'aide de la commande ProgramExitCode().

Syntax

Swap <expression>, <expression>
Description
Permute la valeur des deux expressions, de manière très rapide. Chaque <expression> doit être soit une variable, un tableau ou un élément de liste chaînée (structuré ou non) et être d'un des types natifs: long (.l), quad (.q), string, etc.

Exemple: Permute des chaînes

  Hello$ = "Hello"
  World$ = "World"
 
  Swap Hello$, World$
  
  Debug Hello$+" "+World$

Exemple: Permute des tableaux à dimensions multiples

  Dim Tableau1(5,5) 
  Dim Tableau2(5,5) 
  Tableau1(2,2) = 10     ; Initialise les tableaux
  Tableau2(3,3) = 20 
  
  Swap Tableau1() , Tableau2()    ; Permute le contenu des tableaux
  
  Debug "Contenu des tableaux après permutation:"
  Debug Tableau1(3,3)    ; Affichera 20
  Debug Tableau2(2,2)    ; Affichera 10

Exemple: Permute différents éléments

  Define a, b
  Dim Tableau(4, 4)
  NewList Liste1.Point()

  ;-Initialise les variables, le tableau et la liste chaînée
  a = 11
  b = 12

  Tableau(1,1) = 21

  ;Ajoute un élément à la liste 1
  AddElement(Liste1())
  Liste1()\x = 31
  Liste1()\y = 32

  ;Permute un élément de la liste avec une variable
  Swap Liste1()\x, a
  ;Permute un élément de la liste avec un élément du tableau
  Swap Liste1()\y, Tableau(1,1)


  ;Affiche le résultat
  Debug a              ; Affichera 31
  Debug b              ; Affichera 12
  Debug Tableau(1,1)   ; Affichera 32
  Debug Liste1()\x     ; Affichera 11
  Debug Liste1()\y     ; Affichera 21