Discussion :

[azaouali]

Bonjour à tous,


je suis bloqué sur un code qui ne renvois rien voici le code :

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 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.


Donc merci de votre aide par avance

[frenchsting]

Bonjour,

je ne suis pas spécialiste des lectures sur les ports série, mais il y a déjà eu plusieurs discussions sur ce sujet.

Un truc qui m'interpelle, c'est qu'il semble que tu ne fais qu'une seule lecture de ton port série. Il me semble plus que pertinent de faire une boucle pour lire "régulièrement" le port.

[azaouali]

Merci pour ta réponse, je vais creusé, je te tiens au courant.