Discussion :

[Belwen]

Bonjour tout le monde!

(Je suis une novice de Windev alors ne m'en voulez pas si cela vous parait absurde..!)

Alors voila, j'ai une douchette branchée en USB et j'aimerai stocker la valeur du code barre dans une variable afin de l'utiliser par la suite.
J'ai bien essayé avec la fonction sEvenement, sLit(...) mais le problème, c'est que la douchette émule une saisie clavier donc lorsque je fais mon test, la valeur du code barre s'inscrit dans n'importe quel champ de saisie de la fenêtre mais ma procédure ne s'éxécute pas...

Merci d'avance pour votre aide :-)


Voilà le code dans Déclaration globale de la fenêtre

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
nPort est un entier
 
// Ouverture du Port parallèle
nPort = sOuvre("LPT1", 4096, 4096, sTimeoutDéfaut, Vrai)
 
SI ErreurDétectée ALORS
	DélaiAvantFermeture(1000)
DélaiAvantFermeture(1000)
Erreur()
SINON
 
	// Paramétrage d'E/S
	sFixeParamètre(nPort, 9600, 1, 8, 0)
 
 
	sEvénement(nPort,sEveCaractèreReçu,"lecture")
	// Insérez votre code ici
 
FIN

Et voila la procédure que j'aimerai faire :

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
PROCEDURE lecture()
evecode est une chaîne
evecode=sLit("LPT1",100)
 
SAI_SansNom1=evecode
 
dDate est une Date = DateHeureSys()
 
	HRecherche(Liste_des_salariés,CodeBarres,evecode)
 
	SI HTrouve ALORS
		Affichage_par_salarié.Nom=Liste_des_salariés.Nom
		Affichage_par_salarié.Identifiant=Liste_des_salariés.Identfiant
		Affichage_par_salarié.Début=dDate
		Affichage_par_salarié.CodeBarres=evecode
		HAjoute(Affichage_par_salarié)   
 
	FIN
 
TableAffiche(TABLE_Affichage_par_salarié,taCourantPremier)

Par ailleurs, est-il possible de passer des enregistrements d'un fichier à un autre comme j'ai tenté de le faire dans la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
SI HTrouve ALORS
		Affichage_par_salarié.Nom=Liste_des_salariés.Nom
		Affichage_par_salarié.Identifiant=Liste_des_salariés.Identfiant
		Affichage_par_salarié.Début=dDate
		Affichage_par_salarié.CodeBarres=evecode
     HAjoute(Affichage_par_salarié)

??

[tatayo]

Bonjour,
Si ton lecteur émule une saisie clavier, il suffit de positionner le curseur de saisie dans un champ texte, et de bipper le code barre.
il faut peut-être paramétrer le lecteur pour ajouter ENTREE ou TAB à la fin du code barre, ainsi tu peux récupérer la valeur de celui-ci en sortie de ton champ.

Tatayo.

[Belwen]

Merci de ta réponse si rapide!

Mais comment puis-je faire en sorte que le focus soit toujours sur le champ de saisie?

[tatayo]

En sortie du champ => RepriseSaisie().

Tatayo.

[Belwen]

Merci !!