J'ai un petit problème avec une liaison série sous windev 7.5
J'arrive bien à configurer le port et à y écrire mais je n'arrive pas à lire
les données entrantes ( j'utilise un slit(port, sdansfileentree(port)) mais
le prog reagit comme si rien n'arrivait sur mon port série. Je fais mes test
avec hyperterminal sur un 2eme poste. QQun aurait il une idée? Merci
d'avance.
Anthony
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
spetb
> J'ai un petit problème avec une liaison série sous windev 7.5 J'arrive bien à configurer le port et à y écrire mais je n'arrive pas à
lire
les données entrantes ( j'utilise un slit(port, sdansfileentree(port))
mais
le prog reagit comme si rien n'arrivait sur mon port série. Je fais mes
test
avec hyperterminal sur un 2eme poste. QQun aurait il une idée? Merci d'avance.
Bonjour,
Un petit exemple à adapter à vos besoins :
// Code à placer dans le code dinitialisation GLOBAL ePortCom est un entier = 1 // Port Com 1 par exemple.
// **************************************************************************** *** // 1ère procédure à créer : PROCEDURE pCom() sFerme(ePortCom) // Au cas ou il serait déjà ouvert SI sOuvre(ePortCom, 1200, 1200, 1000) ALORS SI sFixeParamètre(ePortCom, 9600, 0, 8, 0, Faux , Faux , Faux) ALORS // Paramètres de sOuvre et sFixeparamètre à adapter à vos besoins TimerSys(pLitCom,200,10) SINON sFerme(ePortCom) Info("Problème de paramètrage du Port Com : " + ePortCom + RC + RC + "Le programme va maintenant s'arreter") FinProgramme() FIN SINON Info("Problème d'ouverture du Port Com : " + ePortCom + RC + RC + "Le programme va maintenant s'arreter") FinProgramme() FIN TimerSys(pLitCom,200,10) // On peut également utiliser un thread à la place du timer.
// **************************************************************************** *** // 2ième procédure à créer : PROCEDURE pLitCom() cLuSurCom est chaîne FinTimerSys(10) // On stope le timer pendant la lecture cLuSurCom = sLit(ePortCom,256) SI cLuSurCom <> "" ALORS Message(cLuSurCom) cLuSurCom = "" FIN TimerSys(pLitCom,200,10) // On relance le timer.
// **************************************************************************** *** // Code d'appel à la procédure PCom à placer dans le code d'initialisation d'une fenêtre (par exemple) pCom()
// **************************************************************************** *** // Code à placer dans le code de fermeture du programme (ou de la fenêtre) sFerme(ePortCom
> J'ai un petit problème avec une liaison série sous windev 7.5
J'arrive bien à configurer le port et à y écrire mais je n'arrive pas à
lire
les données entrantes ( j'utilise un slit(port, sdansfileentree(port))
mais
le prog reagit comme si rien n'arrivait sur mon port série. Je fais mes
test
avec hyperterminal sur un 2eme poste. QQun aurait il une idée? Merci
d'avance.
Bonjour,
Un petit exemple à adapter à vos besoins :
// Code à placer dans le code dinitialisation
GLOBAL
ePortCom est un entier = 1 // Port Com 1 par exemple.
//
****************************************************************************
***
// 1ère procédure à créer :
PROCEDURE pCom()
sFerme(ePortCom) // Au cas ou il serait déjà ouvert
SI sOuvre(ePortCom, 1200, 1200, 1000) ALORS
SI sFixeParamètre(ePortCom, 9600, 0, 8, 0, Faux , Faux , Faux) ALORS
// Paramètres de sOuvre et sFixeparamètre à adapter à vos besoins
TimerSys(pLitCom,200,10)
SINON
sFerme(ePortCom)
Info("Problème de paramètrage du Port Com : " + ePortCom + RC + RC + "Le
programme va maintenant s'arreter")
FinProgramme()
FIN
SINON
Info("Problème d'ouverture du Port Com : " + ePortCom + RC + RC + "Le
programme va maintenant s'arreter")
FinProgramme()
FIN
TimerSys(pLitCom,200,10) // On peut également utiliser un thread à la place
du timer.
//
****************************************************************************
***
// 2ième procédure à créer :
PROCEDURE pLitCom()
cLuSurCom est chaîne
FinTimerSys(10) // On stope le timer pendant la lecture
cLuSurCom = sLit(ePortCom,256)
SI cLuSurCom <> "" ALORS
Message(cLuSurCom)
cLuSurCom = ""
FIN
TimerSys(pLitCom,200,10) // On relance le timer.
//
****************************************************************************
***
// Code d'appel à la procédure PCom à placer dans le code d'initialisation
d'une fenêtre (par exemple)
pCom()
//
****************************************************************************
***
// Code à placer dans le code de fermeture du programme (ou de la fenêtre)
sFerme(ePortCom
Nota : ce code a été testé et fonctionne.
Sincères Salutations
--
Jean-Claude FLAJOULOT
Sécurité Pointage & Biométrie
SPetB_no_spam@wandoo.fr
(Otez _no_spam pour me contacter en PV)
> J'ai un petit problème avec une liaison série sous windev 7.5 J'arrive bien à configurer le port et à y écrire mais je n'arrive pas à
lire
les données entrantes ( j'utilise un slit(port, sdansfileentree(port))
mais
le prog reagit comme si rien n'arrivait sur mon port série. Je fais mes
test
avec hyperterminal sur un 2eme poste. QQun aurait il une idée? Merci d'avance.
Bonjour,
Un petit exemple à adapter à vos besoins :
// Code à placer dans le code dinitialisation GLOBAL ePortCom est un entier = 1 // Port Com 1 par exemple.
// **************************************************************************** *** // 1ère procédure à créer : PROCEDURE pCom() sFerme(ePortCom) // Au cas ou il serait déjà ouvert SI sOuvre(ePortCom, 1200, 1200, 1000) ALORS SI sFixeParamètre(ePortCom, 9600, 0, 8, 0, Faux , Faux , Faux) ALORS // Paramètres de sOuvre et sFixeparamètre à adapter à vos besoins TimerSys(pLitCom,200,10) SINON sFerme(ePortCom) Info("Problème de paramètrage du Port Com : " + ePortCom + RC + RC + "Le programme va maintenant s'arreter") FinProgramme() FIN SINON Info("Problème d'ouverture du Port Com : " + ePortCom + RC + RC + "Le programme va maintenant s'arreter") FinProgramme() FIN TimerSys(pLitCom,200,10) // On peut également utiliser un thread à la place du timer.
// **************************************************************************** *** // 2ième procédure à créer : PROCEDURE pLitCom() cLuSurCom est chaîne FinTimerSys(10) // On stope le timer pendant la lecture cLuSurCom = sLit(ePortCom,256) SI cLuSurCom <> "" ALORS Message(cLuSurCom) cLuSurCom = "" FIN TimerSys(pLitCom,200,10) // On relance le timer.
// **************************************************************************** *** // Code d'appel à la procédure PCom à placer dans le code d'initialisation d'une fenêtre (par exemple) pCom()
// **************************************************************************** *** // Code à placer dans le code de fermeture du programme (ou de la fenêtre) sFerme(ePortCom
Modifier cette partie de code de mon post précedent pour lire :
//************************************************************************** ***** // Code à placer dans le code de fermeture du programme (ou de la fenêtre) sFerme(ePortCom) // Il manquait la parenthèse fermante
Modifier cette partie de code de mon post précedent pour lire :
//**************************************************************************
*****
// Code à placer dans le code de fermeture du programme (ou de la fenêtre)
sFerme(ePortCom) // Il manquait la parenthèse fermante
Sincères Salutations
--
Jean-Claude FLAJOULOT
Sécurité Pointage & Biométrie
SPetB_no_spam@wandoo.fr
(Otez _no_spam pour me contacter en PV)
Modifier cette partie de code de mon post précedent pour lire :
//************************************************************************** ***** // Code à placer dans le code de fermeture du programme (ou de la fenêtre) sFerme(ePortCom) // Il manquait la parenthèse fermante
