Utilisation Simple contact sec sur Port com en VBA

Bonjour a tous

Ayant fouillé sur toute la toile afin d'y trouver mon bonheur en vain !
Je me tourne vers vous concernant une question simple (enfin j'espère)
J'ai choisi votre forum car c'est mon préféré ;-) (j'y trouve la plupart des réponses à mes questions existentielles !)


Je doit utiliser le port com (RS232) d'un ordinateur afin d'y adjoindre un capteur (contact "sec" tout ou rien, un interrupteur quoi !)
Et de récupérer via VBA l'état de cet inter (ouvert ou fermé)

J'ai trouvé comment le faire sur le port imprimante (LPT)
En mettant l'interrupteur entre le Pin(2) D0 et le pin(15) du "Error" de la DB25
Puis en utilisant la DLL "InpOut32.dll"
J'utilise la commande :
z = INP(&H379) 'interrogation du port correspondant
Quand l'interrupteur est :
Ouvert => z = 120
Fermé => z = 112
Donc en 3 lignes de code je sais si mon interrupteur est ouvert ou fermé ...
Je passe le chapitre de la lecture en boucle et tout le tintouin qui va avec ( c'est un autre pb)


Je souhaite faire la même chose avec le port Com ( le PC que je doit utiliser n'a qu'un port com ! Les joies de l'évolution)
Je ne suis pas obtus sur le nombre de lignes bien sûr,
Dois-je utiliser le "Microsoft Comm Control " de VBA ?
Beaucoup parlent de transfert de données, ce qui ne me sert pas !

En résumé :
quels fils je dois shunter (DTR-DSR-RTS-CTS) ?
entre quels fils mettre mon inter (RX-TX) ?
quelle DLL utiliser ?
quel port à interroger pour récupérer l'état ($3FB-$3F8) ?

entre () des indices que j'ai trouvé tans bien que mal !...

Merci d'avance pour votre aide, ça fait 3 jours que je cherche en vain !...

Salut,

sur un forum anglophone, je trouve ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)   Sub Receive_COM5()   Dim COM5file As Integer Dim timeout As Date Dim record As String * 11, emptyRecord As String * 11 Dim recLen As Integer Dim inputByte As Integer   recLen = Len(record)   'Open COM5 port with baud rate 2400, No parity, 8 data bits and 1 stop bit   COM5file = FreeFile Open "COM5:2400,N,8,1" For Random As #COM5file Len = recLen   'Monitor port for 30 seconds   timeout = Now + TimeValue("00:00:30")   Debug.Print "Started"   While Now < timeout Get #COM5file, , record   If record <> emptyRecord Then   Debug.Print Now; "<" & record & ">"   'Display each byte   For i = 1 To recLen inputByte = Asc(Mid(record, i, 1)) If inputByte = 0 Then 'No character in this position ElseIf inputByte >= 32 And inputByte <= 126 Then 'Printable character Debug.Print "<" & inputByte & "> "; Chr(inputByte) Else 'Non-printable character Debug.Print "<" & inputByte & ">" End If Next End If   DoEvents Sleep 200 Wend   Close #COM5file Debug.Print "Finished"   End Sub

---

http://www.mrexcel.com/forum/excel-q...-com-port.html

Bonjour ou bonsoir

Ce code a l'air bien
mais il sous entend que c'est une chaine de caractères et un port com connecté à un appareil de mesures par exemple
Dans mon cas ce n'est pas un caractère ni des données mais juste un contact sur des b roches de la DB9

je note quand même le code ...

PS : Au fait je parle de port com mais si cela est possible a moindre coût je peux utiliser le port USB
Mais a ma faible connaissance qui dit USB dit circuit imprimé et plus ...
Je ne peux pas mettre un inter entre le data+ et le data- de la prise USB ?...


Merci de la prompte réponse !

stef

Bonsoir,
Le port rs232 fonctionne en courant constant différentiel.

Non ce n'est pas la solution

Je te conseil un arduino , c'est une carte électronique à base d'un microcontrôleur et lu gère le port usb!

Tu peux télécharger sur internet de librairies pour ton application du genre lire un porte, allumer une LED etc...

Un arduno dans le premier prix 6.90€.

bonsoir

J'avais bien pensé à une carte arduino
Malheureusement c'est dans le cadre de mon travail et je n’ai aucun budget ! seul mon temps est payable ! ...
Sur le port imprimante ça fonctionne donc ça doit etre possible en port com ...ou le port USB ;-)

Citation:

---

Sur le port imprimante ça fonctionne donc ça doit etre possible en port com ...ou le port USB ;-)

