FORUM WINDEV

Bonjour
code communication port Serie

Résultat est un booléen
Résultat = sOuvre(1, 2000, 2000) // Ouverture de COM1
SI Résultat = Vrai ALORS // SI LE PORT EST OUVERT ALORS .....

sFixeParamètre(1, 9600, 0, 8, 1) //JE REGLE LES PARAMETRES DE MON COM1
sEcrit(1,Caract(0x01)+Caract(0x03)+Caract(0x00)+Caract(0x01)+Caract(0x00)+Caract(0x01)+Caract(0xD5)+Caract(0xCA))
//J'ECRIT LA TRAMES MODBUS DE LECTURE DE %MW1(01 03 00 01 00 01 D5 CA)

R est un Buffer //JE DECLARE UNE VARIABLE POUR METTRE LA REPONSE
R=sLit(1,sDansFileEntrée(1)) //JE LIT CE QUI EST DANS LE BUFFER
RS=R //J'AFFICHE SE QUE JE RECOIT DANS UNE ZONE DE SAISIE SUR MA FENETRE INTERFACE


sFerme(1) //JE FERME COM1

SINON
Erreur("Erreur d'ouverture de COM1") //J AFFICHE UN MESSAGE SI ECHEC D OUVERTURE DE COM 1

FIN

mon problème je veux envoyer ma trame chaque période donnée ( 5min par exemple ) comme ca je peux récupérer les donnée de ma station météo en temps reel je pense qui faut déclarer une boucle quelqu'un peu m'aider merci .

bonjour,

eviter les lecture en boucle qui vont mettre l'usage CPU a 100 %
voyez plutot sur timer qui permet d'envoye rla procedure a intervalle de temps regulier

ne pas oublier d'arreter le timer a l'entree de la procedure et de le redemaarer apres

faire une rechercher sur timer dans l'aide windev
ou timer windev sur le forum

je peux avoir un exemple du Timer merci .

F1 et recherchez timer
je vais vous reecrie ce qu'il y a dans l'iade et qui explique tout

PROCEDURE Time()
Résultat est un booléen
Résultat = sOuvre(1, 2000, 2000) // Ouverture de COM1
SI Résultat = Vrai ALORS // SI LE PORT EST OUVERT ALORS .....

sFixeParamètre(1, 9600, 0, 8, 1) //JE REGLE LES PARAMETRES DE MON COM1
sEcrit(1,Caract(0x01)+Caract(0x03)+Caract(0x00)+Caract(0x01)+Caract(0x00)+Caract(0x01)+Caract(0xD5)+Caract(0xCA))
//J'ECRIT LA TRAMES MODBUS DE LECTURE DE %MW1(01 03 00 01 00 01 D5 CA)

R est un Buffer //JE DECLARE UNE VARIABLE POUR METTRE LA REPONSE
R=sLit(1,sDansFileEntrée(1)) //JE LIT CE QUI EST DANS LE BUFFER
RS=R //J'AFFICHE SE QUE JE RECOIT DANS UNE ZONE DE SAISIE SUR MA FENETRE INTERFACE


sFerme(1) //JE FERME COM1

SINON
Erreur("Erreur d'ouverture de COM1") //J AFFICHE UN MESSAGE SI ECHEC D OUVERTURE DE COM 1

FIN

SI Timer("Time", 100, 1) = 0 ALORS
Erreur("Création du timer impossible")
FIN

quelqu'un peut voir mon code si c'est correcte merci .

Bonjour,

en init du projet

Code: Tout sélectionner

VG_TimerPort est un entier = Timer("Time", 100) // pour toutes les seconde le temps est en centiemes


la proecdure time
[code]
PROCEDURE Time()

// on arrete le timer pour eviter les empilement si la procedure prend plus du temps defini pour le timer
fintimer(VG_TimerPort)

Résultat est un booléen
Résultat = sOuvre(1, 2000, 2000) // Ouverture de COM1
SI Résultat = Vrai ALORS // SI LE PORT EST OUVERT ALORS .....

sFixeParamètre(1, 9600, 0, 8, 1) //JE REGLE LES PARAMETRES DE MON COM1
sEcrit(1,Caract(0x01)+Caract(0x03)+Caract(0x00)+Caract(0x01)+Caract(0x00)+Caract(0x01)+Caract(0xD5)+Caract(0xCA))
//J'ECRIT LA TRAMES MODBUS DE LECTURE DE %MW1(01 03 00 01 00 01 D5 CA)

R est un Buffer //JE DECLARE UNE VARIABLE POUR METTRE LA REPONSE
R=sLit(1,sDansFileEntrée(1)) //JE LIT CE QUI EST DANS LE BUFFER
RS=R //J'AFFICHE SE QUE JE RECOIT DANS UNE ZONE DE SAISIE SUR MA FENETRE INTERFACE


sFerme(1) //JE FERME COM1

SINON

// eviter les fenetres rendant la main a l'utilisateur car le timer sera bloquer
// et si personne passe devant le micro le traitement s'arrete
// j'ai mis une trace mais vous pouvez aussi sauvegarder le message dans un fichier pour avoir un journal
trace("Erreur d'ouverture de COM1") //J AFFICHE UN MESSAGE SI ECHEC D OUVERTURE DE COM 1

FIN

// on relance le timer
VG_TimerPort = Timer("Time", 100)
[code]


si votre code sur le port fonctionnait sur un bouton il devrait fonctionner