Discussion :

[Parseq]

Bonjour à tous,
Pour le monitoring et la recherche d’un mot sur les données de passage dans un port com, j’ai essayé d’écrire des lignes de code mais voilà mes problèmes :

1)Le menu (pour le choix du port com à utiliser) m’affiche la liste de tous les ports com de 1 à 15 au lieu de la liste des ports com présents et pas ouverts (dans mon cas, que le port 2)

2)Quand je choisis une deuxième fois le même port (via le menu créé ) il me donne une erreur "port déjà ouvert"

Voici le code :

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
Private Sub Form_Load()
 
‘Declaration des variables
Dim PortActif As Integer
Dim PremierChoix As Integer
Dim NumPort As Integer
PremierChoix = 0
PortActif = 0
‘Test des ports actifs et pas ouverts pour la création du menu
For NumPort = 1 To 15
On Error Resume Next
MSComm1.CommPort = NumPort
MSComm1.PortOpen = True
If Err.Number <> 8002 Or Err.Number <> 0 Then 
Load choix(NumPort)
choix(NumPort).Caption = NumPort
choix(NumPort).Visible = True
MSComm1.PortOpen = False
End If
Next NumPort
 
End Sub
 
Private Sub choix_Click(ChoixPortActif As Integer)
 
‘Premier fois que on fait un choix du port com
If PremierChoix = 0 Then
PremierChoix = 1
PortActif = ChoixPortActif
choix(ChoixPortActif).Checked = True
MSComm1.CommPort = ChoixPortActif
MSComm1.PortOpen = True
End If
 
‘Choix suivant du port com et control si pas le même (choisir une deuxième fois le même port com)
If PremierChoix <> 0 And PortActif <> ChoixPortActif Then
choix(PortActif).Checked = False
MSComm1.CommPort = PortActif
MSComm1.PortOpen = False
PortActif = ChoixPortActif
choix(ChoixPortActif).Checked = True
MSComm1.CommPort = ChoixPortActif
MSComm1.PortOpen = True
End If
 
End Sub

[SfJ5Rpw8]

Bonjour,

il semble que tu ait un problème dans la déclaration de tes variables ( portée..)

en VB il faut toujours mettre en haut de toutes les pages de codes la ligne

Code :

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

Option Explicit

qui te permet de mettre en évidence ce type d'erreur par exemple...

[Parseq]

Merci bbil,

1) En lisant simplement l'erreur donnée par VB , l'erreur générée est le 8005 et pas le 0.
Une fois trouvée la faille voici la partie du nouveau code concerné:

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
    For NumPort = 1 To 15
        On Error Resume Next
        MSComm1.CommPort = NumPort
        MSComm1.PortOpen = True
            If Err.Number <> 8002 And Err.Number <> 8005 Then
                Load Choix(NumPort)
                Choix(NumPort).Caption = NumPort
                Choix(NumPort).Visible = True
                MSComm1.PortOpen = False
            End If
    Next NumPort

2) Le problème de "deuxième choix" du même port était dû à la portée des variables (comme tu avais suggéré ) dans mon cas la variable PremierChoix
Une fois trouvée la faille voici la partie du nouveau code concerné (en haut du code):

Code vb :

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

1
2
3
4
5
Option Explicit
 
Private PortActif As Integer
Private PremierChoix As Integer
Private NumPort As Integer

Merci pour ton aide !!!