Discussion :

[Invité]

Bonjour,
Je développe une application sur un pocket PC, un motorola MC2100, je n'arrive pas à faire fonctionner le bouton de lecture de code-barres, comment dois-je m'y prendre?
Merci

[Fred 57220]

Bonsoir

il existe un exemple avec un composant pour Pocket PC Motorola.
qui répondra à votre attente.

Cordialement

Fred

[Invité]

Bonjour, j'ai trouvé scanwedge, qui doit être activé.
J'ai cependant un autre soucis: quand je lis mon code-barres, les informations sont stockées dans un champ de saisie, et quand la lecture est finie, j'aimerais que le focus soit automatiquement sur un second champ de saisie, afin de lire un second code barres, on fait comment ? Merci

[Fred 57220]

Bonsoir

non dans exemple , il y a un exemple de Pocket Motorola.
qui explique comment se servir du lecteur code barre par programmation.
pour changer de champs il faut faire Donnefocus(nom du champs)

Fred

[Invité]

Bonjour, je ne savais pas qu'il y avait des composants déjà fournis, c'est très intéressant, bien que la doc est difficilement exploitable...
Je connaissais la fonction donnefocus, mais ce que je demandais, c'etait de trouver l'événement "lecture du code barre" que je ne trouve pas...

Je me penché sur ce code, j'ai beaucoup de difficultés pour m'en servir.
J'ai mis cela pour l'instant :

Code wlangage :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
//Événement déclaration globale de la fenêtre
Pscanner.bactiverscanner ()
Pscanner.blectureavecevenement(Handle(fenencours)))
 
//Test que j'ai essayé de mettre sur un champ de saisie mais plante
Cb est un codebarres
Valeurcodebarreevenement(cb, 13)
Info(cb..contenu)
 
//Autre test que j'ai fait mais ne ressort rien
Pscanner.stresultatscan)

Merci

[Fred 57220]

Bonsoir

de mémoire l'exemple pilote la lecture code barre de 2 façons.
l'un en appuyant sur un bouton de l'application , l'autre en déclenchent l'évènement bouton jaune du Motorola.

personnellement j'utilise bouton jaune.

[Fred 57220]

dans déclaration globale de la fenetre

mettre :

Code :

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

1
2
3
4
 
gnEven_ est un entier  = Evénement("CallBackScan","*.*",5103)
sDonnees est une chaîne
sLongueur est une chaîne

Dans fin initialisation de la fenêtre

Code :

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

1
2
3
 
  // j'active le lecteur code barre
  ArmScan()

Créer 2 procédures locale à la fenêtre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
PROCEDURE ArmScan()
pScanner.bOuvrirAccesScanner()
pScanner.bActiverScanner()
 
SI pScanner.bLectureAvecEvenement(Handle(le nom de la fenêtre)) = Vrai ALORS	
	sDonnees = ""
SINON
	Erreur("Une erreur est survenue pendant la mise en place du mécanisme de lecture par événement",pScanner.sErreurInfo())
FIN

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
 
PROCEDURE CallBackScan()
     pScanner.ValeurCodeBarreEvenement(sDonnees,sLongueur)
 
     //le code barre se trouve dans Sdonnees
     // Je mets la data dans le champs Saisie1
     saisie1 = Sdonnees
     donnefocus(saisie1)
     ...
     ...
     ...
     // je réarme pour une prochaine lecture code barre
     ArmScan()
 
 
FIN

Dans Fermeture de la fenêtre

Code :

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

1
2
3
 
// Désactivation du scanner
pScanner.bDesactiverScanner

Voila