Visual Basic

[invite6cb06424]

Bonsoir,

Pour planter le terrain, je suis en train d'effectuer une liaison entre un µC et le PC par port serie, jusque la rien d'extraordinaire.

Ce que je cherche a faire, c'est envoyer le chiffre tapé sur le clavier en 1 trame . Autrement dit, lorsque je tape par exemple "126", il envoie 3 trames de 8 bits de donnée, { 1;2;6} au lieu de 1 {126}!

J'ai essayé pas mal de chose mais rien y fait, toujours 3 trames à l'oscilloscope!

Quel code pourrait me permettre de transformer le tableau d'entier en un seul entier? Ou encore envoyer ce tableau en tant qu'entier?

La première requête me parait plus accessible, mais en vain!

Merci pour votre aide
-----

[invite895675d5]

Un petit bout de code serait le bien venu, car là on ne sait même pas si tu lis un nombre (int, long, ...) ou une chaine de caractères.

[invite6cb06424]

Bonjour,

Voici Mon code :

Imports System.Text

Public Class Domoa
Dim COM1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPo rt("COM1", 9600)

Private Sub Domoa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Fenetre général
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Envoie des données

COM1.Write(Val(ID1.Text))
End Sub
End Class

C'est a vérifier mais je pense qu'il envoie une chaine de caractère (celle tapée) alors que je voudrais le nombre que j'ai tapé en une seule fois!

Merci d'avoir répondu aussi vite

Je cherche encore de mon coté!

[invite6cb06424]

J'ai trouvé quelque chose mais je ne me vois pas faire tout le tableau ASCII de cette maniere :

If (ID1.Text = 135) Then rr = "]"
COM1.Write(rr)

Dans l'exemple, la valeur 135 est tapée ; Elle est remplacée par le symbole ASCII correspondant " ]" qui lui même vaut 135 en décimal.

Je peux bien faire ca pour les 255 valeur ASCII mais il doit y avoir plus simple

Merci pour votre aide

[A voir en vidéo sur Futura]

[invite6cb06424]

j'ai trouvé, il suffisait d'utiliser 'Chr'

COM1.Write(Chr(ID1.Text))

Voila

[invite6cb06424]

Un autre problème s'offre a moi!

Je peux envoyer de 1 à 127 sans problème, je reçois bien les informations, mais dès que j'envoie 128 ou plus, il envoie je ne sais pas quoi et je reçois "63" a chaque fois qui est j'ai vu quelque part, une sorte de parité?! Je ne comprend pas cette réaction. Le code ASCII va de 0 à 255, pourquoi s'arrête t'il a 127?

Merci

[invite895675d5]

Tu as essayé les fonctions de conversion pour être sûr de ce que tu envoies ?
CInt pour convertir en int, CShort pour convertir en short. Tu seras sûr de ce que tu envoies.

[invite6cb06424]

Oui j'ai essayer toute les conversions que j'ai trouvé.

Pour être sur j'ai envoyé manuellement les informations :

COM1.Write(Chr(XXX))

(Remplacement de XXX par des nombres)

Encore une fois un problème pour les nombres supérieur a 127.

Cela vient donc de la configuration du port, l'ASCII étendu n'étant apparemment pas géré!

Il dois exister une configuration mais je ne la connais pas!

[invite2d7144a7]

Bonjour,

RS232 dispose de différents formats pour les transmissions, il faut régler tous les paramètres, DONT la taille des données, souvent 7 bits de données par défaut !!

[invite6cb06424]

Bonsoir,

Aurais-je oublié quelque chose ? :

Dim COM1 As IO.Ports.SerialPort
COM1 = My.Computer.Ports.OpenSerialPort("COM1", 9600, 0, 8, 1)

Tout parait correct selon moi!

[invite2d7144a7]

Bonjour,

Bonsoir,

Aurais-je oublié quelque chose ? :

Dim COM1 As IO.Ports.SerialPort
COM1 = My.Computer.Ports.OpenSerialPort("COM1", 9600, 0, 8, 1)

Tout parait correct selon moi!

Ici, oui, mais pas dans ton autre message.

[invite6cb06424]

Bonjour!

Je ne vois pas trop ce qu'il y a dans l'autre message qu'il n'y a pas dans celui ci a part "COM1.Write(Chr(XXX))".

Je ne l'ai pas écrit car il ne s'agit pas de la configuration

L'envoie se limite toujours a 127

Je persiste!

[invite2d7144a7]

Bonjour,

Bonjour!

Je ne vois pas trop ce qu'il y a dans l'autre message qu'il n'y a pas dans celui ci a part "COM1.Write(Chr(XXX))".

Je ne l'ai pas écrit car il ne s'agit pas de la configuration

L'envoie se limite toujours a 127

Je persiste!

Ah ?

Bonjour,

Voici Mon code :

Imports System.Text

Public Class Domoa
Dim COM1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPo rt("COM1", 9600)

Private Sub Domoa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Fenetre général
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Envoie des données

COM1.Write(Val(ID1.Text))
End Sub
End Class

C'est a vérifier mais je pense qu'il envoie une chaine de caractère (celle tapée) alors que je voudrais le nombre que j'ai tapé en une seule fois!

Merci d'avoir répondu aussi vite

Je cherche encore de mon coté!

[invite6cb06424]

Bonjour a tous,

Cela ne fonctionne toujours pas, la configuration de Windows elle meme pourrait elle etre en cause? Je suis a cours d'idée!

Merci

[invite8666d089]

J'ai bien peur que ton pb ne vienne de la chaîne string que tu envoies (unicode). Essaye de convertir tes données au format Bytes avant des les envoyer pour voir ce que ça donne.

[invite6cb06424]

Bonjour!

A vrai dire, je pense avoir tout essayer les moyens de conversions, J'ai aussi envoyé directement chaque valeur, cela ne fonctionne pas. Existe t-il d'autre instruction/Librairie pour gerer le port serie?

Je soupçonne les instructions de ne pas 'savoir' (Pas etre prévu) envoyer au dela de 127!

[Jack]

tu es sur que le protocole est le bon des 2 côtés? nombre de bits/caractère, parité, etc?

A+

[invite6cb06424]

Oui j'en suis certain! D'une part parce que pour les test je renvoie au PC ce que lui même envoie.
Puis d'autre part, je vois très bien a l'oscilloscope qu'il y a 8 bits de données, 1 de start et 1 de stop!

Les anciennes versions de vb fonctionnait mieux ce niveau je me trompe?

[invite8666d089]

Avec quelle version de VB travailles-tu ?

[invite6cb06424]

Ah oui j'ai oublié de préciser, je travail avec la version 2010.

[Jack]

je ne conais pas VB, mais en principe, lorsqu'on appelle une fonction on peut s'attendre à ce qu'elle nous renvoie une valeur indiquant si l'appel s'est bien déroulé ou pas.

Si la fonction open renvoie un résultat, as-tu testé la valeur de retour?

A+

[invite8666d089]

Il semblerait que la gestion des ports série sous VB 2010 fasse l'objet de critiques lourdes, aussi bien au niveau des API que du contrôle. Problème pratiquement inconnu sous VB 6.0.

Il faut dire que les ports série n'ont jamais été la tasse de thé de Microsoft ; tu trouveras quelques informations très intéressantes ici.

Je pense que ton problème vient d'un encodage incorrect des chaînes de caractères...mais ne puis l'affirmer. As-tu la possibilité de tester ton code sous VB 6.0 ?