1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| // Déclaration des variables
// Définition du nombre de caractères à lire
nNbCarALire est un entier = 13
// Nombre d'octets en attente dans le buffer
nNbOctetAttente est un entier
sBuffer est une chaîne // Contenu du buffer
nPortSérie est un entier = 6 // Port série COM1
// Ouverture et initialisation du port série COM1
SI sOuvre(nPortSérie, 2000, 2000) ALORS
// Lecture du code-barres
// Récupération du nombre d'octets en attente
nNbOctetAttente = sDansFileEntrée(nPortSérie)
// Récupération de la valeur du code-barres uniquement
// si au moins 13 caractères ont été lus
SI nNbOctetAttente >= nNbCarALire ALORS
sBuffer = sLit(nPortSérie, nNbOctetAttente)
// Récupération des 13 premiers caractères lus
sBuffer = Gauche(sBuffer, 13)
// Affichage de la valeur du code-barres
// dans le champ de saisie "SAI_CodeBarre"
STC_CodeBarre = sBuffer
FIN
FIN |
Partager