Stocker un code barre dans une variable
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:
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:
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:
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é) |
??
