check port com

Version imprimable

Voir 40 message(s) de cette discussion en une page

check port com

bonjour a tous,

voila dans un programme j'utilise

Code:

1
2
3
4
5
6
7
8
9
10
Form1.Caption = "Form1"                                     'le titre du form
   With MSComm3                                            'configuration du port
        .CommPort = 3                                       'On utilise le port COM3
        .Handshaking = 2                                    'RTS
        .RThreshold = 1
        .RTSEnable = True                                   'mieux pour le port COM:
        .Settings = "9600,n,8,1"                            'taux 9600 bauds, sur 8 bit avec un bit de stop
        .PortOpen = True                                    'ouverture du port
        .SThreshold = 1
        End With

mais le problème et qu'il est possible que ce soit un autre port que le trois qui soit ouvert, comment peut-on faire pour checker tous les ports ouvert?

merci:D

28/05/2009, 17h05
OhMonBato

Avec une boucle de 1 à 16 (puisque le controle COM ne gère que de Com1 à Com16) et avec une détection d'erreur sur le "portopen = True"

donc je dois faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Form1.Caption = "Form1"                                     'le titre du form
 
    For j = 1 To 16
    With MSComm3                                             'configuration du port
        .CommPort = j                                       'On utilise le port COM3
        .Handshaking = 2                                    'RTS
        .RThreshold = 1
        .RTSEnable = True                                   'mieux pour le port COM:
        .Settings = "9600,n,8,1"                            'taux 9600 bauds, sur 8 bit avec un bit de stop
        .SThreshold = 1
        If (.PortOpen = True) Then
        End If
        End With
        Next

ca lance le programme mais quand je veu faire quelque chose ca me dis qu'il faut que le port soit ouvert:(

28/05/2009, 19h27
OhMonBato

Que veux tu faire exactement ?
Si c'est juste pour voir si les ports sont ouverts ou non, cette boucle suffit (encore faudrait-il rajouter un "On Error" car je doute que tu ais 16 com ports sur ton PC). Si c'est pour utiliser un port en particulier, il faut le dire.
Prends donc le temps d'écrire un message ou tu expliqueras clairement et complètement ce que tu souhaites faire.
29/05/2009, 08h09
gomtex

oui je dois utiliser le port qui est ouvert^^ desolé:P
29/05/2009, 08h19
OhMonBato

Dernier rappel :

Citation:

Envoyé par OhMonBato

Prends donc le temps d'écrire un message ou tu expliqueras clairement et complètement ce que tu souhaites faire.

Le port ouvert par quel programme ? Si c'est ouvert par un autre programme, c'est foutu d'avance.
29/05/2009, 08h26
gomtex

Je souhaite faire un test pour savoir quel port com est ouvert, lorsqu'un des ports est jugé ouvert il s'arrête sur la boucle et le port qui sera utilisé sera celui la. Après je suppose et j'espère que je pourrai adapter pour faire une liste des ports com ouverts, parce que des fois ma souris est branchée sur le com et j'ai peur qu'il prenne se port la.
29/05/2009, 08h31
DAUDET78

Citation:

Envoyé par gomtex

oui je dois utiliser le port qui est ouvert^^ desolé:P

