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é)
??