Discussion :

[xor28]

Bonjour,
Je me permet de vous contacter car je dois faire une application afin de recuperer une valeur ASCII sur un codeur en RS232
en hyperterminal quand je fais un test la communication se deroule bien
je dois lui envoyer une chaine de caractere ASCII commencant par ctrl+b 0001 ctrl+c et l'automate me repond de la meme maniere
voici le code que j'ai tapé mais je n'ai pas de reponse mais pas de message d'erreur non plus?

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande9_Click()
    NETComm8.CommPort = 1		   il est bien branché sur le com 1
    NETComm8.Settings = "4800,N,7,1"	   ce codeur fonctionne en 4800b sur 7 bit parité paire bit de stop 1
 
    NETComm8.PortOpen = True
    NETComm4.RThreshold = 1
    NETComm8.Output = Asc("02000103")
    NETComm8.PortOpen = False
 
End Sub

merci d'avance

[marot_r]

Je ne sais pas si cela viens de là mais Asc() ne renvoit que le code ascii du 1er caractère, dans ton cas le 1er '0'.

A+

[electrosat03]

salut,

Je dis ça comme ça,

Tu fermes le port à la fin, es tu sur que l'automate ouvre le port pour communiquer.

A+

[xor28]

Effectivement vos remarque sont bonnes, en fait avec qques jours de recul
j'ai meiu compris le fonctionnement mais je n'arrive toujours pas à communiquer avec! En effet pour avoir une réponse de l'automate je dois lui envoyer une commande dans mon cas c'est de l'ascii : ctrl+b 0001 ctrl+c
avec cette valeur l'automate me renvois la valeur afficher sur son ecran
mais je ne c'est pas comment lui envoyer une chaine ascii???
D'avance merci

[marot_r]

Suggestion :

- envoyer chaque caractère individuellement avec une rafale de commandes NETComm8.Output

- essayer d'utiliser les fonctions de manipulations de fichier (open, print #, input #) et les vieux ports "COMx" du temps du DOS. Un truc du genre open "COM1:" for binary as #1.

A+

[xor28]

je ne comprends pas du tout votre explication desole.

[marot_r]

Comme tu utilises Asc() pour écrire un caractère, si tu mets plusieurs instructions NETComm8.Output l'une endessous de l'autre tu devraiis pouvoir envoyer toute ta chaine. Un truc du genre :

Code :

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

1
2
3
4
5
 
dim instruction as string:instruction="02000103"
dim i as integer:for i=1 to len(instruction)
   NETComm8.Output = Asc(mid(isntruction, i, 1))
next i

- essayer d'utiliser les fonctions de manipulations de fichier (open, print #, input #) et les vieux ports "COMx" du temps du DOS. Un truc du genre open "COM1:" for binary as #1.

Il existait en DOS et de GW-BASIC un moyen de déclarer les ports de communications RS232 (COM1: ou COM2: généralement) comme des fichiers textes et ensuite d'utiliser les instructions Open, Print # et Input # pour écrire ou lire à partir de ces ports.

Le code devrait ressembler à cela mais je ne l'ai pas validé.

Code :

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

1
2
3
4
 
open "COM1:" for binary as #1.
print #1, "02000103"
close #1

Pour les détails de syntaxe et de paramètres, la touche magique : [F1].

A+

[xor28]

Bonjour,
Je vais faire un test et je vous tiens au courant, mais c'est pas clair du tout pour moi je dois l'avouer.

[marot_r]

Qu'est-ce qui n'est pas clair ?

Le fait de traiter tes ports de communication comme des fichiers ?

Ou l'appel aux vielles fonctions du DOS ?

A+

[xor28]

Bonjour, je suis toujours dans une belle galere avec mon histoire !
je pense savoir d'ou vient mon probleme
le commande envoyer est celle ci :

MSComm0.Output = Chr$(2) + "0001" + Chr$(127) + Chr$(3)

cette commande sert à remettre un compteur à 0.
En fait je pense qu'il y a un probleme de communication le port ne doit pas etre bien configurer car il ne reçois meme pas cette information.
Dans la doc constructeur j'ai juste 7 bit et paire

voici mon code :

Private Sub Commande1_Click()
MSComm0.CommPort = 1
MSComm0.Settings = "4800,E,7,1"
MSComm0.PortOpen = True
MSComm0.Output = Chr$(2) + "0001" + Chr$(127) + Chr$(3)
MSComm0.PortOpen = False
End Sub


je ne connais pas tout les autres parametres du port serie ....
En voici qques un mais ca ne marche pas mieux!

MSComm1.CommPort = 1
MSComm1.Settings = "4800,E,7,1"
MSComm1.Handshaking = 0 'RTS
MSComm1.InputLen = 0
MSComm1.RTSEnable = True
MSComm1.RThreshold = 1
MSComm1.PortOpen = True

Merci pour votre aide...

[marot_r]

Quel est la définition de MSComm1 ? C'est quelle classe d'objet ?

Code :

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

Dim MSComm1 as new ???

A+