Discussion :

[mehari2000]

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 ! !!!
Pourtant il exécute la même macro quand le TimerON est à Faux !?...
Je vais essayer de gérer cette erreur

.... 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 !...


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

[jurassic pork]

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 :

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

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 :

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

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) :



Ami calmant, J.P

[Jean-Philippe André]

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

[mehari2000]

Ami calmant, J.P

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

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 !...)

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