Bonjour à tous,
je suis bloqué sur un code qui ne renvois rien voici le code :Donc j'ai une scannette qui scan un code EAN de 13 caractères mais ça marchais une fois et maintenant il n'y a plus rien qui s'affiche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Donc merci de votre aide par avance
Partager