Port série COM RS232

Nombre de messages : 23 Date d'inscription : 16/01/2014

Bonjour,

J'ai l'impression que l'on a oublié les fonctions pour l'usage du port série!

J'utilise abondamment ce port même avec Win XP. Sur Win 7 j'ai un problème non résolu.

Je maîtrise l'usage de ce port qui est bien commode pour la collecte de données.
Par exemple, le contrôle du CI MAX187 convertisseur A/N 12 bits.
Il est possible de collecter des données sur 4 canaux avec ce port.
(8 canaux si l'on dispose de COM1 et COM2)

J'aimerais bien que cette fonction existe en PANORAMIC.

Certes, sur les machines récentes ce port n'existe plus. Il y a des adaptateurs bien
que j'aime moins cet usage car le débit est ralenti.

Le port USB oblige à utiliser un microcontrôleur ce qui complique l'électronique.

Certains portables usagés ou qui datent ont encore ce port. Je viens d'en acheter une dizaine!
Pour les bricoleurs c'est bien plus pratique et immédiat que le port USB.
Sinon avec USB je dois acheter une interface dédiée et logiciel d'accompagnement.

Il ne serait pas inutile de générer une commande pour le port série COM.

Qu'en pensez-vous?

Salutations,

Jasym

Sujet: Re: Port série COM RS232 Mar 21 Jan 2014 - 17:18

Dans mon WebDav, j'ai un dossier IO_Access_COM. Dedans, tu trouves entre autres:

- IO_Access_COM.dll
c'est une DLL gérant un port RS232, avec des fonctions appellables par Panoramic

- test_IO_Access_COM.bas
c'est un programme démo en Panoramic pour montrer l'utilisation de ces fonctions

J'ai réalice cette DLL à partir d'une DLL fournie en gratuiciel, avec les références suivantes:

Citation :: {*************************************************************}
{* "IO_Acces_COM" *}
{* DLL d'acces aux lignes d'un port RS232 *}
{* rev : 02/05 07/07 - D5 *}
{* © 2005-2007 *}
{* http://www.automatepc.fr *}
{*************************************************************}

Fonctionnellement, mon implantation pour Panoramic est identique à celle référencée ci-dessus. Si tu as des quiestions sur un aspect technique, n'hesite pas de poser des quiestions. Par contre, pour la pratique, je ne peux pas t'aider - je n'ai pas de port RS232 (bien que je les connaisse bien - j'ai réalisé moultes connexions d'automates d'analyses aux ordinateurs via des ports RS232).

Bonne chance !

Sujet: re Mar 21 Jan 2014 - 17:22

Je crois ( mais je ne suis pas sûr ) qu' une demande a été faite pour les usb
mais là ne crois tu pas qu' il faille aller vers le plus récent d' autant que, vu
les évolutions, ces ports devraient disparaître...

Edit : Embarassed

J' avais oublié cette dll de notre ami Klaus pour les roboticiens....

Sujet: Re: Port série COM RS232 Mar 21 Jan 2014 - 17:36

Pour les USB, j'ai aussi...

Sujet: re Mar 21 Jan 2014 - 20:42

@ Klaus,

Oui mais que n' as tu pas ?.... Laughing

Ton webdav est une formidable trousse à outils pour les Panoramiciens... Port série COM RS232 0060

Nombre de messages : 23 Date d'inscription : 16/01/2014

ygeronimi a écrit:: Je crois ( mais je ne suis pas sûr ) qu' une demande a été faite pour les usb
mais là ne crois tu pas qu' il faille aller vers le plus récent d' autant que, vu
les évolutions, ces ports devraient disparaître...

Edit : J' avais oublié cette dll de notre ami Klaus pour les roboticiens....

Tu as bien raison. Je mesure la température par intervalle de 10 s en continu depuis 8 ans avec
un PC model 286 et rien n'a lâché. Il est indestructible! Comment pourrais-je me défaire d'une telle machine.
J'ai toujours un peu le coeur serré quand je vois le nombre de ces machines qui vont au dépotoir simplement
pour faire nouveauté. Un bon outil prend de la noblesse avec l'âge. C'est vrai pour le marteau et l'équerre,
pourquoi ce ne le serait pas pour un ordinateur. Tu me pardonnes... je suis un nostalgique.

Mais pour ceux qui n'ont qu'une machine moderne, bien oui, il faut aller vers le port USB. Dans mon cas je ne
suis pas à niveau pour interfacer un tel port.

J'apprécie ton opinion,

Jasym

Nombre de messages : 23 Date d'inscription : 16/01/2014

Klaus a écrit:

Dans mon WebDav, j'ai un dossier IO_Access_COM. Dedans, tu trouves entre autres:

- IO_Access_COM.dll
c'est une DLL gérant un port RS232, avec des fonctions appellables par Panoramic

- test_IO_Access_COM.bas
c'est un programme démo en Panoramic pour montrer l'utilisation de ces fonctions

J'ai réalice cette DLL à partir d'une DLL fournie en gratuiciel, avec les références suivantes:

Citation :: {*************************************************************}
{* "IO_Acces_COM" *}
{* DLL d'acces aux lignes d'un port RS232 *}
{* rev : 02/05 07/07 - D5 *}
{* © 2005-2007 *}
{* http://www.automatepc.fr *}
{*************************************************************}

Fonctionnellement, mon implantation pour Panoramic est identique à celle référencée ci-dessus. Si tu as des quiestions sur un aspect technique, n'hesite pas de poser des quiestions. Par contre, pour la pratique, je ne peux pas t'aider - je n'ai pas de port RS232 (bien que je les connaisse bien - j'ai réalisé moultes connexions d'automates d'analyses aux ordinateurs via des ports RS232).

Bonne chance !

Klaus

Webdav je ne sais pas ce que c'est. Le site automatepc.fr n'est pas accessible.
Peux-tu envoyer le fichier pertinent sur mon courriel?

À bientôt,

Jasym

Invité

Citation :: Webdav je ne sais pas ce que c'est. Le site automatepc.fr n'est pas accessible.

Lorsqu'on est connecté, on a mis sa signature avec le nom d'un site sur lequel on dépose nos dossiers qu'on ne peut pas mettre sur le forum:

le site est dans la barre d'adresse de la première image: www.mydrive.ch/login

tu peux l'adresse du site pour te brancher:

tu remplis les champs avec les données de la signature:

La majorité d'entre-nous hébergeons mon fichiers sur ce site. Il faut s'incrire: 2 GO gratuit.

Sujet: Re: Port série COM RS232 Mar 21 Jan 2014 - 23:54

Super tuto, cosmos70 !

Nombre de messages : 23 Date d'inscription : 16/01/2014

Klaus a écrit:: Super tuto, cosmos70 !

Toute ma reconnaissance Klaus,

ça n'a pas été facile de m'y retrouver. Quand enfin j'ai pu composer
le bon code ça été refusé. Tout me semblait correct. Je ne comprends pas pourquoi.
J'ai tenté ma chance de nouveau et là le bon graffiti est apparu. Ah! l'informatique.
C'est à ruiner notre patience...

Il me reste à essayer la routine. Mais je laisse cela à un ami qui a de l'avance sur moi
avec Panoramic.

Pour mon portable qui ne reconnait pas Panoramic... Le technicien a reconnu de la magouille
dans le paramétrage. Pour la troisième fois... formatage du disque dur et le tout est repris à zéro
J'espère un résultat positif. Sinon adieu Panoramic pour ces machines. Je vais passer au Python!

À la prochaine,

Jasym

Sujet: Re: Port série COM RS232 Mer 22 Jan 2014 - 3:07

Si ta machine peut ‘parler’ Python, IL N’Y A AUCUNE RAISON POUR QU’ELLE SOIT MUETTE EN PANORAMIC !!!

Invité

Oui, je pense un peu comme toi. L'abandon est rapide.
Bon chacun a sa liberté.

Sujet: re Mer 22 Jan 2014 - 17:58

Que veux tu Cosmos...certains cherchent à virer les vers et d' autres introduisent carrément un serpent.... Laughing

Nombre de messages : 23 Date d'inscription : 16/01/2014

Bonjour,

J'ai bien obtenu la DLL IO_Acces_COM .

La vérification du port fonctionne.

Mais cela m'est d'aucun secours. Ça dit seulement que
le port est fonctionnel. Probablement pour opérer en RX TX.

Je ne me sers pas de cette fonction. J'utilise plutôt la
recharge des registres. Voir le document en annexe. (Oups! Pas moyen d'annexer un fichier sur le forum!)

La manipulation des registres (MCR et MSR) est-elle possible avec Panoramic?

(Je règle les états RTS et DTR (adresse 1020) et je lis les états CTS DSR RI et CD (adresse 1022).)

Jasym

Je ne connais pas cette DLL. J'ai simplement créé l'interface pour Panoramic, mais je ne connais pas son fonctionnement interne. Je te donne ici le petit programme Panoramic qui exploite toutes les fonctions de cette DLL. Elles y sont toutes, et il n'y en a pas d'autres. J'espère que tu y trouveras ton bonheur:

Code:: ' test_IO_Access_COM.bas

label tester

dim res%, dat%, buffer$, taille%, int%, float

combo 10 : top 10,20 : left 10,20 : width 10,170
  item_add 10,"ComUsePort"
  item_add 10,"ComStateIn"
  item_add 10,"ComStateOut"
  item_add 10,"ComConfig"
  item_add 10,"ComSetDataOut"
  item_add 10,"ComGetDataIn"
  item_add 10,"ComSetBlockOut"
  item_add 10,"ComGetBlockIn"
  item_add 10,"ComGet4ByteBlockIn INT"
  item_add 10,"ComGet4ByteBlockIn FLOAT"

button 20 : top 20,20 : left 20,200
  caption 20,"Tester" : on_click 20,tester

dll_on "IO_Acces_COM.dll"

end

tester:
  select item_index(10)
   case 1
   res% = dll_call1("ComUsePort",1)
   message "Résultat: "+str$(res%)
   case 2
   res% = dll_call1("ComStateIn",1)
   message "Résultat: "+str$(res%)
   case 3
   res% = dll_call2("ComStateOut",2,1)
   message "Résultat: "+str$(res%)
   case 4
   res% = dll_call4("ComConfig",1200,8,1,0)
   message "Résultat: "+str$(res%)
   case 5
   res% = dll_call1("ComSetDataOut",65)
   message "Résultat: "+str$(res%)
   case 6
   res% = dll_call1("ComGetDataIn",adr(dat%))
   message "Résultat: "+str$(res%)+" Data="+str$(dat%)
   case 7
   buffer$ = "abcde"
   taille% = len(buffer$)
   res% = dll_call2("ComSetBlockOut",adr(buffer$),taille%)
   message "Résultat: "+str$(res%)
   case 8
   buffer$ = string$(512," ")
   taille% = 512
   res% = dll_call2("ComGetBlockIn",adr(Buffer$),adr(taille%))
   if taille%>0
   buffer$ = left$(buffer$,taille%)
   message "Résultat: "+str$(res%)+" "+buffer$
   else
   message "Résultat: "+str$(res%)
   end_if
   case 9
   dat% = 0
   res% = dll_call1("ComGet4ByteBlockIn",adr(int%))
   if res%=1
   message "Résultat: "+str$(res%)+" Entier reçu: "+str$(int%)
   else
   message "Résultat: "+str$(res%)
   end_if
   case 9
   float = 0
   res% = dll_call1("ComGet4ByteBlockIn",adr(float))
   if res%=1
   message "Résultat: "+str$(res%)+" Entier reçu: "+str$(float)
   else
   message "Résultat: "+str$(res%)
   end_if
  end_select
  return

Nombre de messages : 23 Date d'inscription : 16/01/2014

Klaus a écrit:

Je ne connais pas cette DLL. J'ai simplement créé l'interface pour Panoramic, mais je ne connais pas son fonctionnement interne. Je te donne ici le petit programme Panoramic qui exploite toutes les fonctions de cette DLL. Elles y sont toutes, et il n'y en a pas d'autres. J'espère que tu y trouveras ton bonheur:

Code:: ' test_IO_Access_COM.bas

label tester

dim res%, dat%, buffer$, taille%, int%, float

combo 10 : top 10,20 : left 10,20 : width 10,170
  item_add 10,"ComUsePort"
  item_add 10,"ComStateIn"
  item_add 10,"ComStateOut"
  item_add 10,"ComConfig"
  item_add 10,"ComSetDataOut"
  item_add 10,"ComGetDataIn"
  item_add 10,"ComSetBlockOut"
  item_add 10,"ComGetBlockIn"
  item_add 10,"ComGet4ByteBlockIn INT"
  item_add 10,"ComGet4ByteBlockIn FLOAT"

button 20 : top 20,20 : left 20,200
  caption 20,"Tester" : on_click 20,tester

dll_on "IO_Acces_COM.dll"

end

tester:
  select item_index(10)
   case 1
   res% = dll_call1("ComUsePort",1)
   message "Résultat: "+str$(res%)
   case 2
   res% = dll_call1("ComStateIn",1)
   message "Résultat: "+str$(res%)
   case 3
   res% = dll_call2("ComStateOut",2,1)
   message "Résultat: "+str$(res%)
   case 4
   res% = dll_call4("ComConfig",1200,8,1,0)
   message "Résultat: "+str$(res%)
   case 5
   res% = dll_call1("ComSetDataOut",65)
   message "Résultat: "+str$(res%)
   case 6
   res% = dll_call1("ComGetDataIn",adr(dat%))
   message "Résultat: "+str$(res%)+" Data="+str$(dat%)
   case 7
   buffer$ = "abcde"
   taille% = len(buffer$)
   res% = dll_call2("ComSetBlockOut",adr(buffer$),taille%)
   message "Résultat: "+str$(res%)
   case 8
   buffer$ = string$(512," ")
   taille% = 512
   res% = dll_call2("ComGetBlockIn",adr(Buffer$),adr(taille%))
   if taille%>0
   buffer$ = left$(buffer$,taille%)
   message "Résultat: "+str$(res%)+" "+buffer$
   else
   message "Résultat: "+str$(res%)
   end_if
   case 9
   dat% = 0
   res% = dll_call1("ComGet4ByteBlockIn",adr(int%))
   if res%=1
   message "Résultat: "+str$(res%)+" Entier reçu: "+str$(int%)
   else
   message "Résultat: "+str$(res%)
   end_if
   case 9
   float = 0
   res% = dll_call1("ComGet4ByteBlockIn",adr(float))
   if res%=1
   message "Résultat: "+str$(res%)+" Entier reçu: "+str$(float)
   else
   message "Résultat: "+str$(res%)
   end_if
  end_select
  return

Merci Klaus, je vais m'y pencher à nouveau.

bonsoir a tous
@ jasym
tu nous mets l'eau à la bouche
connais tu un bon tuto sur le sujet:

. Voir le document en annexe. La manipulation des registres (MCR et MSR) est-elle possible avec Panoramic?
(Je règle les états RTS et DTR (adresse 1020) et je lis les états CTS DSR RI et CD (adresse 1022).)

pour ma part je reste encore sur le port parallele par manque de connaissance
merci

A ma connaissance, tu utilises ComStateIn et ComStateOut pour ça. Tu n'as aucun moyen d'accéder à des adresses physiques. Tout l'adressage se fait par des adresses virtuelles, et elles n'incluent évidemment pas les registres gérant un port physique. C'est la tâche exlusive des drivers système de faire ça.

Pour un tuto pour cette DLL, il faut demander poliment à mon ami, Mr. Google. Il saura certainement te trouver cela, puisqu'il trouve presque tout...

merci Klaus
comme souvent je n'ai pas eté assé clair
c'est l'usage et l'utilitée du port RS232 qui m'interresse
" transfert d'info ..."
bien sur, GOOGLE regorge de données mais c'est souvent touffu
merci pour ton soutient

Au fait si tu t'interesses à ce sujet, je ne sais plus qui tient ce blog (je crois que c'est atom mais je n'en suis pas sûr), tu as des infos sur: http://panoramicetardinouno.blogspot.fr/

Nombre de messages : 23 Date d'inscription : 16/01/2014

Bonjour,

Il y a un peu de confusion sur le forum...

J'ai lu un message de mindstorm mais je ne le retrouve pas ici.
C'est comme s'il y avait deux canaux de forum!!!

Pour répondre à mindstorm au sujet de l'usage du port RS232,

Je peux tout faire sur ce port sauf que je n'utilise pas la transmission normalisée en RX TX.

J'accède directement aux registres internes du port mais cela en QBASIC.

Par exemple, je collecte des données avec le convertisseur A/N MAX187 à une vitesse
tout de même intéressante. Cela sans utiliser le CI d'adaptation pour le RS 232 car il
génère trop de bruit (Il y a un convertisseur de niveau de tension dedans.) Comme le
MAX187 a une résolution de 1 mV, il faut minimiser le bruit électronique.

Cela évite d'utiliser un microcontrôleur pour des tâches simples.

En BASIC il s'agit d'utiliser les fonctions INP et OUT.

Il est possible de passer par le port USB en utilisant un adaptateur USB/RS232.

Mindstorm, si tu veux passer par le langage BASIC je peux te fournir les détails techniques
du port RS232 pour pouvoir monter les circuits électroniques nécessaires pour établir un lien
de communication de cette façon. M'envoyer un courriel à mesidtec@gmail.com

Jasym

merci jicehel
je n'y etais pas allez depuis quelques temps (par manque de temps) et le blog c'est considerablement etoffé
@ jasym
il reprend les explications que tu cherche pour la DLL
ps : si tu cherche un message sur un sujet precis et que par chance tu connaisse l'auteur
-passe par "membres"
il y a la liste des membres et bien sur la liste des messages de chaque membres
tu peux egalement envoyer un message perso ( je t en passe un pour test )

» Scan port COM série
» Port parallèle non accessible
» gestion ports rs232 et/ou parallele
» Domotique avec Panoramic, Terminal RS232
» Serie de "And"