Je pense (ou plutôt j'espère) que notre ami Gomtex doit utiliser dans une feuille, un port COM qui a été ouvert dans une autre feuille du même .EXE, mais il ne sait plus son numéro. Dans ce cas, ce n'est pas en testant ceux qui sont déjà ouverts qu'on résous le problème.
- Soit tu mets dans une "variable globale" le numéro du port COM
- Soit tu crées une "fonction globale" d'écriture sur ce port COM
29/05/2009, 08h35
gomtex

oui j'ouvre un port spécifique à partir du chargement du form principal (premier post) sauf qu'ici j'attribu de suite le port com3, et mon souci est que lorsque je vais utiliser un autre port com ca ne va marcher. Pour ma part je sais quel port com je vais utiliser mais les futurs utilisateurs eux non. Ils vont brancher ça et faudra que ça marche, donc en testant les ports ouverts, normalement 1, et en le selectionnant ca devrait marcher.
29/05/2009, 09h11
DAUDET78

Citation:

Envoyé par gomtex

Pour ma part je sais quel port com je vais utiliser mais les futurs utilisateurs eux non.

un port COM, c'est aussi du hard, de la ficelle à mettre sur une prise DB9 ou DB25 ! Il suffit de donner le choix de sélection du port COM à l'utilisateur.

Citation:

Ils vont brancher ça et faudra que ça marche, donc en testant les ports ouverts, normalement 1, et en le selectionnant ca devrait marcher.

Non, tu peux avoir plusieurs ports COM ouverts. Celui de ton application et un (ou plusieurs autres) d'une autre application (une liaison avec un MODEM V90 ou un lecteur de badge ou autre)
29/05/2009, 09h24
OhMonBato

J'ai l'impression qu'on est 2 à ne pas trop comprendre ce que tu souhaites faire ou que tu ne sais pas trop comment marche un port com.

Imaginons que tu ais 4 ports com sur ton PC et un seul branché sur un périphérique, peut importe lequel, les 3 autres sont donc "dans le vide".
Si aucune action n'a été effectuée, et que ton périphérique "crache" des données ou non, tu peux toujours tester si les ports sont ouverts, tu auras toujours le meme résultat : ils seront tous fermés.
Pour en trouver un ouvert, il y a 2 possibilités :
- Soit un autre programme a ouvert un des port com et dans ce cas tu ne pourras pas l'utiliser avec ton programme.
- Soit toi tu as ouvert un port com auparavant (comme tu le montres effectivement dans ton premier extrait de code)

Que veux tu donc brancher sur ton port com ?
Réalise que si tu expliquais tout complètement dès le premier message tu ferais gagner du temps à tout le monde, y compris à toi.

Généralement, un utilisateur capable de brancher physiquement un périphérique ssur un port com, connait le numéro de ce dernier. Tu pourrais donc plutot lui proposer une listbox lui permettant de sélectionner le port com de son choix.
29/05/2009, 09h28
gomtex

Je souhaite brancher un lecteur RFID a un port USB. Pour tout le développement de mon programme, je l'ai brancher sur le Com3. maintenant, il faudrait que même si je me branche sur le port 1 2 ou 4 cela marche sans que l'utilisateur ai a dire a quel port il est branché.
29/05/2009, 09h41
DAUDET78

Citation:

Envoyé par gomtex

il faudrait que même si je me branche sur le port 1 2 ou 4 cela marche sans que l'utilisateur ai a dire a quel port il est branché.

On avance, on avance. Il faut donc ouvrir un port COM libre et qui soit branché à ton lecteur

Donc tu ouvres tour à tour tes 4 ports COM
1/ il est déjà utilisé, tu passes au suivant
2/ il est libre, tu l'ouvres et tu établis la liaison avec ton lecteur (il doit bien y avoir un message d'identification possible, envoi d'un string de commande et réponse du lecteur)
3a/ c'est bon, on a trouvé , on note le numéro et GOTO à la suite du programme
3b/ Ce n'est pas bon, on referme le port COM, on passe au suivant et GOTO 1/
29/05/2009, 09h45
gomtex

ok, jvais essayer ca et je vous tiens au courant parce qu'avec ma petite tête c'est pas gagné. En tout cas merci de votre patience.

Le souci sera comment lui dire t'ouvre le 1 et si ca marche pas bas test le 2 etc....

Programme de base, au pif, un truc de ce genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
For I%=0 to 3
  on error resume next
        MSComm.CommPort = I%
 .... paramètrage du port ....                                      
        MSComm.PortOpen = true
        Erreur%=Err
  on error goto 0
  if Erreur%=0 then ' le port est libre
     ... test si il y a un lecteur, si oui, Exit for ....
     ... si non, MSComm.PortOpen = false
  end if
Next I%
if I%>3 then ...... pas de port ou pas de lecteur ....

29/05/2009, 10h06
gomtex

ok, même si cela est surement clair, jsais pas si jvais réussir a completer:D enfin jvais essayer quand meme, sinon merci de l'indication

j ai essayer de mettre en oeuvre ta boucle, mais pour tester si le port est occupé je dois faire comment? avec ca je passe a coté meme si le port occupé je ne m arrete pas dessus:?

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
For I% = 0 To 3
  On Error Resume Next
        MSComm3.CommPort = I%
 '.... paramètrage du port ....
        MSComm3.PortOpen = True
        Erreur% = Err
  On Error GoTo 0
  If (Erreur% = 0) Then ' le port est libre
 '    ... test si il y a un lecteur, si oui, Exit for ....
 MSComm3.PortOpen = True
 End If
 '     ... si non, MSComm.PortOpen = false
Next I%
If (I% > 3) Then '...... pas de port ou pas de lecteur ....
MsgBox ("pas de lecteur")
End If
Form1.Caption = "Form1"         'le titre du form
        With MSComm3                                             'configuration du port
'        .CommPort = 1                                       'On utilise le port COM3
boucle:
        .Handshaking = 2                                    'RTS
        .RThreshold = 1
        .RTSEnable = True                                   'mieux pour le port COM:
        .Settings = "9600,n,8,1"                            'taux 9600 bauds, sur 8 bit avec un bit de stop
        .SThreshold = 1
'        .PortOpen = True
        End With

29/05/2009, 10h26
DAUDET78

le programme que je t'ai donné est un squelette, il faut le compléter !

Si le port n'est pas libre Erreur% est <>0 et tu ne gères pas Errer%=0 ...
Tu paramètres MSComm3 (vitesse, parité etc) après le balayage ...
29/05/2009, 10h42
gomtex

et bas je comprend rien :mouarf: vu mon niveau faut que je trouve autre chose, le travail est a rendre pour très bientot:( en esperant que je trouve une astuce.

J ai trouvé, j'ai fait un loop comme en assembleur.8-)

donc le code suivant etant speificique a mon utilisation, il se peut et il est meme quasi certain qu'il ne pourra servir qu'a faire la communication avec un lecteur RFID ou un modem ou tout autre appareil capable de s'identifier:lol:

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
 
On Error Resume Next       ' on ne tient pas compte des erreures generées pas le code
boucle:                    'etiquette de boucle
MSComm3.PortOpen = False   'fermeture de port qui aurait du generer une erreur mais qui n'est pas signaler grace a resume next
 
    j = j + 1               'ici le compteur représente le numéro de port
    With MSComm3
        .CommPort = j                              'On utilise le port COMJ
        .Handshaking = 2                                    'RTS
        .RThreshold = 1
        .RTSEnable = True                                   'mieux pour le port COM:
        .Settings = "9600,n,8,1"                            'taux 9600 bauds, sur 8 bit avec un bit de stop
        .SThreshold = 1
        .PortOpen = True
        End With
 
seq = "V?" + Chr(13)                'comme test on demande au lecteur de s'identifier
MSComm3.Output = seq                'on envoie la requete que le port que l'on a ouvert
Sleep 500                           'on traite
seq = MSComm3.Input                 'On recupere les informations
seq = Mid(seq, 1, 2)                'si le lecteur est connecté il retourne un resultat de la forme 0, uid8lPenbf...
Sleep 500                           'on traite alors le resultat pour ne garder que le zero, sinon le retour est V? la demande n'ayant pu etre traité il retourne la requete
If (seq = "0,") Then                   'si le Stylo est présent on poursuit le programme
GoTo fin
Else
GoTo boucle                         'sinon on boucle pour incrementer le numero de port.
End If

le goto fin emene tout simplement a la suite du code.

Voir 40 message(s) de cette discussion en une page