Discussion :

[dakota77]

Bonjour,

Je réalise une appli qui interroge un automate programmable. Ce dernier répond une chaîne de caractères.

L'appli tourne en VB.net et je voudrais la développer en Windev.

Pour interroger l'automate, il faut écrire un byte sur le port série.
Le mode de communication est le mode RTU (Remote Terminal Unit) avec des caractères hexadécimaux.

Au niveau de l'interrogation en VB.NET cela donne :

Code :

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

1
2
3
4
 
CMD = New Byte() {&H1, &H3, &H7, &HB, &H0, &H1, &HF4, &HBC}
Comm1.Write(CMD, 0, CMD.Length)
buf = ""

Mais en Windev ça donne quoi ?
ceci ne provoque aucune réponse de la part de l'automate :

Code :

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

1
2
 
secrit(4,"&H1, &H3, &H7, &HB, &H0, &H1, &HF4, &HBC")

Merci

[Jannus]

Tu devrais concaténer ta chaîne avant l'envoi :

Code :

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

1
2
3
4
5
6
7
// Écrire sur le port COM2 (préalablement ouvert)
// Définir la chaîne
Message est une chaîne DE caractères
// Attibuer la chaôine
Message = &H1+&H3+&H7+&HB+&H0+&H1+&HF4+&HBC
// Envoi d'un message au buffer de sortie de COM2
sEcrit(2, Message)

À vérifier, l'utilisation de &H1 pour envoyer une chaîne hexadécimale.

[dakota77]

Merci pour ta réponse.

Code :

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

1
2
message est une chaîne de caractères

l'éditeur signale une erreur sur "caractères"

"caractères" est un mot clé du Wlangage, son utilisation dans ce cas est incorrecte.

Chaîne de caractères ne figure pas dans les types de variables.

Il y a quelque chose que je loupe ?

Merci

[Jannus]

Utilise juste

Code :

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

message est une chaîne

Le code est un copié/collé de la documentation, personnellement je n'utilise jamais "DE caractères".

Et "message" est aussi un mot clef
Donc, utilise une autre variable c'est préférable

[htrouve]

il est aussi précisé dans la doc : Si le port n'a pas été ouvert par la fonction sOuvre, la fonction sEcrit n'a aucune action.

Peut être ton erreur ?

[Jannus]

Code :

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

// Écrire sur le port COM2 (préalablement ouvert)

[htrouve]

au temps pour moi

[dakota77]

Merci pour vos réponses.
Bien sûr je m'assure que le port est bien ouvert au préalable.
Voici le code complet :

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
17
18
19
20
21
 
m est un booléen
cmp est un entier //port com
cmp = 4
m = sOuvre(4, 2000, 2000,sTimeoutDéfaut,Vrai)
SI m = Vrai ALORS
	sFixeParamètre(cmp, 9600, 0, 8, 1)
             Info ("port com4 ouvert")
SINON
	Erreur("Erreur d'ouverture de COM4")
FIN
 
sEvénement(cmp,sEveCaractèreReçu,"Ldiris")
 
//envoi interrogation vers l'automate
mes est une chaîne
mes = "&H1+&H3+&H7+&HB+&H0+&H1+&HF4+&HBC"
sEcrit(cmp,cmd)
 
PROCEDURE ldiris(cmp,sEveCaractèreReçu)
Info("octets détectés sur le port série")

Je n'arrive toujours pas à provoquer une réponse de la part de l'automate.
Voici les différents essais effectués au niveau de la chaîne mes :
mes = "&H1+&H3+&H7+&HB+&H0+&H1+&HF4+&HBC" > aucune réponse
mes = "&H1"+"&H3"+"&H7"+"&HB"+"&H0"+"&H1"+"&HF4"+"&HBC" > aucune réponse
mes = "&H1 "+"&H3 "+"&H7 "+"&HB "+"&H0 "+"&H1 "+"&HF4 "+"&HBC" > aucune réponse
mes = &H1+&H3+&H7+&HB+&H0+&H1+&HF4+&HBC > donne message d'erreur de syntaxe : identificateur H1 inconnu ou inaccessible

Je ne suis pas sûr que même s'il y avait une réponse, la procédure ldiris serai déclenchée... ce serait super de pourvoir avoir un exemple.

[VincentRoy]

Bonjour,

Essaye avec çà plutôt:

Code :

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

1
2
 
mes = 0x01+0x03+0x07+0x0B+0x00+0x01+0xF4+0xBC

A+
Vince

http://vroy1.free.fr/wpfr
http://www.ennovsys.fr

[dakota77]

Cet automate est toujours aux abonnés absents...
Voici les essais effectués :

mes = "0x010x030x070x0B0x000x010xF40xBC"
mes = "0x01"+"0x03"+"0x07"+"0x0B"+"0x00"+"0x01"+"0xF4"+"0xBC"
g=Caract(13)
mes = "0x01"+g+"0x03"+g+"0x07"+g+"0x0B"+g+"0x00"+g+"0x01"+g+"0xF4"+g+"0xBC"
A part le code VB qui

Je vais essayer de connecter un gps sur le port com histoire de voir si la routine Ldiris est déclenchée lorsqu'il y a une présence de données sur le port.

[Jannus]

Dans ce que tu nous donnes, tu n'as pas l'essai au format préconisé par Vincent ?

[dakota77]

Oops ! effectivement j'avais aussi essayé :

mes = "0x01+0x03+0x07+0x0B+0x00+0x01+0xF4+0xBC"
mes = 0x01+0x03+0x07+0x0B+0x00+0x01+0xF4+0xBC

à mon grand étonnement Windev accepte une chaîne sans guillemets...
mais l'automate ne répond toujours pas.

Je regarde du côté de l'évènement sur le port série.

[Hibernatus34]

Bonjour,

Je n'ai pas tout lu, mais je pense que vous faites fausse route avec votre chaine de valeurs hexa :

mes = "0x01+0x03+0x07+0x0B+0x00+0x01+0xF4+0xBC"

Ca donne : 30 78 30 31 ... (codes ascii de votre chaîne)

mes = 0x01+0x03+0x07+0x0B+0x00+0x01+0xF4+0xBC

Ca donne :
"455" (la somme des valeurs, convertie en chaîne)

Vous pouvez faire :

mes = Caract(0x01) + Caract(0x03) ...

ou bien :

mes est un tableau d'entiers sur 1 octet = [0x01, 0x03, ...]

C'est mieux.

PS. Pour utiliser le tableau d'entiers, et si vous avez besoin d'une chaîne, vous pouvez faire ceci :

PROCEDURE OctetsVersChaîne(tabTableau est tableau d'entiers sur 1)
sChaîne est une chaîne = Répète(Caract(0), Dimension(tabTableau))
Transfert(&sChaîne, &tabTableau, Dimension(tabTableau))
RENVOYER sChaîne

mes est un tableau d'entiers sur 1 octet = [0x01, 0x03, 0x07]
sEcrit(nPort, OctetsVersChaîne(mes))

C'est moins lourd que les Caract().

[dakota77]

Merci !

Super, il accepte enfin le dialogue.

Voici le code utilisé :

Code :

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

1
2
3
4
 
mes est une chaîne
mes=Caract(0x01) + Caract(0x03)+ Caract(0x07)+ Caract(0x0B) + Caract(0x00) + Caract(0x01) + Caract(0xF4) + Caract (0xBC)
sEcrit(cmp,mes)

Encore un grand merci à tous.