Aide sur windev

Récupérer dans un champ code-barres la valeur lue par un appareil spécialisé



Il est possible de lire des code-barres et d'afficher la valeur correspondant à l'écran. Pour lire un code-barres :

1. Branchez un appareil spécialisé sur le port série de votre machine.

2. Lisez la valeur du code-barres grâce aux fonctions de gestion des ports série suivantes :

sOuvre
 Permet d'ouvrir et d'initialiser le port série spécifié.
 
sLit
 Lit une chaîne de caractères dans le buffer d'entrée du port série spécifié.
 

3. Initialisez la valeur du code-barres lue dans un champ Code-barres correspondant au type du code-barres lu. 

 

Exemple de lecture d'un code-barres avec un appareil spécialisé branché sur le port série COM1 :

// Déclaration des variables 
// Définition du nombre de caractères à lire 
NBCarALire est un entier = 13 
// Nombre d'octets en attente dans le buffer 
NbOctetAttente est un entier 
BufferPrn est une chaîne // Contenu du buffer 
PortSérie est un entier = 1 // Port série COM1 

// Ouverture et initialisation du port série COM1 
SI sOuvre(PortSérie,5000,5000) ALORS 
    // Lecture du code-barres 
    // Récupération du nombre d'octets en attente 
    NbOctetAttente = sDansFileEntrée(PortSérie) 
    // Récupération de la valeur du code-barres uniquement 
    // si au moins 13 caractères ont été lus 
    SI NbOctetAttente >= NBCarALire ALORS 
       BufferPrn = sLit(PortSérie, NbOctetAttente) 
       // Récupération des 13 premiers caractères lus 
       BufferPrn = Gauche(BufferPrn, 13) 
       // Affichage de la valeur du code-barres dans le 
       // champ de saisie "saisieCodeBarre" 
       saisieCodeBarre = BufferPrn 
    FIN 
FIN