:DEFINE

L'instruction :DEFINE vous permet de définir une variable et de déclarer le type de données de cette variable. Vous pouvez également utiliser l'instruction :DEFINE pour redéfinir une variable déjà définie par une instruction :SET. Pour plus d'informations sur les variables et la défintiion de variables comme tableaux, voir Variables de script.

Syntaxe 

:D[EFINE] Script variable, Data type [, Array size]

Paramètres

Remarques :

Avertissements :

Exemples

Les exemples suivants déclarent des variables avec des types de données différents via des instructions :DEFINE. Les instructions :SET affectent les valeurs des variables :

:DEFINE &a#, unsigned
:DEFINE &b#, signed
:DEFINE &c#, float
:DEFINE &d#, string
:SET &a# = 12
:SET &b# = -5
:SET &c# = 0.50
:SET &d# = "string"

L'exemple suivant illustre la conversion automatique du type de données de la valeur affectée à la variable :

:DEFINE &unsigned#, unsigned
:DEFINE &string#, signed
:SET &unsigned# = 12
:SET &string# = &unsigned#

L'exemple suivant illustre la fonction CONVERT qui convertit le type de données d'une valeur affectée à la variable :

:DEFINE &unsigned#, unsigned
:DEFINE &string#, signed
:SET &unsigned# = 12
:SET &string# = CONVERT(string,&unsigned#)

L'exemple suivant illustre l'utilisation d'une instruction :SET pour créer une variable. Dans ce cas, il est possible d'affecter directement des valeurs aux types de données unsigned et chaîne de caractères.

:SET &setvar#= 12
:SET &setvar2#="string"
:SET &setvar# = &setvar2#

L'exemple suivant illustre la création et le remplissage d'un tableau :

:DEFINE &array#, unsigned, 5
:FILL &array#[] = GET_VAR(VARA1, ARRAY)

Dans l'exemple suivant, la fonction de script FORMAT est utilisée pour arrondir le résultat d'une opération arithmétique (3,0 - 0,1) en une chaîne de caractères. Le script prend en compte une erreur arithmétique commune (Epsilon = 0,0000005) et une décimale.

:DEFINE &SCRIPT_VERSION_ORIG#, float
:DEFINE &SCRIPT_VERSION_ORIG1#, float
:DEFINE &EPSILON#, float

:SET &SCRIPT_VERSION_ORIG# = 3.0
:SET &EPSILON# = 0.0000005
:P &SCRIPT_VERSION_ORIG#
:SET &SCRIPT_VERSION_ORIG# = &SCRIPT_VERSION_ORIG# - 0.1
:PBEFORE FORMAT: &SCRIPT_VERSION_ORIG#
:SET &SCRIPT_VERSION_ORIG# = &SCRIPT_VERSION_ORIG# + &EPSILON#
:SET &SCRIPT_VERSION_ORIG# = FORMAT(&SCRIPT_VERSION_ORIG#, "0.0")
:PAFTER FORMAT: &SCRIPT_VERSION_ORIG#

Pour plus d'informations :

Voir aussi :