---

Ne confonds pas le port parallèle qui fonctionne en tout ou rien et le port seri qui vide le contenu d'un registre de 8bis sur deux fils à court différentiel!

Tu avais l'intention d'utiliser le port imprimante sans le buffériser?

Tu ne comptais ps protégé ton ordinateur?

Sache que depuis xp il n'est plus possible de gérer l'adresse du port parallèle!

J'ai moi même été obligé d'utiliser une librairies pour gérer le port parallèle afin d'administrer un carte électronique.

Il faut compter des optocoupleurs et les résistance pour les polariser si tu veux protégé ta machine.

Citation:

---

Envoyé par dysorthographie

Tu avais l'intention d'utiliser le port imprimante sans le buffériser?

---

Je n'ai aucune notion d’électronique ni comment le pc fonctionne- autodidacte en programmation et tout le reste
J'ai eu le schéma pour le port parallèle sur internet et il n'y avait que des ILS de branchés sans protection ni résistance

Je suis preneur de toutes ces infos ! Ça ne m'en sera que profitable !
Aurais tu un schema de principe à me montrer ?

hello,
C'est possible d'utiliser le port série pour tester un contact "sec" en se servant des broches CTS - RTS ( 7 et 8 ) :
Pièce jointe 224652

Il suffit de relier les broches 7 et 8 , d'activer le RTS du port série utilisé et de scruter ensuite l' Etat du CTS. Si les broches 7 et 8 sont reliées le CTS est à vrai , sinon il est à faux.

Pour tester ceci j'ai généré un assemblage dotnet à interface COM (pour pouvoir l'utiliser dans VBA dans Références) et voici ce que cela donne :
Pièce jointe 224653

Le premier test est fait avec les broches 7 et 8 de mon port série COM26 non reliées. : Résultat faux.
Le deuxième test est fait avec les broches 7 et 8 de mon port série COM26 reliées : Résultat vrai.
Le troisième test est fait avec les broches 7 et 8 de mon port série COM26 non reliées. : Résultat faux.

Attention tester un contact sec avec un port série relève de la "bidouille" car il n' y a pas de protection du port (attention aux court-circuits), pas d'isolation et il faut voir aussi la longueur du câble jusqu'au contact sec.

Ami calmant, J.P

Whaooo ! ça ça me plais !... net clair concis !

par contre là je pèche un peu !

Citation:

---

Envoyé par jurassic pork

Pour tester ceci j'ai généré un assemblage dotnet à interface COM (pour pouvoir l'utiliser dans VBA dans Références)

Ami calmant, J.P

---

