Code :
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)
sEcrit(1,"A") // ecriture de la lettre A en ASCII
// Suite traitement...
sFerme(1) // Fermeture de COM1
SINON
Erreur("Erreur d'ouverture de COM1")
FIN |
