Des exemples d'utilisation des fonctions du WLangage
Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.
Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.
Aller à la page des exemples évolués
sDansFileEntree (en anglais sInEntryQueue)
// Le port est ouvert. Récupère le nombre d'octets en attente
// dans le buffer d'entrée de COM4 et fait une lecture.
Nombre
est un entier
MessageLu
est une chaîne
Nombre
=
sDansFileEntrée
(
4
)
MessageLu
=
sLit
(
4
,
Nombre
)
// On aurait aussi pu écrire MessageLu = sLit(4, sDansFileEntrée(4))
|
Début de la page
sDansFileSortie (en anglais sInExitQueue)
// Le port COM2 est ouvert
Nombre
est un entier
// Envoi d'un message au buffer de sortie de COM2
sEcrit
(
2
,
Message
)
// Attendre la fin de l'écriture
BOUCLE
SI
sDansFileSortie
(
2
) =
0
ALORS SORTIR
FIN
Info
(
"Fin de l'écriture"
)
|
Début de la page
sEchap (en anglais sEscape)
// Efface le signale DTR
sEchap
(
NumPort
,
"CLRDTR"
)
|
Début de la page
sEcrit (en anglais sWrite)
// Le port COM2 est ouvert
Message
est une chaîne de caractères
// Envoi d'un message au buffer de sortie de COM2
sEcrit
(
2
,
Message
)
// Attendre la fin de l'écriture
BOUCLE
SI
sDansFileSortie
(
2
) =
0
ALORS SORTIR
FIN
Info
(
"Fin de l'écriture"
)
|
Début de la page
sEvenement (en anglais sEvent)
//Détection de caractères sur le port COM1
sEvénement
(1,
sEveCaractèreReçu
,
"Lecture")
--Procédure Lecture(NumPort,Event)
Trace
(
sLit
(1,
sDansFileEntrée
(1)))
|
Début de la page
sFerme (en anglais sClose)
Résultat
=
sOuvre
(
1
,
2000
,
2000
)
// Ouverture de COM1
SI
Résultat
=
Vrai
ALORS
// Paramétrage de COM1 : Taux 9600, parité paire,
// 8 bits de données, 1 bit de stop
sFixeParamètre
(
1
,
9600
,
1
,
8
,
0
)
// Suite traitement...
sFerme
(
1
)
// Fermeture de COM1
SINON
Erreur
(
"Erreur d'ouverture de COM1"
)
FIN
|
Début de la page
sFinEvenement (en anglais sEndEvent)
//Détection de caractères sur le port COM1
sEvénement
(1,
sEveCaractèreReçu
,
"Lecture"
)
sEvénement
(1,
sEveBreak
,
"Break"
)
...
sFinEvénement
(1,
sEveBreak
)
...
--Procédure Lecture(NumPort,Event)
Trace
(
sLit
(1,
sDansFileEntrée
(1)))
|
Début de la page
sFixeParametre (en anglais sParameter)
Résultat
=
sOuvre
(
1
,
2000
,
2000
)
// Ouverture de COM1
SI
Résultat
=
Vrai
ALORS
// Paramétrage Com1 : Taux 9600, Parité paire,
// 8 bits de données, 1 bit de stop
sFixeParamètre
(
1
,
9600
,
1
,
8
, 0)
// Paramétrage de COM1
// Suite traitement...
sFerme
(
1
)
// Fermeture de COM1
SINON
Erreur
(
"Erreur d'ouverture de COM1"
)
FIN
|
Début de la page
sLIt (en anglais sRead)
// Lecture dans la variable Message de 20 caractères dans
// le buffer d'entrée de COM1
Mess
est une chaîne
Mess
=
sLit
(
1
,
20
)
|
Début de la page
sLIt (en anglais sRead)
// Lecture dans la variable Message de 20 octets dans
// le buffer d'entrée de COM1
Mess
est un buffer
Mess
=
sLit
(
1
,
20
)
|
Début de la page
sOuvre (en anglais sOpen)
// Ouverture de COM1
Résultat
=
sOuvre
(
1
,
2000
,
2000
)
SI
Résultat
=
Vrai
ALORS
// Paramétrage de COM1 : Taux 9600, parité paire,
// 8 bits de données, 1 bit de stop
sFixeParamètre
(
1
,
9600
,
1
,
8
,
0
)
// Suite traitement...
// Fermeture de COM1
sFerme
(
1
)
SINON
Erreur
(
"Erreur d'ouverture de COM1"
)
FIN
|
Début de la page
sOuvre (en anglais sOpen)
// Ouverture de IR1
Résultat
=
sOuvre
(
"IR1"
,
2000
,
2000
)
SI
Résultat
<>
0
ALORS
// Paramétrage de IR1
sFixeParamètre
(
Résultat
,
9600
,
1
,
8
,
1
)
// Suite traitement...
// Fermeture de IR1
sFerme
(
Résultat
)
SINON
Erreur
(
"Erreur d'ouverture de IR1"
)
FIN
|
Début de la page
Auteur: Patrick Biker