est-ce une dll à telecharger? Où je peux trouver cette reference (vue qu'elle s'appelle JpSerial j'ai une vague idée ... ;-)?

Pour tester le JpSerial je fais
if JpSerial = true ...? c'est ça ?

Pour ce qui est des faux contacts et court-circuits un bouton poussoir est il dangereux ? (pas de source de courant supplémentaire)

Là ça fais avancer le schmilblick je te remercie

J'ai hâte de tester cela à mon taf !

hello,
bonne nouvelle il existe un module vba (modComm) qui permet de manipuler les liaisons série en utilisant les API windows, une sorte de "Wrapper".
Voici comment l'utiliser :
1 - Télécharger les sources qui se trouvent ici (Download Source Code)
2 - Du fichier Commio.zip extraire le fichier Commio.bas.
3 - Modifier le fichier Private Const MAX_PORTS = 4 par Private Const MAX_PORTS = 40 (cela permet seulement d'avoir plus de ports disponibles.
4 - Dans l'explorateur de projets de l'éditeur VBA pointer sur son fichier excel, cliquer droit et choisir importer un fichier.
5 - Choisir son fichier commio.bas modifié et cliquer sur Ouvrir.
6 - Normalement un module nommé modComm apparaît.

Et voici comment l'utiliser dans notre cas de figure du test du contact sec :

1 - Créer un module (ou utiliser un module existant)
2 - Déclaration de variables globales au début du module :

Code:

---

1 2 3 4 5

Public intPortID As Integer ' Ex. 1, 2, 3, 4 pour COM1 - COM4 Public lngStatus As Long Public strError As String Public LineStatus As Boolean Public TimerON As Boolean

---

3 - La procédure qui initialise le port série et lance un timer qui va scruter la ligne CTS toutes les secondes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub InitTest() ' Initialiser les communications intPortID = 26 ' port COM26 lngStatus = CommOpen(intPortID, "\\.\COM" & CStr(intPortID), _ "baud=9600 parity=N data=8 stop=1") If lngStatus <> 0 Then ' Erreur d'ouverture du port COM lngStatus = CommGetError(strError) MsgBox "COM Erreur: " & strError Exit Sub End If ' Mettre le RTS à 1 lngStatus = CommSetLine(intPortID, LINE_RTS, True) TimerON = True 'démarrage du Timer qui lit le CTS toutes les secondes Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _ Procedure:="TestCTS", Schedule:=TimerON

---

La procédure de test du CTS :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Sub TestCTS() On Error Resume Next ' Tester le CTS If TimerON Then lngStatus = CommGetLine(intPortID, LINE_CTS, LineStatus) Debug.Print LineStatus Else Call CommClose(intPortID) End If 'on réarme le timer ou pas Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _ Procedure:="TestCTS", Schedule:=TimerON End Sub

---

et la procédure d'arrêt du test :

Code:

---

1 2 3 4

[Sub FinTest() 'Arrêt du Timer TimerON = False End Sub

---

Si on veut un intervalle de test inférieur à la seconde , il faut utiliser un Timer windows (par API) mais attention il y a risque de crash d'Excel si on manipule les cellules pendant l'exécution de ce timer.

Citation:

---

Pour ce qui est des faux contacts et court-circuits un bouton poussoir est il dangereux ? (pas de source de courant supplémentaire)

---

Non pas de danger , il faut seulement ne pas injecter de tension sur les fils. Pour le câblage , le mieux (si le connecteur de la liaison série est un DB9 mâle) c'est d'utiliser un connecteur femelle DB9 à souder et de souder les deux fils qui partent vers le contact sur les broches 7 et 8 de ce connecteur. Pour l'anti rebond tu peux utiliser un artifice logiciel (regarder si l'état du CTS change sur deux tests consécutifs). Tout cela dépend aussi du genre d'ouverture fermeture de contact que tu testes. Si c'est fugitif cela ne fonctionnera pas et si le contact change d'état pendant moins d'une seconde le Timer à une seconde risque de rater le phénomène.

Ami calmant, J.P

bonjour,

Ca commence a prendre forme !
Il y a plus de lignes que sur ton premier exemple

par contre j'ai un petit pb avec l'ouverture du port

Pièce jointe 224737

?
De quoi cela peut il venir ?
J'utilise le com1 (changé dans le code)
J'ai essayé le : CommClose pour refermer le port com mais pas mieux !

pour ce qui est du temps de rafraichissement la seconde me va tres bien
C'est pour voir la présence d'une pièce qu'un opérateur pose durant au moins 5s


Merci pour ton aide
Stef

sans doute une autre application qui utilise le port COM. J'ai le même message que toi si je lance une autre application qui utilise mon port COM avant de lancer la macro.


Ami calmant, J.P

Citation:

---

Envoyé par jurassic pork

sans doute une autre application qui utilise le port COM. J'ai le même message que toi si je lance une autre application qui utilise mon port COM avant de lancer la macro.


Ami calmant, J.P

---

comment savoir quelle appli utilise le port com ?
aucune autre appli n'est en route ...
comment faire pour forcer le port com pour mon programme et deconnecter l'autre

hello,
pour voir quel logiciel utilise un port série, tu peux utiliser l'utilitaire Handle de Microsoft/sysinternals disponible ici

Dans une invite de commande lancer :
handle -a \device\serial pour voir qui utilise les ports séries "natifs"
Pour des ports séries plus exotiques du genre USB vers Série tu peux essayer :
handle -a \device\VCP
c'est ce qui marche chez moi avec mon adaptateur USB série :

Citation:

---

F:\sysinternals>handle -a \device\vcp

Nthandle v4.1 - Handle viewer
Copyright (C) 1997-2016 Mark Russinovich
Sysinternals - www.sysinternals.com

EXCEL.EXE pid: 6952 type: File 720: \Device\VCP2

F:\sysinternals>

---

Sinon tu fais handle -a \device et tu cherches dans la liste ce qui pourrait être un port série.

Pour le câblage de test du CTS ce qui est préconisé est ceci (seulement si tu as des soucis avec le premier schéma car dans celui-ci l'entrée CTS est "en l'air" quand le contact est ouvert) :

Pièce jointe 224762

Ami calmant, J.P

Bonjour,
je n'avais pas pensé à utiliser le pin 7 de la db9, bien vue Jurassic pork!


maintenant tu peux utiliser un entirebon logiciel, mais il faut un échantillonnage plus serré!

il existe le Control timer de Microsoft, mais le paradoxe c'est qu'il net pas possible de l'utiliser dans les application Microsoft, mais il est possible de créer son propre timer en utilisant le timer de Microsoft! c'est une bizarrerie de la loi enti trust américaine!

j'ai donc créé mon propre timer, c'est juste un passe plat, il utilise le timer te Microsoft mais ce n'est pas le timer de Microsoft, l'avantage et qu'il descente à la milliseconde!

une fois qu'on a dit ça comment ça marche en pratique! si je considère que l'appuis sur S1 n'est pas instantané et nous somme face à de rebond potentiel de S1, nous allons lire 20 fois le port en en 40 milliseconde , si S1 change d'état je remets le compteur à zéro des que le compteur atteint 20 je génaire l'evenement traitement et je remet le compteur = zéro!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private S1 As Boolean Private Sub antiFebond_Timer() Static compteur As Integer compteur = compteur + 1 If S1 <> lecturePort Then mompteur = 0 S1 = lecturePort If compteur = 20 Then mompteur = 0: traitement End Sub Private Sub traitement()     End Sub     Private Sub UserForm_Initialize() Me.antiFebond.Intervale = 2 End Sub

---

Control Timer

bonjour,

Dès que je suis au travail je testerais avec le pc du boulot qui vas servir a l'application

Pour la DB9 je vais utiliser une prise a câbler (petit bornier dessus sans soudure)

je vais plancher sur le code demain

Merci a vous deux

Salut

En fait pour ce message :

Citation:

---

Envoyé par mehari2000

bonjour,


Pièce jointe 224737

?
De quoi cela peut il venir ?
Stef

---

En fait ça fonctionne bien la première fois que je lance la macro (en mode débogage)
En boucle no pb mais des que j'arrete le fonctionnement en boucle ça plante après !
Je pense que la fermeture ne se fait pas bien ou JE ne le fais pas surtout
j'ai fais un : Call CommClose(intPortID) avec intPortID= mon num de com
Mais rien !... !?

Cdt
Stef (le boulet !)

hello,
fais un point d'arrêt sur :

Code:

---

1 2 3

Else Call CommClose(intPortID) End If

---

Tu arrêtes bien le timer en mettant la variable TimerON à faux ?
Sinon :
1 - Comment lances-tu et arrêtes-tu le test du contact ? Par un bouton qui lance une macro ? Par exécuter la macro ? Autrement ?
2 - Tu as mis exactement le même code que moi ? sinon mets-nous le code que tu utilises.
3 - Comment fais-tu ton :

Citation:

---

Call CommClose(intPortID) avec intPortID= mon num de com

---

Par une macro ?
Y-a-t-il un message d'erreur ?
4 - Quand tu essais de relancer ta macro, mets un point d'arrêt au début de la routine du Timer pour voir si elle tourne toujours.

Ami calmant, J.P

Bonjour,

au même titre que Microsoft propose un Control timer , il propose également un Control Com. mais les même causes produisent les même effets, il n'est pas possible de l'utiliser dans vba!

doc même solution! Contrôle com
Contrôle TIMER


je n'est que des ports USB pas testé!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub CheckBox1_Click() If Me.CheckBox1 = False Then Me.Label4 = Time Else Me.Label3 = Time End If End Sub     Private Sub TimerRd1_Timer() Me.Label1 = Time Static compteur As Integer, S1 As Boolean, S2 As Boolean compteur = compteur + 1 S1 = ComRd1.CommEvent = 1002 If S1 <> S2 Then compteur = 0 S2 = S1 If compteur >= 20 Then compteur = 0: Me.CheckBox1 = S1 Me.Label2 = compteur End Sub Private Sub UserForm_Initialize() ComRd1.PortOpen = True Me.TimerRd1.Intervale = 2 End Sub     Private Sub UserForm_Terminate() ComRd1.PortOpen = False End Sub

---

Salut,

Pour répondre aux questions

jurassic pork
Voici comment je lance la macro

Pièce jointe 225175

Je lance en mode debogage la sub InitTest ()
point d'arret sur : If lngStatus <> 0 Then , pour voir ma variable
un autre sur : Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), dans la sub TestCTS()
pour ne pas tourner en rond ... et prendre le temps de réfléchir ;.)

j'ai ajouté un condition sur la case A1 pour mettre le TimerON à faux pour arrêter la macro

Tout fonctionne bien quand j'appuis sur le bouton j'ai bien un changement sur mon LineStatus (voir fenetre execution)
J'arrête le TimerOn en vidant la case A1, tout suit son cours même le Call CommClose(intPortID)
Pas de message d'erreur !?

Je relance la sub InitTest () et là => erreur(-1) Port in use ?
Je relance la sub InitTest () et là => erreur(5) ... et là , c'est le drame !
Je suis forcé de fermer ma session pour libérer le port com

Je ne vais utiliser la lecture du CTS seulement à certains moments, je n'ai pas besoin de le lire en permanence
Ai-je besoin de le refermer si je ne l'utilise pas ?

dysorthographie
Merci pour la "Fast" tempo
mais je vais rester sur des secondes, Largement suffisantes pour mes besoins
Le compteur tourne trop vite pour moi j'arrive pas a lire le Label2 !8O
Néanmoins je garde ta tempo en tête pour d'autres applications
De plus ça va me permettre de bosser un peu sur ces ActiveX :mouarf:

re salut

en fait je viens de faire une petite Sub

Sub fermeture_com()
intPortID = 2
Call CommClose(intPortID)
End Sub

du coup quand il ne veut plus me lancer la macro, je lance celle là et là , alors là ! Ca fonctionne de nouveau ! :yaisse2: !!!
Pourtant il exécute la même macro quand le TimerON est à Faux !?...
Je vais essayer de gérer cette erreur

Pièce jointe 225193 .... J'adore

je pense qu'a la fin du Timer ça doit aller trop vite pour lui ! du coup il n'a pas eu le temps de fermer proprement le port com

Bon reste plus qu'à intégrer tout ça dans mon projet !... :pc:


Un grand Merci à vous deux pour votre aide précieuse :love:

hello,
bon je viens de tester une autre façon de lancer et d'arrêter le test du CTS.
Pour cela quand j'écris go dans la cellule A1 je déclenche le test en boucle et lorsque j'écris autre chose dans cette même cellule je l'arrête.

Le code de la modification d'unce cellule de la feuille1 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("A1")) Is Nothing Then If Me.Range("A1") = "go" Then Module1.nCount = 0 Call InitTest Else Module1.TimerON = False End If Me.Range("B6") = Module1.TimerON End If End Sub

---

Le code du module1 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

Public intPortID As Integer ' Ex. 1, 2, 3, 4 pour COM1 - COM4 Public lngStatus As Long Public nCount As Long Public strError As String Public LineStatus As Boolean Public TimerON As Boolean Sub InitTest() ' Initialiser les communications intPortID = 24 ' port COM24 lngStatus = CommClose(intPortID) If lngStatus <> 0 Then ' Erreur fermeture du port COM lngStatus = CommGetError(strError) MsgBox "Erreur fermeture Port COM : " & strError Exit Sub End If lngStatus = CommOpen(intPortID, "\\.\COM" & CStr(intPortID), _ "baud=9600 parity=N data=8 stop=1") If lngStatus <> 0 Then ' Erreur d'ouverture du port COM lngStatus = CommGetError(strError) MsgBox "Erreur ouverture Port COM : " & strError Exit Sub End If ' Mettre le RTS à 1 lngStatus = CommSetLine(intPortID, LINE_RTS, True) TimerON = True 'démarrage du Timer qui lit le CTS toutes les secondes Application.Ontime EarliestTime:=Now + TimeValue("00:00:01"), _ Procedure:="TestCTS", Schedule:=TimerON End Sub   Public Sub TestCTS() On Error GoTo FermePort ' Tester le CTS If TimerON Then lngStatus = CommGetLine(intPortID, LINE_CTS, LineStatus) Debug.Print LineStatus If LineStatus Then EtatContact = "Fermé" Else: EtatContact = "Ouvert" ActiveSheet.Range("B3") = EtatContact ActiveSheet.Range("B4") = nCount ActiveSheet.Range("B6") = TimerON nCount = nCount + 1 Else Call CommClose(intPortID) End If 'on réarme le timer ou pas Application.Ontime EarliestTime:=Now + TimeValue("00:00:01"), _ Procedure:="TestCTS", Schedule:=TimerON Exit Sub FermePort: Call CommClose(intPortID) End Sub

---

et voici le résultat (je fais plusieurs fois des ouvertures fermetures de contact pendant le test) :

Pièce jointe 225219

Ami calmant, J.P

Avec ces tres beaux bouts de code, je propose qu'un post soit redige dans la section Contribuez :)

Citation:

---

Envoyé par jurassic pork

Pièce jointe 225219

Ami calmant, J.P

---

J'adore !... C'est tout a fait ce que je voulais !...:applo:

Citation:

---

Envoyé par Jean-Philippe André

Avec ces tres beaux bouts de code, je propose qu'un post soit redige dans la section Contribuez :)

---

Je laisse le soin à mes deux "aides" précieuses de rédiger (ou pas) ce post (je n'ai aucun mérite dans l'histoire à part d'être l'auteur de la question !...)

Citation:

---

Envoyé par dysorthographie

je n'est que des ports USB pas testé!

---

Ben je me posais la question ! s'il était possible de faire la même chose avec le port USB
Je pense que cela nécessite forcément un circuit imprimé ?
L'évolution des ordi va tellement vite ! et je suis encore en train de bouiner sur des ports com !

Stef