|
|
|
|
|
|
|
|
L'exemple suivant permet d'afficher dans une table la liste des graveurs installés sur le poste en cours. // Connaître les graveurs installés
ListeGraveur est une chaîne
ListeGraveur = GraveurListe()
SI ListeGraveur ~= "" ALORS
Erreur("Aucun graveur n'a été détecté sur ce poste")
RETOUR
FIN
// Remplissage de la table TABLE_TableGraveur
// avec la liste des graveurs
UnGraveur est une chaîne
CheminGraveur est une chaîne
Â
POUR CHAQUE CHAÎNE UnGraveur DE ListeGraveur SÉPARÉE PAR RC
// Sélection du graveur
SI GraveurSélectionne(ExtraitChaîne(UnGraveur, 1)) = Faux ALORS
Erreur("Echec de la sélection de graveur", ErreurInfo())
RETOUR
FIN
Â
// Chemin du graveur en cours
CheminGraveur = GraveurChemin()
Â
// Ajout dans la table
TableAjouteLigne(TABLE_TableGraveur, CheminGraveur, UnGraveur)
FIN
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|