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.