michel-911
2014-10-20, 14:42
مرحبا، أريد أن اطور تطبيق لإدارة سوبر ماركت، وأنا لا أعرف أين اضع code barre هل في التهيئة لبرنامج أو نافذة
ؤجدت هذا الكود على هذا يكفي؟ شكرا لكم مقدما
// 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 = 1 // Port série COM1
// Ouverture et initialisation du port série COM1
SI sOuvre(nPortSérie, 5000, 5000) 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"
SAI_CodeBarre = sBuffer
FIN
FIN
ؤجدت هذا الكود على هذا يكفي؟ شكرا لكم مقدما
// 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 = 1 // Port série COM1
// Ouverture et initialisation du port série COM1
SI sOuvre(nPortSérie, 5000, 5000) 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"
SAI_CodeBarre = sBuffer
FIN
FIN